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

#IF
Equal S87
#act
goto @找回二级密码
messagebox 您还没有输入密码！\　\请先点击【新的二级帐号密码】输入你要设置的新密码！
break

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

#IF
Equal S85
#act
goto @找回二级密码
messagebox 您还没有输入二级密码保护问题！\　\请先点击【您的二级密码保护问题】输入你的问题！
break

#IF
Equal S86
#act
goto @找回二级密码
messagebox 您还没有输入二级密码保护答案！\　\请先点击【您的二级密码保护答案】输入你的答案！
break

#if
checkvar HUMAN 二级密码生日 = <$STR(N68)>
#elseact
messagebox 对不起您的密码保护生日不是【<$STR(N68)>】，请重新输入！
MOV N68 0
goto @找回二级密码
break

#if
checkvar HUMAN 二级密码问题 = <$STR(S85)>
#elseact
messagebox 对不起您的密码保护问题不是【<$STR(S85)>】，请重新输入！
MOV S85
goto @找回二级密码
break

#if
checkvar HUMAN 二级密码答案 = <$STR(S86)>
#act
CALCVAR HUMAN 二级登陆密码 = <$STR(S87)>
CALCVAR HUMAN 二级机器码 = <$USERMACHINEID>
CALCVAR HUMAN 二级登陆次数 = 0
SAVEVAR HUMAN 二级登陆密码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级机器码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
SENDMSG 6 恭喜您！您成功设置新的二级密码为：【<$STR(S87)>】
MOV S85
MOV S86
MOV S87
MOV N68 0
break
#say
<恭喜您成功设置新的二级密码。请务必牢记，不要再忘记了！/FCOLOR=254>\ \ \
<您新的二级帐号密码为/FCOLOR=250>：<$HUMAN(二级登陆密码)>\ \ \
<返回./@main>\
<退出./@exit>

#elseact
messagebox 对不起您的密码保护答案不是【<$STR(S86)>】，请重新输入！
MOV S86
goto @找回二级密码
break

[@初始设置二级密码0]
#if
checkvar HUMAN 二级登陆密码 =
checkvar HUMAN 二级密码问题 =
checkvar HUMAN 二级密码答案 =
#act
MOV N69 0
MOV S88
MOV S89
MOV S90
GOTO @初始设置二级密码
break

#if
checkvar HUMAN 二级登陆密码 =
#say
\　\
\　\
<点此输入→/FCOLOR=250><设置您的二级帐号密码/@@InPutString93>\
#elseact
goto @main
messagebox 对不起，您已经设置过二级密码！
break

[@初始设置二级密码]
#if
checkvar HUMAN 二级登陆密码 =
checkvar HUMAN 二级密码问题 =
checkvar HUMAN 二级密码答案 =
#act
break
#say
<点此输入→/FCOLOR=250><设置二级帐号密码/@@InPutString90>：<$STR(S90)>\ \
<以下为二级密码保护资料，忘记二级密码可以通过密码保护找回/FCOLOR=254>\ \
<点此输入→/FCOLOR=250><二级密码保护生日/@@InPutInteger69>：<$STR(N69)> <(格式：19800902)/FCOLOR=249>\
<点此输入→/FCOLOR=250><二级密码保护问题/@@InPutString88>：<$STR(S88)>\
<点此输入→/FCOLOR=250><二级密码保护答案/@@InPutString89>：<$STR(S89)>\ \
<确定设置二级密码及密码保护资料/@确定设置二级密码及密码保护资料>
#if
checkvar HUMAN 二级登陆密码 =
#say
\　\
\　\
<点此输入→/FCOLOR=250><设置您的二级帐号密码/@@InPutString93>\
#elseact
goto @main
messagebox 对不起，您已经设置过二级密码！
break

[@InPutInteger69]
#IF
CHECKLEVELEX > 0
#ACT
DELAYGOTO 1 ~InPutInteger69

[~InPutInteger69]
#IF
LARGE N69 10000000
small N69 29999999
#ACT
goto @初始设置二级密码
SENDMSG 6 您设置二级密码保护生日为：【<$STR(N69)>】，请牢记此生日。
break
#IF
LARGE N69 0
#ACT
MOV N69 0
goto @初始设置二级密码
messagebox 出错！生日必须为8位纯数字格式(格式：19800902)！\　\请重新输入你要设置的生日！
#elseact
goto @初始设置二级密码
messagebox 出错！生日必须为纯数字格式，不能带符号！\　\请重新输入你要设置的生日！
break

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

break
#elseact
DELAYGOTO 1 ~InPutString88

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

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

[~InPutString89]
#if
Equal S89
#act
goto @初始设置二级密码
messagebox 请输入你要设置的二级密码保护答案！
break
#elseac