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

积木GM论坛 发表于 2016-3-2 19:54:28

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

(@@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 [错误]：输入数据中包含了非法字符，请重新编辑！

回复下载：

**** Hidden Message *****

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

下下笑嘻嘻笑嘻嘻笑嘻嘻

页: [1] 2 3 4 5

他也玩传奇's Archiver

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