非常实用的自助换卡系统脚本_自动换卡机
;用户可以自定义此文件，但是在写的时候请注意凡是操作文本类的都不要修改 改了将会报错
(@@InPutString @@InPutInteger)[@main]#ifEQUAL M80 0#actvar string human 我的序列号var string human 生成序列号var string human 兑换序列号MOV M80 1
#ifchecktextlist .QuestDiaryQQ188078766制作自助换卡系统运行状态.txt 启动#actMOV M50 0;这里是兑换的比例,你可以更具自己的改 这里是4:1的比例 改成5 就是 5:1 MOV M51 4MOV M52 0MOV M53 0MOV M54 0MOV S50 MOV S51 MOV S53 MOV S54 MOV M50 <$GAMEGOLD>DIV M52 <$STR(M50)> <$STR(M51)>#elseactmessagebox 此功能未开启，请联系管理员！break
#ifchecklevelex > 0#actloadvar human 我的序列号 ..QuestDiaryQQ188078766制作自助换卡系统玩家卡号记录.txtloadvar human 生成序列号 ..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txtloadvar human 兑换序列号 ..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txtgoto @检测是否未领取#say< 本服独家研制开发/SCOLOR=19><『私服界牛比功能』/SCOLOR=253><玩家自主换各区元宝/SCOLOR=19>< 如果老区玩腻了想玩新区,可以在我这里自行兑换元宝卡号!/SCOLOR=19>< 兑换好元宝卡后,用系统给你的卡号可以在任意区兑换元宝/SCOLOR=19>
<「/SCOLOR=254><无需要客服操作/SCOLOR=250><」/SCOLOR=254> <「/SCOLOR=254><一切玩家自主完成/SCOLOR=250><」/SCOLOR=254> <「/SCOLOR=254><长期玩家的福音/SCOLOR=250><」/SCOLOR=254>
< 兑换比例：/SCOLOR=19> <4:1 /SCOLOR=253> <比如此区1万元宝兑换到其他区就是2500元宝/SCOLOR=254>
[<元宝兑换卡号/@自由兑换>] [<卡号兑换元宝/@@InPutString50>] [<查询我的卡号/@我的卡号>]
[@我的卡号] <┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><我的卡号/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151> 只显示最后一次成功兑换的记录，请玩家自行保存 序列号：<$HUMAN(我的序列号)> 显示到聊天框中后可进行复制 [ <显示到聊天框/@发送到聊天框>] [ <返回首页/@main> ] [ <关闭窗口/@exit> ]
[@发送到聊天框]#ifcheckvar human 我的序列号 = #actmessagebox 你还没有兑换过序列号！#elseactGuildNoticeMsg 255 0 =============================================================== SelfGuildNoticeMsg 255 0 点我可复制序列号[<$HUMAN(我的序列号)>] SelfGuildNoticeMsg 255 0 =============================================================== Self
#elseactmessagebox 此功能未开启，请联系管理员！
[@CallInPutInteger52]#ifLARGE N52 999#elseactmessagebox 少于1000元宝无法兑换！closebreak
#ifcheckgamegold ? <$STR(N52)>#actDIV M52 <$STR(N52)> <$STR(M51)>#say <┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><自由兑换/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151> 您输入了<$STR(N52)>个元宝，您一共可换<$STR(M52)>个元宝 [ <确定兑换/@确定兑换_自由> ] [ <取消兑换/@exit> ]
#elseactmessagebox 您没有<$STR(N52)>个元宝,无法进行兑换!
[@全额兑换]#ifchecktextlist .QuestDiaryQQ188078766制作自助换卡系统运行状态.txt 启动#elseactmessagebox 此功能未开启，请联系管理员！closebreak
#ifcheckgamegold ? 1000#actMOV M50 <$GAMEGOLD>DIV M52 <$STR(M50)> <$STR(M51)>#say <┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><自助换卡/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151> 您一共拥有<$GAMEGOLD>元宝，您一共可换<$STR(M52)>个元宝 [ <确定兑换/@确定兑换_全额> ] [ <取消兑换/@exit> ]#elseactmessagebox 少于1000元宝无法兑换！closebreak
[@确定兑换_全额]#ifcheckgamegold ? 1000#elseactmessagebox 少于1000元宝无法兑换！closebreak
#ifchecktextlist .QuestDiaryQQ188078766制作自助换卡系统运行状态.txt 启动#actMOV M50 <$GAMEGOLD>DIV M52 <$STR(M50)> <$STR(M51)>goto @开始兑换#elseactmessagebox 此功能未开启，请联系管理员！closebreak
[@确定兑换_自由]#ifchecktextlist .QuestDiaryQQ188078766制作自助换卡系统运行状态.txt 启动#elseactmessagebox 此功能未开启，请联系管理员！closebreak
#ifcheckgamegold ? <$STR(N52)>#elseactmessagebox 请勿使用非法手段获取本服元宝!closebreak
#ifchecktextlist .QuestDiaryQQ188078766制作自助换卡系统运行状态.txt 启动#actMOV M50 <$STR(N52)>DIV M52 <$STR(N52)> <$STR(M51)>goto @开始兑换#elseactmessagebox 此功能未开启，请联系管理员！closebreak
[@开始兑换]#ifchecklevelex > 0#say请稍后，系统正在算号中，请勿关闭窗口…………#actAddTextList .QuestDiaryQQ188078766制作自助换卡系统命令检测.txt <$USERNAME>:<$STR(M52)>:算号goto @算号中_1
[@算号中_1]#ifchecklevelex > 0#actloadvar human 生成序列号 ..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt
#ifcheckvar human 生成序列号 = 算号失败#actcalcvar human 生成序列号 = savevar human 生成序列号 ..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txtmessagebox 算号失败,请稍后在重试,这种问题可能是同时算号的人数太多造成!!closebreak
#ifcheckvar human 生成序列号 = 连接失败#actcalcvar human 生成序列号 = savevar human 生成序列号 ..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txtmessagebox 算号失败,请联系管理员开启此服务!!closebreak
#ifcheckvar human 生成序列号 = #actDelayCall 500 @算号中_1#elseactgamegold - <$STR(M50)>MOV S50 <$HUMAN(生成序列号)>calcvar human 我的序列号 = <$STR(S50)>savevar human 我的序列号 ..QuestDiaryQQ188078766制作自助换卡系统玩家卡号记录.txtGuildNoticeMsg 255 0 算号成功您的系列号可兑换<$STR(M52)>个元宝 SelfGuildNoticeMsg 255 0 =============================================================== SelfGuildNoticeMsg 255 0 序列号[<$STR(S50)>]此号可兑换[<$STR(M52)>]元宝 SelfGuildNoticeMsg 255 0 =============================================================== SelfAddTextList .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)> <点聊天框中的序列号可以复制/@发送到> 请尽快使用您的序列号
[@发送到]#ifchecklevelex > 0#actGuildNoticeMsg 255 0 =============================================================== SelfGuildNoticeMsg 255 0 序列号[<$STR(S50)>]此号可兑换[<$STR(M52)>]元宝 SelfGuildNoticeMsg 255 0 =============================================================== Self
;以下为兑换卡号;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━[@CallInPutString50]您输入的序列号为:<$STR(S50)>
#ifchecktextlist .QuestDiaryQQ188078766制作自助换卡系统运行状态.txt 启动#actMOV S54 MOV M54 0 AddTextList .QuestDiaryQQ188078766制作自助换卡系统命令检测.txt <$USERNAME>:<$STR(S50)>:兑换goto @换卡中_1#say正在查询序列号，请稍后……… #elseactmessagebox 服务尚未启动，请联系管理员开启此功能！！
[@换卡中_1]#ifchecklevelex > 0#actloadvar human 兑换序列号 ..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
#ifcheckvar human 兑换序列号 = 连接失败#actcalcvar human 兑换序列号 = savevar human 兑换序列号 ..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txtmessagebox 兑换失败,请联系管理员开启此服务!!closebreak
#ifcheckvar human 兑换序列号 = 请重试#actcalcvar human 兑换序列号 = savevar human 兑换序列号 ..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txtmessagebox 兑换失败,请稍后再试,此问题可能是过多玩家一起兑换序列号造成!closebreak
#ifcheckvar human 兑换序列号 = 卡号不存在#actcalcvar human 兑换序列号 = savevar human 兑换序列号 ..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txtmessagebox 兑换失败,您输入的序列号不存在或已被使用,请核对后尝试重新输入!!closebreak
[@诏告全服]#ifLARGE M54 1#actsendmsg 1 恭喜玩家[%s]使用自助元宝转区系统成功获得[<$STR(M54)>]元宝!!goto @main#elseactgoto @main
;此方法主要检测玩家是否已经兑换成功但是却为领取，一般造成这类情况是玩家意外掉线;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━[@检测是否未领取]#ifcheckvar human 生成序列号 = 算号失败#actcalcvar human 生成序列号 = savevar human 生成序列号 ..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt
#ifcheckvar human 生成序列号 = 连接失败#actcalcvar human 生成序列号 = savevar human 生成序列号 ..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt
#ifcheckvar human 生成序列号 = #elseactGuildNoticeMsg 255 0 系统：由于您上次的意外造成未获取到序列号的情况,现在将序列号补发 SelfGuildNoticeMsg 255 0 =============================================================== SelfGuildNoticeMsg 255 0 补发上次的序列号[<$HUMAN(生成序列号)>] SelfGuildNoticeMsg 255 0 =============================================================== Selfcalcvar human 我的序列号 = <$HUMAN(生成序列号)>savevar human 我的序列号 ..QuestDiaryQQ188078766制作自助换卡系统玩家卡号记录.txtcalcvar human 生成序列号 = savevar human 生成序列号 ..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt
;兑换序列号 处理;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━#ifcheckvar human 兑换序列号 = 连接失败#actcalcvar human 兑换序列号 = savevar human 兑换序列号 ..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
#ifcheckvar human 兑换序列号 = 请重试#actcalcvar human 兑换序列号 = savevar human 兑换序列号 ..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
#ifcheckvar human 兑换序列号 = 卡号不存在#actcalcvar human 兑换序列号 = savevar human 兑换序列号 ..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
#ifcheckvar human 兑换序列号 = #elseactMOV M55 <$HUMAN(兑换序列号)>gamegold + <$STR(M55)>GuildNoticeMsg 255 0 系统：由于您上次的意外造成兑换了序列号但是未得到元宝,现在已补发 SelfGuildNoticeMsg 255 0 =============================================================== SelfGuildNoticeMsg 255 0 已补发您的元宝:[<$HUMAN(兑换序列号)>]元宝 SelfGuildNoticeMsg 255 0 =============================================================== Selfcalcvar human 兑换序列号 = savevar human 兑换序列号 ..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
[@IsInFilterList]#ifchecklevelex > 0#ACTMESSAGEBOX 输入数据中包含了非法字符,请重新编辑!
