本站主推发布:长久传奇私服发布网,新开传奇,新开传奇私服,176复古传奇,迷失传奇,战神传奇,传奇私服,我本沉默,仙剑传奇

传奇私服发布网_新开传奇私服_最大新开长久传奇私服网站_9299F.COM

当前位置: 久久首页 > 开服资料 > 传奇脚本 >

GEEM2引擎专用设置二级密保脚本

时间:2016-08-18 00:33来源:新开传奇私服 作者:传奇私服发布网
首先要在登录脚本中添加以下命令: [@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 ..\Que
首先要在登录脚本中添加以下命令:
[@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
close
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>
 
 
(责任编辑:就爱久久服)
------分隔线----------------------------
栏目列表
推荐内容