开区脚本传奇版本服务端帐号二代密保-3txt脚本命令

　　 帐号二代密保-3.txt

()

　　 %100

　　 [@MAIN]

　　 #ACT

　　 #CALL [\\二级密码\密码登陆.txt] @转密码

　　 BREAK

　　
Mirserver\Mir200\Envir\QuestDiary\二级密码

 

　　 [@密码登陆]

　　 {

　　 #IF

　　 checknamelist ..\QuestDiary\数据文件\密码名单.txt

　　 #ELSEACT

　　 BREAK

　　 #IF

　　 CHECKSTRINGLIST ..\QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>

　　 #ACT

　　 SENDMSG 6 当前IP为安全IP！祝你游戏愉快翻天复古冰雪。！

　　 BREAK

　　 #IF

　　 ISONMAP MIMA

　　 #ACT

　　 BREAK

　　 #IF

　　 checknamelist ..\QuestDiary\数据文件\密码名单.txt

　　 #ACT

　　 mapmove MIMA

　　 CALCVAR HUMAN 地图号 = <$CURRENTMAP>

　　 SAVEVAR HUMAN 地图号 ..\QuestDiary\数据文件\密码数据.txt

　　 CALCVAR HUMAN 坐标X = <$CURRENTX>

　　 SAVEVAR HUMAN 坐标X ..\QuestDiary\数据文件\密码数据.txt

　　 CALCVAR HUMAN 坐标Y = <$CURRENTY>

　　 SAVEVAR HUMAN 坐标Y ..\QuestDiary\数据文件\密码数据.txt

　　 BREAK

　　 }

　　 [@转密码]

　　 {

　　 <COLOR=clYellow ∽……∽……∽……∽……∽……∽……∽……∽……∽……∽>\

　　 <COLOR=clAqua 【二级密码】> <COLOR=clRed Hot~> <COLOR=$00FF92 ≡≡><COLOR=$00FF92 ★><COLOR=$00FFA3 龍<COLOR=$00FFB4 啸><COLOR=$00FFC5 星><COLOR=$00FFD6 王><COLOR=$00FFE7 ★><COLOR=$00FFF8 2016><COLOR=$00F5FF 年><COLOR=$00E4FF 独><COLOR=$00D3FF 家><COLOR=$00C2FF 80><COLOR=$00B1FF 合><COLOR=$00A0FF 击><COLOR=$0079FF ★≡≡>\

　　 <COLOR=clYellow ∽……∽……∽……∽……∽……∽……∽……∽……∽……∽>\

　　 为了保障玩家的帐号安全全新圣灵魔神，，在帐号被盗或者被骗，\

　　 只要你设置了2级密码独家沧海横流，，<COLOR=$F79600 IP不一致上线必须输入二级密码！>\

　　 警请各位玩家不要泄露自己的帐号密码保护，避免不必要的损失！\

　　 <COLOR=clYellow ∽……∽……∽……∽……∽……∽……∽……∽……∽……∽>\

　　 <设置二级密码/@设置二级密码> <修改二级密码/@修改二级密码> <清除二级密码/@清除二级密码> <离开/@EXIT>\

　　 <COLOR=clYellow ∽……∽……∽……∽……∽……∽……∽……∽……∽……∽>\

　　 [@清除二级密码]

　　 #IF

　　 checknamelist ..\QuestDiary\数据文件\密码名单.txt

　　 #ACT

　　 QUERYVALUE 4 1 7 @清除二级密码1 请输入你之前设置的二级密码： NPC

　　 BREAK

　　 #ELSEACT

　　 MESSAGEBOX 你还没设置二级密码清除失败!

　　 BREAK

　　 [@清除二级密码1]

　　 #IF

　　 EQUAL M4 <$HUMAN(二级密码)>

　　 #ACT

　　 DELLINELIST QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>

　　 CALCVAR HUMAN 二级密码 = 0

　　 SAVEVAR HUMAN 二级密码 ..\QuestDiary\数据文件\密码数据.txt

　　 DELNAMELIST ..\QuestDiary\数据文件\密码名单.txt

　　 SENDMSG 6 清除成功!祝你游戏愉快!

　　 CLOSE

　　 BREAK

　　 #ELSEACT

　　 SENDMSG 6 密码错误!清除失败!

　　 CLOSE

　　 BREAK

　　 [@修改二级密码]

　　 #IF

　　 checknamelist ..\QuestDiary\数据文件\密码名单.txt

　　 #ACT

　　 QUERYVALUE 4 1 7 @修改二级密码1 请输入你之前设置的二级密码： NPC

　　 BREAK

　　 #ELSEACT

　　 MESSAGEBOX 你还没设置二级密码清除失败!

　　 BREAK

　　 [@修改二级密码1]

　　 #IF

　　 EQUAL M4 <$HUMAN(二级密码)>

　　 #SAY

　　 为了保障玩家的帐号安全，在帐号被盗或者被骗传奇脚本仓库开区脚本神火，。，\

　　 只要你设置了2级密码，<COLOR=$F79600 IP不一致上线必须输入二级密码！>\

　　 警请各位玩家不要泄露自己的帐号密码保护，避免不必要的损失！\ \

　　 <输入想要设置的密码/@修改二级密码2>\

　　 #ACT

　　 BREAK

　　 #ELSEACT

　　 SENDMSG 6 密码错误!修改失败!

　　 CLOSE

　　 BREAK

　　 [@修改二级密码2]

　　 #ACT

　　 QUERYVALUE 4 1 7 @密保格式 请输入你想设置的二级密码\(4-7)个数字\例:1234567 NPC

　　 BREAK

　　 [@设置二级密码]

　　 #IF

　　 checknamelist ..\QuestDiary\数据文件\密码名单.txt

　　 #ACT

　　 MESSAGEBOX 你已经设置了二级密码！

　　 MOV M4 0

　　 BREAK

　　 #IF

　　 CHECKLEVELEX > 0

　　 #ACT

　　 QUERYVALUE 4 1 7 @密保格式 请输入你想设置的二级密码\(4-7)个数字\例:1234567 NPC

　　 BREAK

　　 [@密保格式]

　　 #IF

　　 LARGE M4 999

　　 #ACT

　　 CALCVAR HUMAN 二级密码 = <$STR(M4)>

　　 SAVEVAR HUMAN 二级密码 ..\QuestDiary\数据文件\密码数据.txt

　　 ADDNAMELIST ..\QuestDiary\数据文件\密码名单.txt

　　 ADDLINELIST QuestDiary\数据文件\IP数据.txt <$USERNAME><$IPADDR>

　　 ADDLINELIST QuestDiary\测试奖励\IP.txt <$IPADDR>

　　 MESSAGEBOX 密码设置成功!\你设置的密码是:◆[<$STR(M4)>]◆\请牢记!

　　 BREAK

　　 #ELSEACT

　　 MESSAGEBOX 密码设置失败!\确认你输入的数据为4-7位的数字!

　　 BREAK

　　 }