非常实用的自助换卡系统脚本(2)

#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 .\QuestDiary\QQ188078766制作\自助换卡系统\运行状态.txt 启动
#act
MOV M50 <$GAMEGOLD>
DIV M52 <$STR(M50)> <$STR(M51)>
goto @开始兑换
#elseact
messagebox 此功能未开启，请联系管理员！
close
break

[@确定兑换_自由]
#if
checktextlist .\QuestDiary\QQ188078766制作\自助换卡系统\运行状态.txt 启动
#elseact
messagebox 此功能未开启，请联系管理员！
close
break

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

#if
checktextlist .\QuestDiary\QQ188078766制作\自助换卡系统\运行状态.txt 启动
#act
MOV M50 <$STR(N52)>
DIV M52 <$STR(N52)> <$STR(M51)>
goto @开始兑换
#elseact
messagebox 此功能未开启，请联系管理员！
close
break

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

[@算号中_1]
#if
checklevelex > 0
#act
loadvar human 生成序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\算号临时文本.txt

#if
checkvar human 生成序列号 = 算号失败
#act
calcvar human 生成序列号 =
savevar human 生成序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\算号临时文本.txt
messagebox 算号失败,请稍后在重试,这种问题可能是同时算号的人数太多造成!!
close
break

#if
checkvar human 生成序列号 = 连接失败
#act
calcvar human 生成序列号 =
savevar human 生成序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\算号临时文本.txt
messagebox 算号失败,请联系管理员开启此服务!!
close
break

#if
checkvar human 生成序列号 =
#act
DelayCall 500 @算号中_1
#elseact
gamegold - <$STR(M50)>
MOV S50 <$HUMAN(生成序列号)>
calcvar human 我的序列号 = <$STR(S50)>
savevar human 我的序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\玩家卡号记录.txt
GuildNoticeMsg 255 0 算号成功您的系列号可兑换<$STR(M52)>个元宝 Self
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 序列号[<$STR(S50)>]此号可兑换[<$STR(M52)>]元宝 Self
GuildNoticeMsg 255 0 =============================================================== Self
AddTextList .\QuestDiary\QQ188078766制作\自助换卡系统\玩家算号记录.txt [<$DATETIME>]玩家[<$USERNAME>]使用[<$STR(M50)>]元宝兑换序列号[<$STR(S50)>]此号可换[<$STR(M52)>]元宝
calcvar human 生成序列号 =
savevar human 生成序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\算号临时文本.txt
#elsesay
\ \
　<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><自助换卡/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\ \
　　您的序列号已经发放，请妥善保管，如果丢失不予找回\ \
　　　　序列号：<$STR(S50)>\ \
　　<点聊天框中的序列号可以复制/@发送到>　请尽快使用您的序列号\

[@发送到]
#if
checklevelex > 0
#act
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 序列号[<$STR(S50)>]此号可兑换[<$STR(M52)>]元宝 Self
GuildNoticeMsg 255 0 =============================================================== Self

;以下为兑换卡号
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@CallInPutString50]
您输入的序列号为:<$STR(S50)>\ \

#if
checktextlist .\QuestDiary\QQ188078766制作\自助换卡系统\运行状态.txt 启动
#act
MOV S54
MOV M54 0
AddTextList .\QuestDiary\QQ188078766制作\自助换卡系统\命令检测.txt <$USERNAME>:<$STR(S50)>:兑换
goto @换卡中_1
#say
正在查询序列号，请稍后………\ \ \
#elseact
messagebox 服务尚未启动，请联系管理员开启此功能！！

[@换卡中_1]
#if
checklevelex > 0
#act
loadvar human 兑换序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\兑换临时文本.txt