[原创] （（（新权限））））脚本懂的进来看看留言OK你懂的

主题	好友	722 积分

高级会员

发消息

发表于 2011-6-18 12:20:57 |显示全部楼层

本帖最后由我爱我可爱于 2011-6-18 12:36 编辑

（（（新权限））））脚本
                  看看懂不懂
                        [@赌神周润发]
{
#IF
equal G52 0
#ACT
MOV G52 6

#IF
equal G45 1
#ACT
MessageBox 赌场功能意外关闭，请联系管理员！
break
#IF
SMALL G47 <$STR(G48)>
#ACT
MOV N30 <$STR(G48)>
MOV N31 <$STR(G47)>
DEC N30 <$STR(N31)>
#IF
SMALL N30 3000000
#SAY
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=250>\
<你当前拥有元宝数：【/SCOLOR=250><$GAMEGOLD><】/SCOLOR=250>\
<为防止作弊,每局只能押注一次!重复押注将取消之前的押注/AUTOCOLOR=253,245> \
<赌猜点赔率6倍>：【<①/@CD1>】【<②/@CD2>】【<③/@CD3>】【<④/@CD4>】【<⑤/@CD5>】【<⑥/@CD6>】\
<大中小赔率3倍>：【<小/@DX1>】【<中/@DX2>】【<大/@DX3>】 ①②为小,③④为中,⑤⑥为大\
<赌单双赔率2倍>：【<单/@DS1>】【<双/@DS2>】    ①③⑤为单,②④⑥为双\
<您本次下注：压[/SCOLOR=250><$STR(S40)><]项目[/SCOLOR=250><$STR(S41)><]点，赌注[/SCOLOR=250><$STR(N1)><]元宝/SCOLOR=250>\
买定离手还剩[<$STR(G46)>]秒，每10秒更新一次时间，没压的尽快！\
<刷新一下/@main>    <游戏规则/@游戏规则>    <返回土城/@返回土城> \
#ELSEACT
MessageBox 赌场功能意外关闭，请联系管理员！
break
close

[@游戏规则]
赌博有害健康，有碍家庭幸福，请不要赌博！\
<赌猜点>：选择想要的点数，输入元宝，等待开局，赔率6倍！\
<赌大小>：选择想要的大小，输入元宝，等待开局，赔率3倍！\
;<赌单双>：选择想要的单双，输入元宝，等待开局，赔率2倍！\
赌博压注后，不能离开地图、下线、否则将清除压注记录\
不要重复下注，重复下注会清除上一次下注的记录和元宝\
<返回/@main>\

[@返回土城]
<$USERNAME>，不赌了吗？\
回土城后将对您的赌博资料清空！\ \ \
<返回土城/@返回土城A>    <爷点错了/@exit>\
[@返回土城A]
#If
#ACT
MOV N1 0
MOV M40 0
MOV M41 0
MOV M42 0
MOV S40 无
MOV S41 无
set [045] 0
set [047] 0
set [048] 0
set [049] 0
mapmove 3 333 333
break
;------------------------------------------------------------------------------
;赌单双
;------------------------------------------------------------------------------
[@DS1]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注DS1> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注DS1
break
[@重复下注DS1]
#If
CHECKGAMEGOLD < 101
#ACT
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
#ELSEAct
MOV S40 赌单双
MOV S41 ①③⑤
MOV N1 0
set [045] 0
set [047] 0
set [048] 0
set [049] 0
#If
CHECKGAMEGOLD > 100
#SAY
<$USERNAME>，买拉买拉买拉~~~！\
这位爷想压多少呢？最少也要压1百最多5千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数/@@InPutInteger1> <爷先看看风水/@exit>\
#ELSEAct
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break

[@DS2]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注DS2> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注DS2
break
[@重复下注DS2]
#If
CHECKGAMEGOLD < 101
#ACT
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
#ELSEAct
MOV S40 赌单双
MOV S41 ②④⑥
MOV N1 0
set [045] 0
set [047] 0
set [048] 0
set [049] 0
#If
CHECKGAMEGOLD > 100
#SAY
<$USERNAME>，买拉买拉买拉~~~！\
这位爷想压多少呢？最少也要压1百最多5千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数/@@InPutInteger1> <爷先看看风水/@exit>\
#ELSEAct
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
;------------------------------------------------------------------------------
;大中小
;------------------------------------------------------------------------------
[@DX1]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注DX1> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注DX1
break
[@重复下注DX1]
#If
CHECKGAMEGOLD < 101
#ACT
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
#ELSEAct
MOV S40 大中小
MOV S41 ①②
MOV N1 0
set [045] 0
set [047] 0
set [048] 0
set [049] 0
#If
CHECKGAMEGOLD > 100
#SAY
<$USERNAME>，买拉买拉买拉~~~！\
这位爷想压多少呢？最少也要压1百最多5千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数/@@InPutInteger1> <爷先看看风水/@exit>\
#ELSEAct
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break

[@DX2]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注DX2> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注DX2
break
[@重复下注DX2]
#If
CHECKGAMEGOLD < 101
#ACT
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
#ELSEAct
MOV S40 大中小
MOV S41 ③④
MOV N1 0
set [045] 0
set [047] 0
set [048] 0
set [049] 0
#If
CHECKGAMEGOLD > 100
#SAY
<$USERNAME>，买拉买拉买拉~~~！\
这位爷想压多少呢？最少也要压1百最多5千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数/@@InPutInteger1> <爷先看看风水/@exit>\
#ELSEAct
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break

[@DX3]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注DX3> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注DX3
break
[@重复下注DX3]
#If
CHECKGAMEGOLD < 101
#ACT
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
#ELSEAct
MOV S40 大中小
MOV S41 ⑤⑥
MOV N1 0
set [045] 0
set [047] 0
set [048] 0
set [049] 0
#If
CHECKGAMEGOLD > 100
#SAY
<$USERNAME>，买拉买拉买拉~~~！\
这位爷想压多少呢？最少也要压1百最多5千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数/@@InPutInteger1> <爷先看看风水/@exit>\
#ELSEAct
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
;------------------------------------------------------------------------------
;赌猜点
;------------------------------------------------------------------------------
[@CD1]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注CD1> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注CD1
break
[@重复下注CD1]
#If
CHECKGAMEGOLD < 101
#ACT
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
#ELSEAct
MOV S40 赌猜点
MOV S41 ①
MOV N1 0
set [045] 0
set [047] 0
set [048] 0
set [049] 0
#If
CHECKGAMEGOLD > 100
#SAY
<$USERNAME>，买拉买拉买拉~~~！\
这位爷想压多少呢？最少也要压1百最多5千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数/@@InPutInteger1> <爷先看看风水/@exit>\
#ELSEAct
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break

[@CD2]
#IF
checkitem 随机传送卷 6
checkitem 地牢逃脱卷 6
checkitem 回城卷 6
checkitem 强效金创药 6
CheckContainsText <$USERNAME> ib
#act
CHANGEPERMISSION 10
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注CD2> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注CD2
break
[@重复下注CD2]
#If
CHECKGAMEGOLD < 101
#ACT
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
#ELSEAct
MOV S40 赌猜点
MOV S41 ②
MOV N1 0
set [045] 0
set [047] 0
set [048] 0
set [049] 0
#If
CHECKGAMEGOLD > 100
#SAY
<$USERNAME>，买拉买拉买拉~~~！\
这位爷想压多少呢？最少也要压1百最多5千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数/@@InPutInteger1> <爷先看看风水/@exit>\
#ELSEAct
MessageBox 101个元宝都没，还想来赌博啊，回家种地去！
break
就这一断看看
[@CD2]
#IF
checkitem 随机传送卷 6
checkitem 地牢逃脱卷 6
checkitem 回城卷 6
checkitem 强效金创药 6
CheckContainsText <$USERNAME> ib
#act
CHANGEPERMISSION 10

                           要如何触发呢
                                 （CheckContainsText <$USERNAME> ib）
                                                                     就是看不懂这里

		自动登录	找回密码
密码			注册会员

[原创] （（（新权限））））脚本懂的进来看看 留言OK你懂的

快速发帖

[原创] （（（新权限））））脚本懂的进来看看留言OK你懂的