无法在这个位置找到： 热搜.htm
(责任编辑：admin)
sf一条龙发布传奇坐庄赌博脚本
更新时间:2015-11-03 08:23来源:
http://www.001gm.net 作者:传奇sf一条龙 阅读次数:次
[@MAIN]
#IF
ISADMIN
CHECKVAR GLOBAL 赌城开关检测 < 1
#ACT
GOTO @赌城管理
BREAK
#IF
CHECKVAR GLOBAL 赌城开关检测 < 1
CHECKVAR GLOBAL 庄家名字=<$USERNAME>
#SAY
赌城关闭中...请等待开启...\
<返回土城/@返回土城> <取回本钱[url=]/@@InPutInteger30>\[/url]
#ACT
BREAK
#IF
CHECKVAR GLOBAL 赌城开关检测 < 1
#SAY
赌城关闭中...请等待开启...\
<返回土城/@返回土城>\
#ACT
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}元宝\
#IF
CHECKVAR GLOBAL 庄家名字=<$USERNAME>
#SAY
<取回本钱[url=]/@@InPutInteger30>\[/url]
#ELSESAY
\
#IF
#SAY
<抢庄[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}元宝
[@CALLInPutInteger30]
#IF
CHECKVAR GLOBAL 庄家名字=<$USERNAME>
#ACT
#ELSEACT
GOTO @MAIN
BREAK
#IF
CHECKVAR GLOBAL 赌博计时 > 46
#ACT
MESSAGEBOX 开庄时间无法取回...
MOV N30 0
GOTO @MAIN
BREAK
#IF
CHECKVAR GLOBAL 赌博计时 > 30
CHECKVAR GLOBAL 赌博计时 < 47
#ACT
#ELSEACT
GOTO @下注取回检测
BREAK
#IF
LARGE N30 0
#ACT
#ELSEACT
MESSAGEBOX 请输入大于0的数字
MOV N30 0
GOTO @MAIN
BREAK
#IF
LARGE N30 <$GLOBAL(庄家本钱)>
#ACT
MESSAGEBOX 你的本钱只有(<$GLOBAL(庄家本钱)>)元宝.\无法取回你所输入的(<$STR(N30)>)元宝,请重新输入
MOV N30 0
GOTO @MAIN
BREAK
#IF
EQUAL N30 <$GLOBAL(庄家本钱)>
#ACT
GAMEGOLD + <$GLOBAL(庄家本钱)>
SENDMSG 7 取回成功,你共取回了(<$GLOBAL(庄家本钱)>)本钱并放弃了庄家位置...
SENDMSG 0 『%S』共取回了(<$GLOBAL(庄家本钱)>)本钱并放弃了庄家位置...
MAPMOVE TXDGA 12 10
CALCVAR GLOBAL 庄家名字=
CALCVAR GLOBAL 庄家检测=0
CALCVAR GLOBAL 庄家本钱=0
CALCVAR GLOBAL 庄家本钱1=0
CALCVAR GLOBAL 庄家本钱2=0
SAVEVAR GLOBAL 庄家名字 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱2 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CLEARNAMELIST ..\QuestDiary\zwb\坐庄赌博\庄家名单.TXT
GOTO @MAIN
BREAK
#ELSEACT
MOV N31 <$GLOBAL(庄家本钱)>
DEC N31 <$STR(N30)>
#IF
SMALL N31 1000
#ACT
MOV N31 0
MOV N30 0
SENDMSG 5 庄家本钱最少预留传奇一条龙1000元宝以上,请重新输入,如果你想撤销庄家位置,请输入现有的所有本钱...
GOTO @MAIN
BREAK
#ELSEACT
GAMEGOLD + <$STR(N30)>
CALCVAR GLOBAL 庄家本钱 - <$STR(N30)>
SAVEVAR GLOBAL 庄家本钱 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CALCVAR GLOBAL 庄家本钱1=<$GLOBAL(庄家本钱)>
CALCVAR GLOBAL 庄家本钱2=<$GLOBAL(庄家本钱)>
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱2 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SENDMSG 5 取回成功,你共取回了(<$STR(N30)>)本钱...
GOTO @MAIN
BREAK
[@下注取回检测]
#IF
CHECKVAR GLOBAL 庄家名字=<$USERNAME>
#ACT
#ELSEACT
GOTO @MAIN
BREAK
#IF
CHECKVAR GLOBAL 赌博计时 > 46
#ACT
MESSAGEBOX 开庄时间无法取回...
MOV N30 0
GOTO @MAIN
BREAK
#IF
CHECKVAR GLOBAL 赌博计时 > 0
CHECKVAR GLOBAL 赌博计时 < 31
#ACT
#ELSEACT
GOTO @MAIN
BREAK
#IF
LARGE N30 0
#ACT
#ELSEACT
MESSAGEBOX 请输入大于0的数字
MOV N30 0
GOTO @MAIN
BREAK
#IF
LARGE N30 <$GLOBAL(庄家本钱1)>
#ACT
MESSAGEBOX 目前已经是下注时间,你最高只能取回(<$GLOBAL(庄家本钱1)>)元宝.\无法取回传奇一条龙所输入的(<$STR(N30)>)元宝,请重新输入
MOV N30 0
GOTO @MAIN
BREAK
#IF
EQUAL N30 <$GLOBAL(庄家本钱1)>
CHECKVAR GLOBAL 庄家本钱=<$GLOBAL(庄家本钱1)>
#ACT
GAMEGOLD + <$GLOBAL(庄家本钱)>
SENDMSG 7 取回成功,你共取回了(<$GLOBAL(庄家本钱)>)本钱并放弃了庄家位置...
SENDMSG 0 『%S』共取回了(<$GLOBAL(庄家本钱)>)本钱并放弃了庄家位置...
MAPMOVE TXDGA 12 10
CALCVAR GLOBAL 庄家名字=
CALCVAR GLOBAL 庄家检测=0
SAVEVAR GLOBAL 庄家名字 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CALCVAR GLOBAL 庄家本钱=0
SAVEVAR GLOBAL 庄家本钱 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CALCVAR GLOBAL 庄家本钱1=0
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CALCVAR GLOBAL 庄家本钱2=0
SAVEVAR GLOBAL 庄家本钱2 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CALCVAR GLOBAL 赌博计时=46
SAVEVAR GLOBAL 赌博计时 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CLEARNAMELIST ..\QuestDiary\zwb\坐庄赌博\庄家名单.TXT
MOV N30 0
GOTO @MAIN
BREAK
#IF
CHECKVAR GLOBAL 总体下注数 > 传奇sf一条龙 999
#ACT
GAMEGOLD + <$STR(N30)>
CALCVAR GLOBAL 庄家本钱 - <$STR(N30)>
SAVEVAR GLOBAL 庄家本钱 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CALCVAR GLOBAL 庄家本钱1 - <$STR(N30)>
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CALCVAR GLOBAL 庄家本钱2 - <$STR(N30)>
SAVEVAR GLOBAL 庄家本钱2 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SENDMSG 5 取回成功,你共取回了(<$STR(N30)>)本钱...
MOV N30 0
GOTO @MAIN
BREAK
#ELSEACT
MOV N31 1000
DEC N31 <$GLOBAL(总体下注数)>
MOV N32 <$GLOBAL(庄家本钱1)>
DEC N32 <$STR(N31)>
#IF
LARGE N30 <$STR(N32)>
#ACT
MESSAGEBOX 目前已经有玩家下注,你最高只能取回(<$STR(N32)>)元宝.\无法取回你所输入的(<$STR(N30)>)元宝,请重新输入
MOV N31 0
MOV N30 0
MOV N32 0
GOTO @MAIN
BREAK
#ELSEACT
GAMEGOLD + <$STR(N30)>
CALCVAR GLOBAL 庄家本钱 - <$STR(N30)>
SAVEVAR GLOBAL 庄家本钱 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CALCVAR GLOBAL 庄家本钱1 - <$STR(N30)>
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
CALCVAR GLOBAL 庄家本钱2 - <$STR(N30)>
SAVEVAR GLOBAL 庄家本钱2 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SENDMSG 5 取回成功,你共取回了(<$STR(N30)>)本钱...
MOV N31 0
MOV N30 0
GOTO @MAIN
BREAK
[@赌城管理]
#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(税收比例)>
OpenBigDialogBox
#SAY
\
\
<注意：设定骰子点数时,无论设置哪家,必须3个骰子都设定点数,并且点数必须在1-6点,否则无效!/SCOLOR=249>\
\
<位置/SCOLOR=249> <一号骰子目前点数/SCOLOR=254> <操作/SCOLOR=249> <二号骰子目前点数/SCOLOR=254> <操作/SCOLOR=249> <二号骰子目前点数/SCOLOR=254> <操作/SCOLOR=249>\
\
{【西家】 【<$STR(I88)>】/SCOLOR=250}点 『<修改[url=]/@@InPutInteger17[/url]>』 {【<$STR(I89)>】/SCOLOR=250}点 『<修改[url=]/@@InPutInteger18[/url]>』 {【<$STR(I90)>】/SCOLOR=250}点 『<修改[url=]/@@InPutInteger19[/url]>』\
\
{【南家】 【<$STR(I91)>】/SCOLOR=253}点 『<修改[url=]/@@InPutInteger23[/url]>』 {【<$STR(I92)>】/SCOLOR=253}点 『<修改[url=]/@@InPutInteger24[/url]>』 {【<$STR(I93)>】/SCOLOR=253}点 『<修改[url=]/@@InPutInteger25[/url]>』\
\
{【东家】 【<$STR(I94)>】/SCOLOR=254}点 『<修改[url=]/@@InPutInteger20[/url]>』 {【<$STR(I95)>】/SCOLOR=254}点 『<修改[url=]/@@InPutInteger21[/url]>』 {【<$STR(I96)>】/SCOLOR=254}点 『<修改[url=]/@@InPutInteger22[/url]>』\
\
{【庄家】 【<$STR(I97)>】/SCOLOR=249}点 『<修改[url=]/@@InPutInteger26[/url]>』 {【<$STR(I98)>】/SCOLOR=249}点 『<修改[url=]/@@InPutInteger27[/url]>』 {【<$STR(I99)>】/SCOLOR=249}点 『<修改[url=]/@@InPutInteger28[/url]>』\
\
目前税收比例为【{<$STR(N30)>%/SCOLOR=249}】 税收比例设置为【{<$GLOBAL(税收比例)>/SCOLOR=250}】 『<修改[url=]/@@InPutInteger29[/url]>』\
\
#IF
ISADMIN
CHECKVAR GLOBAL 赌城开关检测=0
#SAY
目前赌城状态为【<关闭/SCOLOR=249>】 你是管理员,可以『<开启/@开启>』『<返回首页[url=]/@MAIN[/url]>』 『<返回土城/@返回土城>』\
#IF
ISADMIN
CHECKVAR GLOBAL 赌城开关检测 > 0
#SAY
目前赌城状态为【<开启/SCOLOR=250>】 你是管理员,可以『<关闭/@开启>』『<返回首页[url=]/@MAIN[/url]>』 『<返回土城/@返回土城>』\
[@开启]
#IF
ISADMIN
#ACT
#ELSEACT
Close
BREAK
#IF
CHECKVAR GLOBAL 赌城开关检测=0
#ACT
CALCVAR GLOBAL 赌博计时=46
CALCVAR GLOBAL 赌城开关检测=1
SAVEVAR GLOBAL 赌博计时 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 赌城开关检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SENDMSG 6 尊敬的管理员,赌城开启完毕...
GOTO @赌城管理
BREAK
#ELSEACT
CALCVAR GLOBAL 赌博计时=47
CALCVAR GLOBAL 赌城开关检测=0
SAVEVAR GLOBAL 赌博计时 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 赌城开关检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SENDMSG 6 尊敬的管理员,赌城关闭完毕...
GOTO @赌城管理
BREAK
[@CALLInPutInteger17]
#IF
ISADMIN
#ACT
#ELSEACT
BREAK
#IF
LARGE N17 0
SMALL N17 7
#ACT
MOV I88 <$STR(N17)>
CALCVAR GLOBAL 控制检测西家 + 1
SAVEVAR GLOBAL 控制检测西家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I89 <$STR(N18)>
CALCVAR GLOBAL 控制检测西家 + 1
SAVEVAR GLOBAL 控制检测西家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I90 <$STR(N19)>
CALCVAR GLOBAL 控制检测西家 + 1
SAVEVAR GLOBAL 控制检测西家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I94 <$STR(N20)>
CALCVAR GLOBAL 控制检测东家 + 1
SAVEVAR GLOBAL 控制检测东家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I95 <$STR(N21)>
CALCVAR GLOBAL 控制检测东家 + 1
SAVEVAR GLOBAL 控制检测东家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I96 <$STR(N22)>
CALCVAR GLOBAL 控制检测东家 + 1
SAVEVAR GLOBAL 控制检测东家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I91 <$STR(N23)>
CALCVAR GLOBAL 控制检测南家 + 1
SAVEVAR GLOBAL 控制检测南家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I92 <$STR(N24)>
CALCVAR GLOBAL 控制检测南家 + 1
SAVEVAR GLOBAL 控制检测南家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I93 <$STR(N25)>
CALCVAR GLOBAL 控制检测南家 + 1
SAVEVAR GLOBAL 控制检测南家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I97 <$STR(N26)>
CALCVAR GLOBAL 控制检测庄家 + 1
SAVEVAR GLOBAL 控制检测庄家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I98 <$STR(N27)>
CALCVAR GLOBAL 控制检测庄家 + 1
SAVEVAR GLOBAL 控制检测庄家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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 I99 <$STR(N28)>
CALCVAR GLOBAL 控制检测庄家 + 1
SAVEVAR GLOBAL 控制检测庄家 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.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\zwb\坐庄赌博\自定义全局变量数据.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
CALCVAR GLOBAL 邀请人=<$USERNAME>
SAVEVAR GLOBAL 邀请人 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
HCALL <$STR(S15)> @赌城邀请
MOV S15
GOTO @MAIN
SENDMSG 6 邀请信已经发出!
BREAK
#ELSEACT
SENDMSG 7 你要邀请的<$STR(S15)>玩家不在线，无法邀请
MOV 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\zwb\坐庄赌博\庄家名单.TXT
#ACT
MOV N11 0
MESSAGEBOX 你目前已经是庄家,无法重复坐庄......
GOTO @MAIN
BREAK
#IF
CheckNAMELIST ..\QuestDiary\zwb\坐庄赌博\西家名单.TXT
#ACT
MOV N11 0
MESSAGEBOX 你已经下注压西家了,无法坐庄......
GOTO @MAIN
BREAK
#IF
CheckNAMELIST ..\QuestDiary\zwb\坐庄赌博\东家名单.TXT
#ACT
MOV N11 0
MESSAGEBOX 你已经下注压东家了,无法坐庄......
GOTO @MAIN
BREAK
#IF
CheckNAMELIST ..\QuestDiary\zwb\坐庄赌博\南家名单.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\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家名字 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱2 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
AddNAMELIST ..\QuestDiary\zwb\坐庄赌博\庄家名单.TXT
SENDMSG 4 『%S』使用(<$STR(N11)>)个元宝坐庄成功......
MESSAGEBOX 使用(<$STR(N11)>)个元宝坐庄成功......
MOV N11 0
GOTO @MAIN
BREAK
#IF
LARGE N11 <$GLOBAL(庄家本钱)>
#ACT
#ELSEACT
MESSAGEBOX 你必须出多于(<$GLOBAL(庄家本钱)>)个元宝才能抢庄成功......
MOV N11 0
GOTO @MAIN
BREAK
#IF
CheckOnline <$GLOBAL(庄家名字)>
#ACT
GMEXECUTE 调整元宝 <$GLOBAL(庄家名字)> + <$GLOBAL(庄家本钱)>
CLEARNAMELIST ..\QuestDiary\zwb\坐庄赌博\庄家名单.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\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家名字 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱2 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
AddNAMELIST ..\QuestDiary\zwb\坐庄赌博\庄家名单.TXT
SENDMSG 4 『%S』使用(<$STR(N11)>)个元宝抢庄成功......
MESSAGEBOX 使用(<$STR(N11)>)个元宝抢庄成功......
MOV N11 0
GOTO @MAIN
BREAK
#IF
CheckTextList .\QuestDiary\zwb\坐庄赌博\离线庄家名单.txt <$GLOBAL(庄家名字)>
#ACT
CLEARNAMELIST ..\QuestDiary\zwb\坐庄赌博\离线庄家记录\<$GLOBAL(庄家名字)>.txt
AddTextListex .\QuestDiary\zwb\坐庄赌博\离线庄家记录\<$GLOBAL(庄家名字)>.txt <$GLOBAL(庄家本钱)> 0
CLEARNAMELIST ..\QuestDiary\zwb\坐庄赌博\庄家名单.TXT
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\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家名字 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱2 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
AddNAMELIST ..\QuestDiary\zwb\坐庄赌博\庄家名单.TXT
SENDMSG 4 『%S』使用(<$STR(N11)>)个元宝抢庄成功......
MESSAGEBOX 使用(<$STR(N11)>)个元宝抢庄成功......
MOV N11 0
GOTO @MAIN
BREAK
#ELSEACT
AddTextListex .\QuestDiary\zwb\坐庄赌博\离线庄家名单.txt <$GLOBAL(庄家名字)>
CreateFile QuestDiary\zwb\坐庄赌博\离线庄家记录\<$GLOBAL(庄家名字)>.txt
AddTextListex .\QuestDiary\zwb\坐庄赌博\离线庄家记录\<$GLOBAL(庄家名字)>.txt <$GLOBAL(庄家本钱)> 0
CLEARNAMELIST ..\QuestDiary\zwb\坐庄赌博\庄家名单.TXT
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\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家名字 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 庄家本钱2 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
AddNAMELIST ..\QuestDiary\zwb\坐庄赌博\庄家名单.TXT
SENDMSG 4 『%S』使用(<$STR(N11)>)个元宝抢庄成功......
MESSAGEBOX 使用(<$STR(N11)>)个元宝抢庄成功......
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\zwb\坐庄赌博\庄家名单.TXT
#ACT
MOV N12 0
MESSAGEBOX 你目前已将是庄家了,无法下注西家......
GOTO @MAIN
BREAK
#IF
SMALL N12 50
#ACT
MOV N12 0
MESSAGEBOX 下注西家最少需要50元宝以上......
GOTO @MAIN
BREAK
#ELSEACT
MOV N15 9381
MOVR N16 500 2000
DelayCall <$STR(N16)> @下注西家
BREAK
[@下注西家]
#IF
EQUAL N15 9381
#ACT
MOV N15 0
#ELSEACT
MOV N12 0
MESSAGEBOX 请离开,本游戏不欢迎作弊者...
GOTO @MAIN
BREAK
#IF
LARGE N12 <$GLOBAL(庄家本钱1)>
#ACT
MOV N12 0
MESSAGEBOX 下注总金额已经达到庄家本钱上限\目前你只可以下注(<$GLOBAL(庄家本钱1)>)以下的元宝...
GOTO @MAIN
BREAK
#IF
CheckNAMELIST ..\QuestDiary\zwb\坐庄赌博\西家名单.TXT
CHECKGAMEGOLD > <$STR(N12)>
#ACT
CALCVAR GLOBAL 庄家本钱1 - <$STR(N12)>
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
GAMEGOLD - <$STR(N12)>
INC M18 <$STR(N12)>
CALCVAR GLOBAL 西家总下注 + <$STR(N12)>
CALCVAR GLOBAL 总体下注数 + <$STR(N12)>
CALCVAR GLOBAL 下注检测=1
SAVEVAR GLOBAL 下注检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 西家总下注 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 总体下注数 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SENDMSG 4 『%S』追加(<$STR(N12)>)个元宝下注西家.
MESSAGEBOX 你使用(<$STR(N12)>)个元宝追加下注西家.
MOV N12 0
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > <$STR(N12)>
#ACT
CALCVAR GLOBAL 庄家本钱1 - <$STR(N12)>
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
GAMEGOLD - <$STR(N12)>
MOV M18 <$STR(N12)>
CALCVAR GLOBAL 西家总下注 + <$STR(N12)>
CALCVAR GLOBAL 总体下注数 + <$STR(N12)>
CALCVAR GLOBAL 下注检测=1
SAVEVAR GLOBAL 下注检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 西家总下注 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 总体下注数 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
AddNAMELIST ..\QuestDiary\zwb\坐庄赌博\西家名单.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\zwb\坐庄赌博\庄家名单.TXT
#ACT
MOV N13 0
MESSAGEBOX 你目前已将是庄家了,无法下注东家......
GOTO @MAIN
BREAK
#IF
SMALL N13 50
#ACT
MOV N13 0
MESSAGEBOX 下注西家最少需要50元宝以上......
GOTO @MAIN
BREAK
#ELSEACT
MOV N15 9381
MOVR N16 500 2000
DelayCall <$STR(N16)> @下注东家
BREAK
[@下注东家]
#IF
EQUAL N15 9381
#ACT
MOV N15 0
#ELSEACT
MOV N13 0
MESSAGEBOX 请离开,本游戏不欢迎作弊者...
GOTO @MAIN
BREAK
#IF
LARGE N13 <$GLOBAL(庄家本钱1)>
#ACT
MOV N13 0
MESSAGEBOX 下注总金额已经达到庄家本钱上限\目前你只可以下注(<$GLOBAL(庄家本钱1)>)以下的元宝...
GOTO @MAIN
BREAK
#IF
CheckNAMELIST ..\QuestDiary\zwb\坐庄赌博\东家名单.TXT
CHECKGAMEGOLD > <$STR(N13)>
#ACT
CALCVAR GLOBAL 庄家本钱1 - <$STR(N13)>
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
GAMEGOLD - <$STR(N13)>
INC M13 <$STR(N13)>
CALCVAR GLOBAL 东家总下注 + <$STR(N13)>
CALCVAR GLOBAL 总体下注数 + <$STR(N13)>
CALCVAR GLOBAL 下注检测=1
SAVEVAR GLOBAL 下注检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 东家总下注 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 总体下注数 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SENDMSG 4 『%S』追加(<$STR(N13)>)个元宝下注东家.
MESSAGEBOX 你使用(<$STR(N13)>)个元宝追加下注东家.
MOV N13 0
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > <$STR(N13)>
#ACT
CALCVAR GLOBAL 庄家本钱1 - <$STR(N13)>
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
GAMEGOLD - <$STR(N13)>
MOV M13 <$STR(N13)>
CALCVAR GLOBAL 东家总下注 + <$STR(N13)>
CALCVAR GLOBAL 总体下注数 + <$STR(N13)>
CALCVAR GLOBAL 下注检测=1
SAVEVAR GLOBAL 下注检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 东家总下注 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 总体下注数 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
AddNAMELIST ..\QuestDiary\zwb\坐庄赌博\东家名单.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\zwb\坐庄赌博\庄家名单.TXT
#ACT
MOV N14 0
MESSAGEBOX 你目前已将是庄家了,无法下注南家......
GOTO @MAIN
BREAK
#IF
SMALL N14 50
#ACT
MOV N14 0
MESSAGEBOX 下注西家最少需要50元宝以上......
GOTO @MAIN
BREAK
#ELSEACT
MOV N15 9381
MOVR N16 500 2000
DelayCall <$STR(N16)> @下注南家
BREAK
[@下注南家]
#IF
EQUAL N15 9381
#ACT
MOV N15 0
#ELSEACT
MOV N14 0
MESSAGEBOX 请离开,本游戏不欢迎作弊者...
GOTO @MAIN
BREAK
#IF
LARGE N14 <$GLOBAL(庄家本钱1)>
#ACT
MOV N14 0
MESSAGEBOX 下注总金额已经达到庄家本钱上限\目前你只可以下注(<$GLOBAL(庄家本钱1)>)以下的元宝...
GOTO @MAIN
BREAK
#IF
CheckNAMELIST ..\QuestDiary\zwb\坐庄赌博\南家名单.TXT
CHECKGAMEGOLD > <$STR(N14)>
#ACT
CALCVAR GLOBAL 庄家本钱1 - <$STR(N14)>
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
GAMEGOLD - <$STR(N14)>
INC M14 <$STR(N14)>
CALCVAR GLOBAL 南家总下注 + <$STR(N14)>
CALCVAR GLOBAL 总体下注数 + <$STR(N14)>
CALCVAR GLOBAL 下注检测=1
SAVEVAR GLOBAL 下注检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 南家总下注 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 总体下注数 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SENDMSG 4 『%S』追加(<$STR(N14)>)个元宝下注南家.
MESSAGEBOX 你使用(<$STR(N14)>)个元宝追加下注南家.
MOV N14 0
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > <$STR(N14)>
#ACT
CALCVAR GLOBAL 庄家本钱1 - <$STR(N14)>
SAVEVAR GLOBAL 庄家本钱1 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
GAMEGOLD - <$STR(N14)>
MOV M14 <$STR(N14)>
CALCVAR GLOBAL 南家总下注 + <$STR(N14)>
CALCVAR GLOBAL 总体下注数 + <$STR(N14)>
CALCVAR GLOBAL 下注检测=1
SAVEVAR GLOBAL 下注检测 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 南家总下注 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
SAVEVAR GLOBAL 总体下注数 ..\QuestDiary\zwb\坐庄赌博\自定义全局变量数据.txt
AddNAMELIST ..\QuestDiary\zwb\坐庄赌博\南家名单.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 [错误]：输入数据中包含了非法字符，请重新编辑！
(责任编辑：admin)
Copyright © 2006-2020 我八路科技 版权所有 苏ICP备14026906号-1
声明：我八路传奇一条龙是一支多年以上的传奇一条龙开区服务的传奇信誉一条龙，得到众多开传奇一条龙客户的认可及赞同！
告知：我们从不以低价坑人或骗人，请别轻信低价传奇一条龙，完美的售后才是你开服成功的坚强后盾。并信誉不是我说好就好，是合作好你说好才好。
我八路传奇一条龙为你提供传奇开区版本亲测图，在这里你可以定制传奇一条龙套餐，还可以学习传奇一条龙开区的经验和知识，并由专业技术员为您提供“一对一”的售后服务，说到做到才是足于传奇一条龙开区工作室的根本。
本站关键词：传奇一条龙,传奇私服一条龙,传奇开服一条龙,传奇sf一条龙,传奇论坛,传奇套餐价格,传奇私服套餐,传奇一条龙套餐,传奇版本库,传奇版本下载基地,传奇私服版本,传奇广告代理,传奇发布站价格,传奇发布站广告代理,开传奇流程,传奇开区服务,新手开区流程,传奇工具,传奇GM工具,传奇GM制作工具,传奇登陆器定制,防脱机登陆器,万能登陆器
请牢记我们的官网网址：www.001gm.net,本站主要服务项目，传奇开区一条龙、传奇开服一条龙、传奇版本免费下载、传奇登陆器定制、传奇sf一条龙、传奇开区免费咨询、传奇GM工具免费下载、传奇广告价格咨询等一系列方便开传奇GM免费产品。我们期待与您合作及让您见证什么才是真正的信誉与售后的完美结合。