(@@InPutString )
[@main]
#if
checkvar human LoginPassWord = 0
#say
防止盗号，请设置防盗密码！\ \

<防盗措施> <状态/SCOLOR=253> 〖<未开启/SCOLOR=250>〗\ \

<开启安全防盗{FCOLOR=251}/@设置密码> \ \

<拒绝盗号,安全保障/SCOLOR=250><$STR(T1)>
#elsesay
防止盗号，请设置防盗密码！\ \

<防盗措施> <状态/SCOLOR=253> 〖<已开启/SCOLOR=250>〗\ \

<清空防盗密码{FCOLOR=251}/@清空密码>\ \

<只有您自己可看到...防盗密码为:/SCOLOR=250>〖<$HUMAN(LoginPassWord)>〗\
[@清空密码]
#if
#act
mov T1 空
CALCVAR HUMAN LoginPassWord = 0
SAVEVAR HUMAN LoginPassWord ..\QuestDiary\临时数据\LoginPassWord.txt
MESSAGEBOX 防盗措施关闭\您的防盗密码已经清空！
close

[@设置密码]
设置后只有本机可正常游戏!\ \

如更换电脑,验证防盗密码即可\ \

<请输入密码{FCOLOR=251}/@@InPutString50>\

[@InPutString50]
#if
checkvar HUMAN LoginPassWord = 0
#act
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
#say
请再次确认密码！\ \

<请输入密码{FCOLOR=251}/@@InPutString51>\

[@InPutString51]
#if
EQUAL S51 <$STR(S50)>
#act
CALCVAR HUMAN LoginPassWord = <$STR(S51)>
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
mov T1 <$IPADDR>
MESSAGEBOX 设置成功！\您的防盗密码为〖<$STR(S51)>〗请牢记\当前只能本机登录此号\更换电脑要验证防盗密码方可正常游戏！
close
#elseact
CALCVAR HUMAN LoginPassWord = 0
SAVEVAR HUMAN LoginPassWord ..\QuestDiary\临时数据\LoginPassWord.txt
MESSAGEBOX 两次密码不一致,请重新设置！
close