GOM引擎元宝自助转区脚本 GameOfMir引擎转区脚本范例

趣游论坛 · 发表于 2019-6-23 12:01:33

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

(@@InPutString @@InPutInteger)
[@main]
#if
checktextlist .\QuestDiary\转区脚本\元宝自助转区\运行状态.txt 启动
#act
MOV M50 0
MOV M51 0
MOV N50 0
MOV S50
MOV S51
MOV M50 <$GAMEGOLD>
DIV M50 100
MUL M50 <$STR(M50)> 30
loadvar human Zq_MyCode ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvar human Zq_PayBack ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvar human Zq_GameGold ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvar human Zq_RutenInfo ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvar human Zq_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
checkvar human Zq_MyCode =
#act
messagebox 你还没有兑换过序列号！
#elseact
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 点我可复制序列号[<$HUMAN(Zq_MyCode)>] Self
GuildNoticeMsg 255 0 =============================================================== Self

[@兑换卡号]
#if
checktextlist .\QuestDiary\转区脚本\元宝自助转区\运行状态.txt 启动
#act
MOV M50 <$GAMEGOLD>
DIV M50 100
MUL M50 <$STR(M50)> 30
#say
　<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19> <元宝转区/SCOLOR=145> <〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\ \
　　兑换比例：30 %\ \
　　您的元宝：共 <$GAMEGOLD> 元宝 | 可转 <$STR(M50)> 元宝\ \
　　兑换数量：<$STR(N50)>
#elseact
messagebox 【失败】服务器尚未启动，请联系管理员启动！
break

#if
EQUAL N50 0
#say
　\ \
#elseact
MOV M51 <$STR(N50)>
DIV M51 100
MUL M51 <$STR(M51)> 30
#elsesay
　可转 <$STR(M51)> 元宝\ \

#if
checklevelex > 0
#say
　[ <输入要兑换的元宝数量/@@InPutInteger50> ]　 [ <确认兑换/@确认兑换> ]　 [ <返回首页/@main> ]

[@CallInPutInteger50]
#if
LARGE N50 99
#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
EQUAL M51 0
#act
messagebox 【失败】请先输入您要兑换的元宝数量！
#elseact
AddTextList .\QuestDiary\转区脚本\元宝自助转区\命令检测.txt <$USERNAME>:<$STR(M51)>:算号
DelayCall 500 @兑换函数
#elsesay
请稍后，系统正在算号中，请勿关闭此窗口…………

[@CallInPutString50]
#if
checktextlist .\QuestDiary\转区脚本\元宝自助转区\运行状态.txt 启动
#elseact
messagebox 【失败】服务器尚未启动，请联系管理员启动！
break

#if
EQUAL S50
#act
messagebox 【失败】请先输入您要兑换的卡号！
#elseact
AddTextList .\QuestDiary\转区脚本\元宝自助转区\命令检测.txt <$USERNAME>:<$STR(S50)>:兑换
DelayCall 400 @兑换函数
#elsesay
请稍后，系统正在为您充值中，请勿关闭此窗口………

[@CallInPutString51]
#if
checktextlist .\QuestDiary\转区脚本\元宝自助转区\运行状态.txt 启动
#elseact
messagebox 【失败】服务器尚未启动，请联系管理员启动！
break

#if
EQUAL S51
#act
messagebox 【失败】请输入您要查询的卡号！
#elseact
AddTextList .\QuestDiary\转区脚本\元宝自助转区\命令检测.txt <$USERNAME>:<$STR(S51)>:查询
DelayCall 400 @兑换函数

;处理所有的兑换函数（算号、兑换、查询）
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@兑换函数]
#if
checklevelex > 0
#act
loadvar human Zq_MyCode ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvar human Zq_PayBack ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvar human Zq_GameGold ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvar human Zq_RutenInfo ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
loadvar human Zq_ChongZhiJF ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt

#if
checkvar human Zq_PayBack = error
#act
close
messagebox <$Human(Zq_RutenInfo)>
calcvar human Zq_PayBack =
calcvar human Zq_RutenInfo =
savevar human Zq_PayBack ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
savevar human Zq_RutenInfo ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
break

#if
checkvar human Zq_PayBack = quest
#act
messagebox <$Human(Zq_RutenInfo)>
calcvar human Zq_PayBack =
calcvar human Zq_RutenInfo =
savevar human Zq_PayBack ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
savevar human Zq_RutenInfo ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
break

#if
checkvar human Zq_PayBack = dh_ok
checkvar human Zq_GameGold = 0
#act
CLEARDELAYGOTO
DelayCall 200 @清理数据
close
messagebox [错误]兑换失败,请稍后再试!!
break

#if
checkvar human Zq_PayBack = dh_ok
#act

GameGold + <$Human(Zq_GameGold)>
sendmsg 1 恭喜玩家[%s]使用元宝转区系统成功获得[<$Human(Zq_GameGold)>]元宝!!
messagebox 恭喜您成功兑换了[<$Human(Zq_GameGold)>]个元宝!
CLEARDELAYGOTO
DelayCall 200 @清理数据
break
#say
\ \
　<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19> <兑换成功/SCOLOR=145> <〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\ \
　　恭喜您成功使用序列号兑换元宝，以下为您的兑换信息\ \
　　　　　序列号：<$Human(Zq_RutenInfo)>\
　　　　　元宝数：<$Human(Zq_GameGold)>\ \
　　　　　[ <返回首页/@main> ]　　　　　[ <退出服务/@exit> ]

#if
checkvar human Zq_PayBack = sh_ok
#say
\ \
　<┅┅∽┅┅∽┅┅∽┅/SCOLOR=151><〖/SCOLOR=19> <元宝转区/SCOLOR=145> <〗/SCOLOR=19><┅∽┅┅∽┅┅∽┅┅/SCOLOR=151>\ \
　　您的序列号已经发放，请妥善保管，如果丢失不予找回\ \
　　　　序列号：<$HUMAN(Zq_MyCode)>\ \
　　<点聊天框中的序列号可以复制>　请尽快使用您的序列号\
#act
gamegold - <$STR(N50)>
GuildNoticeMsg 255 0 算号成功您的卡号可兑换[<$Human(Zq_GameGold)>]个元宝 Self
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 卡号[<$HUMAN(Zq_MyCode)>]此号可兑换[<$Human(Zq_GameGold)>]元宝 Self
GuildNoticeMsg 255 0 =============================================================== Self
CLEARDELAYGOTO
DelayCall 200 @清理数据
#elseact
DelayCall 300 @兑换函数
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

[@清理数据]
#if
checklevelex > 0
#act
calcvar human Zq_PayBack =
calcvar human Zq_GameGold = 0
calcvar human Zq_RutenInfo =
savevar human Zq_PayBack ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
savevar human Zq_GameGold ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt
savevar human Zq_RutenInfo ..\QuestDiary\转区脚本\元宝自助转区\转区反馈.txt

方框图程 · 发表于 2019-6-23 12:01:35

这就是传说中坐沙发的感觉吗？好鸡动！！！

李小艾 · 发表于 2019-6-23 12:22:25

向楼主学习

格式化 · 发表于 2019-6-23 12:33:06

为了积分，脚本还是不错的，帮赞个！

纪念我们的从前 · 发表于 2019-6-23 13:21:41

不错的脚本，感谢楼主

杯水车薪 · 发表于 2019-6-23 13:26:13

向楼主学习

传奇归来 · 发表于 2019-6-23 14:47:54

珍爱生命，果断回帖。

牵挂 · 发表于 2019-6-23 14:49:24

我擦！我要沙发！

如若再遇 · 发表于 2019-6-23 15:07:15

我擦！我要沙发！

米琪 · 发表于 2019-6-23 15:09:30

不错的脚本，感谢楼主

`设为首页收藏本站`

[传奇一键替换包]

[GOM引擎] GOM引擎元宝自助转区脚本 GameOfMir引擎转区脚本范例

灌水之王

活跃会员

突出贡献

优秀版主

荣誉管理

论坛元老

设为首页收藏本站 [传奇一键替换包]