;A60为庄家姓名
;G60为庄家本钱
;G61为买大人数
;G62为买小人数
;G63为买大总额
;G64为买小总额
;G65为骰子点数
;G66为检测时间
;M63为玩家买大变量
;M64为玩家买小变量
;M65为买大获得元宝
;M66为买小获得元宝
;------------------------------
;M60为限制超过庄家本钱剩余总额
;N60为限制同时压注延迟
(@@InPutString @@InPutInteger )
[@main]
注意：除非棋牌室，其他任何地方否可能涉嫌诈骗 <回土城/@jhmove>\
\
<庄家姓名：><$STR(A60)> <庄家本钱总数：><$STR(G60)> <我要坐庄/@我要坐庄> \
\
<我要买大/@@InPutInteger1> <我要买小/@@InPutInteger2> <棋牌室游戏规则/@查看> \
\
押宝统计:共<$STR(G61)>人买大(累计<$STR(G63)>个元宝), 共<$STR(G62)>人买小(累计<$STR(G64)>个元宝) \
\
你所拥有的元宝:<$GAMEGOLD>个,未满18岁的玩家请离开! <刷新界面/@main>
[@我要坐庄]
为了让玩家之间元宝赌博公平起见~\
老传奇特意为大家提供棋牌室，让系统来做监察官。\
避免了有些玩家利用赌博来涉嫌诈骗的行为。\ \
<坐庄必须物品点此购买→/><骰子/@骰子> 100万一个
请选择坐庄开盘元宝总额：\
<50个元宝/@50个元宝> <100个元宝/@100个元宝> <200个元宝/@200个元宝> <300个元宝/@300个元宝> <500个元宝/@500个元宝>\ \
<返回/@main> <离开/@EXIT>\
[@骰子]
#IF
checkgold 1000000
#ACT
give 骰子 1
take 金币 1000000
#ELSEACT
MESSAGEBOX 需要1000000金币用来支付我们的服务费用!
[@50个元宝]
#IF
checkitem 骰子 1
#ELSEACT
MESSAGEBOX [错误]：你连骰子都没有，怎么赌啊！
GOTO @main
break
#IF
CHECKGAMEGOLD < 51
#ACT
MESSAGEBOX [错误]：你身上的元宝不足！
GOTO @main
break
#IF
EQUAL A60 $暂无$
EQUAL G60 0
#ACT
mov A60 <$USERNAME>
mov G60 50
mov G66 1
GAMEGOLD - 51
MOV G98 0
MOV G99 0
SendMSG 4 玩家【%s】使用<$STR(G60)>个元宝坐庄。
SendMSG 1 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
SendCenterMsg 146 0 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
GOTO @main
#ELSEACT
MESSAGEBOX [错误]：此房间有人在坐庄。不能同时坐庄！
GOTO @main
break
[@100个元宝]
#IF
checkitem 骰子 1
#ELSEACT
MESSAGEBOX [错误]：你连骰子都没有，怎么赌啊！
GOTO @main
break
#IF
CHECKGAMEGOLD < 101
#ACT
MESSAGEBOX [错误]：你身上的元宝不足。
GOTO @main
break
#IF
EQUAL A60 $暂无$
EQUAL G60 0
#ACT
mov A60 <$USERNAME>
mov G60 100
mov G66 1
GAMEGOLD - 101
MOV G98 0
MOV G99 0
SendMSG 4 玩家【%s】使用<$STR(G60)>个元宝坐庄。
SendMSG 1 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
SendCenterMsg 146 0 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
GOTO @main
#ELSEACT
MESSAGEBOX [错误]：此房间有人在坐庄。不能同时坐庄！
GOTO @main
break
[@200个元宝]
#IF
checkitem 骰子 1
#ELSEACT
MESSAGEBOX [错误]：你连骰子都没有，怎么赌啊！
GOTO @main
break
#IF
CHECKGAMEGOLD < 201
#ACT
MESSAGEBOX [错误]：你身上的元宝不足。
GOTO @main
break
#IF
EQUAL A60 $暂无$
EQUAL G60 0
#ACT
mov A60 <$USERNAME>
mov G60 200
mov G66 1
GAMEGOLD - 201
MOV G98 0
MOV G99 0
SendMSG 4 玩家【%s】使用<$STR(G60)>个元宝坐庄。
SendMSG 1 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
SendCenterMsg 146 0 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
GOTO @main
#ELSEACT
MESSAGEBOX [错误]：此房间有人在坐庄。不能同时坐庄！
GOTO @main
break
[@300个元宝]
#IF
checkitem 骰子 1
#ELSEACT
MESSAGEBOX [错误]：你连骰子都没有，怎么赌啊！
GOTO @main
break
#IF
CHECKGAMEGOLD < 301
#ACT
MESSAGEBOX [错误]：你身上的元宝不足。
GOTO @main
break
#IF
EQUAL A60 $暂无$
EQUAL G60 0
#ACT
mov A60 <$USERNAME>
mov G60 300
mov G66 1
GAMEGOLD - 301
MOV G98 0
MOV G99 0
SendMSG 4 玩家【%s】使用<$STR(G60)>个元宝坐庄。
SendMSG 1 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
SendCenterMsg 146 0 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
GOTO @main
#ELSEACT
MESSAGEBOX [错误]：此房间有人在坐庄。不能同时坐庄！
GOTO @main
break
[@500个元宝]
#IF
checkitem 骰子 1
#ELSEACT
MESSAGEBOX [错误]：你连骰子都没有，怎么赌啊！
GOTO @main
break
#IF
CHECKGAMEGOLD < 501
#ACT
MESSAGEBOX [错误]：你身上的元宝不足。
GOTO @main
break
#IF
EQUAL A60 $暂无$
EQUAL G60 0
#ACT
mov A60 <$USERNAME>
mov G60 500
mov G66 1
GAMEGOLD - 501
MOV G98 0
MOV G99 0
SendMSG 4 玩家【%s】使用<$STR(G60)>个元宝坐庄。
SendMSG 1 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
SendCenterMsg 146 0 [公告]:玩家【%s】在“棋牌室二”中使用<$STR(G60)>个元宝坐庄！！
GOTO @main
#ELSEACT
MESSAGEBOX [错误]：此房间有人在坐庄。不能同时坐庄！
GOTO @main
break
[@InPutInteger1]
#IF
EQUAL A60 <$USERNAME>
#ACT
MESSAGEBOX [提示]：你是庄家，不能押注。
GOTO @main
break
#IF
LARGE G66 59
#ACT
MESSAGEBOX [提示]：押注时间已超过1分钟，不能押注。
GOTO @main
break
#IF
LARGE M63 0
#ACT
MESSAGEBOX [提示]：您已压过大，不能押注。
GOTO @main
break
#IF
SMALL N1 1
#ACT
MESSAGEBOX [提示]：必须大于0以上整数。
GOTO @main
break
#IF
CHECKGAMEGOLD > <$STR(N1)>
#ACT
MOV M60 0
INC G63 10
INC G64 10
MOV M60 <$STR(G60)>
DEC M60 <$STR(G63)>
DEC M60 <$STR(G64)>
INC M60 20
DEC G63 10
DEC G64 10
GOTO @押大
#ELSEACT
MESSAGEBOX [错误]：你身上的元宝不足。
GOTO @main
break
[@押大]
#IF
LARGE N1 <$STR(M60)>
#ACT
MESSAGEBOX [提示]：您输入的元宝不够庄家赔的!
GOTO @main
break
#IF
#ACT
INC G98 <$STR(N1)>
GOTO @jiance
[@jiance]
#IF
LARGE N1 <$STR(G98)>
#ACT
MESSAGEBOX 系统检测您在同一秒种跟其他的玩家一起押大\系统认为是不法信息请您重新押.
#ELSEACT
GOTO @kaishi1
[@kaishi1]
#IF
#ACT
GAMEGOLD - <$STR(N1)>
MOV M63 <$STR(N1)>
INC G63 <$STR(N1)>
INC G61 1
SendMSG 4 玩家【%s】使用<$STR(N1)>个元宝“押大”，买定离手！
SendMSG 1 玩家【%s】使用<$STR(N1)>个元宝“押大”，买定离手
MESSAGEBOX [提示]：使用<$STR(N1)>个元宝“押大”，买定离手！
GOTO @main
break
[@InPutInteger2]
#IF
EQUAL A60 <$USERNAME>
#ACT
MESSAGEBOX [提示]：你是庄家，不能押注。
GOTO @main
break
#IF
LARGE G66 59
#ACT
MESSAGEBOX [提示]：押注时间已超过1分钟，不能押注。
GOTO @main
break
#IF
LARGE M64 0
#ACT
MESSAGEBOX [提示]：您已压过小，不能押注。
GOTO @main
break
#IF
SMALL N2 1
#ACT
MESSAGEBOX [提示]：必须大于0以上整数。
GOTO @main
break
#IF
CHECKGAMEGOLD > <$STR(N2)>
#ACT
MOV M60 0
INC G63 10
INC G64 10
MOV M60 <$STR(G60)>
DEC M60 <$STR(G63)>
DEC M60 <$STR(G64)>
INC M60 20
DEC G63 10
DEC G64 10
GOTO @押小
#ELSEACT
MESSAGEBOX [错误]：你身上的元宝不足。
GOTO @main
break
[@押小]
#IF
LARGE N2 <$STR(M60)>
#ACT
MESSAGEBOX [提示]：您输入的元宝不够庄家赔的!
GOTO @main
break
#IF
#ACT
INC G99 <$STR(N2)>
GOTO @jiance2
[@jiance2]
#IF
LARGE N2 <$STR(G99)>
#ACT
MESSAGEBOX 测试成功 不能刷元宝了
#ELSEACT
GOTO @kaishi2
[@kaishi2]
#IF
#ACT
GAMEGOLD - <$STR(N2)>
MOV M64 <$STR(N2)>
INC G64 <$STR(N2)>
INC G62 1
SendMSG 4 玩家【%s】使用<$STR(N2)>个元宝“押小”，买定离手！
SendMSG 1 玩家【%s】使用<$STR(N2)>个元宝“押小”，买定离手！
MESSAGEBOX [提示]：使用<$STR(N2)>个元宝“押小”，买定离手！
GOTO @main
break
[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!
[@查看]
1、每次只允许1人坐庄，收取庄家1元宝作为坐庄手续费。\
2、玩家可以在1分钟内，买大或买小,等待庄家落地骰子。\
3、庄家必须在1分钟后，将背包里的骰子扔地上才有效。\
4、玩家买大,买小总数，不能超过庄家坐庄的元宝总数。\
5、庄家到时间不扔骰子，30秒后自动被弃权，不扣元宝。\
庄家做庄后，比如他使用的是50元宝坐庄，然后有一个人用10元宝\
压大，另外一个人用15元宝押小，开局之后如果骰子摇出来的是小\
那么押小的就赢取15个元宝，压大的输10个，庄家输5个\
<返回/@main> <离开/@EXIT>\
[@jhmove]
#IF
#ACT
mapmove 3 333 333
break
