爱尚论坛-传奇胖妞抢庄赌博完整脚本

爱尚论坛-传奇胖妞抢庄赌博完整脚本
首先添加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