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

#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
calcvar human 兑换序列号 =
savevar human 兑换序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\兑换临时文本.txt
messagebox 兑换失败,您输入的序列号不存在或已被使用,请核对后尝试重新输入!!
close
break

#if
checkvar human 兑换序列号 =
#act
DelayCall 500 @换卡中_1
#elseact
MOV M54 <$HUMAN(兑换序列号)>
GameGold + <$STR(M54)>
AddTextList .\QuestDiary\QQ188078766制作\自助换卡系统\玩家兑卡记录.txt [<$DATETIME>]玩家[<$USERNAME>]使用序列号[<$STR(S50)>]兑换[<$STR(M54)>]元宝
calcvar human 兑换序列号 =
savevar human 兑换序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\兑换临时文本.txt
messagebox 恭喜您成功兑换了[<$STR(M54)>]个元宝!
sendmsg 1 恭喜玩家[%s]使用自助元宝转区系统从其他区成功转入本区[<$STR(M54)>]元宝!!
#elsesay
\ \
　<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><兑换成功/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\ \
　　恭喜您成功使用序列号兑换元宝，以下为您的兑换信息\ \
　　　　　序列号：<$STR(S50)>\
　　　　　元宝数：<$STR(M54)>\ \
　
　　<您当前所拥有的元宝总数为：【/SCOLOR=250>{<$GAMEGOLD>/SCOLOR=253}<】/SCOLOR=250>

[@诏告全服]
#if
LARGE M54 1
#act
sendmsg 1 恭喜玩家[%s]使用自助元宝转区系统成功获得[<$STR(M54)>]元宝!!
goto @main
#elseact
goto @main

;此方法主要检测玩家是否已经兑换成功但是却为领取，战歌网，一般造成这类情况是玩家意外掉线
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@检测是否未领取]
#if
checkvar human 生成序列号 = 算号失败
#act
calcvar human 生成序列号 =
savevar human 生成序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\算号临时文本.txt

#if
checkvar human 生成序列号 = 连接失败
#act
calcvar human 生成序列号 =
savevar human 生成序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\算号临时文本.txt

#if
checkvar human 生成序列号 =
#elseact
GuildNoticeMsg 255 0 系统：由于您上次的意外造成未获取到序列号的情况,现在将序列号补发 Self
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 补发上次的序列号[<$HUMAN(生成序列号)>] Self
GuildNoticeMsg 255 0 =============================================================== Self
calcvar human 我的序列号 = <$HUMAN(生成序列号)>
savevar human 我的序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\玩家卡号记录.txt
calcvar human 生成序列号 =
savevar human 生成序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\算号临时文本.txt

;兑换序列号 处理
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#if
checkvar human 兑换序列号 = 连接失败
#act
calcvar human 兑换序列号 =
savevar human 兑换序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\兑换临时文本.txt

#if
checkvar human 兑换序列号 = 请重试
#act
calcvar human 兑换序列号 =
savevar human 兑换序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\兑换临时文本.txt

#if
checkvar human 兑换序列号 = 卡号不存在
#act
calcvar human 兑换序列号 =
savevar human 兑换序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\兑换临时文本.txt

#if
checkvar human 兑换序列号 =
#elseact
MOV M55 <$HUMAN(兑换序列号)>
gamegold + <$STR(M55)>
GuildNoticeMsg 255 0 系统：由于您上次的意外造成兑换了序列号但是未得到元宝,现在已补发 Self
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 已补发您的元宝:[<$HUMAN(兑换序列号)>]元宝 Self
GuildNoticeMsg 255 0 =============================================================== Self
calcvar human 兑换序列号 =
savevar human 兑换序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\兑换临时文本.txt

[@IsInFilterList]
#if
checklevelex > 0
#ACT
MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!