123456单双(2012/8/10)大中小-直接出结果的论坛脚本

这个脚本要简单一些，不涉及QM，机器人脚本，直接出结果。
代码如下：
(@@InPutInteger)
[@MAIN]
╔┈┈┈┈┈┈┈┈┈┈┈【申　明】┈┈┈┈┈┈┈┈┈┈┈╗\
┊　　<论坛犯法，本游戏仅供消遣娱乐之用，请勿沉迷其中！>　┊\
┊摇骰子:一粒骰子,分(单个数字竞猜)，(大中小),(大小).....┊\
┊单独选择1个数字:赔率为1赔5,(1.2.3.4.5.6)六个数供选择。┊\
┊大中小：1.2为小，3.4为中，5.6为大，赔率为1赔3。       ┊\
┊大小：1.2.3中的数字为小，4.5.6中的数字为大，赔率为1赔2┊\
╔┈┈┈┈┈┈┈<【请选择您要娱乐的项目】>┈┈┈┈┈┈┈┈╗\
┊　<试试摇骰子/@8888>　                                ┊\
╚┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╝\

[@博游戏]
#IF
#ACT
MOV N40 0
MOV N41 0
MOV N42 0
MOV N43 0
MOV N44 0
MOV N45 0
MOV S23 无
MAPMOVE TXDGA 5 11
BREAK

[@8888]
-------------------拥有元宝数{ <$GAMEGOLD>}-----------------\ \
单个数字竞猜：----<①/@@InPutInteger6>----<②/@@InPutInteger7>----<③/@@InPutInteger8>----<④/@@InPutInteger9>----<⑤/@@InPutInteger10>----<⑥/@@InPutInteger11>----\
大   中   小：-------<大/@@InPutInteger3>----------<中/@@InPutInteger2>----------<小/@@InPutInteger1>-------\
大        小：------------<大/@@InPutInteger5>-----------<小/@@InPutInteger4>-------------\ \
说        明：点击您要竞猜的数字，输入您要下注的金额，按确定..\ \
<返        回/@main>                     \
[@777]
╔┈┈┈┈┈┈┈┈┈┈┈【申　明】┈┈┈┈┈┈┈┈┈┈┈┈╗\
┊　　<论坛犯法，本游戏仅供消遣娱乐之用，请勿沉迷其中！>  　┊\
┊                 <777幸运数字大奖游戏规则/@123>                ┊\
┊..1-9三组数字：每组随机出现个数字，当其中有一个7时，奖励┊\
┊元宝18个经验50W。当出现两个7时，奖励元宝38个经验80W。┊\
┊当出现三个7时，奖励元宝88个，经验180W经验。。。。  ┊\
╔┈┈┈┈┈┈┈<【请选择您要娱乐的项目】>┈┈┈┈┈┈┈┈┈╗\
┊　<返      回/@main>　                   <777幸运大奖来一次/@xydaj>      ┊\
╚┈┈┈┈┈┈┈┈┈【每次将消耗18元宝】┈┈┈┈┈┈┈┈┈╝\

[@InPutInteger1]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger1
[~InPutInteger1]
#IF
LARGE N1 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N1 0
GOTO @8888
BREAK
#IF
SMALL N1 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N1 0
GOTO @8888
BREAK
#IF
random 4
#ACT
GOTO @bxzjl
BREAK
#IF
random 4
#ACT
GOTO @bxzjl
BREAK
#IF
CHECKGAMEGOLD > <$STR(N1)>
#ACT
GAMEGOLD - <$STR(N1)>
set [030] 1
set [031] 1
movr d0 1 7
playdice 1 @cube_cds-1
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-1>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl]
#IF
CHECKGAMEGOLD > <$STR(N1)>
#ACT
GAMEGOLD - <$STR(N1)>
set [030] 1
set [031] 1
movr d0 3 7
playdice 1 @cube_cds-1
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-1>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-1]
#if
check [031] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [030] 1
equal d0 1
#ACT
set [030] 0
MUL N12 <$STR(N1)> 3
GAMEGOLD + <$STR(N12)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N1)>个元宝赢得了<$STR(N12)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#IF
check [030] 1
equal d0 2
#ACT
set [030] 0
MUL N12 <$STR(N1)> 3
GAMEGOLD + <$STR(N12)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N1)>个元宝赢得了<$STR(N12)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#IF
check [030] 1
#ACT
goto @dutouzi_cds-lk
BREAK
;=======================================小==============================================
[@InPutInteger2]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger2
[~InPutInteger2]
#IF
LARGE N2 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N2 0
GOTO @8888
BREAK
#IF
SMALL N2 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N2 0
GOTO @8888
BREAK
#IF
random 4
#ACT
GOTO @bxzjl1
BREAK
#IF
random 4
#ACT
GOTO @bxzjl2
BREAK

#IF
CHECKGAMEGOLD > <$STR(N2)>
#ACT
GAMEGOLD - <$STR(N2)>
set [030] 1
set [031] 1
movr d0 1 7
playdice 1 @cube_cds-2
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-2>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？

[@bxzjl2]
#IF
CHECKGAMEGOLD > <$STR(N2)>
#ACT
GAMEGOLD - <$STR(N2)>
set [030] 1
set [031] 1
movr d0 5 7
playdice 1 @cube_cds-2
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-2>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？

[@bxzjl1]
#IF
CHECKGAMEGOLD > <$STR(N2)>
#ACT
GAMEGOLD - <$STR(N2)>
set [030] 1
set [031] 1
movr d0 1 3
playdice 1 @cube_cds-2
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-2>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-2]
#if
check [031] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [030] 1
equal d0 3
#ACT
set [030] 0
MUL N22 <$STR(N2)> 3
GAMEGOLD + <$STR(N22)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N2)>个元宝赢得了<$STR(N22)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
. . <再来/@8888>       <离 开./@exit> \

#IF
check [030] 1
equal d0 4
#ACT
set [030] 0
MUL N22 <$STR(N2)> 3
GAMEGOLD + <$STR(N22)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N2)>个元宝赢得了<$STR(N22)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
. . <再来/@8888>       <离 开./@exit> \
#ELSEACT
goto @dutouzi_cds-lk
;=======================================中==============================================
[@InPutInteger3]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger3
[~InPutInteger3]
#IF
LARGE N3 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N3 0
GOTO @8888
BREAK
#IF
SMALL N3 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N3 0
GOTO @8888
BREAK
#IF
random 4
#ACT
GOTO @bxzjl4
BREAK
#IF
random 4
#ACT
GOTO @bxzjl4
BREAK

#IF
CHECKGAMEGOLD > <$STR(N3)>
#ACT
GAMEGOLD - <$STR(N3)>
set [030] 1
set [031] 1
movr d0 1 7
playdice 1 @cube_cds-3
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-3>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl4]
#IF
CHECKGAMEGOLD > <$STR(N3)>
#ACT
GAMEGOLD - <$STR(N3)>
set [030] 1
set [031] 1
movr d0 1 5
playdice 1 @cube_cds-3
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-3>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-3]
#if
check [031] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [030] 1
equal d0 5
#ACT
set [030] 0
MUL N32 <$STR(N3)> 3
GAMEGOLD + <$STR(N32)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N3)>个元宝赢得了<$STR(N32)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>

#IF
check [030] 1
equal d0 6
#ACT
set [030] 0
MUL N32 <$STR(N3)> 3
GAMEGOLD + <$STR(N32)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N3)>个元宝赢得了<$STR(N32)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#ELSEACT
goto @dutouzi_cds-lk
;=======================================大==============================================

[@InPutInteger4]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger4
[~InPutInteger4]
#IF
LARGE N4 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N4 0
GOTO @8888
BREAK
#IF
SMALL N4 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N4 0
GOTO @8888
BREAK
#IF
random 5
#ACT
GOTO @bxzjl6
BREAK
#IF
CHECKGAMEGOLD > <$STR(N4)>
#ACT
GAMEGOLD - <$STR(N4)>
set [032] 1
set [033] 1
movr d0 1 7
playdice 1 @cube_cds-4
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-4>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl6]
#IF
CHECKGAMEGOLD > <$STR(N4)>
#ACT
GAMEGOLD - <$STR(N4)>
set [032] 1
set [033] 1
movr d0 4 7
playdice 1 @cube_cds-4
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-4>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-4]
#if
check [033] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [032] 1
equal d0 1
#ACT
set [032] 0
MUL N42 <$STR(N4)> 2
GAMEGOLD + <$STR(N42)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N4)>个元宝赢得了<$STR(N42)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#IF
check [032] 1
equal d0 2
#ACT
set [032] 0
MUL N42 <$STR(N4)> 2
GAMEGOLD + <$STR(N42)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N4)>个元宝赢得了<$STR(N42)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#IF
check [032] 1
equal d0 3
#ACT
set [032] 0
MUL N42 <$STR(N4)> 2
GAMEGOLD + <$STR(N42)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N4)>个元宝赢得了<$STR(N42)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#ELSEACT
goto @dutouzi_cds-lk
;=======================================小==============================================
[@InPutInteger5]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger5
[~InPutInteger5]
#IF
LARGE N5 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N5 0
GOTO @8888
BREAK
#IF
SMALL N5 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N5 0
GOTO @8888
BREAK
#IF
random 5
#ACT
GOTO @bxzjl7
BREAK
#IF
CHECKGAMEGOLD > <$STR(N5)>
#ACT
GAMEGOLD - <$STR(N5)>
set [032] 1
set [033] 1
movr d0 1 7
playdice 1 @cube_cds-5
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-5>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl7]
#IF
CHECKGAMEGOLD > <$STR(N5)>
#ACT
GAMEGOLD - <$STR(N5)>
set [032] 1
set [033] 1
movr d0 1 4
playdice 1 @cube_cds-5
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-5>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-5]
#if
check [033] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [032] 1
equal d0 4
#ACT
set [032] 0
MUL N43 <$STR(N5)> 2
GAMEGOLD + <$STR(N43)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N5)>个元宝赢得了<$STR(N43)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#IF
check [032] 1
equal d0 5
#ACT
set [032] 0
MUL N43 <$STR(N5)> 2
GAMEGOLD + <$STR(N43)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N5)>个元宝赢得了<$STR(N43)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#IF
check [032] 1
equal d0 6
#ACT
set [032] 0
MUL N43 <$STR(N5)> 2
GAMEGOLD + <$STR(N43)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N5)>个元宝赢得了<$STR(N43)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#ELSEACT
goto @dutouzi_cds-lk
;=======================================大==============================================
[@InPutInteger6]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger6
[~InPutInteger6]
#IF
LARGE N6 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N6 0
GOTO @8888
BREAK
#IF
SMALL N6 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N6 0
GOTO @8888
BREAK
#IF
random 4
#ACT
GOTO @bxzjl8
BREAK
#IF
CHECKGAMEGOLD > <$STR(N6)>
#ACT
GAMEGOLD - <$STR(N6)>
set [032] 1
set [033] 1
movr d0 1 7
playdice 1 @cube_cds-6
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-6>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl8]
#IF
CHECKGAMEGOLD > <$STR(N6)>
#ACT
GAMEGOLD - <$STR(N6)>
set [032] 1
set [033] 1
movr d0 2 7
playdice 1 @cube_cds-6
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-6>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-6]
#if
check [033] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [032] 1
equal d0 1
#ACT
set [032] 0
MUL N62 <$STR(N6)> 5
GAMEGOLD + <$STR(N62)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N6)>个元宝赢得了<$STR(N62)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#ELSEACT
goto @dutouzi_cds-lk

;=======================================数字1==============================================
[@InPutInteger7]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger7
[~InPutInteger7]
#IF
LARGE N7 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N7 0
GOTO @8888
BREAK
#IF
SMALL N7 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N7 0
GOTO @8888
BREAK
#IF
random 5
#ACT
GOTO @bxzjl9
BREAK
#IF
random 6
#ACT
GOTO @bxzjl10
BREAK
#IF
CHECKGAMEGOLD > <$STR(N7)>
#ACT
GAMEGOLD - <$STR(N7)>
set [032] 1
set [033] 1
movr d0 1 7
playdice 1 @cube_cds-7
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-7>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl9]
#IF
CHECKGAMEGOLD > <$STR(N7)>
#ACT
GAMEGOLD - <$STR(N7)>
set [032] 1
set [033] 1
movr d0 3 7
playdice 1 @cube_cds-7
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-7>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl10]
#IF
CHECKGAMEGOLD > <$STR(N7)>
#ACT
GAMEGOLD - <$STR(N7)>
set [032] 1
set [033] 1
movr d0 1
inc d0 1
playdice 1 @cube_cds-7
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-7>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-7]
#if
check [033] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [032] 1
equal d0 2
#ACT
set [032] 0
MUL N63 <$STR(N7)> 5
GAMEGOLD + <$STR(N63)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N7)>个元宝赢得了<$STR(N63)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#ELSEACT
goto @dutouzi_cds-lk
;=======================================数字2==============================================
[@InPutInteger8]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger8
[~InPutInteger8]
#IF
LARGE N8 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N8 0
GOTO @8888
BREAK
#IF
SMALL N8 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N8 0
GOTO @8888
BREAK
#IF
random 5
#ACT
GOTO @bxzjl11
BREAK
#IF
random 6
#ACT
GOTO @bxzjl12
BREAK
#IF
CHECKGAMEGOLD > <$STR(N8)>
#ACT
GAMEGOLD - <$STR(N8)>
set [032] 1
set [033] 1
movr d0 1 7
playdice 1 @cube_cds-8
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-8>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl11]
#IF
CHECKGAMEGOLD > <$STR(N8)>
#ACT
GAMEGOLD - <$STR(N8)>
set [032] 1
set [033] 1
movr d0 1 2
inc d0 1
playdice 1 @cube_cds-8
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-8>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl12]
#IF
CHECKGAMEGOLD > <$STR(N8)>
#ACT
GAMEGOLD - <$STR(N8)>
set [032] 1
set [033] 1
movr d0 4 7
playdice 1 @cube_cds-8
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-8>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-8]
#if
check [033] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [032] 1
equal d0 3
#ACT
set [032] 0
MUL N64 <$STR(N8)> 5
GAMEGOLD + <$STR(N64)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N8)>个元宝赢得了<$STR(N64)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#ELSEACT
goto @dutouzi_cds-lk
;=======================================数字3==============================================
[@InPutInteger9]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger9
[~InPutInteger9]
#IF
LARGE N9 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N9 0
GOTO @8888
BREAK
#IF
SMALL N9 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N9 0
GOTO @8888
BREAK
#IF
random 5
#ACT
GOTO @bxzjl13
BREAK
#IF
random 6
#ACT
GOTO @bxzjl14
BREAK
#IF
CHECKGAMEGOLD > <$STR(N9)>
#ACT
GAMEGOLD - <$STR(N9)>
set [032] 1
set [033] 1
movr d0 1 7
playdice 1 @cube_cds-9
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-9>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl13]
#IF
CHECKGAMEGOLD > <$STR(N9)>
#ACT
GAMEGOLD - <$STR(N9)>
set [032] 1
set [033] 1
movr d0 5 7
playdice 1 @cube_cds-9
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-9>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl14]
#IF
CHECKGAMEGOLD > <$STR(N9)>
#ACT
GAMEGOLD - <$STR(N9)>
set [032] 1
set [033] 1
movr d0 3
inc d0 1
playdice 1 @cube_cds-9
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-9>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-9]
#if
check [033] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [032] 1
equal d0 4
#ACT
set [032] 0
MUL N65 <$STR(N9)> 5
GAMEGOLD + <$STR(N65)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N9)>个元宝赢得了<$STR(N65)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#ELSEACT
goto @dutouzi_cds-lk
;=======================================数字4==============================================
[@InPutInteger10]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger10
[~InPutInteger10]
#IF
LARGE N10 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N10 0
GOTO @8888
BREAK
#IF
SMALL N10 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N10 0
GOTO @8888
BREAK
#IF
random 5
#ACT
GOTO @bxzjl15
BREAK
#IF
random 6
#ACT
GOTO @bxzjl16
BREAK
#IF
CHECKGAMEGOLD > <$STR(N10)>
#ACT
GAMEGOLD - <$STR(N10)>
set [032] 1
set [033] 1
movr d0 1 7
playdice 1 @cube_cds-10
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-10>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl16]
#IF
CHECKGAMEGOLD > <$STR(N10)>
#ACT
GAMEGOLD - <$STR(N10)>
set [032] 1
set [033] 1
movr d0 1
inc d0 6
playdice 1 @cube_cds-10
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-10>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl15]
#IF
CHECKGAMEGOLD > <$STR(N10)>
#ACT
GAMEGOLD - <$STR(N10)>
set [032] 1
set [033] 1
movr d0 1 5
playdice 1 @cube_cds-10
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-10>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-10]
#if
check [033] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [032] 1
equal d0 5
#ACT
set [032] 0
MUL N66 <$STR(N10)> 5
GAMEGOLD + <$STR(N66)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N10)>个元宝赢得了<$STR(N66)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#ELSEACT
goto @dutouzi_cds-lk
;=======================================数字5==============================================
[@InPutInteger11]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger11
[~InPutInteger11]
#IF
LARGE N11 100000
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N11 0
GOTO @8888
BREAK
#IF
SMALL N11 20
#ACT
MESSAGEBOX [提示]：请输入20-100000之间的数值！
MOV N11 0
GOTO @8888
BREAK
#IF
random 4
#ACT
GOTO @bxzjl19
BREAK
#IF
CHECKGAMEGOLD > <$STR(N11)>
#ACT
GAMEGOLD - <$STR(N11)>
set [032] 1
set [033] 1
movr d0 1 7
playdice 1 @cube_cds-11
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-11>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@bxzjl19]
#IF
CHECKGAMEGOLD > <$STR(N11)>
#ACT
GAMEGOLD - <$STR(N11)>
set [032] 1
set [033] 1
movr d0 1 6
playdice 1 @cube_cds-11
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-11>
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？
[@cube_cds-11]
#if
check [033] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [032] 1
equal d0 6
#ACT
set [032] 0
MUL N67 <$STR(N11)> 5
GAMEGOLD + <$STR(N67)>
GuildNoticeMsg  250 249 %s在论坛过程中，用<$STR(N11)>个元宝赢得了<$STR(N67)>个元宝.
#SAY
哇，你真厉害.竟然给你猜对了....\
<再来/@8888>       <离 开./@exit>
#ELSEACT
goto @dutouzi_cds-lk
;=======================================数字6==============================================
[@xydaj]
#IF
CHECKLEVELEX < 60
CHECKGAMEGOLD > 9
#ACT
GAMEGOLD - 10
set [032] 1
set [033] 1
movr M0 9
inc  M0 1
movr M1 9
inc  M1 1
movr M2 9
inc  M2 1
Goto  @cube_cds-12
#ELSESAY
我靠...！你都没有元宝，拿什么跟我来啊？\
还有你等级是不是大于60了啊？\
[@cube_cds-12]
#if
check [033] 0
#say
由于你使用外一条龙\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [032] 1
equal M0 7
equal M1 7
equal M2 7
#ACT
set [032] 0
GAMEGOLD + 88
CHANGEEXP  + 1800000
GuildNoticeMsg  250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝88个经验180W。
GuildNoticeMsg  250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝88个经验180W。
GuildNoticeMsg  250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝88个经验180W。
GuildNoticeMsg  250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝88个经验180W。
GuildNoticeMsg  250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝88个经验180W。
break
#SAY
点数<$STR(M0)>┊┊<$STR(M1)>┊┊<$STR(M2)> ┊
<再来一把/@xydaj>    <关闭/@exit>   <返回/@main>

#IF
check [032] 1
equal M0 7
equal M1 7
#ACT
set [032] 0
GAMEGOLD + 38
CHANGEEXP  + 800000
GuildNoticeMsg  250 249 %s摇出来2个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝38个经验80W。
break
#SAY
点数<$STR(M0)>┊┊<$STR(M1)>┊┊<$STR(M2)> ┊
<再来一把/@xydaj>    <关闭/@exit>   <返回/@main>
#IF
check [032] 1
equal M1 7
equal M2 7
#ACT
set [032] 0
GAMEGOLD + 38
CHANGEEXP  + 800000
GuildNoticeMsg  250 249 %s摇出来2个7,点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝38个经验80W。
break
#SAY
点数<$STR(M0)>┊┊<$STR(M1)>┊┊<$STR(M2)> ┊
<再来一把/@xydaj>    <关闭/@exit>   <返回/@main>
#IF
check [032] 1
equal M0 7
equal M2 7
#ACT
set [032] 0
GAMEGOLD + 38
CHANGEEXP  + 800000
GuildNoticeMsg  250 249 %s摇出来2个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝38个经验80W。
break
#SAY
点数<$STR(M0)>┊┊<$STR(M1)>┊┊<$STR(M2)> ┊
<再来一把/@xydaj>    <关闭/@exit>   <返回/@main>
#IF
check [032] 1
equal M0 7
#ACT
set [032] 0
GAMEGOLD + 18
CHANGEEXP  + 100000
GuildNoticeMsg  250 249 %s摇出来1个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝18个经验50W。
break
#SAY
点数<$STR(M0)>┊┊<$STR(M1)>┊┊<$STR(M2)> ┊
<再来一把/@xydaj>    <关闭/@exit>   <返回/@main>
#IF
check [032] 1
equal M1 7
#ACT
set [032] 0
GAMEGOLD + 18
CHANGEEXP  + 100000
GuildNoticeMsg  250 249 %s摇出来1个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝18个经验50W。
break
#SAY
点数<$STR(M0)>┊┊<$STR(M1)>┊┊<$STR(M2)> ┊
<再来一把/@xydaj>    <关闭/@exit>   <返回/@main>

#IF
check [032] 1
equal M2 7
#ACT
set [032] 0
GAMEGOLD + 18
CHANGEEXP  + 100000
GuildNoticeMsg  250 249 %s摇出来1个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝18个经验50W。
break
#SAY
点数<$STR(M0)>┊┊<$STR(M1)>┊┊<$STR(M2)> ┊
<再来一把/@xydaj>    <关闭/@exit>   <返回/@main>
#IF
check [032] 1
#SAY
点数<$STR(M0)>┊┊<$STR(M1)>┊┊<$STR(M2)> ┊
<再来一把/@xydaj>    <关闭/@exit>   <返回/@main>
;======================================777==============================================
[@dutouzi_cds-lk1]
#ACT
set [030] 0
set [031] 0
#SAY
很可惜...\
点数是<$STR(M0)><$STR(M1)><$STR(M2)> 你没有压中.\ \
<再来，我就不信./@main>       <离 开./@exit>

[@dutouzi_cds-lk]
#ACT
set [030] 0
set [031] 0
#SAY
很可惜...\
骰子的点数是<$STR(D0)> 你没有压中.\ \
<再来，我就不信./@8888>       <离 开./@exit>
[@HELP]
{数字竞猜}，单独选择1个数字的话，猜中赔率1赔5.\
{单双}，（1.2.3）任意一个数字为单，（4.5.6）任意一个数字为双，赔率1赔2 。\
{大中小}，（1.2）为小，（3.4）为中，（5.6）为大，赔率1赔3\   
玩家下注的金额最好可以自己输入，1000元宝为上限，1元宝为下限。\
<返回/@main>    <关闭/@exit>


论坛一条龙

楼主，您提前出院了？

你觉得该怎么做呢？

雷锋做好事不留名，都写在帖子里！

楼主看起来很有学问！

这么经典的话只有楼主能想到！

楼主很有激情啊！

顶一下，收藏了！

有机会找楼主好好聊聊！