简单设置传奇服务端支持二级密码的办法

(@@InPutString )

[@main]
#if
checkvar human EJMMSRCH =
#say
<　二代密码/SCOLOR=254>　<Ｈot~/SCOLOR=58><　【以人为本】【用心做服】【公平公正】/SCOLOR=21>\
<……………………………………………………………………………/SCOLOR=152>\
<为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登/SCOLOR=149>\
<陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二/SCOLOR=149>\
<次密码解锁。/SCOLOR=254><现在检测你没有输入密码，请点击下面的设置密码设/SCOLOR=149>\
<置。密码可以为数字、字母、汉字、特殊字符，但必须是小写！！/SCOLOR=149>\
<请玩家不要将二次密码设置与登陆密码一致！/SCOLOR=22>\
<……………………………………………………………………………/SCOLOR=152>\
<密码设置/@@InPutString50>　　　　　　　　      　　　　　<关闭对话/@exit>
#elsesay
\ \
<　二代密码/SCOLOR=254>　<Ｈot~/SCOLOR=58><　【以人为本】【用心做服】【公平公正】/SCOLOR=21>\
<……………………………………………………………………………/SCOLOR=152>\
<为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登/SCOLOR=149>\
<陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二/SCOLOR=149>\
<代密码解锁。/SCOLOR=149>\
<……………………………………………………………………………/SCOLOR=152>\
<修改密码/@main1>　　　　　　　　　　　　               　<关闭对话/@exit>

[@main1]
<　二代密码/SCOLOR=254>　<Ｈot~/SCOLOR=58><　【以人为本】【用心做服】【公平公正】/SCOLOR=21>\
<……………………………………………………………………………/SCOLOR=152>\
<为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登/SCOLOR=149>\
<陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二/SCOLOR=149>\
<次密码解锁。/SCOLOR=149><现在检测你没有输入密码，请点击下面的设置密码设/SCOLOR=149>\
<置。密码可以为数字、字母、汉字、特殊字符，但必须是小写！！/SCOLOR=149>\
<请玩家不要将二次密码设置与登陆密码一致！/SCOLOR=22>\
<……………………………………………………………………………/SCOLOR=152>\
<开始验证密码/@@InPutString52>　　　　　　　　　　      　  　　<关闭对话/@exit>

[@CallInPutString52]
#if
checkvar HUMAN EJMMSRCH = <$STR(S52)>
#say
\ \
<　二代密码/SCOLOR=254>　<Ｈot~/SCOLOR=58><　【以人为本】【用心做服】【公平公正】/SCOLOR=21>\
<……………………………………………………………………………/SCOLOR=152>\
<为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登/SCOLOR=149>\
<陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二/SCOLOR=149>\
<次密码解锁。/SCOLOR=149> 原密码验证通过，请输入新密码.\
<……………………………………………………………………………/SCOLOR=152>\
<输入新密码/@@InPutString53>　    　  　<清空常用IP/@清空常用IP>　       　    　<关闭对话/@exit>
#act
CALCVAR HUMAN EJMMSRSZ = 1
break
#elseact
CALCVAR HUMAN EJMMSRSZ = 0
CALCVAR HUMAN EJMMSRCS + 1
SAVEVAR HUMAN EJMMSRCS ..\QuestDiary\LoginPassWord.txt
#elsesay
对不起，密码验证失败。\
您已经累积输入密码错误<$HUMAN(EJMMSRCS)>次。\
累积输入错误5次后，每输错一次密码就将踢您下线。\
更改密码可以清空此数值。\
<返回./@main1>\
<退出./@exit>

#if
checkvar human EJMMSRCS > 4
#act
kick
messagebox 对不起，您已经累积输入密码错误<$HUMAN(EJMMSRCS)>次。\系统自动踢您下线，以后每次登陆均只有一次输入密码的机会。\更改密码可以清空此数值。
break

[@清空常用IP]
#if
checkvar HUMAN EJMMSRSZ = 1
#act
clearnamelist ..\QuestDiary\BindIPList\<$USERNAME>.txt
messagebox 恭喜您成功清除常用IP，下次登陆时需要输入二级密码验证登陆。
break
#elsesay
对不起，原密码验证状态为失败，不能清空常用IP。\
<返回./@main>\
<退出./@exit>

[@CallInPutString53]
#if
checkvar HUMAN EJMMSRSZ = 1
#act
CALCVAR HUMAN EJMMSRSZ = 0
CALCVAR HUMAN EJMMSRCH = <$STR(S53)>
SAVEVAR HUMAN EJMMSRCH ..\QuestDiary\LoginPassWord.txt
CALCVAR HUMAN EJMMSRCS = 0
SAVEVAR HUMAN EJMMSRCS ..\QuestDiary\LoginPassWord.txt
SENDMSG 6 您成功设置了二级密码：<$STR(S53)>，请牢记此密码。
break
#act
MESSAGEBOX 恭喜您成功修改了二级登陆密码。当前密码为：<$STR(S53)>\密码输入错误次数清零。\
break
#elseact
MESSAGEBOX 对不起，原密码验证状态为失败，不能进行新密码设置。\
break

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

感恩无私的分享与奉献 :)

感恩无私的分享与奉献 :)

强烈支持楼主ing……

真是被感动的痛哭流涕……

真是被感动的痛哭流涕……

感恩无私的分享与奉献 :)

真是难得给力的帖子啊。

淡定，淡定，淡定……

激动人心，无法言表！