[@CallInPutString50]
#if
checkvar HUMAN LoginPassWord =
#act
addiplist ..\QuestDiary\BindIPList\<$USERNAME>.txt
CALCVAR HUMAN LoginPassWord = <$STR(S50)>
SAVEVAR HUMAN LoginPassWord ..\QuestDiary\LoginPassWord.txt
CALCVAR HUMAN LoginPassWordStatus = 0
SAVEVAR HUMAN LoginPassWordStatus ..\QuestDiary\LoginPassWord.txt
CALCVAR HUMAN LoginPassWordNum = 0
SAVEVAR HUMAN LoginPassWordNum ..\QuestDiary\LoginPassWord.txt
SENDMSG 6 您成功设置了二级密码：<$STR(S50)>，请牢记此密码。
break
#say
恭喜您成功设置二级密码。\
当前密码为：<$STR(S50)>\
<返回./@main>\
<退出./@exit>
#elsesay
对不起，您已经设置过二级密码，请点击修改密码进行修改。\
<返回./@main>\
<退出./@exit>