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

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

出处：本站整理作者：佚名发布时间：2014-03-04阅读次数：

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

(@@InPutString @@InPutInteger)
[@main]
#if
EQUAL M80 0
#act
var string human 我的序列号
var string human 生成序列号
var string human 兑换序列号
MOV M80 1

#if
checktextlist .\QuestDiary\QQ188078766制作\自助换卡系统\运行状态.txt 启动
#act
MOV M50 0
;这里是兑换的比例,你可以更具自己的改 这里是4:1的比例 改成5 就是 5:1
MOV M51 4
MOV M52 0
MOV M53 0
MOV M54 0
MOV S50
MOV S51
MOV S53
MOV S54
MOV M50 <$GAMEGOLD>
DIV M52 <$STR(M50)> <$STR(M51)>
#elseact
messagebox 此功能未开启，请联系管理员！
break

#if
checklevelex > 0
#act
loadvar human 我的序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\玩家卡号记录.txt
loadvar human 生成序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\算号临时文本.txt
loadvar human 兑换序列号 ..\QuestDiary\QQ188078766制作\自助换卡系统\兑换临时文本.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
checkvar human 我的序列号 =
#act
messagebox 你还没有兑换过序列号！
#elseact
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 点我可复制序列号[<$HUMAN(我的序列号)>] Self
GuildNoticeMsg 255 0 =============================================================== Self

[@自由兑换]
#if
checktextlist .\QuestDiary\QQ188078766制作\自助换卡系统\运行状态.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
LARGE N52 999
#elseact
messagebox 　\　\　　少于1000元宝无法兑换！
close
break

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