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

陈陈430

[AppleScript]  

1. [@二级密码1]
2. {
3. #IF
4. #ACT
5. OPENMERCHANTBIGDLG  17 70 3 4 0 -120 1 730 110
6. #SAY
7. \ \
9. <><ImgEx:17:72:72:72:360:347|251#‘请设置为３－６个汉字’/@@InPutString97>               <ImgEx:17:74:74:74:340:347|251#‘请输入原二级密码’/@@InPutString98(请输入旧密码)>  \
14. [@InPutString98]
15. #IF
16. EQUAL S98 <$STR(T25)>
17. #ACT
18. GOTO @修改密保
19. MOV S98
20. #elseact
21. MESSAGEBOX 原二级密码错误不能修改
22. CLOSE
25. [@修改密保]
26. #IF
27. #ACT
28. OPENMERCHANTBIGDLG  17 70 3 4 0 -120 1 730 110
29. #SAY
30. \ \
31. <><ImgEx:17:72:72:72:460:347|251#‘请设置新二级密码’^-^254#必须为３－６个汉字/@@InPutString99>
35. [@InPutString99]
36. #IF
37. CheckStringlength <$STR(S99)> < 6
38. #ACT
39. MESSAGEBOX 密码最少输入3个汉字，最多6个汉字！
40. break
42. #IF
43. CheckStringlength <$STR(S99)> > 12
44. #ACT
45. MESSAGEBOX 密码最少输入3个汉字，最多6个汉字！
46. break
48. #or
49. CheckContainsText <$STR(S99)> @
50. CheckContainsText <$STR(S99)> (
51. CheckContainsText <$STR(S99)> )
52. CheckContainsText <$STR(S99)> [
53. CheckContainsText <$STR(S99)> ]
54. CheckContainsText <$STR(S99)> {
55. CheckContainsText <$STR(S99)> }
56. CheckContainsText <$STR(S99)> *
57. CheckContainsText <$STR(S99)> /
58. CheckContainsText <$STR(S99)> \
59. CheckContainsText <$STR(S99)> $
60. CheckContainsText <$STR(S99)> &
61. CheckContainsText <$STR(S99)> 0
62. CheckContainsText <$STR(S99)> 1
63. CheckContainsText <$STR(S99)> 2
64. CheckContainsText <$STR(S99)> 3
65. CheckContainsText <$STR(S99)> 4
66. CheckContainsText <$STR(S99)> 5
67. CheckContainsText <$STR(S99)> 6
68. CheckContainsText <$STR(S99)> 7
69. CheckContainsText <$STR(S99)> 8
70. CheckContainsText <$STR(S99)> 9
71. CheckContainsText <$STR(S99)> a
72. CheckContainsText <$STR(S99)> b
73. CheckContainsText <$STR(S99)> c
74. CheckContainsText <$STR(S99)> d
75. CheckContainsText <$STR(S99)> e
76. CheckContainsText <$STR(S99)> f
77. CheckContainsText <$STR(S99)> g
78. CheckContainsText <$STR(S99)> h
79. CheckContainsText <$STR(S99)> i
80. CheckContainsText <$STR(S99)> j
81. CheckContainsText <$STR(S99)> k
82. CheckContainsText <$STR(S99)> l
83. CheckContainsText <$STR(S99)> m
84. CheckContainsText <$STR(S99)> n
85. CheckContainsText <$STR(S99)> o
86. CheckContainsText <$STR(S99)> p
87. CheckContainsText <$STR(S99)> q
88. CheckContainsText <$STR(S99)> r
89. CheckContainsText <$STR(S99)> s
90. CheckContainsText <$STR(S99)> t
91. CheckContainsText <$STR(S99)> u
92. CheckContainsText <$STR(S99)> v
93. CheckContainsText <$STR(S99)> w
94. CheckContainsText <$STR(S99)> x
95. CheckContainsText <$STR(S99)> y
96. CheckContainsText <$STR(S99)> z
97. #act
98. MESSAGEBOX 二级密码必须设置为汉字！！！
99. break
101. #if
102. #act
103. MOV T25 <$STR(S99)>
104. MESSAGEBOX 【设置密保成功，请牢记您的密保：[<$STR(S99)>]】
105. GuildNoticeMsg 254 200 【设置密保成功，请牢记您的密保：[<$STR(S99)>] SELF
106. GOTO @@InPutString98
107. MOV S99
108. CLOSE
110. [@InPutString97]
111. #IF
112. CheckStringlength <$STR(S97)> < 6
113. #ACT
114. MESSAGEBOX 密码最少输入3个汉字，最多6个汉字！
115. break
117. #IF
118. CheckStringlength <$STR(S97)> > 12
119. #ACT
120. MESSAGEBOX 密码最少输入3个汉字，最多6个汉字！
121. break
123. #or
124. CheckContainsText <$STR(S97)> @
125. CheckContainsText <$STR(S97)> (
126. CheckContainsText <$STR(S97)> )
127. CheckContainsText <$STR(S97)> [
128. CheckContainsText <$STR(S97)> ]
129. CheckContainsText <$STR(S97)> {
130. CheckContainsText <$STR(S97)> }
131. CheckContainsText <$STR(S97)> *
132. CheckContainsText <$STR(S97)> /
133. CheckContainsText <$STR(S97)> \
134. CheckContainsText <$STR(S97)> $
135. CheckContainsText <$STR(S97)> &
136. CheckContainsText <$STR(S97)> 0
137. CheckContainsText <$STR(S97)> 1
138. CheckContainsText <$STR(S97)> 2
139. CheckContainsText <$STR(S97)> 3
140. CheckContainsText <$STR(S97)> 4
141. CheckContainsText <$STR(S97)> 5
142. CheckContainsText <$STR(S97)> 6
143. CheckContainsText <$STR(S97)> 7
144. CheckContainsText <$STR(S97)> 8
145. CheckContainsText <$STR(S97)> 9
146. CheckContainsText <$STR(S97)> a
147. CheckContainsText <$STR(S97)> b
148. CheckContainsText <$STR(S97)> c
149. CheckContainsText <$STR(S97)> d
150. CheckContainsText <$STR(S97)> e
151. CheckContainsText <$STR(S97)> f
152. CheckContainsText <$STR(S97)> g
153. CheckContainsText <$STR(S97)> h
154. CheckContainsText <$STR(S97)> i
155. CheckContainsText <$STR(S97)> j
156. CheckContainsText <$STR(S97)> k
157. CheckContainsText <$STR(S97)> l
158. CheckContainsText <$STR(S97)> m
159. CheckContainsText <$STR(S97)> n
160. CheckContainsText <$STR(S97)> o
161. CheckContainsText <$STR(S97)> p
162. CheckContainsText <$STR(S97)> q
163. CheckContainsText <$STR(S97)> r
164. CheckContainsText <$STR(S97)> s
165. CheckContainsText <$STR(S97)> t
166. CheckContainsText <$STR(S97)> u
167. CheckContainsText <$STR(S97)> v
168. CheckContainsText <$STR(S97)> w
169. CheckContainsText <$STR(S97)> x
170. CheckContainsText <$STR(S97)> y
171. CheckContainsText <$STR(S97)> z
172. #act
173. MESSAGEBOX 二级密码必须设置为汉字！！！
174. break
176. #if
177. NOT equal T25
178. #act
179. MESSAGEBOX 　你已经设置过二级密码！！\　\　如果要修改密码请点击修改密码按钮！！
180. break
182. #IF
183. #ACT
184. MOV T25 <$STR(S97)>
185. MESSAGEBOX 【设置密保成功，请牢记您的密保：[<$STR(S97)>]】
186. GuildNoticeMsg 254 200 【设置密保成功，请牢记您的密保：[<$STR(S97)>] SELF
187. MOV S97
188. CLOSE
189. }

复制代码

良辰743

楼主，大恩不言谢了！GM爱好者：www.gmahz.com是最棒的！

a3583028

努力赚币中。。。

高山花环

论坛不能没有像楼主这样的人才啊！我会一直支持GM爱好者：www.gmahz.com

麦子971

这东西我收了！谢谢楼主！GM爱好者：www.gmahz.com真好！

没薪没费

感谢楼主的无私分享！要想GM爱好者：www.gmahz.com好 就靠你我他

luly靓

楼主太厉害了！楼主，I*老*虎*U！我觉得GM爱好者：www.gmahz.com真是个好地方

1508043935

金币我要攒金币！！！

一米天堂

我看不错噢 谢谢楼主！GM爱好者：www.gmahz.com越来越好！