赌博坐庄带税完整脚本-Legendm2引擎

[复制链接]
查看6425 | 回复46 | 2016-3-2 19:54:28 | 显示全部楼层 |阅读模式
(@@InPutInteger)
[@MAIN]
#IF
HOUR 00 16
MIN 00 59
#ACT
BREAK
#SAY
<玩家坐庄>开放时间17:00-19:59和22:00-23:59分!\ \
<系统坐庄>开放中 → <系统坐庄/@系统坐>\
#IF
HOUR 20 21
MIN 00 59
#ACT
BREAK
#SAY
玩家坐庄开放时间17:00-19:59和22:00-23:59分!\ \
系统坐庄开放中 → <系统坐庄/@系统坐>\
#IF
ISADMIN
SMALL I12 59
#SAY
欢迎光临,这里是抢庄猜点赌场,你所拥有的元宝:【<$GAMEGOLD>】\
庄家姓名:【<$STR(A41)>】 庄家本钱数:【<$STR(I31)>】 I27:<$STR(I27)> I28:<$STR(I28)> \
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@Help>┊┊<开始抢庄/@@InPutInteger40>┊┊<下注押大/@@InPutInteger41>┊┊<下注押小/@@InPutInteger42>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
押大总金额:【<$STR(I13)>】          抢庄时间:剩余:<$STR(I10)>\
押小总金额:【<$STR(I14)>】                 <设置税率/@设置税率>\
你的下注情况:你下注【<$STR(M43)>】元宝押【<$STR(S28)>】      <刷新/@MAIN>\
<设置骰子1的点数/@A>:<$STR(I64)>,<骰子2的点数/@B>:<$STR(I65)>,<骰子3的点数/@C>:<$STR(I66)>\
<COLOR=clAqua 请同时设置3个骰子的点数,并且在开出点数前设置完成,>\
<COLOR=clAqua 如果在设置中途,系统进行摇骰子,那你设置的点数将作废,点数归零,>\
<COLOR=clAqua 同时设置3个骰子的点数后,请耐心等待倒计时结束后系统自动开点。>\
<COLOR=clAqua 当前税率:><$STR(H30)>%,注意税率不能为0%,否则会出错!\
#ACT
MOV M47 2
BREAK
#IF
ISADMIN
LARGE I12 60
SMALL I12 117
#SAY
欢迎光临,这里是抢庄猜点赌场,你所拥有的元宝:【<$GAMEGOLD>】\
庄家姓名:【<$STR(A41)>】 庄家本钱数:【<$STR(I31)>】 I27:<$STR(I27)> I28:<$STR(I28)> \
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@Help>┊┊<开始抢庄/@@InPutInteger40>┊┊<下注押大/@@InPutInteger41>┊┊<下注押小/@@InPutInteger42>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
押大总金额:【<$STR(I13)>】          押注时间:剩余:<$STR(I10)>\
押小总金额:【<$STR(I14)>】                 <设置税率/@设置税率>\
你的下注情况:你下注【<$STR(M43)>】元宝押【<$STR(S28)>】      <刷新/@MAIN>\
<设置骰子1的点数/@A>:<$STR(I64)>,<骰子2的点数/@B>:<$STR(I65)>,<骰子3的点数/@C>:<$STR(I66)>\
<COLOR=clAqua 请同时设置3个骰子的点数,并且在开出点数前设置完成,>\
<COLOR=clAqua 如果在设置中途,系统进行摇骰子,那你设置的点数将作废,点数归零,>\
<COLOR=clAqua 同时设置3个骰子的点数后,请耐心等待倒计时结束后系统自动开点。>\
<COLOR=clAqua 当前税率:><$STR(H30)>%,注意税率不能为0%,否则会出错!\
#ACT
MOV M47 2
BREAK
#IF
ISADMIN
LARGE I12 116
#SAY
欢迎光临,这里是抢庄猜点赌场,你所拥有的元宝:【<$GAMEGOLD>】\
庄家姓名:【<$STR(A41)>】 庄家本钱数:【<$STR(I31)>】 I27:<$STR(I27)> I28:<$STR(I28)> \
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@Help>┊┊<开始抢庄/@@InPutInteger40>┊┊<下注押大/@@InPutInteger41>┊┊<下注押小/@@InPutInteger42>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
押大总金额:【<$STR(I13)>】          等待开局:剩余:<$STR(I10)>\
押小总金额:【<$STR(I14)>】                 <设置税率/@设置税率>\
你的下注情况:你下注【<$STR(M43)>】元宝押【<$STR(S28)>】      <刷新/@MAIN>\
<设置骰子1的点数/@A>:<$STR(I64)>,<骰子2的点数/@B>:<$STR(I65)>,<骰子3的点数/@C>:<$STR(I66)>\
<COLOR=clAqua 请同时设置3个骰子的点数,并且在开出点数前设置完成,>\
<COLOR=clAqua 如果在设置中途,系统进行摇骰子,那你设置的点数将作废,点数归零,>\
<COLOR=clAqua 同时设置3个骰子的点数后,请耐心等待倒计时结束后系统自动开点。>\
<COLOR=clAqua 当前税率:><$STR(H30)>%,注意税率不能为0%,否则会出错!\
#ACT
MOV M47 2
BREAK

#IF
SMALL I12 59
#SAY
欢迎光临,这里是抢庄猜点赌场,你所拥有的元宝:【<$GAMEGOLD>】\
庄家姓名:【<$STR(A41)>】 庄家本钱数:【<$STR(I31)>】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@Help>┊┊<开始抢庄/@@InPutInteger40>┊┊<下注押大/@@InPutInteger41>┊┊<下注押小/@@InPutInteger42>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
押大总金额:【<$STR(I13)>】          抢庄时间:剩余:<$STR(I10)>\
押小总金额:【<$STR(I14)>】\
你的下注情况:你下注【<$STR(M43)>】元宝押【<$STR(S28)>】      <刷新/@MAIN>\
<提示:押大赢大,押小赢小,豹子通吃!> 每局收取税率:<$STR(H30)>%\
<但若游戏时玩家单独掉线导致元宝无法收回情况服务器不负责任>\
<COLOR=clAqua ╔┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╗>\
<COLOR=clAqua ┊友情提示:游戏只为娱乐,小赌贻情,大赌伤身,切勿贪迷赌博。┊>\
<COLOR=clAqua ╚┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╝>\
#Act
MOV M47 2
BREAK
#IF
LARGE I12 60
SMALL I12 117
#SAY
欢迎光临,这里是抢庄猜点赌场,你所拥有的元宝:【<$GAMEGOLD>】\
庄家姓名:【<$STR(A41)>】 庄家本钱数:【<$STR(I31)>】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@Help>┊┊<开始抢庄/@@InPutInteger40>┊┊<下注押大/@@InPutInteger41>┊┊<下注押小/@@InPutInteger42>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
押大总金额:【<$STR(I13)>】          押注时间:剩余:<$STR(I10)>\
押小总金额:【<$STR(I14)>】\
你的下注情况:你下注【<$STR(M43)>】元宝押【<$STR(S28)>】      <刷新/@MAIN>\
<提示:押大赢大,押小赢小,豹子通吃!> 每局收取税率:<$STR(H30)>%\
<但若游戏时玩家单独掉线导致元宝无法收回情况服务器不负责任>\
<COLOR=clAqua ╔┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╗>\
<COLOR=clAqua ┊友情提示:游戏只为娱乐,小赌贻情,大赌伤身,切勿贪迷赌博。┊>\
<COLOR=clAqua ╚┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╝>\
#Act
MOV M47 2
BREAK
#IF
LARGE I12 116
#SAY
欢迎光临,这里是抢庄猜点赌场,你所拥有的元宝:【<$GAMEGOLD>】\
庄家姓名:【<$STR(A41)>】 庄家本钱数:【<$STR(I31)>】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@Help>┊┊<开始抢庄/@@InPutInteger40>┊┊<下注押大/@@InPutInteger41>┊┊<下注押小/@@InPutInteger42>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
押大总金额:【<$STR(I13)>】          等待开局:剩余:<$STR(I10)>\
押小总金额:【<$STR(I14)>】\
你的下注情况:你下注【<$STR(M43)>】元宝押【<$STR(S28)>】      <刷新/@MAIN>\
<提示:押大赢大,押小赢小,豹子通吃!> 每局收取税率:<$STR(H30)>%\
<但若游戏时玩家单独掉线导致元宝无法收回情况服务器不负责任>\
<COLOR=clAqua ╔┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╗>\
<COLOR=clAqua ┊友情提示:游戏只为娱乐,小赌贻情,大赌伤身,切勿贪迷赌博。┊>\
<COLOR=clAqua ╚┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╝>\
#Act
MOV M47 2
BREAK

[@系统坐]
#IF
#ACT
map 0148
SendMSG 7 祝你金玉满盆!
break

[@设置税率]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 2 ~设置税率2 请输入具体点数: NPC
BREAK

[~设置税率2]
#IF
Small M99 1
#ACT
MOV M99 0
MESSAGEBOX 请输入1-99,否者打你屁股!
DELAYCALL 1 @MAIN
BREAK

#IF
Large M99 99
#ACT
MOV M99 0
MESSAGEBOX 请输入1-99,否者打你屁股!
DELAYCALL 1 @MAIN
BREAK

#IF
ISADMIN
#ACT
MOV H30 <$STR(M99)>
DELAYCALL 1 @MAIN
BREAK

[@A]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 1 ~A 请输入骰子1的具体点数(1-6): NPC
BREAK

[~A]
#IF
Small M99 1
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6,这6个数字,否者打你屁股!
DELAYCALL 1 @MAIN
BREAK

#IF
Large M99 6
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6,这6个数字,否者打你屁股!
DELAYCALL 1 @MAIN
BREAK

#IF
ISADMIN
#ACT
MOV I64 <$STR(M99)>
DELAYCALL 1 @MAIN
BREAK

[@B]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 1 ~B 请输入骰子1的具体点数(1-6): NPC
BREAK

[~B]
#IF
Small M99 1
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6,这6个数字,否者打你屁股!
DELAYCALL 1 @MAIN
BREAK

#IF
Large M99 6
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6,这6个数字,否者打你屁股!
DELAYCALL 1 @MAIN
BREAK

#IF
ISADMIN
#ACT
MOV I65 <$STR(M99)>
DELAYCALL 1 @MAIN
BREAK

#IF
ISADMIN
#ACT
MOV I65 <$STR(M99)>
DELAYCALL 1 @MAIN
BREAK

[@C]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 1 ~C 请输入骰子1的具体点数(1-6): NPC
BREAK

[~C]
#IF
Small M99 1
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6,这6个数字,否者打你屁股!
DELAYCALL 1 @MAIN
BREAK

#IF
Large M99 6
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6,这6个数字,否者打你屁股!
DELAYCALL 1 @MAIN
BREAK

#IF
ISADMIN
#ACT
MOV I66 <$STR(M99)>
DELAYCALL 1 @MAIN
BREAK

#IF
ISADMIN
#ACT
MOV I66 <$STR(M99)>
DELAYCALL 1 @MAIN
BREAK

[@@InPutInteger40]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger40
[~InPutInteger40]
#IF
CheckGameGold > <$STR(M40)>
#ACT
Goto @元宝充足
#ELSEACT
MESSAGEBOX [提示]:你身上的元宝不足。
MOV M40 0
GOTO @MAIN
BREAK

[@元宝充足]
#IF
LARGE I12 60
#ACT
MESSAGEBOX [提示]:抢庄时间已经结束。请等待开局!
MOV M40 0
GOTO @MAIN
BREAK
#IF
SMALL M40 200
#ACT
MESSAGEBOX [提示]:请输入200以上的数值!
MOV M40 0
GOTO @MAIN
BREAK
#IF
LARGE M40 100000
#ACT
MESSAGEBOX [提示]:请输入100000以下的数值!
MOV M40 0
GOTO @MAIN
BREAK
#IF
EQUAL A41 <$USERNAME>
#ACT
MOV M40 0
MESSAGEBOX [提示]:你目前已经是庄家,无法重复坐庄。
GOTO @MAIN
BREAK
#IF
EQUAL M45 2
#ACT
MOV M40 0
MESSAGEBOX [提示]:你已经下注押了大,无法坐庄!
GOTO @MAIN
BREAK
#IF
EQUAL M45 3
#ACT
MOV M40 0
MESSAGEBOX [提示]:你已经下注押了小,无法坐庄!
GOTO @MAIN
BREAK
#IF
LARGE M40 <$STR(I31)>
#ACT
$STR(A41).MOV S28 无
$STR(A41).MOV M43 0
$STR(A41).GAMEGOLD + <$STR(I31)>
GAMEGOLD - <$STR(M40)>
MOV I31 <$STR(M40)>
MOV I27 <$STR(M40)>
MOV I28 <$STR(M40)>
SendMSG 4 %s使用<$STR(M40)>个元宝坐庄。
SendMSG 1 [美女庄家]:玩家【%s】使用【<$STR(M40)>】个元宝坐庄。 254 252
MOV A41 <$USERNAME>
MOV M43 <$STR(M40)>
MOV S28 庄
GOTO @MAIN
MESSAGEBOX [提示]:使用【<$STR(M40)>】个元宝坐庄。
BREAK
#ELSEACT
MESSAGEBOX [提示]:你必须出多于【<$STR(I31)>】个元宝才能抢庄。
MOV M40 0
GOTO @MAIN
BREAK

[@@InPutInteger41]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger41
[~InPutInteger41]
#IF
LARGE I12 120
#ACT
MESSAGEBOX [提示]:下注时间已经结束。请等待开局!
MOV M41 0
GOTO @MAIN
BREAK
#IF
SMALL I12 61
#ACT
MESSAGEBOX [提示]:下注时间还没到,现在是抢庄时间。
MOV M41 0
GOTO @MAIN
BREAK
#IF
SMALL M41 100
#ACT
MESSAGEBOX [提示]:请输入100以上的数值!
MOV M41 0
GOTO @MAIN
BREAK
#IF
EQUAL A41 <$USERNAME>
#ACT
MOV M40 0
MESSAGEBOX [提示]:你目前已经是庄家,无法下注。
GOTO @MAIN
BREAK
#IF
EQUAL M45 2
#ACT
MOV M41 0
MESSAGEBOX [提示]:你已经下注押了大,无法重复下注!
GOTO @MAIN
BREAK
#IF
EQUAL M45 3
#ACT
MOV M41 0
MESSAGEBOX [提示]:你已经下注押了小,无法重复下注!
GOTO @MAIN
BREAK
#IF
LARGE M41 <$STR(I28)>
#ACT
MOV M41 0
MESSAGEBOX [提示]:对不起,庄家的本钱已达到上线不够赔了。\    \目前你只可以下注【<$STR(I28)>】以下的元宝!
GOTO @MAIN
BREAK
#IF
EQUAL I18 1
#ACT
MOV M40 0
MESSAGEBOX [提示]:请重新输入。
GOTO @MAIN
BREAK
#IF
CheckGameGold > <$STR(M41)>
#ACT
MOV I18 1
MOV M45 2
MOV S28 大
GAMEGOLD - <$STR(M41)>
MOV M43 <$STR(M41)>
INC I13 <$STR(M43)>
INC I27 <$STR(M43)>
DEC I28 <$STR(M43)>
SendMSG 4 %s使用<$STR(M41)>个元宝下注押大。
GOTO @MAIN
MESSAGEBOX [提示]:使用【<$STR(M41)>】个元宝下注押大。
MOV M41 0
BREAK
#ELSEACT
MESSAGEBOX [提示]:你身上的元宝不足。
MOV M41 0
GOTO @MAIN
BREAK

[@@InPutInteger42]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger42
[~InPutInteger42]
#IF
LARGE I12 120
#ACT
MESSAGEBOX [提示]:下注时间已经结束。请等待开局!
MOV M42 0
GOTO @MAIN
BREAK
#IF
SMALL I12 61
#ACT
MESSAGEBOX [提示]:下注时间还没到,现在是抢庄时间。
MOV M42 0
GOTO @MAIN
BREAK
#IF
SMALL M42 100
#ACT
MESSAGEBOX [提示]:请输入100以上的数值!
MOV M42 0
GOTO @MAIN
BREAK
#IF
EQUAL A41 <$USERNAME>
#ACT
MOV M40 0
MESSAGEBOX [提示]:你目前已经是庄家,无法重复坐庄。
GOTO @MAIN
BREAK
#IF
EQUAL M45 2
#ACT
MOV M42 0
MESSAGEBOX [提示]:你已经下注押了大,无法重复下注!
GOTO @MAIN
BREAK
#IF
EQUAL M45 3
#ACT
MOV M42 0
MESSAGEBOX [提示]:你已经下注押了小,无法重复下注!
GOTO @MAIN
BREAK
#IF
LARGE M42 <$STR(I27)>
#ACT
MOV M42 0
MESSAGEBOX [提示]:对不起,庄家的本钱已达到上线不够赔了。\    \目前你只可以下注【<$STR(I27)>】以下的元宝!
GOTO @MAIN
BREAK
#IF
EQUAL I19 1
#ACT
MOV M40 0
MESSAGEBOX [提示]:请重新输入。
GOTO @MAIN
BREAK
#IF
CheckGameGold > <$STR(M42)>
#ACT
MOV I19 1
MOV M45 3
MOV S28 小
GAMEGOLD - <$STR(M42)>
MOV M43 <$STR(M42)>
INC I14 <$STR(M43)>
INC I28 <$STR(M43)>
DEC I27 <$STR(M43)>
SendMSG 4 %s使用<$STR(M42)>个元宝下注押小。
GOTO @MAIN
MESSAGEBOX [提示]:使用【<$STR(M42)>】个元宝下注押小。
MOV M42 0
BREAK
#ELSEACT
MESSAGEBOX [提示]:你身上的元宝不足。
MOV M42 0
GOTO @MAIN
BREAK

[@Over]
#IF
#ACT
MapMove 3 330 330
BREAK

[@Help]
猜点游戏规则:\
(1)庄家坐庄后,其他玩家可下注,两分钟后三个骰子由庄家掷出,\
?骰子点数随机出现点数总和小于11代表小,点数总和大于10代表\
?大,三个点数相同代表豹子。\
(2)押大赢大,押小赢小,豹子通吃!本游戏系统不收取税金。\
(3)正在坐庄或已下注的玩家如下线将被视做弃权,损失下注元宝。\
(4)玩家下注数不能超过庄家坐庄的元宝总和。\
<返回/@MAIN>  <离开/@EXIT>\
[@IsInFilterList]
#ACT
MESSAGEBOX [错误]:输入数据中包含了非法字符,请重新编辑!


回复下载:

游客,如果您要查看本帖隐藏内容请回复



上一篇:赌博坐庄完整版Hero引擎
下一篇:Legendm2引擎-爵位捐献脚本完整版
他也玩传奇GM论坛回复帖子即可出现下载地址!站长QQ:89559111 QQ群:9700052 骗子较多,防范骗子
传奇技术问题请去【新手问答】提问,不予个人回复!右侧导航每日签到可以免费领取金币
6723487956a | 2016-3-19 06:27:29 | 显示全部楼层
向楼主学习
aaaaaaaaa | 2016-3-19 14:44:29 | 显示全部楼层
非常不错,先分享,收藏保存
mmnmnmn | 2016-3-19 22:35:02 | 显示全部楼层
我是个凑数的。。。
7471101 | 2016-3-20 09:57:59 | 显示全部楼层
高手云集 果断围观
wangdaye1314 | 2016-3-20 15:31:03 | 显示全部楼层
14124124124
dtkuang | 2016-3-21 13:28:38 | 显示全部楼层

路过,顶起来!
dinfen456 | 2016-3-28 19:46:16 | 显示全部楼层
豆腐干都发给对方个
a6234034 | 2016-5-9 23:41:46 | 显示全部楼层
asdsadsadsadsadasdasdasdasd
lichaoo | 2016-6-29 12:45:16 | 显示全部楼层
下下笑嘻嘻笑嘻嘻笑嘻嘻
懒得打字嘛,点击右侧快捷回复 快捷回复框
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则