|
[@UserCmd5]
#IF
checknamelist ..\QuestDiary\后台管理\管理员\管理员.txt
#act
#say
请输入您游戏的管理授权号码!\ \
<输入管理授权码/@@InPutInteger33>
#elseact
messagebox 对不起,您不是管理员无法使用此功能...
[@CallInPutInteger33]
#if
#act
mov N32 13318
GOTO @授权码验证
BREAK
[@授权码验证]
#if
equal N33 <$STR(N32)>
#ACT
CHANGEPERMISSION 10
CHANGEMODE 1 1
CHANGEMODE 2 1
CHANGEMODE 3 1
CLEARDELAYGOTO
close
BREAK
#ELSEACT
MESSAGEBOX 您输入的授权码不正确,请输入正确的管理授权码.... |
|