传奇开区一条龙东南西赌博系统

传奇服务端

	(@@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点... 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 [错误]：输入数据中包含了非法字符，请重新编辑！

RobertHauh

	不错 支持一个了

啊啊啊

	我是个凑数的。。。

闷骚型男

	为毛老子总也抢不到沙发？！！

水梦家园

	顶顶更健康

少年梦达

	占坑编辑ing

socceradznh

	学习下

说的是你

	介是神马？！！

骑着毛驴上高速

	好好 学习了 确实不错

混沌魔石

	学习了，谢谢分享、、、