[@管理员验证]
{
#SAY
管理员验证系统
┌─┬─┬─┬─────┬─┬─┬─┒
├┬╆━┷━┷━━━━━┷━┷━╅┬┨
├┬┨ <请输入管理密匙！/@@InPutString9> ┠┬┨
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛
#ACT
#ELSEACT
SENDMSG 6 非法操作！
break
[@InPutString9]
#ACT
DELAYGOTO 1 ~@InPutString9
[~@InPutString9]
#IF
equal A98 <$STR(S9)>
#ACT
CHANGEPERMISSION 10
#CALL [\GM管理功能GM管理功能.txt] @管理
#ELSEACT
SENDMSG 6 密码错误!
CLOSE
[@设置管理密码]
#SAY
修改管理员密码
┌─┬─┬─┬─────┬─┬─┬─┒
├┬╆━┷━┷━━━━━┷━┷━╅┬┨
├┬┨ <请输原管理密匙！/@@InPutString8> ┠┬┨
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛
修改密码提示:请输入原管理员密码(范围:数字、字母、标点符号)
#ACT
#ELSEACT
SENDMSG 6 非法操作！
break
[@InPutString8]
#ACT
DELAYGOTO 1 ~@InPutString8
[~@InPutString8]
#IF
equal A98 <$STR(S8)>
#ACT
goto @设置密码2
#ELSEACT
SENDMSG 6 密码错误!
CLOSE
[@设置密码2]
#IF
ISADMIN
#SAY
修改管理员密码
┌─┬─┬─┬─────┬─┬─┬─┒
├┬╆━┷━┷━━━━━┷━┷━╅┬┨
├┬┨ <请输入新的密码！/@@InPutString6> ┠┬┨
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛
修改密码提示:请输入新的管理密码(范围:数字、字母、标点符号)
#ACT
#ELSEACT
SENDMSG 6 非法操作！
break
[@InPutString6]
#IF
ISADMIN
#SAY
修改管理员密码
┌─┬─┬─┬─────┬─┬─┬─┒
├┬╆━┷━┷━━━━━┷━┷━╅┬┨
├┬┨ <请再输入新密码！/@@InPutString7> ┠┬┨
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛
修改密码提示:请再输入一次新密码(范围:数字、字母、标点符号)
[@InPutString7]
#IF
equal S7 <$STR(S6)>
#SAY
修改管理员密码
┌─┬─┬─┬─────┬─┬─┬─┒
├┬╆━┷━┷━━━━━┷━┷━╅┬┨
├┬┨ <确定/@确定密码设置> <重新输入/@设置密码2> ┠┬┨
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛
修改密码提示:两次新密码输入正确(确定修改请点确定)
#ACT
#ELSESAY
修改管理员密码
┌─┬─┬─┬─────┬─┬─┬─┒
├┬╆━┷━┷━━━━━┷━┷━╅┬┨
├┬┨ <重新输入/@设置密码2> ┠┬┨
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛
修改密码提示:两次密码输入不一致(范围:数字、字母、标点符号)
[@确定密码设置]
#ACT
DELAYGOTO 1 ~@InPutString7
[~@InPutString7]
#IF
ISADMIN
#ACT
mov A98 <$STR(S7)>
SENDMSG 6 设置密码成功！请牢记您的密码！由于重新设置了密码请重新验证
goto @管理员验证
#ELSEACT
SENDMSG 6 密码错误!
CLOSE
}
