|
|
这个NPC是二级密码设置NPC，脚本如下：
(@@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
不显示脚本内容，直接显示图中的二个问号
|
-
不显示脚本内容，显示问号，
|
发表于 2020-6-7 14:18:43
