GOM引擎元宝自助转区脚本 GameOfMir引擎转区脚本范例
http://219.150.218.177:82/data/attachment/forum/201906/23/120128cx4vcc66h4i6iqg2.png;用户可以自定义此文件,但是在写的时候请注意凡是操作文本类的都不要修改 改了将会报错
(@@InPutString @@InPutInteger)
[@main]
#if
checktextlist .\QuestDiary\转区脚本\元宝自助转区\运行状态.txt 启动
#act
MOV M50 0
MOV M51 0
MOV N50 0
MOV S50
MOV S51
MOV M50
DIV M50 100
MUL M5030
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
\ \
功能介绍:您可以输入您想要兑换的元宝数量,系统将\
您的元宝兑换成卡号您可以拿此卡号到本服\
其他的分区兑换成相应的元宝,方便快捷\ \
兑换比例:30 % 您共元宝 可转元宝\ \
[] [] [] []
#elseact
messagebox 【失败】服务器尚未启动,请联系管理员启动!
[@我的卡号]
\ \
\ \
只显示最后一次成功兑换的记录,请玩家自行保存\ \
序列号:\
显示到聊天框中后可进行复制 []\ \
[] []
[@发送到聊天框]
#if
checkvar human Zq_MyCode =
#act
messagebox 你还没有兑换过序列号!
#elseact
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 点我可复制序列号[] Self
GuildNoticeMsg 255 0 =============================================================== Self
[@兑换卡号]
#if
checktextlist .\QuestDiary\转区脚本\元宝自助转区\运行状态.txt 启动
#act
MOV M50
DIV M50 100
MUL M5030
#say
\ \
兑换比例:30 %\ \
您的元宝:共元宝|可转元宝\ \
兑换数量:
#elseact
messagebox 【失败】服务器尚未启动,请联系管理员启动!
break
#if
EQUAL N50 0
#say
\ \
#elseact
MOV M51
DIV M51 100
MUL M5130
#elsesay
可转元宝\ \
#if
checklevelex > 0
#say
[] [] []
[@CallInPutInteger50]
#if
LARGE N50 99
#elseact
messagebox 【失败】请输入「100」以上的元宝数量!
break
#if
checkgamegold ?
#act
goto @兑换卡号
#elseact
messagebox 【失败】您输入的元宝数量超出了您身上的元宝,无法进行兑换!
[@确认兑换]
#if
checktextlist .\QuestDiary\转区脚本\元宝自助转区\运行状态.txt 启动
#elseact
messagebox 【失败】服务器尚未启动,请联系管理员启动!
break
#if
checkgamegold ?
#elseact
messagebox 【失败】您输入的元宝数量超出了您身上的元宝,无法进行兑换!
break
#if
EQUAL M51 0
#act
messagebox 【失败】请先输入您要兑换的元宝数量!
#elseact
AddTextList .\QuestDiary\转区脚本\元宝自助转区\命令检测.txt ::算号
DelayCall 500 @兑换函数
#elsesay
请稍后,系统正在算号中,请勿关闭此窗口…………
[@CallInPutString50]
#if
checktextlist .\QuestDiary\转区脚本\元宝自助转区\运行状态.txt 启动
#elseact
messagebox 【失败】服务器尚未启动,请联系管理员启动!
break
#if
EQUAL S50
#act
messagebox 【失败】请先输入您要兑换的卡号!
#elseact
AddTextList .\QuestDiary\转区脚本\元宝自助转区\命令检测.txt ::兑换
DelayCall 400 @兑换函数
#elsesay
请稍后,系统正在为您充值中,请勿关闭此窗口………
[@CallInPutString51]
#if
checktextlist .\QuestDiary\转区脚本\元宝自助转区\运行状态.txt 启动
#elseact
messagebox 【失败】服务器尚未启动,请联系管理员启动!
break
#if
EQUAL S51
#act
messagebox 【失败】请输入您要查询的卡号!
#elseact
AddTextList .\QuestDiary\转区脚本\元宝自助转区\命令检测.txt ::查询
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
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
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 +
sendmsg 1 恭喜玩家[%s]使用元宝转区系统成功获得[]元宝!!
messagebox 恭喜您成功兑换了[]个元宝!
CLEARDELAYGOTO
DelayCall 200 @清理数据
break
#say
\ \
\ \
恭喜您成功使用序列号兑换元宝,以下为您的兑换信息\ \
序列号:\
元宝数:\ \
[] []
#if
checkvar human Zq_PayBack = sh_ok
#say
\ \
\ \
您的序列号已经发放,请妥善保管,如果丢失不予找回\ \
序列号:\ \
请尽快使用您的序列号\
#act
gamegold -
GuildNoticeMsg 255 0 算号成功您的卡号可兑换[]个元宝 Self
GuildNoticeMsg 255 0 =============================================================== Self
GuildNoticeMsg 255 0 卡号[]此号可兑换[]元宝 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
来源:网络
免责声明:如果侵犯了您的权益,请联系站长,我们会及时删除侵权内容,谢谢合作!
页:
[1]