传奇版本游戏中二级密码设置脚本

[AppleScript] 纯文本查看 复制代码

[@二级密码1]
{
#IF 
#ACT
OPENMERCHANTBIGDLG  17 70 3 4 0 -120 1 730 110
#SAY
\ \

<><ImgEx:17:72:72:72:360:347|251#‘请设置为３－６个汉字’/@@InPutString97>               <ImgEx:17:74:74:74:340:347|251#‘请输入原二级密码’/@@InPutString98(请输入旧密码)>  \

  


[@InPutString98]
#IF
EQUAL S98 <$STR(T25)>
#ACT
GOTO @修改密保
MOV S98
#elseact
MESSAGEBOX 原二级密码错误不能修改
CLOSE


[@修改密保]
#IF 
#ACT
OPENMERCHANTBIGDLG  17 70 3 4 0 -120 1 730 110
#SAY
\ \
<><ImgEx:17:72:72:72:460:347|251#‘请设置新二级密码’^-^254#必须为３－６个汉字/@@InPutString99>



[@InPutString99]
#IF
CheckStringlength <$STR(S99)> < 6
#ACT
MESSAGEBOX 密码最少输入3个汉字，最多6个汉字！
break

#IF
CheckStringlength <$STR(S99)> > 12
#ACT
MESSAGEBOX 密码最少输入3个汉字，最多6个汉字！
break

#or
CheckContainsText <$STR(S99)> @
CheckContainsText <$STR(S99)> (
CheckContainsText <$STR(S99)> )
CheckContainsText <$STR(S99)> [
CheckContainsText <$STR(S99)> ]
CheckContainsText <$STR(S99)> {
CheckContainsText <$STR(S99)> }
CheckContainsText <$STR(S99)> *
CheckContainsText <$STR(S99)> /
CheckContainsText <$STR(S99)> \
CheckContainsText <$STR(S99)> $
CheckContainsText <$STR(S99)> &
CheckContainsText <$STR(S99)> 0
CheckContainsText <$STR(S99)> 1
CheckContainsText <$STR(S99)> 2
CheckContainsText <$STR(S99)> 3
CheckContainsText <$STR(S99)> 4
CheckContainsText <$STR(S99)> 5
CheckContainsText <$STR(S99)> 6
CheckContainsText <$STR(S99)> 7
CheckContainsText <$STR(S99)> 8
CheckContainsText <$STR(S99)> 9
CheckContainsText <$STR(S99)> a
CheckContainsText <$STR(S99)> b
CheckContainsText <$STR(S99)> c
CheckContainsText <$STR(S99)> d
CheckContainsText <$STR(S99)> e
CheckContainsText <$STR(S99)> f
CheckContainsText <$STR(S99)> g
CheckContainsText <$STR(S99)> h
CheckContainsText <$STR(S99)> i
CheckContainsText <$STR(S99)> j
CheckContainsText <$STR(S99)> k
CheckContainsText <$STR(S99)> l
CheckContainsText <$STR(S99)> m
CheckContainsText <$STR(S99)> n
CheckContainsText <$STR(S99)> o
CheckContainsText <$STR(S99)> p
CheckContainsText <$STR(S99)> q
CheckContainsText <$STR(S99)> r
CheckContainsText <$STR(S99)> s
CheckContainsText <$STR(S99)> t
CheckContainsText <$STR(S99)> u
CheckContainsText <$STR(S99)> v
CheckContainsText <$STR(S99)> w
CheckContainsText <$STR(S99)> x
CheckContainsText <$STR(S99)> y
CheckContainsText <$STR(S99)> z
#act
MESSAGEBOX 二级密码必须设置为汉字！！！
break

#if
#act
MOV T25 <$STR(S99)>
MESSAGEBOX 【设置密保成功，请牢记您的密保：[<$STR(S99)>]】
GuildNoticeMsg 254 200 【设置密保成功，请牢记您的密保：[<$STR(S99)>] SELF
GOTO @@InPutString98
MOV S99
CLOSE

[@InPutString97]
#IF
CheckStringlength <$STR(S97)> < 6
#ACT
MESSAGEBOX 密码最少输入3个汉字，最多6个汉字！
break

#IF
CheckStringlength <$STR(S97)> > 12
#ACT
MESSAGEBOX 密码最少输入3个汉字，最多6个汉字！
break

#or
CheckContainsText <$STR(S97)> @
CheckContainsText <$STR(S97)> (
CheckContainsText <$STR(S97)> )
CheckContainsText <$STR(S97)> [
CheckContainsText <$STR(S97)> ]
CheckContainsText <$STR(S97)> {
CheckContainsText <$STR(S97)> }
CheckContainsText <$STR(S97)> *
CheckContainsText <$STR(S97)> /
CheckContainsText <$STR(S97)> \
CheckContainsText <$STR(S97)> $
CheckContainsText <$STR(S97)> &
CheckContainsText <$STR(S97)> 0
CheckContainsText <$STR(S97)> 1
CheckContainsText <$STR(S97)> 2
CheckContainsText <$STR(S97)> 3
CheckContainsText <$STR(S97)> 4
CheckContainsText <$STR(S97)> 5
CheckContainsText <$STR(S97)> 6
CheckContainsText <$STR(S97)> 7
CheckContainsText <$STR(S97)> 8
CheckContainsText <$STR(S97)> 9
CheckContainsText <$STR(S97)> a
CheckContainsText <$STR(S97)> b
CheckContainsText <$STR(S97)> c
CheckContainsText <$STR(S97)> d
CheckContainsText <$STR(S97)> e
CheckContainsText <$STR(S97)> f
CheckContainsText <$STR(S97)> g
CheckContainsText <$STR(S97)> h
CheckContainsText <$STR(S97)> i
CheckContainsText <$STR(S97)> j
CheckContainsText <$STR(S97)> k
CheckContainsText <$STR(S97)> l
CheckContainsText <$STR(S97)> m
CheckContainsText <$STR(S97)> n
CheckContainsText <$STR(S97)> o
CheckContainsText <$STR(S97)> p
CheckContainsText <$STR(S97)> q
CheckContainsText <$STR(S97)> r
CheckContainsText <$STR(S97)> s
CheckContainsText <$STR(S97)> t
CheckContainsText <$STR(S97)> u
CheckContainsText <$STR(S97)> v
CheckContainsText <$STR(S97)> w
CheckContainsText <$STR(S97)> x
CheckContainsText <$STR(S97)> y
CheckContainsText <$STR(S97)> z
#act
MESSAGEBOX 二级密码必须设置为汉字！！！
break

#if
NOT equal T25 
#act
MESSAGEBOX 　你已经设置过二级密码！！\　\　如果要修改密码请点击修改密码按钮！！
break

#IF
#ACT
MOV T25 <$STR(S97)>
MESSAGEBOX 【设置密保成功，请牢记您的密保：[<$STR(S97)>]】
GuildNoticeMsg 254 200 【设置密保成功，请牢记您的密保：[<$STR(S97)>] SELF
MOV S97
CLOSE
}