老虎机

[@老虎机]
#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元宝，可多次投元宝，最多允许投入3元宝。如果投入过多，\可点击取元宝取回。点击开始旋转即摇动轮盘，当轮盘上出现同样的三个\图案，玩家可获得相当投币10倍的奖金。如果三个图案不一致，玩家所\投元宝将不做返还。玩家获胜后可选择退元宝即可取得先前的奖金，或者继续\点击开始旋转进行下一轮游戏，奖金继续做为投注，如获胜奖金继续乘\以10倍，最多可连续玩三场，理论最高奖金为3000元宝。\玩家游戏过程中不可强行退出，强行退出会导致已\投注及奖金无法返还。
[@游戏界面]
╔┄┄┄┄╗┏━━━━━━〓梦幻老虎机〓━━━━━━━┓\
┆<熟悉规则/@熟悉规则>┆ 　              　　　　　　　　　　　　 \
┆<积 奖 池/@积奖池>┆ 　投元宝数：<$STR(D55)>　   　　你有元宝：<$GAMEGOLD>        \
┆< 投元宝 /@投币>┆ 　      场数：<$STR(D60)>           积奖池：<$STR(G13)>　　　  \
┆< 取元宝 /@取币>┆ 　    　　　　　　　　　　　  　　　　　 \
┆< 退元宝 /@退币>┆ 　     　<$STR(S60)>        <$STR(S61)>        <$STR(S62)>  　 \
┆<开始旋转/@开始旋转>┆                                          \
┆< 离  开 /@离开>┆ <这是一个赌博游戏，未满18岁的玩家请离场。> \
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━┛
[@投币]
#if
CHECKGAMEGOLD > 1
SMALL D55 3
#ACT
GAMEGOLD - 1
INC D55 1
SENDMSG 6 投入元宝1枚。
GOTO @游戏界面
#ELSEACT
messagebox 你根本没有元宝或最多只能投入3枚元宝。
[@取币]
#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倍奖金外，\还会获得积奖池中所有的奖金。
[@开始旋转]
#if
EQUAL D55 0
#ACT
messagebox 请向机内投入元宝在进行游戏。
break
#if
EQUAL D60 4
#ACT
messagebox 你已经连胜三局，请点击退币后再进行游戏。
break
#if
#ACT
INC D60 1
MOVR N33 3
MOVR N43 3
MOVR N53 3
GOTO @继续旋转
[@继续旋转]
#if
EQUAL N33 0
#ACT
MOV S60 ★
#if
EQUAL N33 1
#ACT
MOV S60 ⊙
#if
EQUAL N33 2
#ACT
MOV S60 ●
#if
EQUAL N33 3
#ACT
MOV S60 △
#if
EQUAL N43 0
#ACT
MOV S61 ★
#if
EQUAL N43 1
#ACT
MOV S61 ⊙
#if
EQUAL N43 2
#ACT
MOV S61 ●
#if
EQUAL N43 3
#ACT
MOV S61 △
#if
EQUAL N53 0
#ACT
MOV S62 ★
#if
EQUAL N53 1
#ACT
MOV S62 ⊙
#if
EQUAL N53 2
#ACT
MOV S62 ●
#if
EQUAL N53 3
#ACT
MOV S62 △
#if
EQUAL N53 <$STR(N33)>
EQUAL N53 <$STR(N43)>
#ACT
SENDMSG 0 恭喜%s赢得"老虎机王"大奖，获得奖金<$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 2
#ACT
MOV D55 20
GOTO @游戏界面
break
#if
EQUAL D55 3
#ACT
MOV D55 30
GOTO @游戏界面
break
#if
EQUAL D55 10
#ACT
MOV D55 100
GOTO @游戏界面
break
#if
EQUAL D55 20
#ACT
MOV D55 200
GOTO @游戏界面
break
#if
EQUAL D55 30
#ACT
MOV D55 300
GOTO @游戏界面
break
#if
EQUAL D55 100
#ACT
MOV D55 1000
INC D55 <$STR(G13)>
MOV G13 0
SENDMSG 0 恭喜%s赢得"老虎机王"大奖，获得奖金<$STR(D55)>0元宝。
GOTO @游戏界面
break
#if
EQUAL D55 200
#ACT
MOV D55 2000
INC D55 <$STR(G13)>
MOV G13 0
SENDMSG 0 恭喜%s赢得"老虎机王"大奖，获得奖金<$STR(D55)>0元宝。
GOTO @游戏界面
break
#if
EQUAL D55 300
#ACT
MOV D55 3000
INC D55 <$STR(G13)>
MOV G13 0
SENDMSG 0 恭喜%s赢得"老虎机王"大奖，获得奖金<$STR(D55)>0元宝。
GOTO @游戏界面
break