红鹰论坛

 找回密码
 立即注册
查看: 1324|回复: 1

关于坐庄赌博脚本,求助各位,希望大家一起来讨论一下。

[复制链接]
 成长值: 13235

6576

主题

266

回帖

3万

积分

论坛管理员

Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17

积分
39622

推广达人宣传达人突出贡献优秀版主荣誉管理论坛元老

发表于 2014-3-9 10:02:01 | 显示全部楼层 |阅读模式
引擎:Leg引擎 m2 1108
介绍:三粒色子猜大小 出豹子庄家通吃 玩家坐庄
地图:B012
待处理问题:庄家不移动

一、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
二、NPC配置文件:
(@@InPutInteger)
[@MAIN]
#If
#Act
MOV N47 2
#SAY
欢迎光临,这里是抢庄猜点赌场,你所拥有的元宝:【<$GAMEGOLD>】\
庄家姓名:【<$STR(A34)>】 庄家本钱数:【<$STR(G29)>】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@Help>┊┊<开始抢庄/@@InPutInteger40>┊┊<下注押大/@@InPutInteger41>┊┊<下注押小/@@InPutInteger42>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
押大总金额:【<$STR(G13)>】           剩余时间:<$STR(G15)>\
押小总金额:【<$STR(G14)>】\
你的下注情况:你下注【<$STR(N43)>】元宝押【<$STR(S23)>】  <刷新/@MAIN>\
<提示:押大赢大,押小赢小,豹子通吃!本游戏系统不收取税金/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)玩家下注数不能超过庄家坐庄的元宝总和。\
<返回/@MAIN>  <离开/@EXIT>\
[@IsInFilterList]
#ACT
MESSAGEBOX [错误]:输入数据中包含了非法字符,请重新编辑!




上一篇:玛法骰王脚本
下一篇:韩版中变东皇使者脚本
请认真回贴,发垃圾贴,一律做封号处理。请到小黑屋申请解封.站长QQ:18341427QQ群:85527291
回复

举报

 成长值: 13235

6576

主题

266

回帖

3万

积分

论坛管理员

Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17

积分
39622

推广达人宣传达人突出贡献优秀版主荣誉管理论坛元老

发表于 2014-3-9 10:02:42 | 显示全部楼层
三、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
请认真回贴,发垃圾贴,一律做封号处理。请到小黑屋申请解封.站长QQ:18341427QQ群:85527291
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

新手推荐上一条 /1 下一条

传奇服务端|传奇一条龙|站点地图|手机版|gm基地|红鹰论坛 ( 冀ICP备2023015431号-1 )|网站地图

GMT+8, 2024-9-20 08:56

Powered by 传奇版本 X3.4

本站于2013年2月28日成立,至今运行: 天。本站所有资源均来自网络,严禁商业使用,请于24小时内删除!
快速回复 返回顶部 返回列表