[Gm版本库]传奇胖妞抢庄赌博完整脚本

首先添加NPC
\Mirserver\Mir200\Envir\MerChant.txt
一、NPC配置文件：
(@@InPutInteger)
[@MAIN]
#If
#Act
MOV N47 2
#SAY
欢迎光临，这里是抢庄猜点赌场，你所拥有的元宝：【<$GAMEGOLD>】\
庄家姓名：【<$STR(A34)>】　庄家本钱数：【<$STR(G29)>】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明[url=]/@Help[/url]>┊┊<开始抢庄[url=]/@@InPutInteger40[/url]>┊┊<下注押大[url=]/@@InPutInteger41[/url]>┊┊<下注押小[url=]/@@InPutInteger42>┊\[/url]
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
押大总金额：【<$STR(G13)>】　　　　　　　　　　　剩余时间：<$STR(G15)>\
押小总金额：【<$STR(G14)>】\
你的下注情况：你下注【<$STR(N43)>】元宝押【<$STR(S23)>】　　<刷新[url=]/@MAIN>\[/url]
<提示：押大赢大，押小赢小，豹子通吃！本游戏系统不收取税金/SCOLOR=245>\
<但若游戏时玩家单独掉线导致元宝无法收回情况服务器不负责任/SCOLOR=245>\
<╔┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╗/SCOLOR=243>\
<┊友情提示：游戏只为娱乐，小赌贻情，大赌伤身，切勿贪迷赌博。┊/SCOLOR=243>\
<╚┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╝/SCOLOR=243>\
[@@InPutInteger40]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger40
[~InPutInteger40]
#IF
LARGE G12 60
#ACT
MESSAGEBOX [提示]：抢庄时间已经结束。请等待开局！
MOV N40 0
GOTO @MAIN
BREAK
#IF
SMALL N40 100
#ACT
MESSAGEBOX [提示]：请输入100以上的数值！
MOV N40 0
GOTO @MAIN
BREAK
#IF
LARGE N40 30000
#ACT
MESSAGEBOX [提示]：请输入30000以下的数值！
MOV N40 0
GOTO @MAIN
BREAK
#IF
EQUAL A34 <$USERNAME>
#ACT
MOV N40 0
MESSAGEBOX [提示]：你目前已经是庄家，无法重复坐庄。
GOTO @MAIN
BREAK
#IF
EQUAL N45 2
#ACT
MOV N40 0
MESSAGEBOX [提示]：你已经下注押了大，无法坐庄！
GOTO @MAIN
BREAK
#IF
EQUAL N45 3
#ACT
MOV N40 0
MESSAGEBOX [提示]：你已经下注押了小，无法坐庄！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < <$STR(N40)>
#ACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV N40 0
GOTO @MAIN
BREAK
#IF
LARGE N40 <$STR(G29)>
#ACT
GMEXECUTE 元宝 <$STR(A34)> + <$STR(G29)>
GAMEGOLD - <$STR(N40)>
MOV G29 <$STR(N40)>
SendMSG 4 %s使用<$STR(N40)>个元宝坐庄。
SendMSG 1 [赌庄胖妞]：玩家【%s】使用【<$STR(N40)>】个元宝坐庄。
MOV A34 <$USERNAME>
MOV N43 1
GOTO @MAIN
MESSAGEBOX [提示]：使用【<$STR(N40)>】个元宝坐庄。
BREAK
#ELSEACT
MESSAGEBOX [提示]：你必须出多于【<$STR(G29)>】个元宝才能抢庄。
MOV N40 0
GOTO @MAIN
BREAK
[@@InPutInteger41]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger41
[~InPutInteger41]
#IF
LARGE G12 120
#ACT
MESSAGEBOX [提示]：下注时间已经结束。请等待开局！
MOV N41 0
GOTO @MAIN
BREAK
#IF
SMALL G12 61
#ACT
MESSAGEBOX [提示]：下注时间还没到，现在是抢庄时间。
MOV N41 0
GOTO @MAIN
BREAK
#IF
SMALL N41 1
#ACT
MESSAGEBOX [提示]：请输入1以上的数值！
MOV N41 0
GOTO @MAIN
BREAK
#IF
EQUAL A34 <$USERNAME>
#ACT
MOV N40 0
MESSAGEBOX [提示]：你目前已经是庄家，无法下注。
GOTO @MAIN
BREAK
#IF
EQUAL N45 2
#ACT
MOV N41 0
MESSAGEBOX [提示]：你已经下注押了大，无法重复下注！
GOTO @MAIN
BREAK
#IF
EQUAL N45 3
#ACT
MOV N41 0
MESSAGEBOX [提示]：你已经下注押了小，无法重复下注！
GOTO @MAIN
BREAK
#IF
LARGE N41 <$STR(G16)>
#ACT
MOV N41 0
MESSAGEBOX [提示]：对不起，庄家的本钱已达到上线不够赔了。\　　　　\目前你只可以下注【<$STR(G16)>】以下的元宝！
GOTO @MAIN
BREAK
#IF
EQUAL G18 1
#ACT
MOV N40 0
MESSAGEBOX [提示]：请重新输入。
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > <$STR(N41)>
#ACT
MOV G18 1
MOV N45 2
MOV S23 大
GAMEGOLD - <$STR(N41)>
MOV N43 <$STR(N41)>
INC G13 <$STR(N43)>
SendMSG 4 %s使用<$STR(N41)>个元宝下注押大。
GOTO @MAIN
MESSAGEBOX [提示]：使用【<$STR(N41)>】个元宝下注押大。
MOV N41 0
BREAK
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV N41 0
GOTO @MAIN
BREAK
[@@InPutInteger42]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger42
[~InPutInteger42]
#IF
LARGE G12 120
#ACT
MESSAGEBOX [提示]：下注时间已经结束。请等待开局！
MOV N42 0
GOTO @MAIN
BREAK
#IF
SMALL G12 61
#ACT
MESSAGEBOX [提示]：下注时间还没到，现在是抢庄时间。
MOV N42 0
GOTO @MAIN
BREAK
#IF
SMALL N42 1
#ACT
MESSAGEBOX [提示]：请输入1以上的数值！
MOV N42 0
GOTO @MAIN
BREAK
#IF
EQUAL A34 <$USERNAME>
#ACT
MOV N40 0
MESSAGEBOX [提示]：你目前已经是庄家，无法重复坐庄。
GOTO @MAIN
BREAK
#IF
EQUAL N45 2
#ACT
MOV N42 0
MESSAGEBOX [提示]：你已经下注押了大，无法重复下注！
GOTO @MAIN
BREAK
#IF
EQUAL N45 3
#ACT
MOV N42 0
MESSAGEBOX [提示]：你已经下注押了小，无法重复下注！
GOTO @MAIN
BREAK
#IF
LARGE N42 <$STR(G17)>
#ACT
MOV N42 0
MESSAGEBOX [提示]：对不起，庄家的本钱已达到上线不够赔了。\　　　　\目前你只可以下注【<$STR(G17)>】以下的元宝！
GOTO @MAIN
BREAK
#IF
EQUAL G19 1
#ACT
MOV N40 0
MESSAGEBOX [提示]：请重新输入。
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > <$STR(N42)>
#ACT
MOV G19 1
MOV N45 3
MOV S23 小
GAMEGOLD - <$STR(N42)>
MOV N43 <$STR(N42)>
INC G14 <$STR(N43)>
SendMSG 4 %s使用<$STR(N42)>个元宝下注押小。
GOTO @MAIN
MESSAGEBOX [提示]：使用【<$STR(N42)>】个元宝下注押小。
MOV N42 0
BREAK
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV N42 0
GOTO @MAIN
BREAK
[@Over]
#IF
#ACT
MapMove 3 330 330
BREAK
[@Help]
猜点游戏规则：\
(1)庄家坐庄后，其他玩家可下注，两分钟后三个骰子由庄家掷出，\
?骰子点数随机出现点数总和小于11代表小，点数总和大于10代表\
?大，三个点数相同代表豹子。\
(2)押大赢大，押小赢小，豹子通吃！本游戏系统不收取税金。\
(3)正在坐庄或已下注的玩家如下线将被视做弃权，损失下注元宝。\
(4)玩家下注数不能超过庄家坐庄的元宝总和。\
<返回[url=]/@MAIN[/url]>　　<离开[url=]/@EXIT>\[/url]
[@IsInFilterList]
#ACT
MESSAGEBOX [错误]：输入数据中包含了非法字符，请重新编辑!
二、QManage.txt:
[@抢庄开始]
#IF
LARGE N47 0
#ACT
SENDMSG 6 [赌庄胖妞]：现在开始抢庄了，庄家本钱必须超过100元宝。
SENDMSG 6 [赌庄胖妞]：现在开始抢庄了，庄家本钱必须超过100元宝。
SENDMSG 6 [赌庄胖妞]：现在开始抢庄了，庄家本钱必须超过100元宝。
SENDMSG 6 [赌庄胖妞]：现在开始抢庄了，庄家本钱必须超过100元宝。
BREAK
[@移动庄家]
#IF
EQUAL A34 <$USERNAME>
EQUAL G12 59
#ACT
MAPMOVE BO12 8 10
BREAK
#IF
EQUAL A34 <$USERNAME>
#ACT
MAPMOVE BO12 5 11
BREAK
[@抢庄结束]
#IF
LARGE N47 0
#ACT
SENDMSG 6 ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
SENDMSG 6 [赌庄胖妞]：抢庄已结束。现在是下注时间，押定离手了。
SENDMSG 6 ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
SENDMSG 6 庄家姓名：【<$STR(A34)>】　庄家本钱数：【<$STR(G29)>】
SENDMSG 6 ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
BREAK
[@下注开始]
#IF
LARGE N47 0
#ACT
SENDMSG 6 [赌庄胖妞]：现在开始下注了，庄家本钱共有<$STR(G29)>个元宝。
SENDMSG 6 [赌庄胖妞]：现在开始下注了，庄家本钱共有<$STR(G29)>个元宝。
SENDMSG 6 [赌庄胖妞]：现在开始下注了，庄家本钱共有<$STR(G29)>个元宝。
SENDMSG 6 [赌庄胖妞]：现在开始下注了，庄家本钱共有<$STR(G29)>个元宝。
BREAK
[@下注结束]
#IF
LARGE N47 0
LARGE N43 0
#ACT
SENDMSG 7 [提示]：本局你下注【<$STR(N43)>】元宝押【<$STR(S23)>】
SENDMSG 7 [提示]：本局你下注【<$STR(N43)>】元宝押【<$STR(S23)>】
SENDMSG 7 [提示]：本局你下注【<$STR(N43)>】元宝押【<$STR(S23)>】
SENDMSG 7 [提示]：本局你下注【<$STR(N43)>】元宝押【<$STR(S23)>】
BREAK
[@猜点开始]
#IF
LARGE N47 0
LARGE N43 0
#ACT
MOV D0 <$STR(G42)>
MOV D1 <$STR(G43)>
MOV D2 <$STR(G44)>
PLAYDICE 3 @ZZNEW
#SAY
　\
╔═══════════════╗你所拥有的元宝数：【<$GAMEGOLD>】\
║┏━━━┓┏━━━┓┏━━━┓║\
║┃●　●┃┃●　●┃┃●　●┃║庄家姓名：【<$STR(A34)>】\
║┃●　●┃┃●　●┃┃●　●┃║\
║┃●　●┃┃●　●┃┃●　●┃║庄家本钱数：【<$STR(G29)>】\
║┗━━━┛┗━━━┛┗━━━┛║\
╚═══════════════╝你下注【<$STR(N43)>】元宝押【<$STR(S23)>】\
　\
[@ZZNEW]
#IF
EQUAL G42 <$STR(G43)>
EQUAL G42 <$STR(G44)>
#ACT
SENDMSG 7 [赌庄胖妞]：骰子掷出了【<$STR(G42)>】【<$STR(G43)>】【<$STR(G44)>】点【豹子】
SENDMSG 7 [赌庄胖妞]：骰子掷出了【<$STR(G42)>】【<$STR(G43)>】【<$STR(G44)>】点【豹子】
BREAK
#IF
SMALL G45 11
#ACT
SENDMSG 7 [赌庄胖妞]：骰子掷出了【<$STR(G42)>】【<$STR(G43)>】【<$STR(G44)>】点【小】
SENDMSG 7 [赌庄胖妞]：骰子掷出了【<$STR(G42)>】【<$STR(G43)>】【<$STR(G44)>】点【小】
BREAK
#IF
LARGE G45 10
#ACT
SENDMSG 7 [赌庄胖妞]：骰子掷出了【<$STR(G42)>】【<$STR(G43)>】【<$STR(G44)>】点【大】
SENDMSG 7 [赌庄胖妞]：骰子掷出了【<$STR(G42)>】【<$STR(G43)>】【<$STR(G44)>】点【大】
BREAK
[@赌博结帐]
#IF
LARGE N47 0
EQUAL A33 豹子
EQUAL A34 <$USERNAME>
#ACT
INC G11 <$STR(G29)>
GAMEGOLD + <$STR(G11)>
SENDMSG 0 [赌庄胖妞]：庄家【<$USERNAME>】赢得了【<$STR(G11)>】个元宝。
BREAK
#IF
LARGE N47 0
EQUAL A33 大
EQUAL A34 <$USERNAME>
#ACT
INC G29 <$STR(G14)>
DEC G29 <$STR(G13)>
GAMEGOLD + <$STR(G29)>
SENDMSG 0 [赌庄胖妞]：庄家【<$USERNAME>】收回了【<$STR(G29)>】个元宝。
BREAK
#IF
LARGE N47 0
EQUAL A33 小
EQUAL A34 <$USERNAME>
#ACT
INC G29 <$STR(G13)>
DEC G29 <$STR(G14)>
GAMEGOLD + <$STR(G29)>
SENDMSG 0 [赌庄胖妞]：庄家【<$USERNAME>】收回了【<$STR(G29)>】个元宝。
BREAK
#IF
LARGE N47 0
EQUAL A33 豹子
LARGE N43 0
#ACT
SENDMSG 6 庄家【<$STR(A34)>】掷出了【<$STR(A33)>】，你损失了【<$STR(N43)>】个元宝注金。
MOV N43 0
MOV S23 无
BREAK
#IF
LARGE N47 0
EQUAL A33 大
EQUAL S23 大
#ACT
INC N43 <$STR(N43)>
GAMEGOLD + <$STR(N43)>
SENDMSG 6 庄家【<$STR(A34)>】掷出了【<$STR(A33)>】，你赢得了【<$STR(N43)>】个元宝注金。
MOV N43 0
MOV S23 无
BREAK
#IF
LARGE N47 0
EQUAL A33 小
EQUAL S23 小
#ACT
INC N43 <$STR(N43)>
GAMEGOLD + <$STR(N43)>
SENDMSG 6 庄家【<$STR(A34)>】掷出了【<$STR(A33)>】，你赢得了【<$STR(N43)>】个元宝注金。
MOV N43 0
MOV S23 无
BREAK
#IF
LARGE N47 0
LARGE N43 0
#ACT
SENDMSG 6 庄家【<$STR(A34)>】掷出了【<$STR(A33)>】，你损失了【<$STR(N43)>】个元宝注金。
MOV N43 0
MOV S23 无
BREAK
[@赌博清零]
#IF
LARGE N47 0
#ACT
MOV N40 0
MOV N41 0
MOV N42 0
MOV N43 0
MOV N44 0
MOV N45 0
MOV S23 无
BREAK

三、AutoRunRobot.txt：
#AutoRun NPC SEC 1 @坐庄游戏C
#AutoRun NPC SEC 1 @坐庄游戏B
#AutoRun NPC SEC 1 @坐庄游戏A

四、RobotManage.txt：
[@坐庄游戏A]
#IF
EQUAL G12 0
#ACT
GMEXECUTE 开始提问 @抢庄开始
INC G12 1
BREAK
#IF
EQUAL G12 60
#ACT
GMEXECUTE 开始提问 @抢庄结束
INC G12 1
BREAK
#IF
EQUAL G12 61
#ACT
GMEXECUTE 开始提问 @下注开始
GMEXECUTE 开始提问 @移动庄家
INC G12 1
BREAK
#IF
EQUAL G12 117
#ACT
GMEXECUTE 开始提问 @下注结束
INC G12 1
BREAK
#IF
EQUAL G12 118
#ACT
MOVR G42 6
inc G42 1
MOVR G43 6
inc G43 1
MOVR G44 6
inc G44 1
MOV G45 <$STR(G42)>
INC G45 <$STR(G43)>
INC G45 <$STR(G44)>
INC G12 1
BREAK
#IF
EQUAL G12 119
EQUAL G455 1
#ACT
MOV G42 2
MOV G43 1
MOV G44 3
MOV G45 <$STR(G42)>
INC G45 <$STR(G43)>
INC G45 <$STR(G44)>
MOV G455 0
INC G12 1
BREAK
#IF
EQUAL G12 120
#ACT
GMEXECUTE 开始提问 @猜点开始
INC G12 1
BREAK
#IF
EQUAL G12 126
#ACT
GMEXECUTE 开始提问 @赌博结帐
INC G12 1
BREAK
#IF
EQUAL G12 128
#ACT
GMEXECUTE 开始提问 @赌博清零
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
BREAK
#IF
EQUAL G12 130
#ACT
MOV A34 无
MOV G12 0
BREAK
#IF
#ACT
INC G12 1
BREAK
[@坐庄游戏B]
#IF
#ACT
MOV G18 0
MOV G19 0
MOV G15 130
DEC G15 <$STR(G12)>
MOV G11 <$STR(G13)>
INC G11 <$STR(G14)>
MOV G16 <$STR(G29)>
INC G16 <$STR(G14)>
DEC G16 <$STR(G13)>
MOV G17 <$STR(G29)>
INC G17 <$STR(G13)>
DEC G17 <$STR(G14)>
BREAK
[@坐庄游戏C]
#IF
EQUAL G12 122
EQUAL G42 <$STR(G43)>
EQUAL G42 <$STR(G44)>
#ACT
MOV A33 豹子
BREAK
#IF
EQUAL G12 122
SMALL G45 11
#ACT
MOV A33 小
BREAK
#IF
EQUAL G12 122
LARGE G45 10
#ACT
MOV A33 大
BREAK

设置完毕以后如果时间仍然不能运行 那么在下面文本添加：
\Mirserver\Mir200\Envir\Robot_def\test.txt
#AutoRun NPC SEC 1 @坐庄游戏C
#AutoRun NPC SEC 1 @坐庄游戏B
#AutoRun NPC SEC 1 @坐庄游戏A