HEROM2引擎二级密保脚本

admin

(@@InPutString )
        [@main]
        #if
        checkvar human LoginPassWord =
        #say
        为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登
        陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二
        次密码解锁。现在检测你没有输入密码，请点击下面的设置密码设
        置。密码可以为数字、字母、汉字、特殊字符，但必须是小写！！
        请玩家不要将二次密码设置成与登陆密码一致！
        设置好之后请不要泄漏给任何人。
        　　　　　　　　　　　　　
        #elsesay
        为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登
        陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二
        次密码解锁。现在正在进行操作，请点击下面的修改密码
        设置。密码可以为数字、字母、汉字、特殊字符，但必须是小写！
        请玩家不要将二次密码设置成与登陆密码一致！
        设置好之后请不要泄漏给任何人。
        修改密码必须先验证"原二级密码"后方可修改.
        　　　　　　　　　　　　　
        [@main1]
        为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登
        陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二
        次密码解锁。现在正在进行操作，请点击下面的验证密码
        验证。密码可以为数字、字母、汉字、特殊字符，但必须是小写！
        请玩家不要将二次密码设置成与登陆密码一致！
        设置好之后请不要泄漏给任何人。
        点击下方的验证密码进入原密码验证.
        　　　　　　　　　　　　　
        [@CallInPutString52]
        #if
        checkvar HUMAN LoginPassWord =
        #say
        为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登
        陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二
        次密码解锁。现在正在进行操作，请点击下面的验证密码
        验证。密码可以为数字、字母、汉字、特殊字符，但必须是小写！
        请玩家不要将二次密码设置成与登陆密码一致！
        设置好之后请不要泄漏给任何人。
        原密码验证通过，请输入新密码.。
        　　　　　　
        #act
        CALCVAR HUMAN LoginPassWordStatus = 1
        break
        #elseact
        CALCVAR HUMAN LoginPassWordStatus = 0
        CALCVAR HUMAN LoginPassWordNum + 1
        SAVEVAR HUMAN LoginPassWordNum ..QuestDiaryLoginPassWord.txt
        #elsesay
        对不起，密码验证失败。
        您已经累积输入密码错误次。
        累积输入错误5次后，每输错一次密码就将踢您下线。
        更改密码可以清空此数值。
       
       
        #if
        checkvar human LoginPassWordNum > 4
        #act
        kick
        messagebox 对不起，您已经累积输入密码错误次。系统自动踢您下线，以后每次登陆均只有一次输入密码的机会。更改密码可以清空此数值。
        break
        [@清空常用IP]
        #if
        checkvar HUMAN LoginPassWordStatus = 1
        #act
        clearnamelist ..QuestDiaryBindIPList.txt
        messagebox 恭喜您成功清除常用IP，下次登陆时需要输入二级密码验证登陆。
        break
        #elsesay
        对不起，原密码验证状态为失败，不能清空常用IP。
       
       
        [@CallInPutString53]
        #if
        checkvar HUMAN LoginPassWordStatus = 1
        #act
        CALCVAR HUMAN LoginPassWordStatus = 0
        CALCVAR HUMAN LoginPassWord =
        SAVEVAR HUMAN LoginPassWord ..QuestDiaryLoginPassWord.txt
        CALCVAR HUMAN LoginPassWordNum = 0
        SAVEVAR HUMAN LoginPassWordNum ..QuestDiaryLoginPassWord.txt
        SENDMSG 6 您成功设置了二级密码：，请牢记此密码。
        break
        #say
        恭喜您成功修改了二级登陆密码。
        当前密码为：
        密码输入错误次数清零。
       
       
        #elsesay
        对不起，原密码验证状态为失败，不能进行新密码设置。
       
       
        [@CallInPutString50]
        #if
        checkvar HUMAN LoginPassWord =
        #act
        addiplist ..QuestDiaryBindIPList.txt
        CALCVAR HUMAN LoginPassWord =
        SAVEVAR HUMAN LoginPassWord ..QuestDiaryLoginPassWord.txt
        CALCVAR HUMAN LoginPassWordStatus = 0
        SAVEVAR HUMAN LoginPassWordStatus ..QuestDiaryLoginPassWord.txt
        CALCVAR HUMAN LoginPassWordNum = 0
        SAVEVAR HUMAN LoginPassWordNum ..QuestDiaryLoginPassWord.txt
        SENDMSG 6 您成功设置了二级密码：，请牢记此密码。
        break
        #say
        恭喜您成功设置二级密码。
        当前密码为：
       
       
        #elsesay
        对不起，您已经设置过二级密码，请点击修改密码进行修改。