设为首页收藏本站★元宝充值★★购买会员★★传奇QQ群★

一休论坛

网络广告风险自担
 找回密码
 立即注册
查看: 37|回复: 0

[GOM引擎] GOM引擎传奇服务端元宝自助转区脚本 GameOfMir引擎转区脚本范例

[复制链接]
  • TA的每日心情
    慵懒
    2015-7-29 13:47
  • 签到天数: 2 天

    [LV.1]初来乍到

    发表于 2019-6-24 09:54:01 | 显示全部楼层 |阅读模式
    网络广告风险自担
    网络广告风险自担
    GOM引擎传奇服务端元宝自助转区脚本 GameOfMir引擎转区脚本范例

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

    (@@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



    上一篇:GOB引擎传奇GM基地新增相关变量详注,GIVEITEM PICKUPITEM变量说明
    下一篇:GEEM2引擎传奇一条龙鬼父神工脚本怎么写?合成狂暴神盾和面纱命令范例
    回复

    举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    网络广告风险自担

    网络广告风险自担
    一休论坛在线客服
    收 起 客 服

    小黑屋|传奇一条龙|GM基地|GM版本库|一休论坛

    GMT+8, 2019-7-20 11:37 , Processed in 0.514801 second(s), 91 queries , Gzip On.

    传奇一条龙 GM基地 版本库 传奇论坛 传奇漏洞论坛 传奇服务端下载 传奇版本

    一休论坛资料来自网络仅供学习交流之用,用于商业后果自负

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