设为首页收藏本站
开启辅助访问 充值积分切换到宽版

GM部落

 找回密码
 立即注册
GM部落»论坛 › GM部落资源区 › 脚本技术 › 适用于传奇一条龙开区传奇服务端玩家坐庄赌博脚本
返回列表 发新帖回复
查看: 3874|回复: 5

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

[复制链接]
GM部落

1万

主题

1万

帖子

1万

积分

超级版主

Rank: 8Rank: 8

积分
13859
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
回复

使用道具 举报

cq11112222

0

主题

1

帖子

1

积分

新手上路

Rank: 1

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

使用道具 举报

2624478

0

主题

6

帖子

6

积分

新手上路

Rank: 1

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

使用道具 举报

7168468

0

主题

10

帖子

10

积分

新手上路

Rank: 1

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

使用道具 举报

114851607

0

主题

25

帖子

25

积分

新手上路

Rank: 1

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

使用道具 举报

ajy1

0

主题

3

帖子

3

积分

新手上路

Rank: 1

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

使用道具 举报

返回列表 发新帖 回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-11-22 10:21 , Processed in 1.158248 second(s), 20 queries .

Powered by GM基地 X3.4

© 免责声明:本站所有资源均来至网络,仅供学习交流,严禁用于商业用途,请于24小时内删除!

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