GOM引擎传奇脚本-行会竞标及行会自助招人系统脚本实例

admin

说明：有些不显示的图标按钮可以自己修改或添加，不影响脚本使用

1. ()
   
2. %100
   
3. [@main]
   
4. #act
   
5. #say
   
6. <PlayImg::34:31:1:100:515:95/@exit>
   
7. \ \ \ \ \ \ \ \ \
   
8. <>             <★━━━━★/SCOLOR=250>　　━━━ 行会【<$STR(A50)>】自助招人系统 ━━━\
   
9. <>             <┃/SCOLOR=250>行 <■/AUTOCOLOR=254,250,253,241> 竞<┃/SCOLOR=250>　　<加入该行会的最低等级要求是：/AUTOCOLOR=249><$STR(G108)>级以上\
   
10. <>             <┃/SCOLOR=250> <■/AUTOCOLOR=250,251,241,254>板<■/AUTOCOLOR=241,250,253,254> <┃/SCOLOR=250> 　　[<加入行会/@jrxh>]　[<参加竞价/@cyjj>]　[<管理选项/@竞标台管理>]\
    
11. <>             <┃/SCOLOR=250>会 <■/AUTOCOLOR=250,253,254,241> 价<┃/SCOLOR=250>　　\
    
12. <>             <★━━━━★/SCOLOR=250>　　━━━━━━━━━━━━━━━━━━━━━━━\
    
13. <>             <【行会名称】/SCOLOR=154>：【<$STR(A50)>】　　　　　<行会掌门：/SCOLOR=154>【<$STR(A52)>】\
    
14. <>             <【竞标价格】/SCOLOR=154>：【<$STR(G56)>】\
    
15. <>             <【掌门致辞】/SCOLOR=154>：【<$STR(A51)>】\ \ \
    
16. <>             <您支付比目前竞价多100万元宝，即可让你建的行会成为[天下第一行会]/AUTOCOLOR=250,253,254,241>\
    
17. 
    
18. 
    
19. 
    
20. 
    
21. 
    
22. [@cyjj]
    
23. #IF
    
24. HAVEGUILD
    
25. ISGUILDMASTER
    
26. checkgamegold > <$STR(G56)>
    
27. #ACT
    
28. INC G56 1000000
    
29. gamegold - <$STR(G56)>
    
30. mov A50 <$GUILDNAME>
    
31. mov A52 <$USERNAME>
    
32. Messagebox [成功]：您在行会竞价板上花了【<$STR(G56)>】个元宝竞得。
    
33. GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
    
34. GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
    
35. GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
    
36. GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
    
37. GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
    
38. SENDMSG 6 提示：竞价成功，消费【<$STR(G56)>元宝】！你当前的元宝余额为【<$GAMEGOLD>】！！
    
39. BREAK
    
40. #ELSEACT
    
41. Messagebox [失败]：您的元宝不足或者您没有行会
    
42. 
    
43. 
    
44. 
    
45. 
    
46. 
    
47. [@jrxh]
    
48. #if
    
49. equal G109 1
    
50. #act
    
51. messagebox 对不起，本行会暂时不收人
    
52. break
    
53. 
    
54. #if
    
55. CHECKLEVELEX < <$STR(G108)>
    
56. #act
    
57. messagebox 等级不够！
    
58. break
    
59. 
    
60. #IF
    
61. ISGUILDMASTER
    
62. #ACT
    
63. Messagebox [失败]：您现在是行会掌门不能在加入其他行会！！
    
64. break
    
65. 
    
66. #IF
    
67. equal A50 <$GUILDNAME>
    
68. #ACT
    
69. Messagebox [失败]：您现在已经是【<$STR(A50)>】的行会成员了！！
    
70. break
    
71. #ELSEACT
    
72. goto @jrxh3
    
73. 
    
74. 
    
75. 
    
76. 
    
77. 
    
78. [@jrxh3]
    
79. #IF
    
80. HAVEGUILD
    
81. #ACT
    
82. Gmexecute 退出行会
    
83. DELAYGOTO 3 @jrxh4
    
84. #ELSEACT
    
85. goto @jrxh4
    
86. 
    
87. 
    
88. 
    
89. 
    
90. 
    
91. [@jrxh4]
    
92. #IF
    
93. equal A50
    
94. #ACT
    
95. Messagebox [失败]：现在还没行会竟价格
    
96. #ELSEACT
    
97. AddGuildMember <$STR(A50)>
    
98. SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
    
99. SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
    
100. SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
     
101. SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
     
102. SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
     
103. break
     
104. 
     
105. 
     
106. 
     
107. 
     
108. 
     
109. 
     
110. [@竞标台管理]
     
111. #if
     
112. ISGUILDMASTER
     
113. equal A50 <$GUILDNAME>
     
114. #act
     
115. goto @竞标台管理2
     
116. #elseact
     
117. SENDMSG 5 [只有本行会掌门才可以进行管理]
     
118. goto @main
     
119. 
     
120. 
     
121. 
     
122. 
     
123. 
     
124. [@竞标台管理2]
     
125. #if
     
126. equal G109 0
     
127. #act
     
128. mov S1 <开启/SCOLOR=250>
     
129. #if
     
130. equal G109 1
     
131. #act
     
132. mov S1 <关闭>
     
133. #if
     
134. equal G110 0
     
135. #act
     
136. mov S2 <允许/SCOLOR=250>
     
137. #if
     
138. equal g110 1
     
139. #act
     
140. mov S2 <禁止>
     
141. #if
     
142. #act
     
143. OPENMERCHANTBIGDLG 34 30 0 4 0 -95 0 0 0 \
     
144. #say
     
145. <PlayImg::34:31:1:100:515:95/@exit>
     
146. \ \ \ \ \ \ \ \ \
     
147. <>               →<修改公告内容/@@InPutString5>  当前公告内容:<$STR(S5)>\
     
148. <>               →<修改等级要求/@@InPutInteger71>  当前等级要求:<$STR(G108)>级\ \
     
149. <>               →<行会收人状态/SCOLOR=254> 当前状态为：<$STR(s1)>  [<更改/@gg1>]\ \
     
150. <>               →<返回/@main>
     
151. 
     
152. 
     
153. 
     
154. 
     
155. [@gg1]
     
156. #if
     
157. equal G109 0
     
158. #act
     
159. mov G109 1
     
160. messagebox 行会收人状态→关闭
     
161. goto @竞标台管理
     
162. break
     
163. #if
     
164. equal G109 1
     
165. #act
     
166. mov G109 0
     
167. messagebox 行会收人状态→开放
     
168. goto @竞标台管理
     
169. break
     
170. 
     
171. 
     
172. 
     
173. 
     
174. 
     
175. [@InPutInteger71]
     
176. #if
     
177. large N71 10
     
178. small N71 150001
     
179. #act
     
180. mov G108 <$STR(N71)>
     
181. messagebox 设定成功，加入你的行会的最低等级要求是<$STR(N71)>级！
     
182. goto @竞标台管理
     
183. #elseact
     
184. messagebox 【错误提示】:\　\　　　　　　㈠　请输入一个10－150000间的整数！\　\　　　　　　㈡　请输入数字，勿输入其它字符！
     
185. goto @竞标台管理
     
186. 
     
187. 
     
188. 
     
189. 
     
190. 
     
191. 
     
192. [@InPutString5]
     
193. #if
     
194. #act
     
195. mov A51 <$STR(S5)>
     
196. messagebox 修改成功，公告内容为<$STR(S5)>！
     
197. goto @竞标台管理
     
198. #elseact
     
199. messagebox 【错误提示】:非法字符，请输入一段文本，勿输入其它字符！
     
200. goto @竞标台管理

复制代码