传奇论坛*** 脚本,供学习.

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

#if
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倍奖金外，\还会获得积奖池中奖金分红。\投入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 N33 3
MOVR N43 3
MOVR N53 3
GOTO @继续旋转
break
#if
EQUAL D60 2
#ACT
INC D60 1
MOVR N33 3
MOVR N43 3
MOVR N53 3
GOTO @继续旋转
break
#if
EQUAL D60 3
#ACT
回复
论坛一条龙

青春不在了，青春痘还在！

回帖也有有水平的！

东方不败外加灭绝师太啊！

楼主很有艺术范！

缺乏激情了！

楼主的帖子实在是写得太好了。文笔流畅，修辞得体！

吹牛的人越来越多了！

世界末日我都挺过去了，看到楼主我才知道为什么上帝留我到现在！

太高深了，理解力不够用了！