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

(@@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