东方不败中变权限漏洞

[@赌神周润发]
{
#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>& lt;$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

#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

[@CD3]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注CD3> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注CD3
break
[@重复下注CD3]
#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

[@CD4]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注CD4> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注CD4
break
[@重复下注CD4]
#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

[@CD5]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注CD5> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注CD5
break
[@重复下注CD5]
#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

[@CD6]
#If
CHECK [045] 1
#SAY
<$USERNAME>，您想重新下赌注吗？\
您上次下注：压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝\
<关于注金：你身上元宝必须大于你输入的元宝数否则下注将失败！>\
<注意：重复下注会自动覆盖上一次下注，注金不退还！>\ \ \
<爷元宝多，就是要重复下注/@重复下注CD6> <爷点错了/@exit>\
#ELSEACT
GOTO @重复下注CD6
break
[@重复下注CD6]
#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
[@@InPutInteger1]
#If
#Act
DelayGoto 1 ~InPutInteger0
[~InPutInteger0]
#IF
equal G49 0
#act
set [048] 1
#ELSEAct
set [048] 0
MOV N1 0
MOV S40 无
MOV S41 无

#IF
equal G49 1
#act
MOV N1 0
MOV S40 无
MOV S41 无
MessageBox 当前处于读博摇骰子期间，不能压注，请稍后！
break
close
#IF
CHECK [048] 1
equal G49 0
LARGE N1 99
SMALL N1 5001
CHECKGAMEGOLD > <$STR(N1)>
#ACT
GAMEGOLD - <$STR(N1)>
set [045] 1
INC G47 <$STR(N1)>
sendmsg 4 [%s]压[<$STR(S40)>]项目[<$STR(S41)>]点，赌注[<$STR(N1)>]元宝，买定离手赌金不退还！
goto @记录压注
break
close
#ELSEAct
MOV N1 0
MOV S40 无
MOV S41 无
MessageBox 您输入的赌金数量不对？你的元宝数量小于<$STR(N1)>？\　\请注意：如果作弊会直接删除你身上的所有元宝帐号也会被封哦。
goto @记录作弊
break
close

[@记录作弊]
#IF
equal G49 1
#act
AddTextList .\QuestDiary\登陆设置\禁止登陆人物.txt <$USERNAME>
AddTextList .\QuestDiary\读博系统\记录作弊人物.txt 作弊记录：<$USERNAME>，非法时间内压注，当前拥有元宝<$GAMEGOLD>
MOV N1 0
MOV S40 无
MOV S41 无
goto @main
KICK
break

#IF
CHECK [048] 0
#act
AddTextList .\QuestDiary\登陆设置\禁止登陆人物.txt <$USERNAME>
AddTextList .\QuestDiary\读博系统\记录作弊人物.txt 作弊记录：<$USERNAME>，发送封包，当前拥有元宝<$GAMEGOLD>
MOV N1 0
MOV S40 无
MOV S41 无
goto @main
KICK
break


[@记录压注]
#IF
equal G49 0
equal S41 ①②
#ACT
set [049] 1
AddTextList .\QuestDiary\读博系统\压点种类.txt ①
AddTextList .\QuestDiary\读博系统\压点种类.txt ②
goto @main
break
#IF
equal G49 0
equal S41 ③④
#ACT
set [049] 1
AddTextList .\QuestDiary\读博系统\压点种类.txt ③
AddTextList .\QuestDiary\读博系统\压点种类.txt ④
goto @main
break
#IF
equal G49 0
equal S41 ⑤⑥
#ACT
set [049] 1
AddTextList .\QuestDiary\读博系统\压点种类.txt ⑤
AddTextList .\QuestDiary\读博系统\压点种类.txt ⑥
goto @main
break
#IF
equal G49 0
equal S41 ①
#ACT
set [049] 1
AddTextList .\QuestDiary\读博系统\压点种类.txt ①
goto @main
break
#IF
equal G49 0
equal S41 ②
#ACT
set [049] 1
AddTextList .\QuestDiary\读博系统\压点种类.txt ②
goto @main
break
#IF
equal G49 0
equal S41 ③
#ACT
set [049] 1
AddTextList .\QuestDiary\读博系统\压点种类.txt ③
goto @main
break
#IF
equal G49 0
equal S41 ④
#ACT
set [049] 1
AddTextList .\QuestDiary\读博系统\压点种类.txt ④
goto @main
break
#IF
equal G49 0
equal S41 ⑤
#ACT
set [049] 1
AddTextList .\QuestDiary\读博系统\压点种类.txt ⑤
goto @main
break
#IF
equal G49 0
equal S41 ⑥
#ACT
set [049] 1
AddTextList .\QuestDiary\读博系统\压点种类.txt ⑥
goto @main
break

}