传奇版本服务端帐号二代密保-3.txt脚本

帐号二代密保-3.txt () %100 [@MAIN] #ACT #CALL [\\二级密码\密码登陆.txt] @转密码  BREAK Mirserver\Mir200\Envir\QuestDiary\二级密码

[@密码登陆] { #IF checknamelist ..\QuestDiary\数据文件\密码名单.txt #ELSEACT BREAK #IF CHECKSTRINGLIST ..\QuestDiary\数据文件\IP数据.txt

#ACT SENDMSG 6 当前IP为安泉IP！祝你游戏愉快！ BREAK #IF ISONMAP MIMA #ACT BREAK #IF checknamelist ..\QuestDiary\数据文件\密码名单.txt

#ACT mapmove MIMA CALCVAR HUMAN 地图号 = SAVEVAR HUMAN 地图号 ..\QuestDiary\数据文件\密码数据.txt

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

SAVEVAR HUMAN 坐标Y ..\QuestDiary\数据文件\密码数据.txt BREAK } [@转密码] { \

\ 为了保障玩家的帐号安泉，在帐号被盗或者被骗，\ 只要你设置了2级密码，\

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

\ [@清除二级密码] #IF checknamelist ..\QuestDiary\数据文件\密码名单.txt

#ACT QUERYVALUE 4 1 7 @清除二级密码1 请输入你之前设置的二级密码： NPC BREAK #ELSEACT MESSAGEBOX 你还没设置二级密码清除失败!

BREAK [@清除二级密码1] #IF EQUAL M4 #ACT DELLINELIST QuestDiary\数据文件\IP数据.txt

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 #SAY

为了保障玩家的帐号安泉，在帐号被盗或者被骗，\ 只要你设置了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  二级密码 = SAVEVAR HUMAN 二级密码 ..\QuestDiary\数据文件\密码数据.txt

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

ADDLINELIST QuestDiary\测试给予\IP.txt MESSAGEBOX 密码设置成功!\你设置的密码是:◆[]◆\请牢记! BREAK

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