[@全额兑换]
#if
checktextlist .QuestDiaryQQ188078766制造自助换卡系统运转形状.txt 启动
#elseact
messagebox 此性能未开启，请联络治理员！
close
break

#if
checkgamegold ? 1000
#act
MOV M50 <$GAMEGOLD>
DIV M52 <$STR(M50)> <$STR(M51)>
#say

　<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><自助换卡/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>
　　　 您一共领有<$GAMEGOLD>元宝，您一共可换<$STR(M52)>个元宝
　　　　　  [ <确定兑换/@确定兑换_全额> ]　　　[ <取消兑换/@exit> ]
#elseact
messagebox 少于1000元宝无奈兑换！
close
break

[@确定兑换_全额]
#if
checkgamegold ? 1000
#elseact
messagebox 少于1000元宝无奈兑换！
close
break

#if
checktextlist .QuestDiaryQQ188078766制造自助换卡系统运转形状.txt 启动
#act
MOV M50 <$GAMEGOLD>
DIV M52 <$STR(M50)> <$STR(M51)>
goto @末尾兑换
#elseact
messagebox 此性能未开启，请联络治理员！
close
break

[@确定兑换_自由]
#if
checktextlist .QuestDiaryQQ188078766制造自助换卡系统运转形状.txt 启动
#elseact
messagebox 此性能未开启，请联络治理员！
close
break

#if
checkgamegold ? <$STR(N52)>
#elseact
messagebox 请勿利用非法手腕获取本服元宝!
close
break

#if
checktextlist .QuestDiaryQQ188078766制造自助换卡系统运转形状.txt 启动
#act
MOV M50 <$STR(N52)>
DIV M52 <$STR(N52)> <$STR(M51)>
goto @末尾兑换
#elseact
messagebox 此性能未开启，请联络治理员！
close
break

[@末尾兑换]
#if
checklevelex > 0
#say
请稍后，系统正在算号中，请勿关闭窗口…………
#act
AddTextList .QuestDiaryQQ188078766制造自助换卡系统命令检测.txt <$USERNAME>:<$STR(M52)>:算号
goto @算号中_1

[@算号中_1]
#if
checklevelex > 0
#act
loadvar human 生成序列号 ..QuestDiaryQQ188078766制造自助换卡系统算号暂时文本.txt

#if
checkvar human 生成序列号 = 算号失败
#act
calcvar human 生成序列号 =
savevar human 生成序列号 ..QuestDiaryQQ188078766制造自助换卡系统算号暂时文本.txt
messagebox 算号失败,请稍后在重试,这种成绩能够是同时算号的人数太多形成!!
close
break

#if
checkvar human 生成序列号 = 衔接失败
#act
calcvar human 生成序列号 =
savevar human 生成序列号 ..QuestDiaryQQ188078766制造自助换卡系统算号暂时文本.txt
messagebox 算号失败,请联络治理员开启此服务!!
close
break

#if
checkvar human 生成序列号 =
#act
DelayCall 500 @算号中_1
#elseact
gamegold - <$STR(M50)>
MOV S50 <$HUMAN(生成序列号)>
calcvar human 我的序列号 = <$STR(S50)>
savevar human 我的序列号 ..QuestDiaryQQ188078766制造自助换卡系统玩家卡号记载.txt
GuildNoticeMsg 255 0 算号胜利您的系列号可兑换<$STR(M52)>个元宝 Self
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 序列号[<$STR(S50)>]此号可兑换[<$STR(M52)>]元宝 Self
GuildNoticeMsg 255 0 =============================================================== Self
AddTextList .QuestDiaryQQ188078766制造自助换卡系统玩家算号记载.txt [<$DATETIME>]玩家[<$USERNAME>]利用[<$STR(M50)>]元宝兑换序列号[<$STR(S50)>]此号可换[<$STR(M52)>]元宝
calcvar human 生成序列号 =
savevar human 生成序列号 ..QuestDiaryQQ188078766制造自助换卡系统算号暂时文本.txt
#elsesay

　<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><自助换卡/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>
　　您的序列号已经发放，请妥善保管，假设失落不予找回
　　　　序列号：<$STR(S50)>
　　<点聊天框中的序列号可能复制/@发送到>　请尽快利用您的序列号