2024-05-07
帐号二代密保-3.txt
()
%100
[@MAIN]
#ACT
#CALL [\二级密码密码登陆.txt] @转密码
BREAK
MirserverMir200EnvirQuestDiary二级密码
[@密码登陆]
{
#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
}
上一篇:
微信大使-3脚本入微信公众平台.即可兑换元宝的超值微信礼包
下一篇:
我本沉默垃圾清理员脚本背包垃圾装备一键清除脚本
