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

来源: 作者: 点击:
;用户可以自定义此文件,但是在写的时候请注意凡是操作文本类的都不要修改改了将会报错

(@@InPutString@@InPutInteger)
[@main]
#if
EQUALM800
#act
varstringhuman我的序列号
varstringhuman生成序列号
varstringhuman兑换序列号
MOVM801

#if
checktextlist.QuestDiaryQQ188078766制作自助换卡系统运行状态.txt启动
#act
MOVM500
;这里是兑换的比例你可以更具自己的改这里是4:1的比例改成5就是5:1
MOVM514
MOVM520
MOVM530
MOVM540
MOVS50
MOVS51
MOVS53
MOVS54
MOVM50<$GAMEGOLD>
DIVM52<$STR(M50)><$STR(M51)>
#elseact
messagebox此功能未开启,请联系管理员!
break


#if
checklevelex>0
#act
loadvarhuman我的序列号..QuestDiaryQQ188078766制作自助换卡系统玩家卡号记录.txt
loadvarhuman生成序列号..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt
loadvarhuman兑换序列号..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
goto@检测是否未领取
#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>]

[@发送到聊天框]
#if
checkvarhuman我的序列号=
#act
messagebox你还没有兑换过序列号!
#elseact
GuildNoticeMsg2550===============================================================Self
GuildNoticeMsg2550点我可复制序列号[<$HUMAN(我的序列号)>]Self
GuildNoticeMsg2550===============================================================Self


[@自由兑换]
#if
checktextlist.QuestDiaryQQ188078766制作自助换卡系统运行状态.txt启动
#say

 <┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><自由兑换/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>
   <兑换比例:/SCOLOR=31>{<$STR(M51)>:1/SCOLOR=150}<(您一共可兑换/SCOLOR=31>{<$STR(M52)>/SCOLOR=150}<元宝)/SCOLOR=31>
   <功能介绍:/SCOLOR=31><此功能将输入的元宝转换成点卡,可/SCOLOR=31>
        <在其他区兑换成元宝,元宝按照一定/SCOLOR=31>
        <比例兑换/SCOLOR=31>
        [<输入元宝/@@InPutInteger52>] [<返回首页/@main>]

#elseact
messagebox此功能未开启,请联系管理员!

[@CallInPutInteger52]
#if
LARGEN52999
#elseact
messagebox    少于1000元宝无法兑换!
close
break

#if
checkgamegold?<$STR(N52)>
#act
DIVM52<$STR(N52)><$STR(M51)>
#say

 <┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><自由兑换/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>
   您输入了<$STR(N52)>个元宝,您一共可换<$STR(M52)>个元宝
     [<确定兑换/@确定兑换_自由>]   [<取消兑换/@exit>]

#elseact
messagebox您没有<$STR(N52)>个元宝无法进行兑换!

[@全额兑换1]
#if
checktextlist.QuestDiaryQQ188078766制作自助换卡系统运行状态.txt启动
#act
MOVM50<$GAMEGOLD>
DIVM52<$STR(M50)><$STR(M51)>
#say

 <┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><全额兑换/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>
   <兑换比例:/SCOLOR=31>{<$STR(M51)>:1/SCOLOR=150}<(您一共可兑换/SCOLOR=31>{<$STR(M52)>/SCOLOR=150}<元宝)/SCOLOR=31>
   <功能介绍:/SCOLOR=31><此功能可将您的元宝转换为点卡,可/SCOLOR=31>
        <在其他区兑换成元宝,元宝按照一定/SCOLOR=31>
        <比例兑换,兑换后本身元宝清空!/SCOLOR=31>
        [<确定兑换/@换卡>] [<我要兑换/@@InPutString50>]
#elseact
messagebox此功能未开启,请联系管理员!


[@全额兑换]
#if
checktextlist.QuestDiaryQQ188078766制作自助换卡系统运行状态.txt启动
#elseact
messagebox此功能未开启,请联系管理员!
close
break

#if
checkgamegold?1000
#act
MOVM50<$GAMEGOLD>
DIVM52<$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
MOVM50<$GAMEGOLD>
DIVM52<$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
MOVM50<$STR(N52)>
DIVM52<$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
loadvarhuman生成序列号..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt


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

#if
checkvarhuman生成序列号=连接失败
#act
calcvarhuman生成序列号=
savevarhuman生成序列号..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt
messagebox算号失败请联系管理员开启此服务!!
close
break


#if
checkvarhuman生成序列号=
#act
DelayCall500@算号中_1
#elseact
gamegold-<$STR(M50)>
MOVS50<$HUMAN(生成序列号)>
calcvarhuman我的序列号=<$STR(S50)>
savevarhuman我的序列号..QuestDiaryQQ188078766制作自助换卡系统玩家卡号记录.txt
GuildNoticeMsg2550算号成功您的系列号可兑换<$STR(M52)>个元宝Self
GuildNoticeMsg2550===============================================================Self
GuildNoticeMsg2550序列号[<$STR(S50)>]此号可兑换[<$STR(M52)>]元宝Self
GuildNoticeMsg2550===============================================================Self
AddTextList.QuestDiaryQQ188078766制作自助换卡系统玩家算号记录.txt[<$DATETIME>]玩家[<$USERNAME>]使用[<$STR(M50)>]元宝兑换序列号[<$STR(S50)>]此号可换[<$STR(M52)>]元宝
calcvarhuman生成序列号=
savevarhuman生成序列号..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt
#elsesay

 <┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><自助换卡/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>
  您的序列号已经发放,请妥善保管,如果丢失不予找回
    序列号:<$STR(S50)>
  <点聊天框中的序列号可以复制/@发送到> 请尽快使用您的序列号

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

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

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


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

#if
checkvarhuman兑换序列号=连接失败
#act
calcvarhuman兑换序列号=
savevarhuman兑换序列号..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
messagebox兑换失败请联系管理员开启此服务!!
close
break

#if
checkvarhuman兑换序列号=请重试
#act
calcvarhuman兑换序列号=
savevarhuman兑换序列号..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
messagebox兑换失败请稍后再试此问题可能是过多玩家一起兑换序列号造成!
close
break


#if
checkvarhuman兑换序列号=卡号不存在
#act
calcvarhuman兑换序列号=
savevarhuman兑换序列号..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
messagebox兑换失败您输入的序列号不存在或已被使用请核对后尝试重新输入!!
close
break

#if
checkvarhuman兑换序列号=
#act
DelayCall500@换卡中_1
#elseact
MOVM54<$HUMAN(兑换序列号)>
GameGold+<$STR(M54)>
AddTextList.QuestDiaryQQ188078766制作自助换卡系统玩家兑卡记录.txt[<$DATETIME>]玩家[<$USERNAME>]使用序列号[<$STR(S50)>]兑换[<$STR(M54)>]元宝
calcvarhuman兑换序列号=
savevarhuman兑换序列号..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt
messagebox恭喜您成功兑换了[<$STR(M54)>]个元宝!
sendmsg1恭喜玩家[%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
LARGEM541
#act
sendmsg1恭喜玩家[%s]使用自助元宝转区系统成功获得[<$STR(M54)>]元宝!!
goto@main
#elseact
goto@main

;此方法主要检测玩家是否已经兑换成功但是却为领取,一般造成这类情况是玩家意外掉线
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@检测是否未领取]
#if
checkvarhuman生成序列号=算号失败
#act
calcvarhuman生成序列号=
savevarhuman生成序列号..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt

#if
checkvarhuman生成序列号=连接失败
#act
calcvarhuman生成序列号=
savevarhuman生成序列号..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt


#if
checkvarhuman生成序列号=
#elseact
GuildNoticeMsg2550系统:由于您上次的意外造成未获取到序列号的情况现在将序列号补发Self
GuildNoticeMsg2550===============================================================Self
GuildNoticeMsg2550补发上次的序列号[<$HUMAN(生成序列号)>]Self
GuildNoticeMsg2550===============================================================Self
calcvarhuman我的序列号=<$HUMAN(生成序列号)>
savevarhuman我的序列号..QuestDiaryQQ188078766制作自助换卡系统玩家卡号记录.txt
calcvarhuman生成序列号=
savevarhuman生成序列号..QuestDiaryQQ188078766制作自助换卡系统算号临时文本.txt


;兑换序列号处理
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#if
checkvarhuman兑换序列号=连接失败
#act
calcvarhuman兑换序列号=
savevarhuman兑换序列号..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt

#if
checkvarhuman兑换序列号=请重试
#act
calcvarhuman兑换序列号=
savevarhuman兑换序列号..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt

#if
checkvarhuman兑换序列号=卡号不存在
#act
calcvarhuman兑换序列号=
savevarhuman兑换序列号..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt

#if
checkvarhuman兑换序列号=
#elseact
MOVM55<$HUMAN(兑换序列号)>
gamegold+<$STR(M55)>
GuildNoticeMsg2550系统:由于您上次的意外造成兑换了序列号但是未得到元宝现在已补发Self
GuildNoticeMsg2550===============================================================Self
GuildNoticeMsg2550已补发您的元宝:[<$HUMAN(兑换序列号)>]元宝Self
GuildNoticeMsg2550===============================================================Self
calcvarhuman兑换序列号=
savevarhuman兑换序列号..QuestDiaryQQ188078766制作自助换卡系统兑换临时文本.txt

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