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