[@密码登陆]

{

#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

 

}