开启辅助访问
登录
立即注册
传奇论坛
服务端下载
传奇版本库
金币充值
导读
Guide
论坛广告
搜索
搜索
本版
文章
帖子
腾飞论坛
»
论坛
›
腾飞传奇论坛◆免费获取金币区◆
›
传奇脚本自由交易
›
传奇私发(2012/8/28)布服论坛摇骰子系统
1
2
3
/ 3 页
下一页
返回列表
发新帖
传奇私发(2012/8/28)布服论坛摇骰子系统
[复制链接]
33151
|
21
|
2012-8-28 10:10:10
|
显示全部楼层
|
阅读模式
(@@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> <多人论坛游戏/@博游戏> <777幸运大奖来一次/@777> ┊\
╚┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╝\
[@博游戏]
#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幸运大奖来一次/@xydaj> \
[@777]
╔┈┈┈┈┈┈┈┈┈┈┈【申 明】┈┈┈┈┈┈┈┈┈┈┈┈╗\
┊ <论坛犯法，本游戏仅供消遣娱乐之用，请勿沉迷其中！> ┊\
┊ <777幸运数字大奖游戏规则/@123> ┊\
┊..1-9三组数字：每组随机出现个数字，当其中有一个7时，奖励┊\
┊元宝18个经验888W。当出现两个7时，奖励元宝88个经验8888W。┊\
┊当出现三个7时，奖励元宝888个，经验8.8888亿经验。。。。 ┊\
╔┈┈┈┈┈┈┈<【请选择您要娱乐的项目】>┈┈┈┈┈┈┈┈┈╗\
┊ <返 回/@main> <777幸运大奖来一次/@xydaj> ┊\
╚┈┈┈┈┈┈┈┈┈【每次将消耗18元宝】┈┈┈┈┈┈┈┈┈╝\
[@InPutInteger1]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger1
[~InPutInteger1]
#IF
LARGE N1 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N1 0
GOTO @8888
BREAK
#IF
SMALL N1 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N2 0
GOTO @8888
BREAK
#IF
SMALL N2 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N3 0
GOTO @8888
BREAK
#IF
SMALL N3 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N4 0
GOTO @8888
BREAK
#IF
SMALL N4 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N5 0
GOTO @8888
BREAK
#IF
SMALL N5 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N6 0
GOTO @8888
BREAK
#IF
SMALL N6 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N7 0
GOTO @8888
BREAK
#IF
SMALL N7 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N8 0
GOTO @8888
BREAK
#IF
SMALL N8 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N9 0
GOTO @8888
BREAK
#IF
SMALL N9 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N10 0
GOTO @8888
BREAK
#IF
SMALL N10 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 2000
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
MOV N11 0
GOTO @8888
BREAK
#IF
SMALL N11 20
#ACT
MESSAGEBOX [提示]：请输入20-2000之间的数值！
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 < 210
CHECKGAMEGOLD > 19
#ACT
GAMEGOLD - 20
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
我靠...！你都没有元宝，拿什么跟我来啊？\
还有你等级是不是大于210了啊？\
[@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 + 888
CHANGEEXP + 888880000
GuildNoticeMsg 250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝888个经验8.88亿。
GuildNoticeMsg 250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝888个经验8.88亿。
GuildNoticeMsg 250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝888个经验8.88亿。
GuildNoticeMsg 250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝888个经验8.88亿。
GuildNoticeMsg 250 249 %s摇出来3个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝888个经验8.88亿。
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 + 88
CHANGEEXP + 88880000
GuildNoticeMsg 250 249 %s摇出来2个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝88个经验8888W。
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 + 88
CHANGEEXP + 88880000
GuildNoticeMsg 250 249 %s摇出来2个7,点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝88个经验8888W。
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 + 88
CHANGEEXP + 88880000
GuildNoticeMsg 250 249 %s摇出来2个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝88个经验8888W。
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 + 8880000
GuildNoticeMsg 250 249 %s摇出来1个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝18个经验888W。
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 + 8880000
GuildNoticeMsg 250 249 %s摇出来1个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)>奖励元宝18个经验888W。
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 + 8880000
GuildNoticeMsg 250 249 %s摇出来1个7，点数<$STR(M0)>┊<$STR(M1)>┊<$STR(M2)> 奖励元宝18个经验888W。
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
原创文章：http://999wj.com/wz/News_38.html
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>
论坛一条龙
回复
使用道具
举报
沉默卡
喧嚣卡
抢沙发
显身卡
小小红尘
|
2012-8-31 21:10:51
|
显示全部楼层
提示:
作者被禁止或删除 内容自动屏蔽
回复
支持
反对
使用道具
举报
显身卡
吴祥
|
2014-3-3 14:09:31
|
显示全部楼层
今天的心情很不错啊
回复
支持
反对
使用道具
举报
显身卡
私服空间
|
2014-3-3 14:30:06
|
显示全部楼层
我就搞不明白了，看帖回帖能死人么，居然只有我这么认真的在回帖！
回复
支持
反对
使用道具
举报
显身卡
残阳如血
|
2014-3-3 14:40:19
|
显示全部楼层
楼主最近很消极啊！
回复
支持
反对
使用道具
举报
显身卡
痕冰
|
2014-3-3 14:35:29
|
显示全部楼层
以后就跟楼主混了！
回复
支持
反对
使用道具
举报
显身卡
痕冰
|
2014-3-3 14:12:49
|
显示全部楼层
精华帖的节奏啊！
回复
支持
反对
使用道具
举报
显身卡
受雇正义
|
2014-5-11 15:43:13
|
显示全部楼层
论坛的人气越来越旺了！
回复
支持
反对
使用道具
举报
显身卡
武媚娘
|
2014-5-11 15:18:03
|
显示全部楼层
楼上的这是啥态度呢？
回复
支持
反对
使用道具
举报
显身卡
刚子
|
2014-5-11 15:11:54
|
显示全部楼层
态度决定一切，不错！
回复
支持
反对
使用道具
举报
显身卡
下一页 »
1
2
3
/ 3 页
下一页
返回列表
发新帖
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
立即注册
本版积分规则
发表回复
回帖后跳转到最后一页
腾飞论坛
回复楼主
返回列表
传奇GM问答
传奇服务端漏洞
传奇服务端工具
传奇引擎
传奇素材自由交易
传奇脚本自由交易
商业传奇服务端
GOM引擎去后门插件7.5（无限元宝,无限荣誉,NPC无效,装备丢失...
2016-01-19
GOM引擎假人脚本系统，自动攻沙，自动打怪
2014-12-03
传奇版本一条龙修改器-功能齐全适合修改版本使用-
2014-11-13
传奇冰雪森林地图素材
2019-01-01
10月神墓大陆神器单职业gm论坛-时装激活-剑甲强化-雕文镶嵌-魔神
2021-10-21
免费传奇服务端
1
GOM引擎去后门插件7.5（无限元宝,无限荣誉,
2
论坛发帖子赚金币下版本不用担心没金币
3
6月独创狂龙雷霆二合一传奇版本|無雙聖殿|
4
传奇LEG-BLUE-HERO引擎和单机架设教程，小
5
官方正版-给力登陆器商业配置器无毒+登录器
6
GOM引擎假人脚本系统，自动攻沙，自动打怪
7
1月魔之域II之幻世录单职业迷失全明文版|洪
8
11月1.76玛雅老吉祥复古小极品全新版|众神
9
11月鸳鸯蝴蝶轻变靓装神器修复版|鸳鸯蝴蝶|
10
12月独家永生魔戒特色完美修复长期版本|永
沉默卡
喧嚣卡
抢沙发
显身卡