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

(@@InPutString @@InPutInteger )
[@main]
为了防止木马盗号事件让玩家造成损失，现在特采用双密码验证登\
陆，当玩家电脑机器码与之前登陆不同时会锁定玩家角色，需输入\
二次密码解锁。如果你还未设置二级密码，请点击下面的设置密码\
设置。密码可以为数字、字母、汉字、特殊字符，<字母区分大小写！！/FCOLOR=249>\
<请玩家不要将二次密码设置成与登陆密码一致！/FCOLOR=254>\
设置好之后请不要泄漏给任何人。<注：密码中如包含字母区分大小写/FCOLOR=249>\ \
<设置密码/@初始设置二级密码0>　　<修改密码/@修改二级密码>　　<设置下次上线需要输入二级密码/@设置下次上线需要输入二级密码>←<再点取消/FCOLOR=253>\
<清除密码/@清除二级密码0>　　<找回密码/@找回二级密码0>　　↑<网吧用户可设此功能防止同网吧盗号/FCOLOR=249>

[@清除二级密码0]
#if
checkvar HUMAN 二级登陆密码 =
#act
goto @main
messagebox 您都还没有设置二级密码，清除什么？请先设置二级密码！
break
#elseACT
MOV N67 0
MOV S83
MOV S84
GOTO @清除二级密码

[@清除二级密码]
#if
checkvar HUMAN 二级登陆密码 =
#act
goto @main
messagebox 您都还没有设置二级密码，清除什么？请先设置二级密码！
break
#elsesay
<请正确填写以下密码保护资料为您清除二级帐号密码：/FCOLOR=254>\ \
<点此输入→/FCOLOR=250><您的二级密码保护生日/@@InPutInteger67>：<$STR(N67)>\
<点此输入→/FCOLOR=250><您的二级密码保护问题/@@InPutString83>：<$STR(S83)>\
<点此输入→/FCOLOR=250><您的二级密码保护答案/@@InPutString84>：<$STR(S84)>\ \
<确定清除二级帐号密码/@确定清除二级帐号密码>

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

[~InPutInteger67]
#IF
LARGE N67 10000000
small N67 29999999
#ACT
goto @清除二级密码
break

#IF
LARGE N67 0
#ACT
MOV N67 0
goto @清除二级密码
messagebox 出错！生日必须为8位纯数字格式(格式：19700902)！\　\请重新输入你的生日！
#elseact
goto @清除二级密码
messagebox 出错！生日必须为纯数字格式，不能带符号！\　\请重新输入你的生日！
break

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

[~InPutString83]
#if
Equal S83
#act
goto @清除二级密码
messagebox 请输入你的二级密码保护问题！
break
#elseact
goto @清除二级密码
break

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

[~InPutString84]
#if
Equal S84
#act
goto @清除二级密码
messagebox 请输入你要的二级密码保护答案！
break
#elseact
goto @清除二级密码
break

[@确定清除二级帐号密码]
#if
checkvar HUMAN 二级登陆密码 =
#act
goto @main
messagebox 您都还没有设置二级密码，清除什么？请先设置二级密码！
break
#IF
LARGE N67 10000000
small N67 29999999
#elseact
MOV N67 0
goto @清除二级密码
messagebox 您还没有输入二级密码保护生日！\　\请先点击【您的二级密码保护生日】输入你的生日！
break

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

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

#IF
CHECKLEVELEX > 0
#act
MessageBox 清除二级密码后将无法保障你帐号安全，请谨慎操作！\　\是否确定将二级密码清除？\　\　\ @确定3 @取消3

[@取消3]
#IF
checklevelex > 0
#ACT
GOTO @清除二级密码0
BREAK

[@确定3]
#if
checkvar HUMAN 二级登陆密码 =
#act
goto @main
messagebox 您都还没有设置过二级密码，清除什么？请先设置二级密码！
break

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

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

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

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

#if
checkvar HUMAN 二级密码问题 = <$STR(S83)>
#elseact
messagebox 对不起您的密码保护问题不是【<$STR(S83)>