 |
 |
|
 |
|
|
|
|
东南西赌博系统
传奇东南西赌博系统
(@@InPutString @@InPutInteger)
[@MAIN]
#IF
ISADMIN
;CHECKVAR GLOBAL 赌城开关检测 1
#ACT
GOTO @赌城管理
BREAK
#IF
#ACT
OpenBigDialogBox 43
MOV N30 0
DIV N30 100 $GLOBAL(税收比例)
#SAY
刷新/@MAIN
#IF
ISADMIN
#SAY
邀请赌徒/@@InPutString15 赌城管理/@赌城管理 返回土城/@返回土城\
#ELSESAY
邀请赌徒/@@InPutString15 返回土城/@返回土城\
#IF
#SAY
\
【庄家名字】/SCOLOR=249：$GLOBAL(庄家名字)\
【庄家本钱】/SCOLOR=249：{$GLOBAL(庄家本钱)/SCOLOR=249}元宝\
\
抢庄/@@InPutInteger11\
庄家点数：/SCOLOR=45{$GLOBAL(庄家总体点数)/SCOLOR=5}点\
\
\
【庄家本钱】：/SCOLOR=249共 {$GLOBAL(庄家本钱)/SCOLOR=249} 元宝\
下注/@@InPutInteger12 下注/@@InPutInteger13 【总计下注】：/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} 元宝\
下注/@@InPutInteger14\
南家点数：/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}点 『修改/@@InPutInteger17』 {【$STR(G18)】/SCOLOR=250}点 『修改/@@InPutInteger18』 {【$STR(G19)】/SCOLOR=250}点 『修改/@@InPutInteger19』\
\
{【南家】 【$STR(G23)】/SCOLOR=253}点 『修改/@@InPutInteger23』 {【$STR(G24)】/SCOLOR=253}点 『修改/@@InPutInteger24』 {【$STR(G25)】/SCOLOR=253}点 『修改/@@InPutInteger25』\
\
{【东家】 【$STR(G20)】/SCOLOR=254}点 『修改/@@InPutInteger20』 {【$STR(G21)】/SCOLOR=254}点 『修改/@@InPutInteger21』 {【$STR(G22)】/SCOLOR=254}点 『修改/@@InPutInteger22』\
\
{【庄家】 【$STR(G26)】/SCOLOR=249}点 『修改/@@InPutInteger26』 {【$STR(G27)】/SCOLOR=249}点 『修改/@@InPutInteger27』 {【$STR(G28)】/SCOLOR=249}点 『修改/@@InPutInteger28』\
\
目前税收比例为【{$STR(N30)%/SCOLOR=249}】 税收比例设置为【{$GLOBAL(税收比例)/SCOLOR=250}】 『修改/@@InPutInteger29』\
\
[@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点...
BRau私服EAK
[@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
#ELSEA炎黄传奇CT
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 [错误]：输入数据中包含了非法字符，请重新编辑！
 |
|
 |
