请尊重站长的劳动成果，文明回复下载！谢谢！
(@@InPutInteger)
[@MAIN]
#act
MOV N47 2
#if
ISADMIN
#SAY
{欢迎光临，这里是澳门赌场，你拥有的元宝：【 <$GAMEGOLD> 】/SCOLOR=31}\
【<开小/@计算小>】 【<开大/@计算大>】 【<开豹子/@计算豹子>】【<吃进/SCOLOR=151>】{<$STR(G60)>/SCOLOR=254}【<赔出/SCOLOR=151>】{<$STR(G61)>/SCOLOR=254}\
<【 开始抢庄 】/@@InPutInteger40> <庄家：/SCOLOR=31>{【 <$STR(A34)> 】/SCOLOR=249} <筹码：/SCOLOR=31>{【 <$STR(G29)> 】/SCOLOR=249}\ \
<【 下注押大 】/@@InPutInteger41> <押大总金额：/SCOLOR=31>{【 <$STR(G13)> 】/SCOLOR=253}\
<【 下注押小 】/@@InPutInteger42> <押小总金额：/SCOLOR=31>{【 <$STR(G14)> 】/SCOLOR=253}\ \
<剩余时间：/SCOLOR=31> {<$STR(G15)> 秒/SCOLOR=253} <【 查看说明 】/@Help> <【 自动刷新 】/@刷新> \
<你的下注情况：你下注/SCOLOR=31>{【 <$STR(N73)> 】/SCOLOR=250}<元宝押/SCOLOR=31>{【 <$STR(S23)> 】/SCOLOR=250} <【 关闭自动刷新 】/@关闭>\ \
<提示：押大赢大，押小赢小，豹子通吃！系统收取税金5%>\
#elsesay
{欢迎光临，这里是澳门赌场，你拥有的元宝：【 <$GAMEGOLD> 】/SCOLOR=31}\ \
<【 开始抢庄 】/@@InPutInteger40> <庄家：/SCOLOR=31>{【 <$STR(A34)> 】/SCOLOR=249} <筹码：/SCOLOR=31>{【 <$STR(G29)> 】/SCOLOR=249}\ \
<【 下注押大 】/@@InPutInteger41> <押大总金额：/SCOLOR=31>{【 <$STR(G13)> 】/SCOLOR=253}\
<【 下注押小 】/@@InPutInteger42> <押小总金额：/SCOLOR=31>{【 <$STR(G14)> 】/SCOLOR=253}\ \
<剩余时间：/SCOLOR=31> {<$STR(G15)> 秒/SCOLOR=253} <【 查看说明 】/@Help> <【 自动刷新 】/@刷新> \
<你的下注情况：你下注/SCOLOR=31>{【 <$STR(N73)> 】/SCOLOR=250}<元宝押/SCOLOR=31>{【 <$STR(S23)> 】/SCOLOR=250} <【 关闭自动刷新 】/@关闭>\ \
<提示：押大赢大，押小赢小，豹子通吃！系统收取税金5%>\
[@刷新]
#if
ISADMIN
ISONMAP 3
#ACT
MOV N47 2
DelayGoto 1 @刷新
#SAY
{欢迎光临，这里是澳门赌场，你拥有的元宝：【 <$GAMEGOLD> 】/SCOLOR=31}\
【<开小/@计算小>】 【<开大/@计算大>】 【<开豹子/@计算豹子>】【<吃进/SCOLOR=151>】{<$STR(G60)>/SCOLOR=254}【<赔出/SCOLOR=151>】{<$STR(G61)>/SCOLOR=254}\
<【 开始抢庄 】/@@InPutInteger40> <庄家：/SCOLOR=31>{【 <$STR(A34)> 】/SCOLOR=249} <筹码：/SCOLOR=31>{【 <$STR(G29)> 】/SCOLOR=249}\ \
<【 下注押大 】/@@InPutInteger41> <押大总金额：/SCOLOR=31>{【 <$STR(G13)> 】/SCOLOR=253}\
<【 下注押小 】/@@InPutInteger42> <押小总金额：/SCOLOR=31>{【 <$STR(G14)> 】/SCOLOR=253}\ \
<剩余时间：/SCOLOR=31> {<$STR(G15)> 秒/SCOLOR=253} <【 查看说明 】/@Help> <【 自动刷新 】/@刷新> \
<你的下注情况：你下注/SCOLOR=31>{【 <$STR(N73)> 】/SCOLOR=250}<元宝押/SCOLOR=31>{【 <$STR(S23)> 】/SCOLOR=250} <【 关闭自动刷新 】/@关闭>\ \
<提示：押大赢大，押小赢小，豹子通吃！系统收取税金5%>\
#ACT
Break
#IF
ISONMAP 3
#ACT
MOV N47 2
DelayGoto 1 @刷新
#SAY
{欢迎光临，这里是澳门赌场，你拥有的元宝：【 <$GAMEGOLD> 】/SCOLOR=31}\ \
<【 开始抢庄 】/@@InPutInteger40> <庄家：/SCOLOR=31>{【 <$STR(A34)> 】/SCOLOR=249} <筹码：/SCOLOR=31>{【 <$STR(G29)> 】/SCOLOR=249}\ \
<【 下注押大 】/@@InPutInteger41> <押大总金额：/SCOLOR=31>{【 <$STR(G13)> 】/SCOLOR=253}\
<【 下注押小 】/@@InPutInteger42> <押小总金额：/SCOLOR=31>{【 <$STR(G14)> 】/SCOLOR=253}\ \
<剩余时间：/SCOLOR=31> {<$STR(G15)> 秒/SCOLOR=253} <【 查看说明 】/@Help> <【 自动刷新 】/@刷新> \
<你的下注情况：你下注/SCOLOR=31>{【 <$STR(N73)> 】/SCOLOR=250}<元宝押/SCOLOR=31>{【 <$STR(S23)> 】/SCOLOR=250} <【 关闭自动刷新 】/@关闭>\ \
<提示：押大赢大，押小赢小，豹子通吃！系统收取税金5%>\
#ACT
Break
#IF
#ACT
CLEARDELAYGOTO 1
CLOSE
Break
[@突出更]
#IF
#ACT
MAPMOVE 3 329 335
[@关闭]
#IF
#ACT
CLEARDELAYGOTO 1
Break
[@计算豹子]
#if
Isadmin
#ACT
MOVR P0 6
INC P0 1
MOV G42 <$STR(P0)>
MOV G43 <$STR(P0)>
MOV G44 <$STR(P0)>
MOV G455 2
SENDMSG 6 [提示]:设置豹子成功,本局会开出:<$STR(G42)>:<$STR(G43)>:<$STR(G44)>
goto @main
BreaK
[@计算大]
#IF
ISADMIN
#ACT
MOVR P1 6
INC P1 1
MOVR P2 6
INC P2 1
MOVR P3 6
INC P3 1
MOV P4 <$STR(P1)>
INC P4 <$STR(P2)>
INC P4 <$STR(P3)>
GOTO @检测大
Break
[@检测大]
#IF
EQUAL P1 <$STR(P2)>
EQUAL P1 <$STR(P3)>
#ACT
GOTO @计算大
Break
#IF
SMALL P4 11
#ACT
GOTO @计算大
Break
#IF
#ACT
MOV G42 <$STR(P1)>
MOV G43 <$STR(P2)>
MOV G44 <$STR(P3)>
MOV G455 2
SENDMSG 6 [提示]:设置大成功,本局会开出:<$STR(G42)>:<$STR(G43)>:<$STR(G44)>
goto @main
BreaK
;--------------------------------------------------------------------------------
[@计算小]
#IF
ISADMIN
#ACT
MOVR P1 6
INC P1 1
MOVR P2 6
INC P2 1
MOVR P3 6
INC P3 1
MOV P4 <$STR(P1)>
INC P4 <$STR(P2)>
INC P4 <$STR(P3)>
GOTO @检测小
Break
[@检测小]
#IF
EQUAL P1 <$STR(P2)>
EQUAL P1 <$STR(P3)>
#ACT
GOTO @计算小
Break
#IF
LARGE P4 10
#ACT
GOTO @计算小
Break
#IF
#ACT
MOV G42 <$STR(P1)>
MOV G43 <$STR(P2)>
MOV G44 <$STR(P3)>
MOV G455 1
SENDMSG 6 [提示]:设置小成功,本局会开出:<$STR(G42)>:<$STR(G43)>:<$STR(G44)>
goto @main
BreaK
[@管理]
#IF
ISADMIN
#SAY
<清理全部变量/@清理变量>
[@清理变量]
#if
ISADMIN
#ACT
MOV A33 无
MOV G16 0
MOV G17 0
MOV G11 0
MOV G13 0
MOV G14 0
MOV G29 0
MOV G42 0
MOV G43 0
MOV G44 0
MOV G45 0
INC G12 1
SENDMSG 6 [提示]:数据清理完毕!
Break
[@@InPutInteger40]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger40
[~InPutInteger40]
#IF
LARGE G12 60
#ACT
MESSAGEBOX [提示]：抢庄时间已经结束。请等待开局！
MOV N40 0
DelayGoto 1 @刷新
BREAK
#IF
SMALL N40 100
#ACT
MESSAGEBOX [提示]：请输入100以上的数值！
MOV N40 0
DelayGoto 1 @刷新
BREAK
#IF
LARGE N40 50000
#ACT
MESSAGEBOX [提示]：请输入50000以下的数值！
MOV N40 0
DelayGoto 1 @刷新
BREAK
#IF
EQUAL A34 <$USERNAME>
#ACT
MOV N40 0
MESSAGEBOX [提示]：你目前已经是庄家，无法重复坐庄。
DelayGoto 1 @刷新
BREAK
#IF
EQUAL N45 2
#ACT
MOV N40 0
MESSAGEBOX [提示]：你已经下注押了大，无法坐庄！
DelayGoto 1 @刷新
BREAK
#IF
EQUAL N45 3
#ACT
MOV N40 0
MESSAGEBOX [提示]：你已经下注押了小，无法坐庄！
DelayGoto 1 @刷新
BREAK
#IF
CHECKGAMEGOLD < <$STR(N40)>
#ACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV N40 0
DelayGoto 1 @刷新
BREAK
#IF
LARGE N40 <$STR(G29)>
#ACT
GAMEGOLD - <$STR(N40)>
INC G60 <$STR(N40)>
MESSAGEBOX 【成功】：\使用【<$STR(N40)>】个元宝坐庄!
GuildNoticeMsg 250 252 (*)『<$USERNAME>』申请≤<$STR(N40)>元宝≥的赌局喊道:"老子就要大杀四方!"
GuildNoticeMsg 250 252 (*)『<$USERNAME>』申请≤<$STR(N40)>元宝≥的赌局喊道:"各路赌友准备下注!"
GuildNoticeMsg 250 252 (*)『<$USERNAME>』申请≤<$STR(N40)>元宝≥的赌局喊道:"押！押！买定离手!"
MOV N2 <$STR(G29)>
MOV S1 <$STR(A34)>
GOTO @QZSUCCESSFUL
MOV G29 <$STR(N40)>
MOV A34 <$USERNAME>
MOV N73 0
DelayGoto 1 @刷新
BREAK
#IF
#ACT
MESSAGEBOX [提示]：你必须出多于【<$STR(G29)>】个元宝才能抢庄【<$STR(N40)>】。
MOV N40 0
DelayGoto 1 @刷新
BREAK
[@QZSUCCESSFUL]
#IF
S1.CHECKONLINE
#ACT
S1.GAMEGOLD + <$STR(N2)>
DEC G60 <$STR(N2)>
S1.MESSAGEBOX 【提示】：\<$USERNAME>使用【<$STR(N40)>】个元宝抢庄成功!\你的元宝已经被返还!
Break
[@@InPutInteger41]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger41
[~InPutInteger41]
#IF
LARGE G12 120
#ACT
MESSAGEBOX [提示]：下注时间已经结束。请等待开局！
MOV N41 0
DelayGoto 1 @刷新
BREAK
#IF
SMALL G12 61
#ACT
MESSAGEBOX [提示]：下注时间还没到，现在是抢庄时间。
MOV N41 0
DelayGoto 1 @刷新
BREAK
#IF
SMALL N41 1
#ACT
MESSAGEBOX [提示]：请输入1以上的数值！
MOV N41 0
DelayGoto 1 @刷新
BREAK
#IF
EQUAL A34 <$USERNAME>
#ACT
MOV N40 0
MESSAGEBOX [提示]：你目前已经是庄家，无法下注。
DelayGoto 1 @刷新
BREAK
#IF
EQUAL N45 2
#ACT
MOV N41 0
MESSAGEBOX [提示]：你已经下注押了大，无法重复下注！
DelayGoto 1 @刷新
BREAK
#IF
EQUAL N45 3
#ACT
MOV N41 0
MESSAGEBOX [提示]：你已经下注押了小，无法重复下注！
DelayGoto 1 @刷新
BREAK
#IF
LARGE N41 <$STR(G16)>
#ACT
MOV N41 0
MESSAGEBOX [提示]：对不起，庄家的本钱已达到上线不够赔了。\ \目前你只可以下注【<$STR(G16)>】以下的元宝！
DelayGoto 1 @刷新
BREAK
#IF
EQUAL G18 1
#ACT
MOV N40 0
MESSAGEBOX [提示]：请重新输入。
DelayGoto 1 @刷新
BREAK
#IF
CHECKGAMEGOLD > <$STR(N41)>
#ACT
MOV G18 1
MOV N45 2
MOV S23 大
GAMEGOLD - <$STR(N41)>
MOV N73 <$STR(N41)>
INC G13 <$STR(N73)>
INC G60 <$STR(N41)>
SendMSG 4 %s使用<$STR(N41)>个元宝下注押大。
MESSAGEBOX [提示]：使用【<$STR(N41)>】个元宝下注押大。
DelayGoto 1 @刷新
MOV N41 0
BREAK
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV N41 0
DelayGoto 1 @刷新
BREAK
[@@InPutInteger42]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger42
[~InPutInteger42]
#IF
LARGE G12 120
#ACT
MESSAGEBOX [提示]：下注时间已经结束。请等待开局！
MOV N42 0
DelayGoto 1 @刷新
BREAK
#IF
SMALL G12 61
#ACT
MESSAGEBOX [提示]：下注时间还没到，现在是抢庄时间。
MOV N42 0
DelayGoto 1 @刷新
BREAK
#IF
SMALL N42 1
#ACT
MESSAGEBOX [提示]：请输入1以上的数值！
MOV N42 0
DelayGoto 1 @刷新
BREAK
#IF
EQUAL A34 <$USERNAME>
#ACT
MOV N40 0
MESSAGEBOX [提示]：你目前已经是庄家，无法重复坐庄。
DelayGoto 1 @刷新
BREAK
#IF
EQUAL N45 2
#ACT
MOV N42 0
MESSAGEBOX [提示]：你已经下注押了大，无法重复下注！
DelayGoto 1 @刷新
BREAK
#IF
EQUAL N45 3
#ACT
MOV N42 0
MESSAGEBOX [提示]：你已经下注押了小，无法重复下注！
DelayGoto 1 @刷新
BREAK
#IF
LARGE N42 <$STR(G17)>
#ACT
MOV N42 0
MESSAGEBOX [提示]：对不起，庄家的本钱已达到上线不够赔了。\ \目前你只可以下注【<$STR(G17)>】以下的元宝！
DelayGoto 1 @刷新
BREAK
#IF
EQUAL G19 1
#ACT
MOV N40 0
MESSAGEBOX [提示]：请重新输入。
DelayGoto 1 @刷新
BREAK
#IF
CHECKGAMEGOLD > <$STR(N42)>
#ACT
MOV G19 1
MOV N45 3
MOV S23 小
GAMEGOLD - <$STR(N42)>
MOV N73 <$STR(N42)>
INC G14 <$STR(N73)>
INC G60 <$STR(N42)>
SendMSG 4 %s使用<$STR(N42)>个元宝下注押小。
MESSAGEBOX [提示]：使用【<$STR(N42)>】个元宝下注押小。
MOV N42 0
DelayGoto 1 @刷新
BREAK
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV N42 0
DelayGoto 1 @刷新
BREAK
[@Over]
#IF
#ACT
MapMove 3 330 330
BREAK
[@Help]
#if
#act
CLEARDELAYGOTO 1
#say
猜点游戏规则：\
(1)庄家坐庄后，其他玩家可下注，两分钟后三个骰子由庄家掷出，\
?骰子点数随机出现点数总和小于11代表小，点数总和大于10代表\
?大，三个点数相同代表豹子。\
(2)押大赢大，押小赢小，豹子通吃！本游戏系统取税金5%。\
(3)正在坐庄或已下注的玩家如下线将被视做弃权，损失下注元宝。\
(4)玩家下注数不能超过庄家坐庄的元宝总和。\
<返回/@MAIN> <离开/@EXIT>\
[@IsInFilterList]
#ACT
MESSAGEBOX [错误]：输入数据中包含了非法字符，请重新编辑！
|
|
[复制链接]
