|
Command.ini增加以下命令
[Command]
StartQuest=开始提问
AutoRunRobot.txt文件增加以下脚本
#AutoRun NPC SEC 1 @坐庄游戏A
#AutoRun NPC SEC 1 @坐庄游戏B
#AutoRun NPC SEC 1 @坐庄游戏C
RobotManage.txt文件增加以下脚本
[@坐庄游戏A]
#IF
checkhum TXDGA 1
#ELSEACT
BREAK
#IF
EQUAL I42 0
#ACT
GMEXECUTE 开始提问 @抢庄开始
INC I42 1
BREAK
#IF
EQUAL A88 无
EQUAL I42 1
#ACT
BREAK
#IF
EQUAL I42 30
#ACT
GMEXECUTE 开始提问 @抢庄结束
INC I42 1
BREAK
#IF
EQUAL I42 31
#ACT
GMEXECUTE 开始提问 @下注开始
INC I42 1
BREAK
#IF
EQUAL I44 0
EQUAL I45 0
EQUAL I42 60
#ACT
GMEXECUTE 开始提问 @返回庄家元宝
mov I42 71
BREAK
#IF
EQUAL I42 60
#ACT
MOV I47 <$STR(I44)>
MOV I48 <$STR(I45)>
MOV I49 <$STR(I46)>
MOVR I39 6
INC I39 1
MOVR I40 6
INC I40 1
MOVR I41 6
INC I41 1
GMEXECUTE 开始提问 @下注结束
INC I42 1
BREAK
#IF
;防止I39出0点
EQUAL I39 0
EQUAL I42 62
#ACT
mov I42 61
sendmsg 0 ERR:I39
BREAK
#IF
;防止I40出0点
EQUAL I40 0
EQUAL I42 62
#ACT
mov I42 61
sendmsg 0 ERR:I40
BREAK
#IF
;防止I41出0点
EQUAL I41 0
EQUAL I42 62
#ACT
mov I42 61
sendmsg 0 ERR:I41
BREAK
;------------------------------
;是否允许或者降低出豹子概率控制(去掉这部分将标准出豹子)
;random 2这行表示降低一半概率
#IF
random 2
EQUAL I41 <$STR(I40)>
EQUAL I41 <$STR(I39)>
EQUAL I42 62
#ACT
MOVR I39 6
INC I39 1
MOVR I40 6
INC I40 1
MOVR I41 6
INC I41 1
mov I42 61
BREAK
;------------------------------
#IF
EQUAL I42 63
#ACT
MOV I38 <$STR(I41)>
INC I38 <$STR(I40)>
INC I38 <$STR(I39)>
GMEXECUTE 开始提问 @猜点开始
INC I42 1
BREAK
#IF
EQUAL I42 68
#ACT
GMEXECUTE 开始提问 @赌博结帐
INC I42 1
BREAK
#IF
EQUAL I42 71
#ACT
GMEXECUTE 开始提问 @赌博清零
MOV A80
MOV A81
MOV A82
MOV A83
MOV A84
MOV A85
MOV A87 无
MOV A88 无
MOV I32 0
MOV I33 0
MOV I35 0
MOV I36 0
MOV I37 0
MOV I38 0
MOV I39 0
MOV I40 0
MOV I41 0
MOV I42 0
MOV I44 0
MOV I45 0
MOV I46 0
BREAK
#IF
#ACT
INC I42 1
BREAK
[@坐庄游戏B]
#IF
checkhum TXDGA 1
#ELSEACT
BREAK
#IF
SMALL I42 31
#ACT
MOV I43 31
DEC I43 <$STR(I42)>
#IF
LARGE I42 30
SMALL I42 61
#ACT
MOV I43 61
DEC I43 <$STR(I42)>
#IF
LARGE I42 60
#ACT
MOV I43 71
DEC I43 <$STR(I42)>
#IF
SMALL I42 62
#ACT
MOV I35 <$STR(I45)>
INC I35 <$STR(I44)>
MOV I36 <$STR(I46)>
INC I36 <$STR(I45)>
DEC I36 <$STR(I44)>
MOV I37 <$STR(I46)>
INC I37 <$STR(I44)>
DEC I37 <$STR(I45)>
[@坐庄游戏C]
#IF
checkhum TXDGA 1
#ELSEACT
BREAK
#IF
EQUAL I42 64
EQUAL I41 <$STR(I40)>
EQUAL I41 <$STR(I39)>
#ACT
MOV A87 豹子
mov A86 【<$STR(I39)>】【<$STR(I40)>】【<$STR(I41)>】点【<$STR(A87)>】
BREAK
#IF
EQUAL I42 64
SMALL I38 11
LARGE I38 0
#ACT
MOV A87 小
mov A86 【<$STR(I39)>】【<$STR(I40)>】【<$STR(I41)>】点【<$STR(A87)>】
BREAK
#IF
EQUAL I42 64
LARGE I38 10
#ACT
MOV A87 大
mov A86 【<$STR(I39)>】【<$STR(I40)>】【<$STR(I41)>】点【<$STR(A87)>】
BREAK
QManage.txt文件增加以下脚本
[@Login]
#IF
CHECKLEVELEX > 0
#ACT
VAR Integer HUMAN 赌博记录
[@返回庄家元宝]
#IF
CHECKVAR HUMAN 赌博记录 = <$STR(I46)>
ISONMAP TXDGA
EQUAL A88 <$USERNAME>
#ACT
GAMEGOLD + <$STR(I46)>
Calcvar HUMAN 赌博记录 = 0
MOV M33 0
MOV M34 0
MOV M35 0
MOV M36 0
MOV M37 0
MOV M39 0
MOV M40 0
MOV S23 无
break
[@抢庄开始]
#IF
ISONMAP TXDGA
#ACT
SENDMSG 7 美女服务生:现在开始抢庄，庄家本钱范围可以在100-30000元宝之间。
BREAK
[@抢庄结束]
#IF
ISONMAP TXDGA
EQUAL A88 <$USERNAME>
#ACT
mapmove TXDGA 9 10
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
SENDMSG 0 美女服务生:庄家【<$STR(A88)>】使用【<$STR(I46)>】元宝坐庄。
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
BREAK
[@下注开始]
#IF
ISONMAP TXDGA
#ACT
SENDMSG 7 美女服务生:抢庄已结束，现在开始下注了，庄家本钱共有<$STR(I46)>个元宝。
BREAK
[@下注结束]
#IF
ISONMAP TXDGA
LARGE M36 0
#ACT
SENDMSG 7 美女服务生:你下注【<$STR(M36)>】元宝押【<$STR(S23)>】
[@猜点开始]
#IF
ISONMAP TXDGA
LARGE M36 0
#ACT
MOV D0 <$STR(I39)>
MOV D1 <$STR(I40)>
MOV D2 <$STR(I41)>
PLAYDICE 3 @PLAYDICE
break
#IF
ISONMAP TXDGA
EQUAL A88 <$USERNAME>
#ACT
MOV D0 <$STR(I39)>
MOV D1 <$STR(I40)>
MOV D2 <$STR(I41)>
PLAYDICE 3 @PLAYDICE
break
[@PLAYDICE]
#IF
ISONMAP TXDGA
#ACT
SENDMSG 7 美女服务生:庄家【<$STR(A88)>】掷出了<$STR(A86)>
BREAK
[@赌博结帐]
#IF
ISONMAP TXDGA
#ACT
MOV S86 <$STR(A86)>
#ELSEACT
break
#IF
EQUAL D0 0
#ACT
break
#IF
EQUAL D1 0
#ACT
break
#IF
EQUAL D2 0
#ACT
break
#IF
LARGE I46 0
EQUAL A87 豹子
EQUAL A88 <$USERNAME>
#ACT
MOV M33 <$STR(I46)>
INC M33 <$STR(I45)>
INC M33 <$STR(I44)>
MOV M34 <$STR(I33)>
DIV M34 20
DEC M33 <$STR(M34)>
INC G99 <$STR(M34)>
DEC M33 <$STR(M34)>
INC G99 <$STR(M34)>
GAMEGOLD + <$STR(M33)>
SENDMSG 0 美女服务生:庄家【<$USERNAME>】掷出了<$STR(A87)>，通吃到【<$STR(M33)>】个元宝。
MOV M33 0
BREAK
#IF
LARGE I46 0
EQUAL A87 大
EQUAL A88 <$USERNAME>
#ACT
MOV M33 <$STR(I46)>
INC M33 <$STR(I44)>
DEC M33 <$STR(I45)>
MOV M34 <$STR(I33)>
DIV M34 20
INC G99 <$STR(M34)>
DEC M33 <$STR(M34)>
#IF
LARGE I46 0
EQUAL A87 小
EQUAL A88 <$USERNAME>
#ACT
MOV M33 <$STR(I46)>
INC M33 <$STR(I45)>
DEC M33 <$STR(I44)>
MOV M34 <$STR(I33)>
DIV M34 20
INC G99 <$STR(M34)>
DEC M33 <$STR(M34)>
#IF
LARGE I46 0
EQUAL A88 <$USERNAME>
LARGE M33 0
#ACT
GAMEGOLD + <$STR(M33)>
SENDMSG 0 美女服务生:庄家【<$USERNAME>】掷出了<$STR(A87)>，收回了【<$STR(M33)>】个元宝。
MOV M33 0
BREAK
#IF
LARGE I46 0
EQUAL A88 <$USERNAME>
#ACT
SENDMSG 0 美女服务生:庄家【<$USERNAME>】掷出了<$STR(A87)>，收回了【0】个元宝。
MOV M33 0
BREAK
#IF
LARGE I46 0
EQUAL A87 豹子
LARGE M36 0
#ACT
SENDMSG 7 美女服务生:你押<$STR(S23)>，很遗憾你输了<$STR(M36)>个元宝!
MOV M36 0
MOV S23 无
BREAK
#IF
LARGE I46 0
LARGE M36 0
EQUAL A87 大
EQUAL S23 大
#ACT
INC M36 <$STR(M36)>
MOV M34 <$STR(M36)>
DIV M34 20
DEC M36 <$STR(M34)>
INC G99 <$STR(M34)>
GAMEGOLD + <$STR(M36)>
DIV M36 2
SENDMSG 7 美女服务生:你押<$STR(S23)>，恭喜您赢到了<$STR(M36)>个元宝！
MOV M36 0
MOV S23 无
BREAK
#IF
LARGE I46 0
LARGE M36 0
EQUAL A87 小
EQUAL S23 小
#ACT
INC M36 <$STR(M36)>
MOV M34 <$STR(M36)>
DIV M34 20
DEC M36 <$STR(M34)>
INC G99 <$STR(M34)>
GAMEGOLD + <$STR(M36)>
DIV M36 2
SENDMSG 7 美女服务生:你押<$STR(S23)>，恭喜您赢到了<$STR(M36)>个元宝！
MOV M36 0
MOV S23 无
BREAK
#IF
LARGE I46 0
LARGE M36 0
EQUAL A87 小
EQUAL S23 大
#ACT
SENDMSG 7 美女服务生:你押<$STR(S23)>，很遗憾你输了<$STR(M36)>个元宝!
MOV M36 0
MOV S23 无
BREAK
#IF
LARGE I46 0
LARGE M36 0
EQUAL A87 大
EQUAL S23 小
#ACT
SENDMSG 7 美女服务生:你押<$STR(S23)>，很遗憾你输了<$STR(M36)>个元宝!
MOV M36 0
MOV S23 无
BREAK
#IF
LARGE M36 0
#ACT
SENDMSG 5 数据异常，I46：<$STR(I46)>，N36：<$STR(M36)>
SENDMSG 5 数据异常，A87：<$STR(A87)>
SENDMSG 5 数据异常，N36：<$STR(M36)>，S23：<$STR(S23)>
SENDMSG 5 数据异常，I39：<$STR(I39)>，I40：<$STR(I40)>，I41<$STR(I41)>
MOV M36 0
MOV S23 无
BREAK
[@赌博清零]
#IF
ISONMAP TXDGA
EQUAL A88 <$USERNAME>
#ACT
map TXDGA
#IF
ISONMAP TXDGA
#ACT
MOV M33 0
MOV M34 0
MOV M35 0
MOV M36 0
MOV M37 0
MOV M39 0
MOV M40 0
MOV M42 0
MOV S23 无
break
美女服务生-3.txt脚本如下
(@@InPutInteger)
%100
[@MAIN]
#IF
ISONMAP TXDGA
#act
mov p0 I46
inc p0 1
MOVR D3 2000
DelayGoto 1000 @MAIN
#elseact
MOV M35 0
MOV M36 0
MOV M37 0
MOV M38 0
MOV M39 0
MOV M40 0
MOV S23 无
close
break
#IF
SMALL p0 100
#act
mov p0 100
#IF
checklevel 10000
ISADMIN
#say
这是个猜点数游戏，你所拥有的元宝：【<$GAMEGOLD>】【<回城/@Over>】【<关闭/@关闭>】 \
庄家姓名:【<$STR(A88)>】 庄家本钱数:【<$STR(I46)>】 <清除记录/@清除记录> 库存：<$STR(G99)>\
╔┈┈┈┈╗ ╔┈┈┈┈╗ ╔┈┈┈┈╗ ╔┈┈┈┈╗\
┊<查看说明/@Help>┊ ┊<开始坐庄/@@InPutInteger40>┊ ┊<下注押大/@@InPutInteger37>┊ ┊<下注押小/@@InPutInteger35>┊\
╚┈┈┈┈╝ ╚┈┈┈┈╝ ╚┈┈┈┈╝ ╚┈┈┈┈╝\
已押大总金额：【<$STR(I45)>】 共可押大总金额：【<$STR(I33)>】\
已押小总金额：【<$STR(I44)>】 共可押小总金额：【<$STR(I32)>】\
你的下注情况：你下注【<$STR(M36)>】元宝押【<$STR(S23)>】 剩余时间：<$STR(I43)>\
提示：上把骰子掷出了 <$STR(S86)>\ \
<$STR(A80)>\
<$STR(A81)>\
<$STR(A82)>\
<$STR(A83)>\
<$STR(A84)>\
<$STR(A85)>\
#act
break
#IF
SMALL I42 30
#say
这是个猜点数游戏，你所拥有的元宝：【<$GAMEGOLD>】【<回城/@Over>】【<关闭/@关闭>】 \
庄家姓名:【<$STR(A88)>】 庄家本钱数:【<$STR(I46)>】 当前:【抢庄时间】\
╔┈┈┈┈╗ ╔┈┈┈┈╗ ╔┈┈┈┈╗ ╔┈┈┈┈╗\
┊<查看说明/@Help>┊ ┊<开始坐庄/@@InPutInteger40>┊ ┊下注押大┊ ┊下注押小┊\
╚┈┈┈┈╝ ╚┈┈┈┈╝ ╚┈┈┈┈╝ ╚┈┈┈┈╝\
已押大总金额：【<$STR(I45)>】 共可押大总金额：【<$STR(I33)>】\
已押小总金额：【<$STR(I44)>】 共可押小总金额：【<$STR(I32)>】\
你的下注情况：你下注【<$STR(M36)>】元宝押【<$STR(S23)>】 剩余时间：<$STR(I43)>秒\
提示：现在开始抢庄，做庄元宝输入范围在<$STR(p0)>-30000之间。\ \
<$STR(A80)>\
<$STR(A81)>\
<$STR(A82)>\
<$STR(A83)>\
<$STR(A84)>\
<$STR(A85)>\
#act
break
#IF
LARGE I42 30
SMALL I42 60
#say
这是个猜点数游戏，你所拥有的元宝：【<$GAMEGOLD>】【<回城/@Over>】【<关闭/@关闭>】 \
庄家姓名:【<$STR(A88)>】 庄家本钱数:【<$STR(I46)>】 当前:【下注时间】\
╔┈┈┈┈╗ ╔┈┈┈┈╗ ╔┈┈┈┈╗ ╔┈┈┈┈╗\
┊<查看说明/@Help>┊ ┊开始坐庄┊ ┊<下注押大/@@InPutInteger37>┊ ┊<下注押小/@@InPutInteger35>┊\
╚┈┈┈┈╝ ╚┈┈┈┈╝ ╚┈┈┈┈╝ ╚┈┈┈┈╝\
已押大总金额：【<$STR(I45)>】 共可押大总金额：【<$STR(I33)>】\
已押小总金额：【<$STR(I44)>】 共可押小总金额：【<$STR(I32)>】\
你的下注情况：你下注【<$STR(M36)>】元宝押【<$STR(S23)>】 剩余时间：<$STR(I43)>\
提示：上把骰子掷出了 <$STR(S86)>\ \
<$STR(A80)>\
<$STR(A81)>\
<$STR(A82)>\
<$STR(A83)>\
<$STR(A84)>\
<$STR(A85)>\
#act
break
#IF
#say
这是个猜点数游戏，你所拥有的元宝：【<$GAMEGOLD>】【<回城/@Over>】【<关闭/@关闭>】 \
庄家姓名:【<$STR(A88)>】 庄家本钱数:【<$STR(I46)>】 当前:【开局时间】\
╔┈┈┈┈╗ ╔┈┈┈┈╗ ╔┈┈┈┈╗ ╔┈┈┈┈╗\
┊<查看说明/@Help>┊ ┊开始坐庄┊ ┊下注押大┊ ┊下注押小┊\
╚┈┈┈┈╝ ╚┈┈┈┈╝ ╚┈┈┈┈╝ ╚┈┈┈┈╝\
已押大总金额：【<$STR(I45)>】 共可押大总金额：【<$STR(I33)>】\
已押小总金额：【<$STR(I44)>】 共可押小总金额：【<$STR(I32)>】\
你的下注情况：你下注【<$STR(M36)>】元宝押【<$STR(S23)>】 剩余时间：<$STR(I43)>\
猜点游戏规则：点数总和小于11小，大于10大，三个相同豹子。 \ \
<$STR(A80)>\
<$STR(A81)>\
<$STR(A82)>\
<$STR(A83)>\
<$STR(A84)>\
<$STR(A85)>\
#act
break
[@清除记录]
#act
mov G99 0
GOTO @MAIN
[@关闭]
#act
CLEARDELAYGOTO
close
[@@InPutInteger40]
#If
CHECKGAMEGOLD > 99
#Act
DelayGoto <$STR(D3)> ~InPutInteger40
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足100个。
MOV M40 0
GOTO @MAIN
BREAK
[~InPutInteger40]
#IF
LARGE I42 28
#ACT
MESSAGEBOX [提示]：抢庄时间已经结束。请等待开局！
MOV M40 0
GOTO @MAIN
BREAK
#IF
SMALL M40 100
#ACT
MESSAGEBOX [提示]：请输入100-30000之间的数字！
MOV M40 0
GOTO @MAIN
BREAK
#IF
LARGE M40 30000
#ACT
MESSAGEBOX [提示]：请输入100-30000之间的数字！
MOV M40 0
GOTO @MAIN
BREAK
#IF
EQUAL A88 <$USERNAME>
#ACT
MOV M40 0
MESSAGEBOX [提示]：你目前已经是庄家，无需再坐庄。
GOTO @MAIN
BREAK
#IF
EQUAL M39 2
#ACT
MOV M40 0
MESSAGEBOX [提示]：你已经下注押了大，无法坐庄！
GOTO @MAIN
BREAK
#IF
EQUAL M39 3
#ACT
MOV M40 0
MESSAGEBOX [提示]：你已经下注押了小，无法坐庄！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < <$STR(M40)>
#ACT
MESSAGEBOX [提示]：你身上的元宝不足<$STR(M40)>个。
MOV M40 0
GOTO @MAIN
BREAK
#IF
EQUAL A88 无
LARGE M40 <$STR(I46)>
#ACT
GAMEGOLD - <$STR(M40)>
MOV I46 <$STR(M40)>
MOV I33 <$STR(M40)>
MOV I32 <$STR(M40)>
MOV A88 <$USERNAME>
SendMSG 4 <$USERNAME>使用<$STR(M40)>个元宝坐庄
CLEARNAMELIST ..\QuestDiary\数据文件\赌博记录.txt
Calcvar HUMAN 赌博记录 = <$STR(M40)>
SAVEVAR HUMAN 赌博记录 ..\QuestDiary\数据文件\赌博记录.txt
MOV M40 0
GOTO @MAIN
BREAK
#IF
LARGE M40 <$STR(I46)>
#ACT
GMEXECUTE 开始提问 @返回庄家元宝
GAMEGOLD - <$STR(M40)>
MOV I46 <$STR(M40)>
MOV I33 <$STR(M40)>
MOV I32 <$STR(M40)>
SendMSG 4 <$USERNAME>使用<$STR(M40)>个元宝抢了<$STR(A88)>的庄
CLEARNAMELIST ..\QuestDiary\数据文件\赌博记录.txt
Calcvar HUMAN 赌博记录 = <$STR(M40)>
SAVEVAR HUMAN 赌博记录 ..\QuestDiary\数据文件\赌博记录.txt
MOV A88 <$USERNAME>
MOV M40 0
GOTO @MAIN
BREAK
#ELSEACT
MESSAGEBOX [提示]：你必须出多于<$STR(I46)>个元宝才能抢庄。
MOV M40 0
GOTO @MAIN
BREAK
[@@InPutInteger37]
#If
CHECKGAMEGOLD > 49
#Act
DelayGoto <$STR(D3)> ~InPutInteger37
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足50个。
MOV M37 0
GOTO @MAIN
BREAK
[~InPutInteger37]
#IF
LARGE I42 58
#ACT
MESSAGEBOX [提示]：下注时间已经结束。请等待开局！
MOV M37 0
GOTO @MAIN
BREAK
#IF
SMALL I42 31
#ACT
MESSAGEBOX [提示]：下注时间还没到，现在是抢庄时间。
MOV M37 0
GOTO @MAIN
BREAK
#IF
SMALL M37 50
#ACT
MESSAGEBOX [提示]：请输入一个50-5000之间的数值！
MOV M37 0
GOTO @MAIN
BREAK
#IF
LARGE M37 5000
#ACT
MESSAGEBOX [提示]：请输入一个50-5000之间的数值！
MOV M37 0
GOTO @MAIN
BREAK
#IF
EQUAL A88 无
#ACT
MESSAGEBOX [提示]：目前还没有庄家，请等待下一局下注！
MOV M37 0
GOTO @MAIN
BREAK
#IF
EQUAL A88 <$USERNAME>
#ACT
MOV M37 0
MESSAGEBOX [提示]：你目前已经是庄家，无法重复下注！
GOTO @MAIN
BREAK
#IF
EQUAL M39 2
#ACT
MOV M37 0
MESSAGEBOX [提示]：你已经使用<$STR(M36)>个元宝下注押大！
GOTO @MAIN
BREAK
#IF
EQUAL M39 3
#ACT
MOV M37 0
MESSAGEBOX [提示]：你已经下注押了小，无法再下注小！
GOTO @MAIN
BREAK
#IF
LARGE M37 <$STR(I33)>
#ACT
MOV M37 0
MESSAGEBOX [提示]：对不起，庄家的本钱已达到上限不够赔了。\ \目前你只可以下注<$STR(I33)>以下的元宝！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < <$STR(M37)>
#ACT
MESSAGEBOX [提示]：你身上的元宝不足<$STR(M37)>个。
MOV M37 0
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD ? <$STR(M37)>
#ACT
GAMEGOLD - <$STR(M37)>
INC I45 <$STR(M37)>
MOV M38 0
MOV M38 <$STR(I46)>
INC M38 <$STR(I45)>
dec M38 <$STR(I44)>
mov I32 <$STR(M38)>
MOV M38 0
MOV M38 <$STR(I46)>
INC M38 <$STR(I44)>
dec M38 <$STR(I45)>
mov I33 <$STR(M38)>
MOV M39 2
MOV S23 大
MOV M36 <$STR(M37)>
SendMSG 4 <$USERNAME>使用<$STR(M36)>个元宝下注押大
Calcvar HUMAN 赌博记录 = <$STR(M36)>
SAVEVAR HUMAN 赌博记录 ..\QuestDiary\数据文件\赌博记录.txt
MOV M37 0
DelayGoto 1 @tempadd
BREAK
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV M37 0
GOTO @MAIN
BREAK
[@@InPutInteger35]
#If
CHECKGAMEGOLD > 49
#Act
DelayGoto <$STR(D3)> ~InPutInteger35
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足50个。
MOV M35 0
GOTO @MAIN
BREAK
[~InPutInteger35]
#IF
LARGE I42 58
#ACT
MESSAGEBOX [提示]：下注时间已经结束。请等待开局！
MOV M35 0
GOTO @MAIN
BREAK
#IF
SMALL I42 31
#ACT
MESSAGEBOX [提示]：下注时间还没到，现在是抢庄时间。
MOV M35 0
GOTO @MAIN
BREAK
#IF
SMALL M35 50
#ACT
MESSAGEBOX [提示]：请输入一个50-5000之间的数值！
MOV M35 0
GOTO @MAIN
BREAK
#IF
LARGE M35 5000
#ACT
MESSAGEBOX [提示]：请输入一个50-5000之间的数值！
MOV M35 0
GOTO @MAIN
BREAK
#IF
EQUAL A88 无
#ACT
MOV M35 0
MESSAGEBOX [提示]：目前还没有庄家，请等待下一局下注！
GOTO @MAIN
BREAK
#IF
EQUAL A88 <$USERNAME>
#ACT
MOV M35 0
MESSAGEBOX [提示]：你目前已经是庄家，无法重复下注！
GOTO @MAIN
BREAK
#IF
EQUAL M39 2
#ACT
MOV M35 0
MESSAGEBOX [提示]：你已经下注押了大，无法再下注小！
GOTO @MAIN
BREAK
#IF
EQUAL M39 3
#ACT
MOV M35 0
MESSAGEBOX [提示]：你已经使用<$STR(M36)>个元宝下注押小。
GOTO @MAIN
BREAK
#IF
LARGE M35 <$STR(I32)>
#ACT
MOV M35 0
MESSAGEBOX [提示]：对不起，庄家的本钱已达到上限不够赔了。\ \目前你只可以下注【<$STR(I32)>】以下的元宝！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < <$STR(M35)>
#ACT
MESSAGEBOX [提示]：你身上的元宝不足<$STR(M35)>个。
MOV M35 0
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD ? <$STR(M35)>
#ACT
GAMEGOLD - <$STR(M35)>
INC I44 <$STR(M35)>
MOV M38 0
MOV M38 <$STR(I46)>
INC M38 <$STR(I45)>
dec M38 <$STR(I44)>
mov I32 <$STR(M38)>
MOV M38 0
MOV M38 <$STR(I46)>
INC M38 <$STR(I44)>
dec M38 <$STR(I45)>
mov I33 <$STR(M38)>
MOV M39 3
MOV S23 小
MOV M36 <$STR(M35)>
SendMSG 4 <$USERNAME>使用<$STR(M36)>个元宝下注押小
Calcvar HUMAN 赌博记录 = <$STR(M36)>
SAVEVAR HUMAN 赌博记录 ..\QuestDiary\数据文件\赌博记录.txt
MOV M35 0
DelayGoto 1 @tempadd
BREAK
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV M35 0
GOTO @MAIN
BREAK
[@tempadd]
#if
equal I44 0
equal I45 0
#act
GOTO @SETVIEW
BREAK
#if
equal I44 0
#act
inc I32 <$STR(G45)>
dec I33 <$STR(G44)>
GOTO @SETVIEW
BREAK
#if
equal I45 0
#act
inc I33 <$STR(G44)>
dec I32 <$STR(G45)>
GOTO @SETVIEW
BREAK
#if
CHECKLEVELEX > 0
#act
GOTO @SETVIEW
BREAK
[@SETVIEW]
#IF
EQUAL A80
#ACT
MOV A80 ⒈<$USERNAME>下注<$STR(M36)>元宝押【<$STR(S23)>】
DelayGoto 10 @main
break
#IF
EQUAL A81
#ACT
MOV A81 ⒉<$USERNAME>下注<$STR(M36)>元宝押【<$STR(S23)>】
DelayGoto 10 @main
break
#IF
EQUAL A82
#ACT
MOV A82 ⒊<$USERNAME>下注<$STR(M36)>元宝押【<$STR(S23)>】
DelayGoto 10 @main
break
#IF
EQUAL A83
#ACT
MOV A83 ⒋<$USERNAME>下注<$STR(M36)>元宝押【<$STR(S23)>】
DelayGoto 10 @main
break
#IF
EQUAL A84
#ACT
MOV A84 ⒌<$USERNAME>下注<$STR(M36)>元宝押【<$STR(S23)>】
DelayGoto 10 @main
break
#IF
EQUAL A85
#ACT
MOV A86 ⒍<$USERNAME>下注<$STR(M36)>元宝押【<$STR(S23)>】
DelayGoto 10 @main
break
#IF
CHECKLEVELEX > 0
#ACT
DelayGoto 10 @main
break
[@Over]
#say
离开本房间你的压注将被清除！\
您是否确定要回城？\ \
<是的/@Over1>\ \
<返回/@MAIN>
#act
CLEARDELAYGOTO
[@Over1]
#IF
CHECKLEVELEX > 0
#ACT
MOV M35 0
MOV M36 0
MOV M37 0
MOV M38 0
MOV M39 0
MOV M40 0
MOV S23
MapMove 3 330 330
BREAK
[@Help]
#say
猜点游戏规则：\
1)庄家坐庄后，其他玩家可下注，两分钟后三个骰子随机出现，\
点数总和小于10代表小，点数总和大于9代表大，三个点数相同\
代表豹子。\
2)押大赢大，押小赢小，豹子通吃，系统每次收取5%税务。\
3)正在坐庄或已下注的玩家如下线将被视做弃权，损失下注元宝。\
4)玩家下注数不能超过庄家坐庄的元宝总和。\
<返回/@MAIN>
#act
CLEARDELAYGOTO
美女庄家 TXDGA 8 10 美女服务生 0 13 0 0 0
[TXDGA|B012 押庄赌场] SAFE NORANDOMMOVE NORECONNECT(0159) NoRecall NoPositionMove NORANDOMMOVE NoGuildRecall NoDearRecall NOMasterRECALL NOTALLOWUSEMAGIC(瞬息移动) NOTALLOWUSEITEMS(盟重传送石|比奇传送石|地牢逃脱卷|行会回城卷|回城卷)
|
