GOM传奇引擎元宝自助转区脚本GameOfMir引擎转区脚本范例
;用户可以自定义此文件，但是在写的时候请注意凡是操作文本类的都不要修改改了将会报错
(@@InPutString@@InPutInteger)
[@main]
#if
checktextlist.\QuestDiary\转区脚本\元宝自助转区\运行状态.txt启动
#act
MOVM500
MOVM510
MOVN500
MOVS50
MOVS51
MOVM50<$GAMEGOLD>
DIVM50100
MULM50<$STR(M50)>30
loadvarhumanZq_MyCode..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvarhumanZq_PayBack..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvarhumanZq_GameGold..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvarhumanZq_RutenInfo..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvarhumanZq_ChongZhiJF..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
#say
<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><元宝转区/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\\
功能介绍：您可以输入您想要兑换的元宝数量，系统将\
您的元宝兑换成卡号您可以拿此卡号到本服\
其他的分区兑换成相应的元宝，方便快捷\\
∫换比例：30%您共<$GAMEGOLD>元宝可转<$STR(M50)>元宝\\
[<兑换卡号/@兑换卡号>] [<领取元宝/@@InPutString50>] [<卡号查询/@@InPutString51>] [<我的卡号/@我的卡号>]
#elseact
messagebox【失败】服务器尚未启动，请联系管理员启动！
[@我的卡号]
\\
<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><我的卡号/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\\
只显示最后一次成功兑换的记录，请玩家自行保存\\
序列号：<$HUMAN(Zq_MyCode)>\
显示到聊天框中后可进行复制[<显示到聊天框/@发送到聊天框>]\\
[<返回首页/@main>] [<关闭窗口/@exit>]
[@发送到聊天框]
#if
checkvarhumanZq_MyCode=
#act
messagebox你还没有兑换过序列号！
#elseact
GuildNoticeMsg2550===============================================================Self
GuildNoticeMsg2550点我可复制序列号[<$HUMAN(Zq_MyCode)>]Self
GuildNoticeMsg2550===============================================================Self
[@兑换卡号]
#if
checktextlist.\QuestDiary\转区脚本\元宝自助转区\运行状态.txt启动
#act
MOVM50<$GAMEGOLD>
DIVM50100
MULM50<$STR(M50)>30
#say
<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><元宝转区/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\\
∫换比例：30%\\
您的元宝：共<$GAMEGOLD>元宝|可转<$STR(M50)>元宝\\
∫换数量：<$STR(N50)>
#elseact
messagebox【失败】服务器尚未启动，请联系管理员启动！
break
#if
EQUALN500
#say
\\
#elseact
MOVM51<$STR(N50)>
DIVM51100
MULM51<$STR(M51)>30
#elsesay
可转<$STR(M51)>元宝\\
#if
checklevelex>0
#say
[<输入要兑换的元宝数量/@@InPutInteger50>] [<确认兑换/@确认兑换>] [<返回首页/@main>]
[@CallInPutInteger50]
#if
LARGEN5099
#elseact
messagebox【失败】请输入「100」以上的元宝数量！
break
#if
checkgamegold?<$STR(N50)>
#act
goto@兑换卡号
#elseact
messagebox【失败】您输入的元宝数量超出了您身上的元宝，无法进行兑换！
[@确认兑换]
#if
checktextlist.\QuestDiary\转区脚本\元宝自助转区\运行状态.txt启动
#elseact
messagebox【失败】服务器尚未启动，请联系管理员启动！
break
#if
checkgamegold?<$STR(N50)>
#elseact
messagebox【失败】您输入的元宝数量超出了您身上的元宝，无法进行兑换！
break
#if
EQUALM510
#act
messagebox【失败】请先输入您要兑换的元宝数量！
#elseact
AddTextList.\QuestDiary\转区脚本\元宝自助转区\命令检测.txt<$USERNAME>:<$STR(M51)>:算号
DelayCall500@兑换函数
#elsesay
请稍后，系统正在算号中，请勿关闭此窗口…………
[@CallInPutString50]
#if
checktextlist.\QuestDiary\转区脚本\元宝自助转区\运行状态.txt启动
#elseact
messagebox【失败】服务器尚未启动，请联系管理员启动！
break
#if
EQUALS50
#act
messagebox【失败】请先输入您要兑换的卡号！
#elseact
AddTextList.\QuestDiary\转区脚本\元宝自助转区\命令检测.txt<$USERNAME>:<$STR(S50)>:兑换
DelayCall400@兑换函数
#elsesay
请稍后，系统正在为您充值中，请勿关闭此窗口………
[@CallInPutString51]
#if
checktextlist.\QuestDiary\转区脚本\元宝自助转区\运行状态.txt启动
#elseact
messagebox【失败】服务器尚未启动，请联系管理员启动！
break
#if
EQUALS51
#act
messagebox【失败】请输入您要查询的卡号！
#elseact
AddTextList.\QuestDiary\转区脚本\元宝自助转区\命令检测.txt<$USERNAME>:<$STR(S51)>:查询
DelayCall400@兑换函数
;处理所有的兑换函数（算号、兑换、查询）
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@兑换函数]
#if
checklevelex>0
#act
loadvarhumanZq_MyCode..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvarhumanZq_PayBack..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvarhumanZq_GameGold..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvarhumanZq_RutenInfo..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvarhumanZq_ChongZhiJF..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
#if
checkvarhumanZq_PayBack=error
#act
close
messagebox<$Human(Zq_RutenInfo)>
calcvarhumanZq_PayBack=
calcvarhumanZq_RutenInfo=
savevarhumanZq_PayBack..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
savevarhumanZq_RutenInfo..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
break
#if
checkvarhumanZq_PayBack=quest
#act
messagebox<$Human(Zq_RutenInfo)>
calcvarhumanZq_PayBack=
calcvarhumanZq_RutenInfo=
savevarhumanZq_PayBack..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
savevarhumanZq_RutenInfo..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
break
#if
checkvarhumanZq_PayBack=dh_ok
checkvarhumanZq_GameGold=0
#act
CLEARDELAYGOTO
DelayCall200@清理数据
close
messagebox[错误]兑换失败请稍后再试!!
break
#if
checkvarhumanZq_PayBack=dh_ok
#act
GameGold+<$Human(Zq_GameGold)>
sendmsg1恭喜玩家[%s]使用元宝转区系统成功获得[<$Human(Zq_GameGold)>]元宝!!
messagebox恭喜您成功兑换了[<$Human(Zq_GameGold)>]个元宝!
CLEARDELAYGOTO
DelayCall200@清理数据
break
#say
\\
<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><兑换成功/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\\
恭喜您成功使用序列号兑换元宝，以下为您的兑换信息\\
序列号：<$Human(Zq_RutenInfo)>\
元宝数：<$Human(Zq_GameGold)>\\
[<返回首页/@main>] [<退出服务/@exit>]
#if
checkvarhumanZq_PayBack=sh_ok
#say
\\
<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19><元宝转区/SCOLOR=145><〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\\
您的序列号已经发放，请妥善保管，如果丢失不予找回\\
序列号：<$HUMAN(Zq_MyCode)>\\
<点聊天框中的序列号可以复制> 请尽快使用您的序列号\
#act
gamegold-<$STR(N50)>
GuildNoticeMsg2550算号成功您的卡号可兑换[<$Human(Zq_GameGold)>]个元宝Self
GuildNoticeMsg2550===============================================================Self
GuildNoticeMsg2550卡号[<$HUMAN(Zq_MyCode)>]此号可兑换[<$Human(Zq_GameGold)>]元宝Self
GuildNoticeMsg2550===============================================================Self
CLEARDELAYGOTO
DelayCall200@清理数据
#elseact
DelayCall300@兑换函数
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@清理数据]
#if
checklevelex>0
#act
calcvarhumanZq_PayBack=
calcvarhumanZq_GameGold=0
calcvarhumanZq_RutenInfo=
savevarhumanZq_PayBack..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
savevarhumanZq_GameGold..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
savevarhumanZq_RutenInfo..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt