GEEM2引擎专用设置二级密保脚本_找搜服_传奇私服发布网_国内最大新开传奇网站

首先要在登录脚本中添加以下命令：

[@Login]

#if

isnewhuman

#act

CreateFile QuestDiary\BindIPList\<$USERNAME>.txt

#IF

CHECKLEVELEX > 0

#ACT

VAR String HUMAN LoginPassWord

VAR Integer HUMAN LoginPassWordStatus

VAR Integer HUMAN LoginPassWordNum

LOADVAR HUMAN LoginPassWord ..\QuestDiary\LoginPassWord.txt

LOADVAR HUMAN LoginPassWordStatus ..\QuestDiary\LoginPassWord.txt

LOADVAR HUMAN LoginPassWordNum ..\QuestDiary\LoginPassWord.txt

#CALL [\登陆设置\二级密码.txt] @二级验证
;===========登录脚本结束。
然后需要在登录脚本命令中调用的“ [\登陆设置\二级密码.txt] ”文件中写入或新建如下脚本：

[@二级验证]

{

#if

checkvar human LoginPassWord =

#act

MESSAGEBOX 温馨提示：为了你的账号安全，请尽快前往土城二级密码特使处设置.

break

#if

checkiplist ..\QuestDiary\BindIPList\<$USERNAME>.txt

#act

sendmsg 6 本次登陆的IP地址与您以前登陆的IP符合，通过验证。

break

#elsesay

由于检测到您目前的登陆IP段与以前不同。\

请输入您的二级密码以正常游戏。\ \ \

【<输入二级密码/@@InPutString51>】

#elseact

ChangeModeEx 10 60 60

DelayCall 10000 @KICKIPLIST

messagebox 由于检测到您目前的登陆IP段与以前不同。\请在10秒内输入您的二级密码以正常游戏。

break

[@InPutString51]

#if

checkvar human LoginPassWord = <$STR(S51)>

#ACT

ADDIPLIST ..\QuestDiary\BindIPList\<$USERNAME>.txt

SENDMSG 6 二级登陆密码验证通过，当前IP地址已经加入到常用IP列表中。

sendmsg 7 如果您是网吧用户，为了防止同网吧盗号现象，您可以到二级密码特使处清除常用IP列表，下次登陆时需要输入二级密码方能正常游戏。

ChangeModeEx 10 1 0

ClearDelayGoto 0

break

#elseact

CALCVAR HUMAN LoginPassWordNum + 1

SAVEVAR HUMAN LoginPassWordNum ..\QuestDiary\LoginPassWord.txt

#if

checkvar human LoginPassWordNum > 4

#say

密码输入错误次数过多，请小退后重新登陆。\

您已经输入密码错误<$HUMAN(LoginPassWordNum)>次，系统自动踢您下线。\

#act

ClearDelayGoto 0

kick

messagebox 对不起，您已经累积输入密码错误<$HUMAN(LoginPassWordNum)>次。\系统将自动踢您下线，以后每次登陆均只有一次输入密码的机会。\更改密码可以清空此数值，请到二级密码特使处更改密码。

break

#elsesay

对不起，您的密码输入有误，请重新输入！\

您已经输入密码错误<$HUMAN(LoginPassWordNum)>次，达到5次系统自动踢您下线。\

请输入您的二级密码以正常游戏。\ \ \

【<输入二级密码/@@InPutString51>】

[@KICKIPLIST]

#IF

CHECKLEVELEX > 0

#ACT

kick

MESSAGEBOX 对不起，您没有通过二级密码输入验证，系统踢您下线。

break

}
;======以下为设置二级密码的NPC脚本：

(@@InPutString )

[@main]

#if

checkvar human LoginPassWord =

#say

为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登\

陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二\

次密码解锁。现在检测你没有输入密码，请点击下面的设置密码设\

置。密码可以为数字、字母、汉字、特殊字符，但必须是小写！！\

请玩家不要将二次密码设置成与登陆密码一致！\

设置好之后请不要泄漏给任何人。<玩家一定要设置好2级密码>\ \

<密码设置/@@InPutString50>　　　　　　　　　　　　　<暂不设置/@exit>

#elsesay

为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登\

陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二\

次密码解锁。现在正在进行<密码修改>操作，请点击下面的修改密码\

设置。密码可以为数字、字母、汉字、特殊字符，但必须是小写！\

请玩家不要将二次密码设置成与登陆密码一致！\

设置好之后请不要泄漏给任何人。\

修改密码必须先验证"原二级密码"后方可修改.\

<修改密码/@main1>　　　　　　　　　　　　　<暂不设置/@exit>

[@main1]

为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登\

陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二\

次密码解锁。现在正在进行<验证密码>操作，请点击下面的验证密码\

验证。密码可以为数字、字母、汉字、特殊字符，但必须是小写！\

请玩家不要将二次密码设置成与登陆密码一致！\

设置好之后请不要泄漏给任何人。\

点击下方的验证密码进入原密码验证.\

<验证密码/@@InPutString52>　　　　　　　　　　　　　<暂不设置/@exit>

[@InPutString52]

#if

checkvar HUMAN LoginPassWord = <$STR(S52)>

#say

为了防止木马盗号事件为玩家造成损失，现在特采用双密码验证登\

陆，当玩家登陆IP与之前登陆IP不同时会锁定玩家角色，需输入二\

次密码解锁。现在正在进行<验证密码>操作，请点击下面的验证密码\

验证。密码可以为数字、字母、汉字、特殊字符，但必须是小写！\

请玩家不要将二次密码设置成与登陆密码一致！\

设置好之后请不要泄漏给任何人。\

原密码验证通过，请输入新密码.<网吧用户可清空常用IP防止同网吧盗号>。\

<输入新密码/@@InPutString53>　　　<清空常用IP/@清空常用IP>　　　<暂不设置/@exit>

#act

CALCVAR HUMAN LoginPassWordStatus = 1

break

#elseact

CALCVAR HUMAN LoginPassWordStatus = 0

CALCVAR HUMAN LoginPassWordNum + 1

SAVEVAR HUMAN LoginPassWordNum ..\QuestDiary\LoginPassWord.txt

#elsesay

对不起，密码验证失败。\

您已经累积输入密码错误<$HUMAN(LoginPassWordNum)>次。\

累积输入错误5次后，每输错一次密码就将踢您下线。\

更改密码可以清空此数值。\

<返回./@main1>\

<退出./@exit>

#if

checkvar human LoginPassWordNum > 4

#act

kick

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

break

[@清空常用IP]

#if

checkvar HUMAN LoginPassWordStatus = 1

#act

clearnamelist ..\QuestDiary\BindIPList\<$USERNAME>.txt

messagebox 恭喜您成功清除常用IP，下次登陆时需要输入二级密码验证登陆。

break

#elsesay

对不起，原密码验证状态为失败，不能清空常用IP。\

<返回./@main>\

<退出./@exit>

[@InPutString53]

#if

checkvar HUMAN LoginPassWordStatus = 1

#act

CALCVAR HUMAN LoginPassWordStatus = 0

CALCVAR HUMAN LoginPassWord = <$STR(S53)>

SAVEVAR HUMAN LoginPassWord ..\QuestDiary\LoginPassWord.txt

CALCVAR HUMAN LoginPassWordNum = 0

SAVEVAR HUMAN LoginPassWordNum ..\QuestDiary\LoginPassWord.txt

SENDMSG 6 您成功设置了二级密码：<$STR(S53)>，请牢记此密码。

break

#say

恭喜您成功修改了二级登陆密码。\

当前密码为：<$STR(S53)>\

密码输入错误次数清零。\

<返回./@main>\

<退出./@exit>

#elsesay

对不起，原密码验证状态为失败，不能进行新密码设置。\

<返回./@main>\

<退出./@exit>

[@InPutString50]

#if

checkvar HUMAN LoginPassWord =

#act

addiplist ..\QuestDiary\BindIPList\<$USERNAME>.txt

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

SENDMSG 6 您成功设置了二级密码：<$STR(S50)>，请牢记此密码。

break

#say

恭喜您成功设置二级密码。\

当前密码为：<$STR(S50)>\

<返回./@main>\

<退出./@exit>

#elsesay

对不起，您已经设置过二级密码，请点击修改密码进行修改。\

<返回./@main>\

<退出./@exit>

(责任编辑：找搜服传奇发布网)