管理GM密码

未验证可用性。///。。。。。。。。。。。。。

[@管理员验证]
{
#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
}