BLUE引擎二级密码脚本源码 传奇脚本教程

[@密码登陆]
{
#if
CHECKLEVELEX > 0
#act
VAR Integer HUMAN 坐标X
VAR Integer HUMAN 坐标Y
VAR String  HUMAN 地图号
VAR String  HUMAN 二级密码
VAR String  HUMAN 绑机器码
VAR String  HUMAN 二级密码1
VAR String  HUMAN 二级密码2
VAR String  HUMAN 二级密码3
VAR String  HUMAN 二级密码4
VAR String  HUMAN 二级密码5
VAR String  HUMAN 二级密码6
VAR String  HUMAN 二级密码7
VAR String  HUMAN 二级密码8
VAR String  HUMAN 二级密码9
VAR String  HUMAN 二级密码10
VAR String  HUMAN 二级密码11
VAR String  HUMAN 二级密码12
VAR Integer HUMAN 二级密码错次
LOADVAR HUMAN 绑机器码   ..\QuestDiary\数据文件\密码记录.txt HardDisk
LOADVAR HUMAN 地图号   ..\QuestDiary\数据文件\密码记录.txt HardDisk
LOADVAR HUMAN 坐标X    ..\QuestDiary\数据文件\密码记录.txt HardDisk
LOADVAR HUMAN 坐标Y    ..\QuestDiary\数据文件\密码记录.txt HardDisk
LOADVAR HUMAN 二级密码 ..\QuestDiary\数据文件\密码记录.txt HardDisk

#IF
Check [300] 1
#ELSEACT
SENDMSG 7 你当前还没有设置二级密码，设置后可防止装备和元宝丢失。 251 5 60
BREAK

#IF
ISONMAP MIMA
#ACT
BREAK


#IF
Check [302] 1
#ACT
DELAYGOTO 1500 @密码登陆1
BREAK
#ELSEACT
DELAYGOTO 1500 @密码登陆2
BREAK


[@密码登陆1]
#IF
CHECKVAR HUMAN 绑机器码 = <$HWID>
#ACT
BREAK
#if
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 地图号 = <$CURRENTMAP> ..\QuestDiary\数据文件\密码记录.txt HardDisk
CALCVAR HUMAN 坐标X = <$CURRENTX> ..\QuestDiary\数据文件\密码记录.txt HardDisk
CALCVAR HUMAN 坐标Y = <$CURRENTY> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [299] 1
mapmove MIMA 9 11
BREAK


[@密码登陆2]
#IF
Check [301] 1
#ACT
CALCVAR HUMAN 地图号 = <$CURRENTMAP> ..\QuestDiary\数据文件\密码记录.txt HardDisk
CALCVAR HUMAN 坐标X = <$CURRENTX> ..\QuestDiary\数据文件\密码记录.txt HardDisk
CALCVAR HUMAN 坐标Y = <$CURRENTY> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [299] 1
mapmove MIMA 9 11
BREAK

#IF
CHECKSTRINGLIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
#ACT
BREAK

#IF
Check [300] 1
#ACT
CALCVAR HUMAN 地图号 = <$CURRENTMAP> ..\QuestDiary\数据文件\密码记录.txt HardDisk
CALCVAR HUMAN 坐标X = <$CURRENTX> ..\QuestDiary\数据文件\密码记录.txt HardDisk
CALCVAR HUMAN 坐标Y = <$CURRENTY> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [299] 1
mapmove MIMA 9 11
BREAK

}

[@金币计算]

{

#if
CHECKLEVELEX > 0
#act
mov S89 <$GOLDCOUNT>

#IF
CHECKGOLD 99999999
#act
DEC S89 10 20
BREAK
#IF
CHECKGOLD 9999999
#act
DEC S89 9 20
BREAK
#IF
CHECKGOLD 999999
#act
DEC S89 8 20
BREAK
#IF
CHECKGOLD 99999
#act
DEC S89 7 20
BREAK
#IF
CHECKGOLD 9999
#act
DEC S89 6 20
BREAK
#IF
CHECKGOLD 999
#act
DEC S89 5 20
BREAK
#IF
CHECKGOLD 99
#act
DEC S89 4 20
BREAK
#IF
CHECKGOLD 9
#act
DEC S89 3 20
BREAK
#IF
CHECKLEVELEX > 0
#act
DEC S89 2 20
BREAK
}




[@转密码]
{
#IF
Check [300] 1
#ACT
MOV S10 <修改密码/@清除二级密码>
MOV S11 <COLOR=$F5F0FF
INC S11
INC S11 █　　█>
#ELSEACT
MOV S10 <设置密码/@设置二级密码>
MOV S11 <COLOR=$F5F0FF
INC S11
INC S11 █　　　>

#IF
Check [301] 0
Check [302] 0
#SAY
　　   <COLOR=$0079FF 〝≈><COLOR=$00A0FF 傲><COLOR=$00B1FF 世><COLOR=$00C2FF 傳><COLOR=$00D3FF 奇><COLOR=$00B1FF ≈><COLOR=$00FFC5 正版><COLOR=$00FFD6 授权><COLOR=$00FFE7 ≈><COLOR=$00FFF8 公司><COLOR=$00F5FF 运营><COLOR=$00E4FF ≈><COLOR=$00D3FF 独><COLOR=$00C2FF 家><COLOR=$00B1FF 奉><COLOR=$00A0FF 献><COLOR=$0079FF ≈〞>\
<COLOR=$00393942 ─────────────────────────────>\
<COLOR=$00FFCC 为了保障玩家的帐号安全，预防帐号被盗或者被骗。 > <COLOR=$F5F0FF ◢██◣>\
<COLOR=$00FFCC 请设置二级密码，IP不一致上线必须输入二级密码！>  <$STR(S11)>\
<>                                              <COLOR=$F5F0FF ██████>\
<COLOR=CLRED 本服全新二级密码系统，密码中必须包含中文>      <COLOR=$F5F0FF █><$STR(S10)><COLOR=$F5F0FF █>\
<COLOR=CLRED 系统默认IP变化后登陆游戏需要验证二级密码>      <COLOR=$F5F0FF ██████>\
<COLOR=$00393942 ─────────────────────────────>\
<>       <CMD=@开启同密码 HINT=适用于网吧玩家\每次上线都要验证二级密码！\>[开启同ＩＰ验证]</>              <CMD=@开启机器码验证 HINT=适用于家庭玩家\更换了机器后登陆游戏才需要要验证二级密码！\>[开启机器码验证]</>\
#ACT
BREAK
#IF
Check [301] 1
Check [302] 0
#SAY
　　   <COLOR=$0079FF 〝≈><COLOR=$00A0FF 傲><COLOR=$00B1FF 世><COLOR=$00C2FF 傳><COLOR=$00D3FF 奇><COLOR=$00B1FF ≈><COLOR=$00FFC5 正版><COLOR=$00FFD6 授权><COLOR=$00FFE7 ≈><COLOR=$00FFF8 公司><COLOR=$00F5FF 运营><COLOR=$00E4FF ≈><COLOR=$00D3FF 独><COLOR=$00C2FF 家><COLOR=$00B1FF 奉><COLOR=$00A0FF 献><COLOR=$0079FF ≈〞>\
<COLOR=$00393942 ─────────────────────────────>\
<COLOR=$00FFCC 为了保障玩家的帐号安全，预防帐号被盗或者被骗。 > <COLOR=$F5F0FF ◢██◣>\
<COLOR=$00FFCC 请设置二级密码，IP不一致上线必须输入二级密码！>  <$STR(S11)>\
<>                                              <COLOR=$F5F0FF ██████>\
<COLOR=CLRED 本服全新二级密码系统，密码中必须包含中文>      <COLOR=$F5F0FF █><$STR(S10)><COLOR=$F5F0FF █>\
<COLOR=CLRED 系统默认IP变化后登陆游戏需要验证二级密码>      <COLOR=$F5F0FF ██████>\
<COLOR=$00393942 ─────────────────────────────>\
<>       <[取消同同ＩＰ验证]/@取消同密码>              <CMD=@开启机器码验证 HINT=适用于家庭玩家\更换了机器后登陆游戏才需要要验证二级密码！\>[开启机器码验证]</>\
#ACT
BREAK


#IF
Check [301] 0
Check [302] 1
#SAY
　　   <COLOR=$0079FF 〝≈><COLOR=$00A0FF 傲><COLOR=$00B1FF 世><COLOR=$00C2FF 傳><COLOR=$00D3FF 奇><COLOR=$00B1FF ≈><COLOR=$00FFC5 正版><COLOR=$00FFD6 授权><COLOR=$00FFE7 ≈><COLOR=$00FFF8 公司><COLOR=$00F5FF 运营><COLOR=$00E4FF ≈><COLOR=$00D3FF 独><COLOR=$00C2FF 家><COLOR=$00B1FF 奉><COLOR=$00A0FF 献><COLOR=$0079FF ≈〞>\
<COLOR=$00393942 ─────────────────────────────>\
<COLOR=$00FFCC 为了保障玩家的帐号安全，预防帐号被盗或者被骗。 > <COLOR=$F5F0FF ◢██◣>\
<COLOR=$00FFCC 请设置二级密码，IP不一致上线必须输入二级密码！>  <$STR(S11)>\
<>                                              <COLOR=$F5F0FF ██████>\
<COLOR=CLRED 本服全新二级密码系统，密码中必须包含中文>      <COLOR=$F5F0FF █><$STR(S10)><COLOR=$F5F0FF █>\
<COLOR=CLRED 系统默认IP变化后登陆游戏需要验证二级密码>      <COLOR=$F5F0FF ██████>\
<COLOR=$00393942 ─────────────────────────────>\
<>       <CMD=@开启同密码 HINT=适用于网吧玩家\每次上线都要验证二级密码！\>[开启同ＩＰ验证]</>              <[取消机器码验证]/@取消机器码验证>\
#ACT
BREAK
#IF
Check [301] 1
Check [302] 1
#SAY
　　   <COLOR=$0079FF 〝≈><COLOR=$00A0FF 傲><COLOR=$00B1FF 世><COLOR=$00C2FF 傳><COLOR=$00D3FF 奇><COLOR=$00B1FF ≈><COLOR=$00FFC5 正版><COLOR=$00FFD6 授权><COLOR=$00FFE7 ≈><COLOR=$00FFF8 公司><COLOR=$00F5FF 运营><COLOR=$00E4FF ≈><COLOR=$00D3FF 独><COLOR=$00C2FF 家><COLOR=$00B1FF 奉><COLOR=$00A0FF 献><COLOR=$0079FF ≈〞>\
<COLOR=$00393942 ─────────────────────────────>\
<COLOR=$00FFCC 为了保障玩家的帐号安全，预防帐号被盗或者被骗。 > <COLOR=$F5F0FF ◢██◣>\
<COLOR=$00FFCC 请设置二级密码，IP不一致上线必须输入二级密码！>  <$STR(S11)>\
<>                                              <COLOR=$F5F0FF ██████>\
<COLOR=CLRED 本服全新二级密码系统，密码中必须包含中文>      <COLOR=$F5F0FF █><$STR(S10)><COLOR=$F5F0FF █>\
<COLOR=CLRED 系统默认IP变化后登陆游戏需要验证二级密码>      <COLOR=$F5F0FF ██████>\
<COLOR=$00393942 ─────────────────────────────>\
<>       <[取消同同ＩＰ验证]/@取消同密码>              <[取消机器码验证]/@取消机器码验证>\
#ACT
BREAK









[@开启机器码验证]
#IF
Check [300] 1
#ACT
QUERYVALUE 2 2 10 @开启机器码验证2 开启机器码验证后，非此机器登陆游戏就要输入[二级密码]\　\常在同一个机器游戏的玩家建议开启此项功能\　　　　　　　　　　　\　　　　　　　　　　　　　　　　　　同·意　　　　　拒·绝\　　　　　　　　　　　　　　　　　　　↓　　　　　　　↓ NPC
break
#ELSEACT
MESSAGEBOX 请先设置好二级密码后再开启此项功能！
BREAK

[@开启机器码验证2]
#ACT
SET [302] 1
CALCVAR HUMAN 绑机器码 = <$HWID> ..\QuestDiary\数据文件\密码记录.txt HardDisk
MESSAGEBOX 已经成功开启机器码验证功能
GOTO @MAIN
BREAK



[@取消机器码验证]
#IF
Check [300] 1
#ACT
QUERYVALUE 4 0 12 @取消机器码验证2 取消机器码验证需要输入您之前设置的二级密码\请在下方输入您的[二级密码]： NPC
BREAK
#ELSEACT
MESSAGEBOX 你还没设置二级密码，取消失败
BREAK

[@取消机器码验证2]
#IF
EQUAL S4 <$HUMAN(二级密码)>
#ACT
SET [302] 0
MESSAGEBOX 已经成功取消同ip验证功能
GOTO @MAIN
BREAK
#ELSEACT
MESSAGEBOX 密码错误，取消同ip验证失败
CLOSE
BREAK









[@取消同密码]
#IF
Check [300] 1
#ACT
QUERYVALUE 4 0 12 @取消同密码2 取消同ip验证需要输入您之前设置的二级密码\请在下方输入您的[二级密码]： NPC
BREAK
#ELSEACT
MESSAGEBOX 你还没设置二级密码，取消失败
BREAK

[@取消同密码2]
#IF
EQUAL S4 <$HUMAN(二级密码)>
#ACT
SET [301] 0
MESSAGEBOX 已经成功取消同IP验证功能
GOTO @MAIN
BREAK
#ELSEACT
MESSAGEBOX 密码错误，取消同ip验证失败
CLOSE
BREAK

[@开启同密码]
#IF
Check [300] 1
#ACT
QUERYVALUE 2 2 10 @开启同密码2 开启同ip验证后，小退上线就要输入[二级密码]\　\网吧玩家建议开启此项功能\　　　　　　　　　　　\　　　　　　　　　　　　　　　　　　同·意　　　　　拒·绝\　　　　　　　　　　　　　　　　　　　↓　　　　　　　↓ NPC
break
#ELSEACT
MESSAGEBOX 请先设置好二级密码后再开启此项功能！
BREAK

[@开启同密码2]
#ACT
SET [301] 1
MESSAGEBOX 已经成功开启同IP验证功能
GOTO @MAIN
BREAK


[@清除二级密码]
#IF
Check [300] 1
#ACT
QUERYVALUE 4 0 12 @清除二级密码2 修改二级密码需要输入您之前设置的二级密码\请在下方输入您[当前的二级密码]： NPC
BREAK
#ELSEACT
MESSAGEBOX 你还没设置二级密码，修改失败
BREAK

[@清除二级密码2]
#IF
EQUAL S4 <$HUMAN(二级密码)>
#ACT
DELLINELIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
CALCVAR HUMAN 二级密码 =
SAVEVAR HUMAN 二级密码 ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [300] 0
SET [301] 0
SET [302] 0
MESSAGEBOX 清除二级密码成功！请通过NPC[重新设置二级密码]
CLOSE
BREAK
#ELSEACT
MESSAGEBOX 密码错误，修改二级密码失败
CLOSE
BREAK


[@设置二级密码]
#IF
Check [300] 1
#ACT
MESSAGEBOX 你已经设置了二级密码
MOV S4
BREAK
#IF
CHECKLEVELEX > 0
#ACT
QUERYVALUE 4 0 12 @密保格式 请输入你要设置的6-12位字符二级密码\　\支持[英文.数字.符号.汉字]，一个汉字为2个字符
BREAK

[@密保格式]
#IF
CHECKLEVELEX > 0
#ACT
GETSTRLENGTH <$STR(S4)> D99

#if
SMALL D99 6
#ACT
messagebox 对不起，密码最少要设置【6位】，请重新输入！
goto @转密码
MOV S4
break

#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 二级密码1 =
CALCVAR HUMAN 二级密码2 =
CALCVAR HUMAN 二级密码3 =
CALCVAR HUMAN 二级密码4 =
CALCVAR HUMAN 二级密码5 =
CALCVAR HUMAN 二级密码6 =
CALCVAR HUMAN 二级密码7 =
CALCVAR HUMAN 二级密码8 =
CALCVAR HUMAN 二级密码9 =
CALCVAR HUMAN 二级密码10 =
CALCVAR HUMAN 二级密码11 =
CALCVAR HUMAN 二级密码12 =
MOV P7 0
MOV S11 <$STR(S4)>
DEC S11 2 18
CALCVAR HUMAN 二级密码1 = <$STR(S11)>
MOV S11 <$STR(S4)>
DEC S11 1 1
DEC S11 2 18
CALCVAR HUMAN 二级密码2 = <$STR(S11)>
MOV S11 <$STR(S4)>
DEC S11 1 2
DEC S11 2 18
CALCVAR HUMAN 二级密码3 = <$STR(S11)>
MOV S11 <$STR(S4)>
DEC S11 1 3
DEC S11 2 18
CALCVAR HUMAN 二级密码4 = <$STR(S11)>
MOV S11 <$STR(S4)>
DEC S11 1 4
DEC S11 2 18
CALCVAR HUMAN 二级密码5 = <$STR(S11)>
MOV S11 <$STR(S4)>
DEC S11 1 5
DEC S11 2 18
CALCVAR HUMAN 二级密码6 = <$STR(S11)>

#if
LARGE D99 6
#ACT
MOV S11 <$STR(S4)>
DEC S11 1 6
DEC S11 2 18
CALCVAR HUMAN 二级密码7 = <$STR(S11)>
#if
LARGE D99 7
#ACT
MOV S11 <$STR(S4)>
DEC S11 1 7
DEC S11 2 18
CALCVAR HUMAN 二级密码8 = <$STR(S11)>
#if
LARGE D99 8
#ACT
MOV S11 <$STR(S4)>
DEC S11 1 8
DEC S11 2 18
CALCVAR HUMAN 二级密码9 = <$STR(S11)>
#if
LARGE D99 9
#ACT
MOV S11 <$STR(S4)>
DEC S11 1 9
DEC S11 2 18
CALCVAR HUMAN 二级密码10 = <$STR(S11)>
#if
LARGE D99 10
#ACT
MOV S11 <$STR(S4)>
DEC S11 1 10
DEC S11 2 18
CALCVAR HUMAN 二级密码11 = <$STR(S11)>
#if
LARGE D99 11
#ACT
MOV S11 <$STR(S4)>
DEC S11 1 11
CALCVAR HUMAN 二级密码12 = <$STR(S11)>

#if
SMALL D99 7
#ACT
#CALL [\Bluem2.net_二级密码配置\二级密码.txt] @二级密码6
BREAK
#if
EQUAL D99 7
#ACT
#CALL [\Bluem2.net_二级密码配置\二级密码.txt] @二级密码7
BREAK
#if
EQUAL D99 8
#ACT
#CALL [\Bluem2.net_二级密码配置\二级密码.txt] @二级密码8
BREAK
#if
EQUAL D99 9
#ACT
#CALL [\Bluem2.net_二级密码配置\二级密码.txt] @二级密码9
BREAK
#if
EQUAL D99 10
#ACT
#CALL [\Bluem2.net_二级密码配置\二级密码.txt] @二级密码10
BREAK
#if
EQUAL D99 11
#ACT
#CALL [\Bluem2.net_二级密码配置\二级密码.txt] @二级密码11
BREAK
#if
EQUAL D99 12
#ACT
#CALL [\Bluem2.net_二级密码配置\二级密码.txt] @二级密码12
BREAK
}


[@二级密码6]
{

#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码6)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码5)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码4)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码3)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码2)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码1)>
#ELSEACT
MOV P7 1

#IF
EQUAL P7 0
#ACT
MESSAGEBOX 二级密码中必须包含中文！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 二级密码 = <$STR(S4)> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [300] 1
ADDLINELIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
MESSAGEBOX 密码设置成功\　\你设置的二级密码为：<$STR(S4)>\　\请妥善保管，找回二级密码需要提供密码保护和10元手续费
CLOSE
BREAK
#ELSEACT
MESSAGEBOX 密码设置失败，请确认你输入的密码为6-12位字符，一个汉字为2个字符
CLOSE
BREAK
}


[@二级密码12]
{
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码12)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码11)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码10)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码9)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码8)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码7)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码6)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码5)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码4)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码3)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码2)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码1)>
#ELSEACT
MOV P7 1

#IF
EQUAL P7 0
#ACT
MESSAGEBOX 二级密码中必须包含中文！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 二级密码 = <$STR(S4)> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [300] 1
ADDLINELIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
MESSAGEBOX 密码设置成功\　\你设置的二级密码为：<$STR(S4)>\　\请妥善保管，找回二级密码需要提供密码保护和10元手续费
CLOSE
BREAK
#ELSEACT
MESSAGEBOX 密码设置失败，请确认你输入的密码为6-12位字符，一个汉字为2个字符
CLOSE
BREAK
}


[@二级密码11]
{
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码11)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码10)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码9)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码8)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码7)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码6)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码5)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码4)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码3)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码2)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码1)>
#ELSEACT
MOV P7 1

#IF
EQUAL P7 0
#ACT
MESSAGEBOX 二级密码中必须包含中文！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 二级密码 = <$STR(S4)> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [300] 1
ADDLINELIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
MESSAGEBOX 密码设置成功\　\你设置的二级密码为：<$STR(S4)>\　\请妥善保管，找回二级密码需要提供密码保护和10元手续费
CLOSE
BREAK
#ELSEACT
MESSAGEBOX 密码设置失败，请确认你输入的密码为6-12位字符，一个汉字为2个字符
CLOSE
BREAK
}

[@二级密码10]
{
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码10)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码9)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码8)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码7)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码6)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码5)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码4)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码3)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码2)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码1)>
#ELSEACT
MOV P7 1

#IF
EQUAL P7 0
#ACT
MESSAGEBOX 二级密码中必须包含中文！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 二级密码 = <$STR(S4)> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [300] 1
ADDLINELIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
MESSAGEBOX 密码设置成功\　\你设置的二级密码为：<$STR(S4)>\　\请妥善保管，找回二级密码需要提供密码保护和10元手续费
CLOSE
BREAK
#ELSEACT
MESSAGEBOX 密码设置失败，请确认你输入的密码为6-12位字符，一个汉字为2个字符
CLOSE
BREAK
}


[@二级密码9]
{
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码9)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码8)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码7)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码6)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码5)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码4)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码3)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码2)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码1)>
#ELSEACT
MOV P7 1

#IF
EQUAL P7 0
#ACT
MESSAGEBOX 二级密码中必须包含中文！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 二级密码 = <$STR(S4)> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [300] 1
ADDLINELIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
MESSAGEBOX 密码设置成功\　\你设置的二级密码为：<$STR(S4)>\　\请妥善保管，找回二级密码需要提供密码保护和10元手续费
CLOSE
BREAK
#ELSEACT
MESSAGEBOX 密码设置失败，请确认你输入的密码为6-12位字符，一个汉字为2个字符
CLOSE
BREAK
}

[@二级密码8]
{
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码8)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码7)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码6)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码5)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码4)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码3)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码2)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码1)>
#ELSEACT
MOV P7 1

#IF
EQUAL P7 0
#ACT
MESSAGEBOX 二级密码中必须包含中文！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 二级密码 = <$STR(S4)> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [300] 1
ADDLINELIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
MESSAGEBOX 密码设置成功\　\你设置的二级密码为：<$STR(S4)>\　\请妥善保管，找回二级密码需要提供密码保护和10元手续费
CLOSE
BREAK
#ELSEACT
MESSAGEBOX 密码设置失败，请确认你输入的密码为6-12位字符，一个汉字为2个字符
CLOSE
BREAK
}

[@二级密码7]
{
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码7)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码6)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码5)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码4)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码3)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码2)>
#ELSEACT
MOV P7 1
#IF
CHECKCONTAINSSTR <$STR(S4)> <$HUMAN(二级密码1)>
#ELSEACT
MOV P7 1

#IF
EQUAL P7 0
#ACT
MESSAGEBOX 二级密码中必须包含中文！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 二级密码 = <$STR(S4)> ..\QuestDiary\数据文件\密码记录.txt HardDisk
SET [300] 1
ADDLINELIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
MESSAGEBOX 密码设置成功\　\你设置的二级密码为：<$STR(S4)>\　\请妥善保管，找回二级密码需要提供密码保护和10元手续费
CLOSE
BREAK
#ELSEACT
MESSAGEBOX 密码设置失败，请确认你输入的密码为6-12位字符，一个汉字为2个字符
CLOSE
BREAK


}


[@效验密码]
{
　　   <COLOR=$0079FF 〝≈><COLOR=$00A0FF 傲><COLOR=$00B1FF 世><COLOR=$00C2FF 傳><COLOR=$00D3FF 奇><COLOR=$00B1FF ≈><COLOR=$00FFC5 正版><COLOR=$00FFD6 授权><COLOR=$00FFE7 ≈><COLOR=$00FFF8 公司><COLOR=$00F5FF 运营><COLOR=$00E4FF ≈><COLOR=$00D3FF 独><COLOR=$00C2FF 家><COLOR=$00B1FF 奉><COLOR=$00A0FF 献><COLOR=$0079FF ≈〞>\
<COLOR=$00393942 ─────────────────────────────>\
<COLOR=$00FFCC 为了保障玩家的帐号安全，预防帐号被盗或者被骗。 > <COLOR=$F5F0FF ◢██◣>\
<COLOR=$00FFCC 请设置二级密码，IP不一致上线必须输入二级密码！>  <COLOR=$F5F0FF █　　█>\
<>                                              <COLOR=$F5F0FF ██████>\
<COLOR=CLRED 本服全新二级密码系统，密码中必须包含中文>      <COLOR=$F5F0FF █><输入密码/@输入密码><COLOR=$F5F0FF █>\
<COLOR=CLRED 系统默认IP变化后登陆游戏需要验证二级密码>      <COLOR=$F5F0FF ██████>\
<COLOR=$00393942 ─────────────────────────────>\
<COLOR=$EE82EE 注意：连续错误>（<$HUMAN(二级密码错次)>/3）<COLOR=$EE82EE 次，系统将会踢您下线！>


[@输入密码]
#IF
CHECKLEVELEX > 0
#ACT
QUERYVALUE 50 0 12 @验证密保 请输入你设置的二级密码 NPC
BREAK

[@验证密保]
#IF
EQUAL S50 <$HUMAN(二级密码)>
#ACT
ADDLINELIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>
MAPMOVE <$HUMAN(地图号)> <$HUMAN(坐标X)> <$HUMAN(坐标Y)>
SET [299] 0
CLOSE
BREAK
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 二级密码错次 + 1 ..\QuestDiary\数据文件\密码记录.txt HardDisk

#IF
checkvar HUMAN 二级密码错次 = 3
#ACT
MESSAGEBOX 密码错误。
KICK
BREAK
#ELSEACT
MESSAGEBOX 密码错误。
CLOSE
BREAK

}

游客，如果您要查看本帖隐藏内容请回复

膜拜神贴，后面的请保持队形~

2222222222222222222

2222222222222222222

qqqqqqqqqqqqqqqqqqqqqq