|
|
发表于 2018-12-24 11:39:30
|
显示全部楼层
[@main]
#if
random 10
#act
SENDMSG 4 赌博广场欢迎您，蓝天传奇恭喜您开年发财！发财！发发财！！！
#if
CHECKGAMEGOLD > 0
#act
MOV N5 0
MOV N6 0
MOV N7 0
MOV N8 0
MOV N11 0
MOV N12 0
MOV N13 0
MOV N14 0
MOV S5 请选择
#SAY
╔┄┄┄┄╗┏━━━━━━━〓阳光老虎机〓━━━━━━━━┓\
┆<熟悉规则>＝＞你有元宝：<$GAMEGOLD> ┃\
┆<比 大 小/@比大小>┆┃赔率<1:1>,当你压注后扔的点大于系统就获胜 ┃\
┆<赌 大 小/@赌大小>┆┃赔率<1:3>,转出的点与你猜的点相同就获胜 ┃\
┆< 猜 点 /@猜点>┆┃多人群赌,获胜的人将拿到所有的押注 ┃\
┆<集体赌博/@集体赌>┆┃赔率1:1000,非常的诱人,不妨来试下自己的手气哦┃\
┆<五 合 彩/@五合彩>┆┃ ┃\
┆< 离 开 /@exit>┆┃<这是一个赌博游戏，未满18岁的玩家请离场。> ┃\
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━━━┛
#ELSEact
SENDMSG 4 哦天那！%s你居然连一个元宝都没有，还是先去打点元宝再来找我吧！！！
[@猜点]
╔┄┄┄┄╗┏━━━━━━━━〓阳光猜点〓━━━━━━━━┓\
┆熟悉规则┆┃您目前拥有：<$GAMEGOLD>个元宝 <输入猜测数字/@@InPutInteger7> <开始压注/@@InPutInteger8> ┃\
┆<比 大 小/@比大小>┆┃当您压注后扔出的点数等同您猜的点数就获胜 ┃\
┆<赌 大 小/@赌大小>┆┃赔率<1:3> <注意>:猜测数字请从<1-18>之间挑选 ┃\
┆< 猜 点 >＝＞您目前压注为:<$STR(N8)>个元宝 猜测数字为:<$STR(N7)> ┃\
┆<集体赌博/@集体赌>┆┃ ┃\
┆<五 合 彩/@五合彩>┆┃ <开始摇动色子/@caidian> ┃\
┆< 离 开 /@exit>┆┃<这是一个赌博游戏，未满18岁的玩家请离场。> ┃\
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━━━┛
[@赌大小]
╔┄┄┄┄╗┏━━━━━━━〓阳光赌大小〓━━━━━━━━┓\
┆<熟悉规则/@main>┆┃您目前拥有：<$GAMEGOLD>个元宝 <开始压注/@@InPutInteger6> ┃\
┆<比 大 小/@比大小>┆┃当您压注后扔的点数大于系统扔的点数就获胜 ┃\
┆<赌 大 小>＝＞赔率<1:1> 选择赌： <大/@大> <小/@小> ┃\
┆< 猜 点 /@猜点>┆┃您目前压注为：<$STR(N6)>个元宝 赌：<$STR(S5)> ┃\
┆<集体赌博/@集体赌>┆┃ ┃\
┆<五 合 彩/@五合彩>┆┃ <开始摇动色子/@daxiao> ┃\
┆< 离 开 /@exit>┆┃<这是一个赌博游戏，未满18岁的玩家请离场。> ┃\
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━━━┛
[@比大小]
╔┄┄┄┄╗┏━━━━━━━〓阳光比大小〓━━━━━━━━┓\
┆<熟悉规则/@main>┆┃您目前拥有：<$GAMEGOLD>个元宝 <开始压注/@@InPutInteger5> ┃\
┆<比 大 小>＝＞当您压注后扔的点数大于系统扔的点数就获胜 ┃\
┆<赌 大 小/@赌大小>┆┃赔率<1:1> ┃\
┆< 猜 点 /@猜点>┆┃您目前压注为：<$STR(N5)>个元宝 ┃\
┆<集体赌博/@集体赌>┆┃ ┃\
┆<五 合 彩/@五合彩>┆┃ <开始摇动色子/@shaizi> ┃\
┆< 离 开 /@exit>┆┃<这是一个赌博游戏，未满18岁的玩家请离场。> ┃\
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━━━┛
[@集体赌]
#ACT
messagebox 等待开放中。。。。。。
[@五合彩]
#ACT
messagebox 等待开放中。。。。。。
[@InPutInteger5]
#if
CHECKGAMEGOLD > <$STR(N5)>
#act
SENDMSG 6 投入<$STR(N5)>枚元宝。
goto @比大小
#ELSEACT
MOV N5 0
messagebox 你没有<$STR(N5)>枚元宝，请凑足了再来。
[@InPutInteger6]
#if
CHECKGAMEGOLD > <$STR(N6)>
#act
SENDMSG 6 投入<$STR(N6)>枚元宝。
goto @赌大小
#ELSEACT
MOV N6 0
messagebox 你没有<$STR(N6)>枚元宝，请凑足了再来。
[@InPutInteger7]
#if
large N7 18
#act
MOV N7 0
messagebox 猜测数字请从<1-18>之间挑选。
#ELSEACT
goto @猜点
SENDMSG 6 您输入的猜测数字为<$STR(N7)>
[@InPutInteger8]
#if
CHECKGAMEGOLD > <$STR(N8)>
#act
SENDMSG 6 投入<$STR(N8)>枚元宝。
goto @猜点
#ELSEACT
MOV N8 0
messagebox 你没有<$STR(N8)>枚元宝，请凑足了再来。
[@大]
#act
MOV S5 大
MOV N11 1
goto @赌大小
[@小]
#act
MOV S5 小
MOV N11 2
goto @赌大小
[@caidian]
#if
EQUAL N8 0
#ACT
messagebox 请先点开始压注，进行压注元宝，然后才能开始摇动色子。
break
#if
EQUAL N7 0
#ACT
messagebox 请先输入猜测数字，然后才能开始摇动色子。
break
#if
#ACT
movr d0 1 6
movr d1 1 6
movr d2 1 6
INC N13 <$STR(d0)>
INC N13 <$STR(d1)>
INC N13 <$STR(d2)>
playdice 3 @cai
[@cai]
#IF
CHECKGAMEGOLD < <$STR(N8)>
#ACT
MOV N7 0
MOV N8 0
MOV N13 0
GAMEGOLD - 1
close
messagebox 由于你想赌博作弊，我们决定对你进行惩罚扣除你1点元宝。
break
#IF
EQUAL N7 <$STR(N13)>
#ACT
MOV N14 0
MUL N14 <$STR(N8)> 3
GAMEGOLD + <$STR(N14)>
SENDMSG 0 [赌博机]：玩家[%s]:参与[猜大小]，赢得了3倍奖励共[<$STR(N14)>]个元宝，有想试试手气的赶紧来呀！！！
messagebox 您猜测数字为：<$STR(N7)> 压注为：<$STR(N8)>个元宝\系统摇色子获得的点数为：<$STR(N13)>点\祝贺你，赌博获胜了，赢得了3倍奖励。
MOV N7 0
MOV N8 0
MOV N13 0
MOV N14 0
goto @猜点
break
#IF
#ACT
GAMEGOLD - <$STR(N8)>
messagebox 您猜测数字为：<$STR(N7)> 压注为：<$STR(N8)>个元宝\系统摇色子获得的点数为：<$STR(N13)>点\输了，再来一盘吧，下盘说不定会赢哦。
MOV N7 0
MOV N8 0
MOV N13 0
goto @猜点
[@daxiao]
#if
EQUAL N6 0
#ACT
messagebox 请先点开始压注，进行压注元宝，然后才能开始摇动色子。
break
#if
EQUAL N11 0
#ACT
messagebox 请先选择大小，然后才能开始摇动色子。
break
#if
random 5
EQUAL N11 1
#ACT
movr d0 1 5
movr d1 1 6
movr d2 1 5
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
random 3
EQUAL N11 1
#ACT
movr d0 1 6
movr d1 1 6
movr d2 1 6
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
EQUAL N11 1
#ACT
movr d0 1 6
movr d1 1 7
movr d2 1 6
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
random 5
EQUAL N11 2
#ACT
movr d0 2 7
movr d1 3 7
movr d2 3 7
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
random 3
EQUAL N11 2
#ACT
movr d0 2 7
movr d1 2 7
movr d2 2 7
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
EQUAL N11 2
#ACT
movr d0 1 7
movr d1 2 7
movr d2 1 7
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
[@daxiao1]
#IF
CHECKGAMEGOLD < <$STR(N6)>
#ACT
MOV N6 0
MOV N11 0
MOV N12 0
GAMEGOLD - 1
close
messagebox 由于你想赌博作弊，我们决定对你进行惩罚扣除你1点元宝。
break
#IF
EQUAL N11 1
#ACT
goto @da1
break
#IF
EQUAL N11 2
#ACT
goto @xiao1
[@da1]
#IF
large N12 9
#ACT
GAMEGOLD + <$STR(N6)>
SENDMSG 0 [赌博机]：玩家[%s]:参与[赌大小]，赢得了[<$STR(N6)>]个元宝，有想试试手气的赶紧来呀！！！
messagebox 您赌：<$STR(S5)> 压注为：<$STR(N6)>个元宝\系统摇色子获得的点数为：<$STR(N12)>点\祝贺你，赌博获胜了，赢得了1倍奖励。
MOV N6 0
MOV N11 0
MOV N12 0
MOV S5 请选择
goto @赌大小
#ELSEACT
GAMEGOLD - <$STR(N6)>
messagebox 您赌：<$STR(S5)> 压注为：<$STR(N6)>个元宝\系统摇色子获得的点数为：<$STR(N12)>点\输了，再来一盘吧，下盘说不定会赢哦。
MOV N6 0
MOV N11 0
MOV N12 0
MOV S5 请选择
goto @赌大小
[@xiao1]
#IF
large N12 9
#ACT
GAMEGOLD - <$STR(N6)>
messagebox 您赌：<$STR(S5)> 压注为：<$STR(N6)>个元宝\系统摇色子获得的点数为：<$STR(N12)>点\输了，再来一盘吧，下盘说不定会赢哦。
MOV N6 0
MOV N11 0
MOV N12 0
MOV S5 请选择
goto @赌大小
#ELSEACT
GAMEGOLD + <$STR(N6)>
SENDMSG 0 [赌博机]：玩家[%s]:参与[赌大小]，赢得了[<$STR(N6)>]个元宝，有想试试手气的赶紧来呀！！！
messagebox 您赌：<$STR(S5)> 压注为：<$STR(N6)>个元宝\系统摇色子获得的点数为：<$STR(N12)>点\祝贺你，赌博获胜了，赢得了1倍奖励。
MOV N6 0
MOV N11 0
MOV N12 0
MOV S5 请选择
goto @赌大小
[@shaizi]
#if
EQUAL N5 0
#ACT
messagebox 请先点开始压注，进行压注元宝，然后才能开始摇动色子。
break
#if
random 2
#ACT
movr d0 1 6
movr d1 2 7
playdice 2 @cube
break
#if
#ACT
movr d0 1 7
movr d1 1 7
playdice 2 @cube
[@cube]
#IF
CHECKGAMEGOLD < <$STR(N5)>
#ACT
MOV N5 0
GAMEGOLD - 1
close
messagebox 由于你想赌博作弊，我们决定对你进行惩罚扣除你1点元宝。
break
#IF
large D0 <$STR(D1)>
#ACT
GAMEGOLD + <$STR(N5)>
SENDMSG 0 [赌博机]：玩家[%s]:参与[比大小]，赢得了[<$STR(N5)>]个元宝，有想试试手气的赶紧来呀！！！
messagebox 您目前压注为：<$STR(N5)>个元宝\您摇动色子获得的点数为：<$STR(D0)>点\系统摇色子获得的点数为：<$STR(D1)>点\祝贺你，赌博获胜了，赢得了1倍奖励。
MOV N5 0
goto @比大小
break
#IF
EQUAL D0 <$STR(D1)>
#ACT
messagebox 您目前压注为：<$STR(N5)>个元宝\您摇动色子获得的点数为：<$STR(D0)>点\系统摇色子获得的点数为：<$STR(D1)>点\平局，再来一盘吧。
MOV N5 0
goto @比大小
break
#IF
#ACT
GAMEGOLD - <$STR(N5)>
messagebox 您目前压注为：<$STR(N5)>个元宝\您摇动色子获得的点数为：<$STR(D0)>点\系统摇色子获得的点数为：<$STR(D1)>点\输了，再来一盘吧，下盘说不定会赢哦。
MOV N5 0
goto @比大小
[@IsInFilterList]
#ACT
MESSAGEBOX 请输入数字，进行赌博! |
|
[复制链接]
