飓风
查看: 243|回复: 2

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

[复制链接]

2837

主题

2857

帖子

2258

积分

管理员

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

声望
1766
金币
30236
元宝
0
在线时间
117 小时
最后登录
2020-3-24
发表于 2019-10-30 11:32: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




上一篇:GEEM2引擎鬼父神工脚本怎么写?合成狂暴神盾和面纱命令范例
下一篇:GEEM2引擎传奇进入卧龙山脉脚本,GEE进入地图脚本命令示例
爱上论坛,GM基地,传奇基地,传奇SF,传奇素材网,传奇脚本网,传奇一条龙,服务器租用,版本定制!

0

主题

0

帖子

1000

积分

金牌会员

Rank: 5Rank: 5

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2016-11-7
发表于 2020-3-16 04:10:24 | 显示全部楼层
好东西一定要看看!
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;

0

主题

3

帖子

268

积分

中级会员

Rank: 3Rank: 3

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2017-10-23
发表于 2020-3-18 04:41:10 | 显示全部楼层
有复古传奇版本下载吗?
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|网站地图|Archiver|手机版|传奇GM论坛 ( 湘ICP备16009886号-2 )

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时联系站长(QQ:630910131)

今天是: | 本站已经安全运行: //这个地方可以改颜色

9pk | 9ss | 99j | 88a | haosf | zhaosf | laomir | qusf | 2hq | 6xq

热血传奇 | 英雄合击 | 贪玩蓝月 | 手机版传奇 | 网页版传奇 | 单职业传奇 | 传奇服务端 | 传奇广告代理 | 传奇广告价格表

传奇引擎 | 传奇版本 | 传奇脚本 | 传奇工具 | 传奇加速器 | 传奇登陆器 | 传奇教程 | 传奇论坛 | 传奇广告发布 | 传奇版本下载站

复古传奇 | 金币传奇 | 打金传奇 | 轻变传奇 | 微变传奇 | 中变传奇 | 超变传奇 | 变态传奇 | 合击传奇 | 连击传奇 | 迷失传奇 | 单职业传奇 | 开区模板

快速回复 返回顶部 返回列表