• 设为首页
  • 收藏本站
  • 微信公众号
    微信公众号 添加方式:
    1:搜索公众号部落玩会传奇
    2:扫描左侧二维码
  • 快捷导航
    查看: 4210|回复: 5

    适用于传奇一条龙开区传奇服务端玩家坐庄赌博脚本

    [复制链接]

    1万

    主题

    1万

    帖子

    1万

    积分

    超级版主

    Rank: 8Rank: 8

    积分
    17876
    QQ
    发表于 2014-7-23 18:56:09 | 显示全部楼层 |阅读模式
    适用于gmbuluo.net" target="_blank" class="relatedlink">传奇一条龙开区
    (@@InPutString @@InPutInteger)
    [@MAIN]
    #IF
    ISADMIN
    ;CHECKVAR GLOBAL 赌城开关检测 < 1
    #ACT
    GOTO @赌城管理
    BREAK
    #IF
    #ACT
    OpenBigDialogBox 43
    MOV N30 0
    DIV N30 100 <$GLOBAL(税收比例)>
    #SAY
    <刷新[url=]/@MAIN[/url]>
    #IF
    ISADMIN
    #SAY
            <邀请赌徒[url=]/@@InPutString15[/url]>                 <赌城管理/@赌城管理>                 <返回土城/@返回土城>
    #ELSESAY
                  <邀请赌徒[url=]/@@InPutString15[/url]>                              <返回土城/@返回土城>
    #IF
    #SAY

            <【庄家名字】/SCOLOR=249>:<$GLOBAL(庄家名字)>
            <【庄家本钱】/SCOLOR=249>:{<$GLOBAL(庄家本钱)>/SCOLOR=249}元宝

                 <抢庄[url=]/@@InPutInteger11[/url]>
             <庄家点数:/SCOLOR=45>{<$GLOBAL(庄家总体点数)>/SCOLOR=5}点


                                 <【庄家本钱】:/SCOLOR=249>共 {<$GLOBAL(庄家本钱)>/SCOLOR=249} 元宝
    <下注[url=]/@@InPutInteger12[/url]>                 <下注[url=]/@@InPutInteger13[/url]>        <【总计下注】:/SCOLOR=249>共 {<$GLOBAL(总体下注数)>/SCOLOR=249} 元宝
    <西家点数:/SCOLOR=45>{<$GLOBAL(西家总体点数)>/SCOLOR=5}点         <东家点数:/SCOLOR=45>{<$GLOBAL(东家总体点数)>/SCOLOR=5}点
                                 <【西总下注】:/SCOLOR=250>共 {<$GLOBAL(西家总下注)>/SCOLOR=254} 元宝
                                 <【南总下注】:/SCOLOR=250>共 {<$GLOBAL(南家总下注)>/SCOLOR=254} 元宝
                                 <【东总下注】:/SCOLOR=250>共 {<$GLOBAL(东家总下注)>/SCOLOR=254} 元宝
                 <下注[url=]/@@InPutInteger14[/url]>
             <南家点数:/SCOLOR=45>{<$GLOBAL(南家总体点数)>/SCOLOR=5}点
    {掉线、小退都将无法结算         每局收取赢家<$STR(N30)>%的手续费!/SCOLOR=249}
    <我的下注:【西】:/SCOLOR=228>{<$STR(M18)>/SCOLOR=250}元宝 <【南】:/SCOLOR=228>{<$STR(M14)>/SCOLOR=250}元宝 <【东】:/SCOLOR=228>{<$STR(M13)>/SCOLOR=250}元宝
    [@赌城管理]
    #IF
    ISADMIN
    #ACT
    MOV N17 0
    MOV N18 0
    MOV N19 0
    MOV N20 0
    MOV N21 0
    MOV N22 0
    MOV N23 0
    MOV N24 0
    MOV N25 0
    MOV N26 0
    MOV N27 0
    MOV N28 0
    MOV N29 0
    MOV N30 0
    DIV N30 100 <$GLOBAL(税收比例)>
    CALCVAR GLOBAL 赌博计时 = 46
    SAVEVAR GLOBAL 赌博计时 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 赌博已经开始,请GM您不要重新点NPC否则重新开始。
    SENDMSG 5 赌博已经开始,请GM您不要重新点NPC否则重新开始。
    SENDMSG 5 赌博已经开始,请GM您不要重新点NPC否则重新开始。
    SENDMSG 5 赌博已经开始,请GM您不要重新点NPC否则重新开始。
    SENDMSG 5 赌博已经开始,请GM您不要重新点NPC否则重新开始。
    SENDMSG 5 赌博已经开始,请GM您不要重新点NPC否则重新开始。
    OpenBigDialogBox
    #SAY


    <注意:设定骰子点数时,无论设置哪家,必须3个骰子都设定点数,并且点数必须在1-6点,否则无效!/SCOLOR=249>

     <位置/SCOLOR=249> <一号骰子目前点数/SCOLOR=254> <操作/SCOLOR=249> <二号骰子目前点数/SCOLOR=254> <操作/SCOLOR=249> <二号骰子目前点数/SCOLOR=254> <操作/SCOLOR=249>

    {【西家】  【<$STR(G17)>】/SCOLOR=250}点   『<修改[url=]/@@InPutInteger17[/url]>』  {【<$STR(G18)>】/SCOLOR=250}点   『<修改[url=]/@@InPutInteger18[/url]>』  {【<$STR(G19)>】/SCOLOR=250}点   『<修改[url=]/@@InPutInteger19[/url]>』

    {【南家】  【<$STR(G23)>】/SCOLOR=253}点   『<修改[url=]/@@InPutInteger23[/url]>』  {【<$STR(G24)>】/SCOLOR=253}点   『<修改[url=]/@@InPutInteger24[/url]>』  {【<$STR(G25)>】/SCOLOR=253}点   『<修改[url=]/@@InPutInteger25[/url]>』

    {【东家】  【<$STR(G20)>】/SCOLOR=254}点   『<修改[url=]/@@InPutInteger20[/url]>』  {【<$STR(G21)>】/SCOLOR=254}点   『<修改[url=]/@@InPutInteger21[/url]>』  {【<$STR(G22)>】/SCOLOR=254}点   『<修改[url=]/@@InPutInteger22[/url]>』

    {【庄家】  【<$STR(G26)>】/SCOLOR=249}点   『<修改[url=]/@@InPutInteger26[/url]>』  {【<$STR(G27)>】/SCOLOR=249}点   『<修改[url=]/@@InPutInteger27[/url]>』  {【<$STR(G28)>】/SCOLOR=249}点   『<修改[url=]/@@InPutInteger28[/url]>』

    目前税收比例为【{<$STR(N30)>%/SCOLOR=249}】   税收比例设置为【{<$GLOBAL(税收比例)>/SCOLOR=250}】   『<修改[url=]/@@InPutInteger29[/url]>』

    [@CALLInPutInteger17]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N17 0
    SMALL N17 7
    #ACT
    MOV G17 <$STR(N17)>
    CALCVAR GLOBAL 控制检测西家 + 1
    SAVEVAR GLOBAL 控制检测西家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『西家一号骰子』点数成功.点数设置为<$STR(N17)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger18]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N18 0
    SMALL N18 7
    #ACT
    MOV G18 <$STR(N18)>
    CALCVAR GLOBAL 控制检测西家 + 1
    SAVEVAR GLOBAL 控制检测西家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『西家二号骰子』点数成功.点数设置为<$STR(N18)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger19]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N19 0
    SMALL N19 7
    #ACT
    MOV G19 <$STR(N19)>
    CALCVAR GLOBAL 控制检测西家 + 1
    SAVEVAR GLOBAL 控制检测西家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『西家三号骰子』点数成功.点数设置为<$STR(N19)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger20]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N20 0
    SMALL N20 7
    #ACT
    MOV G20 <$STR(N20)>
    CALCVAR GLOBAL 控制检测东家 + 1
    SAVEVAR GLOBAL 控制检测东家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『东家一号骰子』点数成功.点数设置为<$STR(N20)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger21]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N21 0
    SMALL N21 7
    #ACT
    MOV G21 <$STR(N21)>
    CALCVAR GLOBAL 控制检测东家 + 1
    SAVEVAR GLOBAL 控制检测东家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『东家二号骰子』点数成功.点数设置为<$STR(N21)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger22]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N22 0
    SMALL N22 7
    #ACT
    MOV G22 <$STR(N22)>
    CALCVAR GLOBAL 控制检测东家 + 1
    SAVEVAR GLOBAL 控制检测东家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『东家三号骰子』点数成功.点数设置为<$STR(N22)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger23]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N23 0
    SMALL N23 7
    #ACT
    MOV G23 <$STR(N23)>
    CALCVAR GLOBAL 控制检测南家 + 1
    SAVEVAR GLOBAL 控制检测南家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『南家一号骰子』点数成功.点数设置为<$STR(N23)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger24]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N24 0
    SMALL N24 7
    #ACT
    MOV G24 <$STR(N24)>
    CALCVAR GLOBAL 控制检测南家 + 1
    SAVEVAR GLOBAL 控制检测南家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『南家二号骰子』点数成功.点数设置为<$STR(N24)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger25]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N25 0
    SMALL N25 7
    #ACT
    MOV G25 <$STR(N25)>
    CALCVAR GLOBAL 控制检测南家 + 1
    SAVEVAR GLOBAL 控制检测南家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『南家三号骰子』点数成功.点数设置为<$STR(N25)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger26]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N26 0
    SMALL N26 7
    #ACT
    MOV G26 <$STR(N26)>
    CALCVAR GLOBAL 控制检测庄家 + 1
    SAVEVAR GLOBAL 控制检测庄家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『庄家一号骰子』点数成功.点数设置为<$STR(N26)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger27]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N27 0
    SMALL N27 7
    #ACT
    MOV G27 <$STR(N27)>
    CALCVAR GLOBAL 控制检测庄家 + 1
    SAVEVAR GLOBAL 控制检测庄家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『庄家二号骰子』点数成功.点数设置为<$STR(N27)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger28]
    #IF
    ISADMIN
    #ACT
    #ELSEACT
    BREAK
    #IF
    LARGE N28 0
    SMALL N28 7
    #ACT
    MOV G28 <$STR(N28)>
    CALCVAR GLOBAL 控制检测庄家 + 1
    SAVEVAR GLOBAL 控制检测庄家 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 5 设定『庄家三号骰子』点数成功.点数设置为<$STR(N28)>点...
    GOTO @赌城管理
    BREAK
    #ELSEACT
    GOTO @赌城管理
    SENDMSG 5 设定点数必须在1-6点...
    BREAK
    [@CALLInPutInteger29]
    #IF
    ISADMIN
    #ACT
    CALCVAR GLOBAL 税收比例 = <$STR(N29)>
    SAVEVAR GLOBAL 税收比例 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    DIV N30 100 <$STR(N29)>
    SENDMSG 5 设定『税收比例』成功.比例设置为<$STR(N30)>%...
    MOV N29 0
    MOV N30 0
    GOTO @赌城管理
    BREAK
    [@CALLInPutString15]
    #IF
    EQUAL S15 <$USERNAME>
    #ACT
    SENDMSG 7 无法邀请自己
    MOV S15
    GOTO @MAIN
    BREAK
    #IF
    CheckOnline <$STR(S15)>
    #ACT
    MOV A45 <$USERNAME>
    HCALL <$STR(S15)> @赌城邀请
    GOTO @MAIN
    SENDMSG 6 邀请信已经发出!
    BREAK
    #ELSEACT
    SENDMSG 7 你要邀请的<$STR(S15)>玩家不在线,无法邀请
    GOTO @MAIN
    BREAK
    [@返回土城]
    #IF
    #ACT
    MapMove 3 330 330
    BREAK
    [@CALLInPutInteger11]
    #IF
    CHECKVAR GLOBAL 赌博计时 > 30
    CHECKVAR GLOBAL 赌博计时 < 47
    #ACT
    #ELSEACT
    MOV N11 0
    MESSAGEBOX 抢庄时间已经结束,请等待开局......
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博庄家名单.TXT
    #ACT
    MOV N11 0
    MESSAGEBOX 你目前已经是庄家,无法重复坐庄......
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博西家名单.TXT
    #ACT
    MOV N11 0
    MESSAGEBOX 你已经下注压西家了,无法坐庄......
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博东家名单.TXT
    #ACT
    MOV N11 0
    MESSAGEBOX 你已经下注压东家了,无法坐庄......
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博南家名单.TXT
    #ACT
    MOV N11 0
    MESSAGEBOX 你已经下注压南家了,无法坐庄......
    GOTO @MAIN
    BREAK
    #IF
    SMALL N11 150
    #ACT
    MOV N11 0
    MESSAGEBOX 坐庄最少需要150元宝以上......
    GOTO @MAIN
    BREAK
    #IF
    CHECKGAMEGOLD < <$STR(N11)>
    #ACT
    MOV N11 0
    MESSAGEBOX 你身上的元宝不足......
    GOTO @MAIN
    BREAK
    #IF
    CHECKVAR GLOBAL 庄家本钱 = 0
    #ACT
    GAMEGOLD - <$STR(N11)>
    MAPMOVE TXDGA 9 10
    CALCVAR GLOBAL 庄家检测 = 1
    CALCVAR GLOBAL 庄家名字 = <$USERNAME>
    CALCVAR GLOBAL 庄家本钱 = <$STR(N11)>
    CALCVAR GLOBAL 庄家本钱1 = <$STR(N11)>
    CALCVAR GLOBAL 庄家本钱2 = <$STR(N11)>
    SAVEVAR GLOBAL 庄家检测 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 庄家名字 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 庄家本钱 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 庄家本钱1 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 庄家本钱2 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    AddNAMELIST ..QuestDiary系列脚本坐庄赌博庄家名单.TXT
    SENDMSG 4 『%S』使用(<$STR(N11)>)个元宝坐庄成功......
    MESSAGEBOX 使用(<$STR(N11)>)个元宝坐庄成功......
    MOV N11 0
    GOTO @MAIN
    BREAK
    #IF
    LARGE N11 <$GLOBAL(庄家本钱)>
    #ACT
    GMEXECUTE 调整元宝 <$GLOBAL(庄家名字)> + <$GLOBAL(庄家本钱)>
    CLEARNAMELIST ..QuestDiary系列脚本坐庄赌博庄家名单.TXT
    GAMEGOLD - <$STR(N11)>
    MOV S11 <$GLOBAL(庄家名字)>
    S11.MAPMOVE TXDGA 12 10
    MAPMOVE TXDGA 9 10
    MOV S11
    CALCVAR GLOBAL 庄家检测 = 1
    CALCVAR GLOBAL 庄家名字 = <$USERNAME>
    CALCVAR GLOBAL 庄家本钱 = <$STR(N11)>
    CALCVAR GLOBAL 庄家本钱1 = <$STR(N11)>
    CALCVAR GLOBAL 庄家本钱2 = <$STR(N11)>
    SAVEVAR GLOBAL 庄家检测 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 庄家名字 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 庄家本钱 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 庄家本钱1 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 庄家本钱2 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    AddNAMELIST ..QuestDiary系列脚本坐庄赌博庄家名单.TXT
    SENDMSG 4 『%S』使用(<$STR(N11)>)个元宝抢庄成功......
    MESSAGEBOX 使用(<$STR(N11)>)个元宝抢庄成功......
    MOV N11 0
    GOTO @MAIN
    BREAK
    #ELSEACT
    MESSAGEBOX 你必须出多余(<$GLOBAL(庄家本钱)>)个元宝才能抢庄成功......
    MOV N11 0
    GOTO @MAIN
    BREAK
    [@CALLInPutInteger12]
    #IF
    CHECKVAR GLOBAL 赌博计时 > 0
    CHECKVAR GLOBAL 赌博计时 < 31
    #ACT
    #ELSEACT
    MOV N12 0
    MESSAGEBOX 现在不是下注时间,请稍后......
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博庄家名单.TXT
    #ACT
    MOV N12 0
    MESSAGEBOX 你目前已将是庄家了,无法下注西家......
    GOTO @MAIN
    BREAK
    #IF
    SMALL N12 50
    #ACT
    MOV N12 0
    MESSAGEBOX 下注西家最少需要50元宝以上......
    GOTO @MAIN
    BREAK
    #IF
    LARGE N12 <$GLOBAL(庄家本钱1)>
    #ACT
    MOV N12 0
    MESSAGEBOX 下注总金额已经达到庄家本钱上限目前你只可以下注(<$GLOBAL(庄家本钱1)>)以下的元宝...
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博西家名单.TXT
    CHECKGAMEGOLD > <$STR(N12)>
    #ACT
    GAMEGOLD - <$STR(N12)>
    INC M18 <$STR(N12)>
    CALCVAR GLOBAL 庄家本钱1 - <$STR(N12)>
    CALCVAR GLOBAL 西家总下注 + <$STR(N12)>
    CALCVAR GLOBAL 总体下注数 + <$STR(N12)>
    SAVEVAR GLOBAL 庄家本钱1 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 西家总下注 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 总体下注数 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 4 『%S』追加(<$STR(N12)>)个元宝下注西家.
    MESSAGEBOX 你使用(<$STR(N12)>)个元宝追加下注西家.
    MOV N12 0
    GOTO @MAIN
    BREAK
    #IF
    CHECKGAMEGOLD > <$STR(N12)>
    #ACT
    GAMEGOLD - <$STR(N12)>
    MOV M18 <$STR(N12)>
    CALCVAR GLOBAL 庄家本钱1 - <$STR(N12)>
    CALCVAR GLOBAL 西家总下注 + <$STR(N12)>
    CALCVAR GLOBAL 总体下注数 + <$STR(N12)>
    SAVEVAR GLOBAL 庄家本钱1 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 西家总下注 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 总体下注数 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    AddNAMELIST ..QuestDiary系列脚本坐庄赌博西家名单.TXT
    SENDMSG 4 『%S』使用(<$STR(N12)>)个元宝下注西家.
    MESSAGEBOX 你使用(<$STR(N12)>)个元宝下注西家.
    MOV N12 0
    GOTO @MAIN
    BREAK
    #ELSEACT
    MESSAGEBOX 你身上的元宝不足.
    MOV N12 0
    GOTO @MAIN
    BREAK
    [@CALLInPutInteger13]
    #IF
    CHECKVAR GLOBAL 赌博计时 > 0
    CHECKVAR GLOBAL 赌博计时 < 31
    #ACT
    #ELSEACT
    MOV N13 0
    MESSAGEBOX 现在不是下注时间,请稍后......
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博庄家名单.TXT
    #ACT
    MOV N13 0
    MESSAGEBOX 你目前已将是庄家了,无法下注东家......
    GOTO @MAIN
    BREAK
    #IF
    SMALL N13 50
    #ACT
    MOV N13 0
    MESSAGEBOX 下注西家最少需要50元宝以上......
    GOTO @MAIN
    BREAK
    #IF
    LARGE N13 <$GLOBAL(庄家本钱1)>
    #ACT
    MOV N13 0
    MESSAGEBOX 下注总金额已经达到庄家本钱上限目前你只可以下注(<$GLOBAL(庄家本钱1)>)以下的元宝...
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博东家名单.TXT
    CHECKGAMEGOLD > <$STR(N13)>
    #ACT
    GAMEGOLD - <$STR(N13)>
    INC M13 <$STR(N13)>
    CALCVAR GLOBAL 庄家本钱1 - <$STR(N13)>
    CALCVAR GLOBAL 东家总下注 + <$STR(N13)>
    CALCVAR GLOBAL 总体下注数 + <$STR(N13)>
    SAVEVAR GLOBAL 庄家本钱1 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 东家总下注 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 总体下注数 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 4 『%S』追加(<$STR(N13)>)个元宝下注东家.
    MESSAGEBOX 你使用(<$STR(N13)>)个元宝追加下注东家.
    MOV N13 0
    GOTO @MAIN
    BREAK
    #IF
    CHECKGAMEGOLD > <$STR(N13)>
    #ACT
    GAMEGOLD - <$STR(N13)>
    MOV M13 <$STR(N13)>
    CALCVAR GLOBAL 庄家本钱1 - <$STR(N13)>
    CALCVAR GLOBAL 东家总下注 + <$STR(N13)>
    CALCVAR GLOBAL 总体下注数 + <$STR(N13)>
    SAVEVAR GLOBAL 庄家本钱1 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 东家总下注 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 总体下注数 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    AddNAMELIST ..QuestDiary系列脚本坐庄赌博东家名单.TXT
    SENDMSG 4 『%S』使用(<$STR(N13)>)个元宝下注东家.
    MESSAGEBOX 你使用(<$STR(N13)>)个元宝下注东家.
    MOV N13 0
    GOTO @MAIN
    BREAK
    #ELSEACT
    MESSAGEBOX 你身上的元宝不足.
    MOV N13 0
    GOTO @MAIN
    BREAK
    [@CALLInPutInteger14]
    #IF
    CHECKVAR GLOBAL 赌博计时 > 0
    CHECKVAR GLOBAL 赌博计时 < 31
    #ACT
    #ELSEACT
    MOV N14 0
    MESSAGEBOX 现在不是下注时间,请稍后......
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博庄家名单.TXT
    #ACT
    MOV N14 0
    MESSAGEBOX 你目前已将是庄家了,无法下注南家......
    GOTO @MAIN
    BREAK
    #IF
    SMALL N14 50
    #ACT
    MOV N14 0
    MESSAGEBOX 下注西家最少需要50元宝以上......
    GOTO @MAIN
    BREAK
    #IF
    LARGE N14 <$GLOBAL(庄家本钱1)>
    #ACT
    MOV N14 0
    MESSAGEBOX 下注总金额已经达到庄家本钱上限目前你只可以下注(<$GLOBAL(庄家本钱1)>)以下的元宝...
    GOTO @MAIN
    BREAK
    #IF
    CheckNAMELIST ..QuestDiary系列脚本坐庄赌博南家名单.TXT
    CHECKGAMEGOLD > <$STR(N14)>
    #ACT
    GAMEGOLD - <$STR(N14)>
    INC M14 <$STR(N14)>
    CALCVAR GLOBAL 庄家本钱1 - <$STR(N14)>
    CALCVAR GLOBAL 南家总下注 + <$STR(N14)>
    CALCVAR GLOBAL 总体下注数 + <$STR(N14)>
    SAVEVAR GLOBAL 庄家本钱1 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 南家总下注 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 总体下注数 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SENDMSG 4 『%S』追加(<$STR(N14)>)个元宝下注南家.
    MESSAGEBOX 你使用(<$STR(N14)>)个元宝追加下注南家.
    MOV N14 0
    GOTO @MAIN
    BREAK
    #IF
    CHECKGAMEGOLD > <$STR(N14)>
    #ACT
    GAMEGOLD - <$STR(N14)>
    MOV M14 <$STR(N14)>
    CALCVAR GLOBAL 庄家本钱1 - <$STR(N14)>
    CALCVAR GLOBAL 南家总下注 + <$STR(N14)>
    CALCVAR GLOBAL 总体下注数 + <$STR(N14)>
    SAVEVAR GLOBAL 庄家本钱1 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 南家总下注 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    SAVEVAR GLOBAL 总体下注数 ..QuestDiary系列脚本坐庄赌博自定义全局变量数据.txt
    AddNAMELIST ..QuestDiary系列脚本坐庄赌博南家名单.TXT
    SENDMSG 4 『%S』使用(<$STR(N14)>)个元宝下注南家.
    MESSAGEBOX 你使用(<$STR(N14)>)个元宝下注南家.
    MOV N14 0
    GOTO @MAIN
    BREAK
    #ELSEACT
    MESSAGEBOX 你身上的元宝不足.
    MOV N14 0
    GOTO @MAIN
    BREAK
    [@IsInFilterList]
    #IF
    #ACT
    MESSAGEBOX [错误]:输入数据中包含了非法字符,请重新编辑!


    GM部落所有资源均免费下载,回复帖子即出现下载地址!站长QQ:297522007
    回复

    使用道具 举报

    0

    主题

    1

    帖子

    1

    积分

    新手上路

    Rank: 1

    积分
    1
    发表于 2015-12-3 21:43:06 | 显示全部楼层
    111111111111111111111111
    回复 支持 反对

    使用道具 举报

    0

    主题

    6

    帖子

    6

    积分

    新手上路

    Rank: 1

    积分
    6
    发表于 2017-1-23 11:37:03 | 显示全部楼层
    123123123123123123123123123
    回复 支持 反对

    使用道具 举报

    0

    主题

    10

    帖子

    10

    积分

    新手上路

    Rank: 1

    积分
    10
    发表于 2017-12-4 19:45:28 | 显示全部楼层
    好突然让他踢人
    回复 支持 反对

    使用道具 举报

    0

    主题

    25

    帖子

    25

    积分

    新手上路

    Rank: 1

    积分
    25
    发表于 2018-6-22 08:55:34 | 显示全部楼层
    1111111111111111111111111111
    回复 支持 反对

    使用道具 举报

    0

    主题

    3

    帖子

    3

    积分

    新手上路

    Rank: 1

    积分
    3
    发表于 2023-4-16 21:01:24 | 显示全部楼层
    QWEWQEWQEWQEQWEQWEQWEQWQEWEQWEQWQEWQEWEWQEQWQEWQEW
    回复 支持 反对

    使用道具 举报

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

    本版积分规则

    站长QQ:297522007 鲁ICP备16023438号-15 鲁ICP备16008334号-18 GM部落

    Powered by Discuz! X3.4 © 2001-2023

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