GOM引擎非常不错的二级密码脚本实例

[@InPutString90]
#OR
CheckContainsText <$STR(S90)> @
CheckContainsText <$STR(S90)> ~
CheckContainsText <$STR(S90)> [
CheckContainsText <$STR(S90)> ]
CheckContainsText <$STR(S90)> <
CheckContainsText <$STR(S90)> >
CheckContainsText <$STR(S90)> {
CheckContainsText <$STR(S90)> }
#ACT
mov S90
SENDMSG 5 [错误]：输入数据中包含了非法字符，请重新编辑！
GOTO @初始设置二级密码
break
#elseact
DELAYGOTO 1 ~InPutString90

[~InPutString90]
#if
Equal S90
#act
goto @初始设置二级密码
messagebox 请输入你要设置的二级密码！
break
#elseact
goto @初始设置二级密码
SENDMSG 6 您设置二级密码为：【<$STR(S90)>】，请牢记此密码。
break

[@确定设置二级密码及密码保护资料]
#IF
Equal S90
#act
goto @初始设置二级密码
messagebox 您还没有输入密码！\　\请先点击【设置二级帐号密码】输入你要设置的密码！
break

#IF
LARGE N69 10000000
small N69 29999999
#elseact
MOV N69 0
goto @初始设置二级密码
messagebox 您还没有输入二级密码保护生日！\　\请先点击【二级密码保护生日】输入你要设置的生日！
break

#IF
Equal S88
#act
goto @初始设置二级密码
messagebox 您还没有输入二级密码保护问题！\　\请先点击【二级密码保护问题】输入你要设置的问题！
break

#IF
Equal S89
#act
goto @初始设置二级密码
messagebox 您还没有输入二级密码保护答案！\　\请先点击【二级密码保护答案】输入你要设置的答案！
break

#IF
CHECKLEVELEX > 0
#act
MessageBox 您的二级帐号密码：<$STR(S90)>\二级密码保护生日：<$STR(N69)>\二级密码保护问题：<$STR(S88)>\二级密码保护答案：<$STR(S89)>\提交后将不能修改，是否确定提交以下密码及密码保护资料设置？\ @确定1 @取消1

[@取消1]
#IF
checklevelex > 0
#ACT
GOTO @初始设置二级密码0
BREAK

[@确定1]
#IF
Equal S90
#act
goto @初始设置二级密码
messagebox 您还没有输入密码！\　\请先点击【设置二级帐号密码】输入你要设置的密码！
break

#IF
LARGE N69 10000000
small N69 29999999
#elseact
MOV N69 0
goto @初始设置二级密码
messagebox 您还没有输入二级密码保护生日！\　\请先点击【二级密码保护生日】输入你要设置的生日！
break

#IF
Equal S88
#act
goto @初始设置二级密码
messagebox 您还没有输入二级密码保护问题！\　\请先点击【二级密码保护问题】输入你要设置的问题！
break
#IF
Equal S89
#act
goto @初始设置二级密码
messagebox 您还没有输入二级密码保护答案！\　\请先点击【二级密码保护答案】输入你要设置的答案！
break

#if
checkvar HUMAN 二级登陆密码 =
checkvar HUMAN 二级密码生日 =
checkvar HUMAN 二级密码答案 =
#act
CALCVAR HUMAN 二级登陆密码 = <$STR(S90)>
CALCVAR HUMAN 二级机器码 = <$USERMACHINEID>
CALCVAR HUMAN 二级登陆次数 = 0
CALCVAR HUMAN 二级密码生日 = <$STR(N69)>
CALCVAR HUMAN 二级密码问题 = <$STR(S88)>
CALCVAR HUMAN 二级密码答案 = <$STR(S89)>
SAVEVAR HUMAN 二级登陆密码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级机器码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级密码生日 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级密码问题 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级密码答案 ..\QuestDiary\重要数据\二级密码.txt
SENDMSG 6 恭喜您！您成功设置二级密码为：【<$STR(S90)>】
SENDMSG 6 您成功设置二级密码保护生日为：【<$STR(N69)>】
SENDMSG 6 您成功设置二级密码保护问题为：【<$STR(S88)>】
SENDMSG 6 您成功设置二级密码保护答案为：【<$STR(S89)>】
MOV S90
MOV S88
MOV S89
MOV N69 0
break
#say
<恭喜您成功设置二级密码及密码保护。请牢记以下资料：/FCOLOR=254>\ \
<您的二级帐号密码为/FCOLOR=250>：<$HUMAN(二级登陆密码)>\
<二级密码保护生日为/FCOLOR=250>：<$HUMAN(二级密码生日)>\
<二级密码保护问题为/FCOLOR=250>：<$HUMAN(二级密码问题)>\
<二级密码保护答案为/FCOLOR=250>：<$HUMAN(二级密码答案)>\ \
<返回./@main>\
<退出./@exit>

#if
checkvar HUMAN 二级登陆密码 =
#act
MOV S90
MOV S88
MOV S89
MOV N69 0
break
#say
\　\
\　\
<点此输入→/FCOLOR=250><设置您的二级帐号密码/@@InPutString93>\
#elseact
MOV S90
MOV S88
MOV S89
MOV N69 0
goto @main
messagebox 对不起，您已经设置过二级密码，您可以点击修改密码进行修改。
break

[@设置下次上线需要输入二级密码]
#if
checkvar human 二级登陆密码 =
#ACT
messagebox 对不起，你还没有设置二级密码，请先设置二级密码才能进行此操作！
break

#if
CHECK [390] 0
#ACT
SET [390] 1
messagebox 恭喜你设置成功，下次上线需要输入二级密码！
goto @main
BREAK
#elseact
SET [390] 0
messagebox 恭喜你取消成功，已取消下次上线需要输入二级密码！
goto @main
BREAK

[@修改二级密码]
#if
checkvar human 二级登陆密码 =
#ACT
messagebox 对不起，你还没有设置二级密码，请先设置二级密码才能进行此操作！
break
#elsesay
为了防止木马盗号事件让玩家造成损失，现在特采用双密码验证登\
陆，当玩家电脑机器码与之前登陆不同时会锁定玩家角色，需输入\
二次密码解锁。如果你还未设置二级密码，请点击下面的设置密码\
设置。密码可以为数字、字母、