传奇GM教程 传奇2私服赌博脚本

[@main]
#IF
EQUAL D60 0
#ACT
MOV D60 1
MOV S60 ★
MOV S61 ★
MOV S62 ★
#SAY
╔┄┄┄┄╗┏━━━━━━〓古侠******〓━━━━━━━┓
┆<熟悉规则/@熟悉规则>┆┃　              　　　　　　　　　　　　┃
┆<积 奖 池/@积奖池>┆┃　投币数:<$STR(D55)>　  　　你有元宝:<$GAMEGOLD>      ┃
┆< 投  币 /@投币>┆┃　  场数:<$STR(D60)>          积奖池:<$STR(G13)>　　　 ┃
┆< 取  币 /@取币>┆┃　    　　　　　　　　　　　  　　　　　┃
┆< 退  币 /@退币>┆┃　    　<$STR(S60)>        <$STR(S61)>        <$STR(S62)> 　  　　┃
┆<开始旋转/@开始旋转>┆┃                                        ┃
┆< 离  开 /@离开>┆┃<这是一个赌博游戏,未满18岁的玩家请离场.>　┃
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━┛
#ELSESAY
╔┄┄┄┄╗┏━━━━━━〓古侠******〓━━━━━━━┓
┆<熟悉规则/@熟悉规则>┆┃　              　　　　　　　　　　　　┃
┆<积 奖 池/@积奖池>┆┃　投币数:<$STR(D55)>　  　　你有元宝:<$GAMEGOLD>      ┃
┆< 投  币 /@投币>┆┃　  场数:<$STR(D60)>          积奖池:<$STR(G13)>　　　 ┃
┆< 取  币 /@取币>┆┃　    　　　　　　　　　　　  　　　　　┃
┆< 退  币 /@退币>┆┃　    　<$STR(S60)>        <$STR(S61)>        <$STR(S62)> 　  　　 ┃
┆<开始旋转/@开始旋转>┆┃                                        ┃
┆< 离  开 /@离开>┆┃<这是一个赌博游戏,未满18岁的玩家请离场.>　┃
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━┛
[@熟悉规则]
#IF
#ACT
messagebox 点击投币投入1元宝,可多次投币,最多允许投入10元宝.如果投入过多,可点击取币取回.点击开始旋转即摇动轮盘,当轮盘上出现同样的三个图案,玩家可获得相当投币10倍的奖金.如果三个图案不一致,玩家所投币将不做返还.玩家获胜后可选择退币即可取得先前的奖金,或者继续点击开始旋转进行下一轮游戏,奖金继续做为投注,如获胜奖金继续乘以10倍,最多可连续玩三场,理论最高奖金为100元宝.玩家游戏过程中不可强行退出,强行退出会导致已投注及奖金无法返还.
[@游戏界面]
╔┄┄┄┄╗┏━━━━━━〓古侠******〓━━━━━━━┓
┆<熟悉规则/@熟悉规则>┆┃　              　　　　　　　　　　　　┃
┆<积 奖 池/@积奖池>┆┃　投币数:<$STR(D55)>　  　　你有元宝:<$GAMEGOLD>      ┃
┆< 投  币 /@投币>┆┃　  场数:<$STR(D60)>          积奖池:<$STR(G13)>　　　 ┃
┆< 取  币 /@取币>┆┃　    　　　　　　　　　　　  　　　　　┃
┆< 退  币 /@退币>┆┃　    　<$STR(S60)>        <$STR(S61)>        <$STR(S62)> 　  　　┃
┆<开始旋转/@开始旋转>┆┃                                        ┃
┆< 离  开 /@离开>┆┃<这是一个赌博游戏,未满18岁的玩家请离场.>　┃
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━┛
[@投币]
#if
checkgamegold > 0
#act
#elseact
messagebox 元宝不足,无法继续游戏.
break

#if
SMALL D55 10
#ACT
GAMEGOLD - 1
INC D55 1
SENDMSG 6 投入元宝1枚.
GOTO @游戏界面
#ELSEACT
messagebox 最多只能投入10枚元宝.
[@取币]
#if
EQUAL D55 0
#ACT
messagebox 你还未往机内投入元宝.
break
#if
SMALL D55 4
#ACT
DEC D55 1
GAMEGOLD + 1
SENDMSG 6 取回元宝1枚.
GOTO @游戏界面
break
#if
LARGE D55 3
#ACT
messagebox 游戏获胜取得元宝可通过“退币”取出.
[@退币]
#if
EQUAL D55 0
#ACT
messagebox 机内没有元宝.
break
#if
#ACT
MOV D60 1
SENDMSG 6 取回元宝<$STR(D55)>枚.
GAMEGOLD + <$STR(D55)>
MOV D55 0
GOTO @游戏界面
[@离开]
#if
EQUAL D55 0
#ACT
close
break
#if
#ACT
SENDMSG 6 取回元宝<$STR(D55)>枚.
GAMEGOLD + <$STR(D55)>
MOV D55 0
close
[@积奖池]
#if
#ACT
messagebox 所有玩家每赢一场游戏,所得奖金其中十分之一将积累到积奖池中,当有玩家连续三盘赢得游戏,除会获得相当投注额1000倍奖金外,还会获得积奖池中奖金分红.投入1元宝最高可获得1000元宝分红,投入2元宝最高可获得2000元宝分红投入3元宝最高可获得5000元宝分红
[@开始旋转]
#if
EQUAL D55 0
#ACT
messagebox 请向机内投入元宝在进行游戏.
break
#if
EQUAL D60 4
#ACT
messagebox 你已经连胜三局,请点击退币后再进行游戏.
break

#if
EQUAL D60 1
#ACT
INC D60 1
MOVR N32 3
MOVR N42 3
MOVR N52 3
GOTO @继续旋转
break
#if
EQUAL D60 2
#ACT
INC D60 1
MOVR N32 3
MOVR N42 3
MOVR N52 3
GOTO @继续旋转
break
#if
EQUAL D60 3
#ACT
INC D60 1
MOVR N32 3
MOVR N42 3
MOVR N52 3
GOTO @继续旋转
break
[@继续旋转]
#if
EQUAL N32 0
#ACT
MOV S60 ★
#if
EQUAL N32 1
#ACT
MOV S60 ⊙
#if
EQUAL N32 2
#ACT
MOV S60 ●
#if
EQUAL N32 3
#ACT
MOV S60 △
#if
EQUAL N32 4
#ACT
MOV S60 ▲
#if
EQUAL N32 5
#ACT
MOV S60 ■
#if
EQUAL N32 6
#ACT
MOV S60 ☆
#if
EQUAL N42 0
#ACT
MOV S61 ★
#if
EQUAL N42 1
#ACT
MOV S61 ⊙
#if
EQUAL N42 2
#ACT
MOV S61 ●
#if
EQUAL N42 3
#ACT
MOV S61 △
#if
EQUAL N42 4
#ACT
MOV S60 ▲
#if
EQUAL N42 5
#ACT
MOV S60 ■
#if
EQUAL N42 6
#ACT
MOV S60 ☆
#if
EQUAL N52 0
#ACT
MOV S62 ★
#if
EQUAL N52 1
#ACT
MOV S62 ⊙
#if
EQUAL N52 2
#ACT
MOV S62 ●
#if
EQUAL N52 3
#ACT
MOV S62 △
#if
EQUAL N52 4
#ACT
MOV S60 ▲
#if
EQUAL N52 5
#ACT
MOV S60 ■
#if
EQUAL N52 6
#ACT
MOV S60 ☆

#if
EQUAL N52 <$STR(N32)>
EQUAL N52 <$STR(N42)>
#ACT
SENDMSG 6 恭喜你赢了这局游戏.
GuildNoticeMsg 252 242 %s恭喜你赢了这局游戏%d,获得奖金<$STR(D55)>0元宝.
INC G13 <$STR(D55)>
GOTO @轮盘停止
break
#if
#ACT
MOV D60 1
MOV D55 0
SENDMSG 6 请再接再励.
GOTO @游戏界面
break
[@轮盘停止]
#if
EQUAL D55 1
#ACT
MOV D55 10
GOTO @游戏界面
break
#if
EQUAL D55 1
#ACT
MOV D55 10
GOTO @游戏界面
break
#if
EQUAL D55 2
#ACT
MOV D55 20
GOTO @游戏界面
break
#if
EQUAL D55 3
#ACT
MOV D55 30
GOTO @游戏界面
#if
EQUAL D55 4
#ACT
MOV D55 40
GOTO @游戏界面
break
#if
EQUAL D55 5
#ACT
MOV D55 50
GOTO @游戏界面
break
#if
EQUAL D55 6
#ACT
MOV D55 60
GOTO @游戏界面
break
#if
EQUAL D55 7
#ACT
MOV D55 70
GOTO @游戏界面
break
#if
EQUAL D55 8
#ACT
MOV D55 80
GOTO @游戏界面
break
#if
EQUAL D55 9
#ACT
MOV D55 90
GOTO @游戏界面
break
#if
EQUAL D55 10
#ACT
MOV D55 100
GOTO @游戏界面
break


#if
EQUAL D55 100
SMALL G13 1001
#ACT
MOV D55 1000
INC D55 <$STR(G13)>
MOV G13 0
GuildNoticeMsg 249 239 %s恭喜你赢了游戏,获得奖金<$STR(D55)>元宝.
GOTO @游戏界面
break

#if
EQUAL D55 100
LARGE G13 1000
#ACT
MOV D55 1000
INC D55 1000
DEC G13 1000
GuildNoticeMsg 249 239 %s恭喜你赢了游戏,获得奖金<$STR(D55)>元宝.
GOTO @游戏界面
break

#if
EQUAL D55 200
SMALL G13 2001
#ACT
MOV D55 2000
INC D55 <$STR(G13)>
MOV G13 0
GuildNoticeMsg 255 232 %s恭喜你赢了游戏,获得奖金<$STR(D55)>元宝.
GOTO @游戏界面
break

#if
EQUAL D55 200
LARGE G13 2000
#ACT
MOV D55 2000
INC D55 2000
DEC G13 2000
GuildNoticeMsg 255 232 %s恭喜你赢了游戏,获得奖金<$STR(D55)>元宝.
GOTO @游戏界面
break

#if
EQUAL D55 300
SMALL G13 5001
#ACT
MOV D55 3000