彩虹引擎得万能排序脚本

1. NPC调用脚本方式GOTO @标签&参数1&参数&参数3&参数4&参数5
   
2. 参数1    需要在NPC上展示的行数
   
3. 参数2    读取的起始行数，一般是0
   
4. 参数3    排序方式  -1/由小到大排列   0/由大到小排列   1/按行顺序排列
   
5. 参数4    用于参数3排序的位置，必须是数值。比如需要排列积分高低，就选择他在文本中的位置
   
6. 
   
7. 
   
8. <≡/@红袖商城&8&0&1&1&@红袖商城>    按行排列
   
9. <↓/@红袖商城&8&0&-1&1&@红袖商城>    小到大
   
10. <↑/@红袖商城&8&0&0&1&@红袖商城>     大到小
    
11. 
    
12. 
    
13. goto @红袖商城&8&<$DEC^$INC.$STR(M91).$STR(M96)^$STR(M90)>&1&1&@红袖商城          刷新当前页面
    
14. 刷新这个标签只是自动计算了需要读取的位置，其他参数不变。
    
15. 
    
16. 
    
17. 掌握了这几种调用方式，那么就可以开始使用这个脚本写任何排序。
    
18. 
    
19. 
    
20. 
    
21. 
    
22. <$STR(S282)>   读取到的内容，需要自行格式化。
    
23. <$STR(S283)>   自动翻页标签按钮，脚本自动生成
    
24. 
    
25. 
    
26. 
    
27. [@原野排行]
    
28. ;M90        显示行数                7
    
29. ;M91        读取位置                0
    
30. ;M92        排序方式                -1,优先小   0,优先大    1,按行    2,随机查询
    
31. ;M93        参数位置                4
    
32. ;S280        格式化方式        酒馆排行
    
33. ;S281        文件路径               
    
34. ;S282        返回的文字
    
35. ;S283        返回的按钮
    
36. {
    
37. 
    
38. #IF
    
39. !SMALL M90 1
    
40. !SMALL M91 0
    
41. !SMALL M92 -1
    
42. !SMALL M93 0
    
43. !EQUAL $STR(S280)
    
44. CHECKTXT <$STR(S281)>
    
45. #ACT
    
46. MOV M94 $TXTLINE(<$STR(S281)>)
    
47. MOV M95 0
    
48. MOV M96 0
    
49. MOV S282
    
50. GOTO @原野排行_READ
    
51. BREAK
    
52. #ELSEACT
    
53. MOV S282 \\\#32#32#32未查询到相关信息...
    
54. MOV S283 \\\#32#32#32<离开/@EXIT>
    
55. 
    
56. #IF
    
57. ISADMIN
    
58. #ACT
    
59. SENDMSG 6 调试信息：该信息仅GM可见。
    
60. SENDMSG 6 参数[1]:<$STR(M90)>
    
61. SENDMSG 6 参数[2]:<$STR(M91)>
    
62. SENDMSG 6 参数[3]:<$STR(M92)>
    
63. SENDMSG 6 参数[4]:<$STR(M93)>
    
64. SENDMSG 6 参数[5]:<$STR(S280)>
    
65. REPLACETEXT S281 \ ╲
    
66. SENDMSG 6 参数[6]:<$STR(S281)>
    
67. BREAK
    
68. 
    
69. 
    
70. [@原野排行_READ]
    
71. #IF
    
72. LARGE M94 $STR(M91)
    
73. SMALL M95 $STR(M90)
    
74. SMALL M92 1
    
75. #ACT
    
76. READRANDOMSTR <$STR(S281)> S289 $STR(M91) $STR(M92) $STR(M93) |
    
77. 
    
78. #IF
    
79. LARGE M94 $STR(M91)
    
80. SMALL M95 $STR(M90)
    
81. EQUAL M92 2
    
82. #ACT
    
83. MOVR M96 $DEC.$STR(M94).1
    
84. INC M96 1
    
85. READRANDOMSTR <$STR(S281)> S289 $STR(M96)
    
86. 
    
87. #IF
    
88. LARGE M94 $STR(M91)
    
89. SMALL M95 $STR(M90)
    
90. EQUAL M92 1
    
91. #ACT
    
92. READRANDOMSTR <$STR(S281)> S289 $STR(M91)
    
93. 
    
94. #IF
    
95. !EQUAL S289
    
96. #ACT
    
97. INC M91 1
    
98. INC M95 1
    
99. GOTO <$STR(S280)>_格式
    
100. MOV S289
     
101. GOTO @原野排行_READ
     
102. BREAK
     
103. 
     
104. #IF
     
105. SMALL M95 $STR(M90)
     
106. #ACT
     
107. INC M95 1
     
108. INC M96 1
     
109. INC S282 \
     
110. GOTO @原野排行_READ
     
111. BREAK
     
112. 
     
113. #IF
     
114. LARGE M91 $STR(M90)
     
115. #ACT
     
116. MOV M97 $INC.$STR(M91).$STR(M96)
     
117. DEC M97 $MULT.$STR(M90).2
     
118. FORMATSTR S284 <上一页/%s&%s&%s&%s&%s&%s> <$STR(S280)>|<$STR(M90)>|<$STR(M97)>|<$STR(M92)>|<$STR(M93)>|<$STR(S280)>
     
119. #ELSEACT
     
120. MOV S284 <COLOR=GRAY#32上一页>
     
121. 
     
122. #IF
     
123. LARGE M94 $STR(M91)
     
124. #ACT
     
125. FORMATSTR S285 <下一页/%s&%s&%s&%s&%s&%s> <$STR(S280)>|<$STR(M90)>|<$STR(M91)>|<$STR(M92)>|<$STR(M93)>|<$STR(S280)>
     
126. MOV M98 $STR(M91)
     
127. CEIL M98 $STR(M90)
     
128. MOV M99 $STR(M94)
     
129. CEIL M99 $STR(M90)
     
130. FORMATSTR S286 <第1页/%s&%s&%s&%s&%s&%s> <$STR(S280)>|<$STR(M90)>|0|<$STR(M92)>|<$STR(M93)>|<$STR(S280)>
     
131. ;FORMATSTR S283 %s%-6s%s%10s╱%-10s%s <$STR(S286)>|#32|<$STR(S284)>|<$STR(M98)>|<$STR(M99)>|<$STR(S285)>
     
132. 
     
133. FORMATSTR S283 %s%10s╱%-10s%s <$STR(S284)>|<$STR(M98)>|<$STR(M99)>|<$STR(S285)>
     
134. BREAK
     
135. #ELSEACT
     
136. MOV S285 <COLOR=GRAY#32下一页>
     
137. MOV M98 $STR(M91)
     
138. CEIL M98 $STR(M90)
     
139. MOV M99 $STR(M94)
     
140. CEIL M99 $STR(M90)
     
141. FORMATSTR S286 <第1页/%s&%s&%s&%s&%s&%s> <$STR(S280)>|<$STR(M90)>|0|<$STR(M92)>|<$STR(M93)>|<$STR(S280)>
     
142. ;FORMATSTR S283 %s%-6s%s%10s╱%-10s%s <$STR(S286)>|#32|<$STR(S284)>|<$STR(M98)>|<$STR(M99)>|<$STR(S285)>
     
143. FORMATSTR S283 %s%10s╱%-10s%s <$STR(S284)>|<$STR(M98)>|<$STR(M99)>|<$STR(S285)>
     
144. BREAK
     
145. 
     
146. 
     
147. ;------------------------------------------------------------------------------------------------------------------------格式化方式-------------------------------------------
     
148. 
     
149. [@别墅展示_格式]
     
150. #IF
     
151. !EQUAL S289
     
152. #ACT
     
153. MOV P97 $STR(M91)
     
154. MOD P97 $STR(M90)
     
155. #ELSEACT
     
156. BREAK
     
157. 
     
158. #IF
     
159. POS 123 $STR(P97)
     
160. #ACT
     
161. SPLIT $STR(S289) | S250
     
162. MOV S181 $STR(S252)
     
163. INC S251 ***
     
164. FILLTEXT S251 18
     
165. FILLTEXT S252 18
     
166. MOV P90 $STR(S256)
     
167. DEC P90 3
     
168. FORMATSTR S256 <COLOR=~别墅等级：%s$进入价格：%s元宝#32*> <$STR(P90)>级|<$STR(S254)>
     
169. REPLACETEXT S251 *** $STR(S256)
     
170. INC S201 <COLOR=FFFF00#32别墅名：>
     
171. INC S201 $STR(S251)
     
172. INC S202 <COLOR=FFFF00#32租赁人：>
     
173. INC S202 $STR(S252)
     
174. INC S203 <COLOR=FFFF00#32有效期：>
     
175. MOV P98 $STR(S253)
     
176. 
     
177. ;----------------------------------------第一段-----------------------------------------
     
178. 
     
179. #IF
     
180. POS 123 $STR(P97)
     
181. SMALL P98 $INC.$LONGDATE.60
     
182. !SMALL P98 $LONGDATE
     
183. #ACT
     
184. FORMATSTR S180 <COLOR=RED#32抢购锁定>%-10s #32
     
185. INC S203 $STR(S180)
     
186. BREAK
     
187. 
     
188. #IF
     
189. POS 123 $STR(P97)
     
190. LARGE P98 $LONGDATE
     
191. EQUAL S181 $USERNAME
     
192. #ACT
     
193. FORMATSTR S180 {COLOR=~当前别墅您可以无限进入#0XFFFF00FF$别墅剩余有效时间：%s#32进别墅Go~/@无限进&%s}%-7s <$DIV^$DEC.$STR(P98).$LONGDATE^60>分钟|<$STR(S250)>|#32
     
194. INC S203 $STR(S180)
     
195. BREAK
     
196. 
     
197. 
     
198. #IF
     
199. POS 123 $STR(P97)
     
200. SMALL P98 $LONGDATE
     
201. #ACT
     
202. FORMATSTR S180 <COLOR=GREEN#32租用该别墅/@进入别墅&%s>%-8s <$STR(S255)>|#32
     
203. INC S203 $STR(S180)
     
204. BREAK
     
205. 
     
206. #IF
     
207. POS 123 $STR(P97)
     
208. !EQUAL P98 0
     
209. #ACT
     
210. DEC P98 $LONGDATE
     
211. DIV P98 60
     
212. FORMATSTR S180 <COLOR=ORANGE#32余%-4s分>%-10s <$STR(P98)>|#32
     
213. INC S203 $STR(S180)
     
214. BREAK
     
215. ;----------------------
     
216. 
     
217. 
     
218. #IF
     
219. POS 456 $STR(P97)
     
220. #ACT
     
221. SPLIT $STR(S289) | S250
     
222. MOV S181 $STR(S252)
     
223. INC S251 ***
     
224. FILLTEXT S251 18
     
225. FILLTEXT S252 18
     
226. MOV P90 $STR(S256)
     
227. DEC P90 3
     
228. FORMATSTR S256 <COLOR=~别墅等级：%s$进入价格：%s元宝#32*> <$STR(P90)>级|<$STR(S254)>
     
229. 
     
230. REPLACETEXT S251 *** $STR(S256)
     
231. INC S204 <COLOR=FFFF00#32别墅名：>
     
232. INC S204 $STR(S251)
     
233. INC S205 <COLOR=FFFF00#32租赁人：>
     
234. INC S205 $STR(S252)
     
235. INC S206 <COLOR=FFFF00#32有效期：>
     
236. MOV P98 $STR(S253)
     
237. 
     
238. #IF
     
239. POS 456 $STR(P97)
     
240. SMALL P98 $INC.$LONGDATE.60
     
241. !SMALL P98 $LONGDATE
     
242. #ACT
     
243. FORMATSTR S180 <COLOR=RED#32抢购锁定中>%-10s #32
     
244. INC S206 $STR(S180)
     
245. BREAK
     
246. 
     
247. #IF
     
248. POS 456 $STR(P97)
     
249. LARGE P98 $LONGDATE
     
250. EQUAL S181 $USERNAME
     
251. #ACT
     
252. FORMATSTR S180 {COLOR=~当前别墅您可以无限进入#0XFFFF00FF$别墅剩余有效时间：%s#32进别墅Go~/@无限进&%s}%-7s <$DIV^$DEC.$STR(P98).$LONGDATE^60>分钟|<$STR(S255)>|#32
     
253. INC S206 $STR(S180)
     
254. BREAK
     
255. 
     
256. 
     
257. #IF
     
258. POS 456 $STR(P97)
     
259. SMALL P98 $LONGDATE
     
260. #ACT
     
261. FORMATSTR S180 <COLOR=GREEN#32租用该别墅/@进入别墅&%s>%-8s <$STR(S255)>|#32
     
262. INC S206 $STR(S180)
     
263. BREAK
     
264. 
     
265. #IF
     
266. POS 456 $STR(P97)
     
267. !EQUAL P98 0
     
268. #ACT
     
269. DEC P98 $LONGDATE
     
270. DIV P98 60
     
271. FORMATSTR S180 <COLOR=RED#32余%-4s分>%-10s <$STR(P98)>|#32
     
272. INC S206 $STR(S180)
     
273. BREAK
     
274. 
     
275. 
     
276. ;----------------------
     
277. #IF
     
278. POS 780 $STR(P97)
     
279. #ACT
     
280. SPLIT $STR(S289) | S250
     
281. MOV S181 $STR(S252)
     
282. INC S251 ***
     
283. FILLTEXT S251 18
     
284. FILLTEXT S252 18
     
285. MOV P90 $STR(S256)
     
286. DEC P90 3
     
287. FORMATSTR S256 <COLOR=~别墅等级：%s$进入价格：%s元宝#32*> <$STR(P90)>级|<$STR(S254)>
     
288. REPLACETEXT S251 *** $STR(S256)
     
289. INC S207 <COLOR=FFFF00#32别墅名：>
     
290. INC S207 $STR(S251)
     
291. INC S208 <COLOR=FFFF00#32租赁人：>
     
292. INC S208 $STR(S252)
     
293. INC S209 <COLOR=FFFF00#32有效期：>
     
294. MOV P98 $STR(S253)
     
295. 
     
296. #IF
     
297. POS 780 $STR(P97)
     
298. SMALL P98 $INC.$LONGDATE.60
     
299. !SMALL P98 $LONGDATE
     
300. #ACT
     
301. FORMATSTR S180 <COLOR=RED#32抢购锁定中>%-10s #32
     
302. INC S209 $STR(S180)
     
303. BREAK
     
304. 
     
305. 
     
306. #IF
     
307. POS 780 $STR(P97)
     
308. LARGE P98 $LONGDATE
     
309. EQUAL S181 $USERNAME
     
310. #ACT
     
311. FORMATSTR S180 {COLOR=~当前别墅您可以无限进入#0XFFFF00FF$别墅剩余有效时间：%s#32进别墅Go~/@无限进&%s}%-7s <$DIV^$DEC.$STR(P98).$LONGDATE^60>分钟|<$STR(S255)>|#32
     
312. INC S209 $STR(S180)
     
313. BREAK
     
314. 
     
315. 
     
316. #IF
     
317. POS 780 $STR(P97)
     
318. SMALL P98 $LONGDATE
     
319. #ACT
     
320. FORMATSTR S180 <COLOR=GREEN#32租用该别墅/@进入别墅&%s>%-8s <$STR(S255)>|#32
     
321. INC S209 $STR(S180)
     
322. BREAK
     
323. 
     
324. #IF
     
325. POS 780 $STR(P97)
     
326. !EQUAL P98 0
     
327. #ACT
     
328. DEC P98 $LONGDATE
     
329. DIV P98 60
     
330. FORMATSTR S180 <COLOR=RED#32余%-4s分>%-10s <$STR(P98)>|#32
     
331. INC S209 $STR(S180)
     
332. BREAK
     
333. 
     
334. [@当票商城_格式]
     
335. #IF
     
336. !EQUAL S289
     
337. #ACT
     
338. SPLIT $STR(S289) | S290
     
339. FORMATSTR S288 #32<COLOR=GREEN#32%-18s><COLOR=FF00FF#32%10s>%-8s%-20s<当票兑换/@当票物品列表&%s> <$STR(S290)>|<$STR(S291)>张当票|#32|<$STR(S292)>|<$STR(S290)>
     
340. INC S282 $STR(S288)
     
341. INC S282 \
     
342. BREAK
     
343. 
     
344. [@充值数据_格式]
     
345. #IF
     
346. EQUAL S289
     
347. #ACT
     
348. BREAK
     
349. 
     
350. #IF
     
351. POS $STR(S289) 已领取
     
352. #ACT
     
353. SPLIT $STR(S289) | S290
     
354. FORMATSTR S288 #32<COLOR=GREEN#32%-18s><COLOR=FF00FF#32%10s>%14s%-8s<COLOR=GRAY#32%s> <$STR(S290)>|<$STR(S292)>.元宝|<$STR(S293)>.元宝|#32|<$STR(S294)>
     
355. INC S282 $STR(S288)
     
356. INC S282 \
     
357. BREAK
     
358. #ELSEACT
     
359. SPLIT $STR(S289) | S290
     
360. FORMATSTR S288 #32<COLOR=GREEN#32%-18s><COLOR=FF00FF#32%10s>%14s%-8s%s <$STR(S290)>|<$STR(S292)>.元宝|<$STR(S293)>.元宝|#32|<$STR(S294)>
     
361. INC S282 $STR(S288)
     
362. INC S282 \
     
363. BREAK
     
364. 
     
365. ;-----------------------------------------------------------------------------
     
366. [@酒馆物品_格式]
     
367. #IF
     
368. !EQUAL S289
     
369. #ACT
     
370. SPLIT $STR(S289) | S290
     
371. MOV P92 $STR(S291)
     
372. MOV P93 $STR(S292)
     
373. DEC P93 $LONGDATE
     
374. #ELSEACT
     
375. BREAK
     
376. 
     
377. #IF
     
378. LARGE P93 0
     
379. #ACT
     
380. FORMATSTR S288 %-5s<COLOR=~%s#32详>%-30s%s <$STR(S290)>|<$STR(S294)>|<$STR(S293)>|剩余[<$DIV.$STR(P93).60>]分钟
     
381. INC S282 $STR(S288)
     
382. INC S282 \
     
383. BREAK
     
384. 
     
385. #IF
     
386. EQUAL S292 订单已关闭
     
387. #ACT
     
388. FORMATSTR S288 %-5s<COLOR=~%s#32详>%-30s%s <$STR(S290)>|<$STR(S294)>|<$STR(S293)>|<COLOR=RED#32订单已关闭>
     
389. INC S282 $STR(S288)
     
390. INC S282 \
     
391. BREAK
     
392. 
     
393. 
     
394. #IF
     
395. RANDOM 1
     
396. #ACT
     
397. FORMATSTR S288 %-5s<COLOR=~%s#32详>%-30s<Color=Green#32酿造完成>#32#32#32#32#32#32#32#32<@@!PIC2#3250,40007><领取/@领取酒品&%s&%s&%s><@@!PIC2#3250,40008> <$STR(S290)>|<$STR(S294)>|<$STR(S293)>|<$STR(S290)>|<$STR(S291)>|<$STR(S292)>
     
398. INC S282 $STR(S288)
     
399. INC S282 \
     
400. BREAK
     
401. 
     
402. 
     
403. 
     
404. [@查询BOSS_格式]
     
405. #IF
     
406. !EQUAL S289
     
407. #ACT
     
408. SPLIT $STR(S289) | S290
     
409. GETVALIDSTR $STR(S290) , S290 S299
     
410. REPLACETEXT S292 0
     
411. REPLACETEXT S292 1
     
412. REPLACETEXT S292 2
     
413. REPLACETEXT S292 3
     
414. REPLACETEXT S292 4
     
415. REPLACETEXT S292 5
     
416. REPLACETEXT S292 6
     
417. REPLACETEXT S292 7
     
418. REPLACETEXT S292 8
     
419. REPLACETEXT S292 9
     
420. MOV P16 $GLOBAL(BOSS<$STR(M96)>)
     
421. #ELSEACT
     
422. BREAK
     
423. 
     
424. #IF
     
425. POS $STR(S289) *
     
426. #ACT
     
427. FORMATSTR S288 {COLOR=FF00FF#32%-16s}{COLOR=RED#32%-18s}{Color=orange#32%-20s}<尊享地图/@会员地图>\ <$STR(S292)>|******|<$STR(S291)>
     
428. INC S282 $STR(S288)
     
429. BREAK
     
430. 
     
431. #IF
     
432. EQUAL P16 -1
     
433. #ACT
     
434. FORMATSTR S288 {COLOR=FF00FF#32%-16s}{COLOR=RED#32%-18s}{Color=orange#32%-20s}<BOSS传送/@BOSS传送&%s>\ <$STR(S292)>|已复活|<$STR(S291)>|<$STR(M96)>
     
435. INC S282 $STR(S288)
     
436. BREAK
     
437. #ELSEACT
     
438. MOV S16
     
439. MOV P17 $DIV.$STR(P16).60
     
440. MOV P18 $MULT.$STR(P17).60
     
441. MOV P18 $DEC.$STR(P16).$STR(P18)
     
442. 
     
443. #IF
     
444. LARGE P17 9
     
445. #ACT
     
446. INC S16 $STR(P17)
     
447. INC S16 时
     
448. #ELSEACT
     
449. INC S16 0
     
450. INC S16 $STR(P17)
     
451. INC S16 时
     
452. 
     
453. #IF
     
454. LARGE P18 9
     
455. #ACT
     
456. INC S16 $STR(P18)
     
457. INC S16 分
     
458. FORMATSTR S288 {COLOR=FF00FF#32%-16s}{COLOR=RED#32%-18s}{Color=orange#32%-20s}<BOSS传送/@BOSS传送&%s>\ <$STR(S292)>|<$STR(S16)>|<$STR(S291)>|<$STR(M96)>
     
459. INC S282 $STR(S288)
     
460. BREAK
     
461. #ELSEACT
     
462. INC S16 0
     
463. INC S16 $STR(P18)
     
464. INC S16 分
     
465. FORMATSTR S288 {COLOR=FF00FF#32%-16s}{COLOR=RED#32%-18s}{Color=orange#32%-20s}<BOSS传送/@BOSS传送&%s>\ <$STR(S292)>|<$STR(S16)>|<$STR(S291)>|<$STR(M96)>
     
466. INC S282 $STR(S288)
     
467. BREAK
     
468. 
     
469. 
     
470. [@后台查询BOSS_格式]
     
471. #IF
     
472. !EQUAL S289
     
473. #ACT
     
474. SPLIT $STR(S289) | S290
     
475. GETVALIDSTR $STR(S290) , S290 S299
     
476. REPLACETEXT S292 0
     
477. REPLACETEXT S292 1
     
478. REPLACETEXT S292 2
     
479. REPLACETEXT S292 3
     
480. REPLACETEXT S292 4
     
481. REPLACETEXT S292 5
     
482. REPLACETEXT S292 6
     
483. REPLACETEXT S292 7
     
484. REPLACETEXT S292 8
     
485. REPLACETEXT S292 9
     
486. MOV P16 $GLOBAL(BOSS<$STR(M91)>)
     
487. #ELSEACT
     
488. BREAK
     
489. 
     
490. 
     
491. #IF
     
492. EQUAL P16 -1
     
493. #ACT
     
494. FORMATSTR S288 {COLOR=FF00FF#32%-16s}{COLOR=RED#32%-18s}{Color=orange#32%-20s}<BOSS传送/@后台BOSS传送&%s>\ <$STR(S292)>|已复活|<$STR(S291)>|<$STR(M91)>
     
495. INC S282 $STR(S288)
     
496. BREAK
     
497. #ELSEACT
     
498. MOV S16
     
499. MOV P17 $DIV.$STR(P16).60
     
500. MOV P18 $MULT.$STR(P17).60
     
501. MOV P18 $DEC.$STR(P16).$STR(P18)
     
502. 
     
503. #IF
     
504. LARGE P17 9
     
505. #ACT
     
506. INC S16 $STR(P17)
     
507. INC S16 时
     
508. #ELSEACT
     
509. INC S16 0
     
510. INC S16 $STR(P17)
     
511. INC S16 时
     
512. 
     
513. #IF
     
514. LARGE P18 9
     
515. #ACT
     
516. INC S16 $STR(P18)
     
517. INC S16 分
     
518. FORMATSTR S288 {COLOR=FF00FF#32%-16s}{COLOR=RED#32%-18s}{Color=orange#32%-20s}<BOSS传送/@后台BOSS传送&%s>\ <$STR(S292)>|<$STR(S16)>|<$STR(S291)>|<$STR(M91)>
     
519. INC S282 $STR(S288)
     
520. BREAK
     
521. #ELSEACT
     
522. INC S16 0
     
523. INC S16 $STR(P18)
     
524. INC S16 分
     
525. FORMATSTR S288 {COLOR=FF00FF#32%-16s}{COLOR=RED#32%-18s}{Color=orange#32%-20s}<BOSS传送/@后台BOSS传送&%s>\ <$STR(S292)>|<$STR(S16)>|<$STR(S291)>|<$STR(M91)>
     
526. INC S282 $STR(S288)
     
527. BREAK
     
528. 
     
529. 
     
530. [@读取品级_格式]                ;调试后台用于查询品级怪物的数量
     
531. #IF
     
532. !EQUAL S289
     
533. #ACT
     
534. SPLIT $STR(S289) | S290
     
535. COPYTEXT $STR(S290) 0 8 S295
     
536. COPYTEXT $STR(S290) 9 2 S296
     
537. COPYTEXT $STR(S290) 11 2 S297
     
538. FORMATSTR S285 %-9s%s:%-8s%-18s%-18s%s\ <$STR(S295)>|<$STR(S296)>|<$STR(S297)>|<$STR(S291)>|<$STR(S292)>|<$STR(S293)>品
     
539. INC S282 $STR(S285)
     
540. BREAK
     
541. 
     
542. [@数字仓库_格式]
     
543. #IF
     
544. !EQUAL S289
     
545. #ACT
     
546. GETVALIDSTR $STR(S289) | S290 S291
     
547. GETVALIDSTR $STR(S291) | S290 S291
     
548. FORMATSTR S285 %-5s%-23s%-15s<存入物品/@物品存入&%s>%-4s<取出物品/@物品取出&%s> <$STR(M91)>|<$STR(S290)>|[<$STR(S291)>]个|<$STR(S290)>|#32|<$STR(S290)>
     
549. INC S282 $STR(S285)
     
550. INC S282 \
     
551. BREAK
     
552. 
     
553. 
     
554. [@武馆心法二代_格式]
     
555. #IF
     
556. !EQUAL S289
     
557. #ACT
     
558. SPLIT $STR(S289) | S290
     
559. #ELSEACT
     
560. BREAK
     
561. 
     
562. #IF
     
563. POS $STR(S292) /
     
564. #ACT
     
565. GETVALIDSTR $STR(S292) / S297 S298
     
566. GETVALIDSTR $STR(S298) / S298 S299
     
567. MOV S292 $STR(S<$INC.297.$JOBID>)
     
568. 
     
569. #IF
     
570. SMALL $DEC.$STR(M91).1 $CUSTOMVALUE(155)
     
571. #ACT
     
572. REPLACETEXT S290 * $STR(S292)
     
573. FORMATSTR S285 <COLOR=GREEN#32%-13s%-14s><COLOR=FF00FF#32%-25s><COLOR=ORANGE#32%-11s>%-7s<@@!PIC2#3250,40025><@@!PIC2#3250,40025><@@!PIC2#3250,40025><@@!PIC2#3250,40025><@@!PIC2#3250,40025> #32|<$NUMTOCHR($STR(M91))>重|<$STR(S290)>|<$STR(S293)>|#32
     
574. INC S282 $STR(S285)
     
575. INC S282 \
     
576. BREAK
     
577. 
     
578. #IF
     
579. LARGE $DEC.$STR(M91).1 $CUSTOMVALUE(155)
     
580. #ACT
     
581. REPLACETEXT S290 * $STR(S292)
     
582. FORMATSTR S285 <COLOR=GRAY#32%-13s%-14s%-25s><COLOR=ORANGE#32%-11s>%-7s<@@!PIC2#3250,40026><@@!PIC2#3250,40026><@@!PIC2#3250,40026><@@!PIC2#3250,40026><@@!PIC2#3250,40026> #32|<$NUMTOCHR($STR(M91))>重|<$STR(S290)>|<$STR(S293)>|#32
     
583. INC S282 $STR(S285)
     
584. INC S282 \
     
585. BREAK
     
586. 
     
587. #IF
     
588. EQUAL $DEC.$STR(M91).1 $CUSTOMVALUE(155)
     
589. #ACT
     
590. REPLACETEXT S290 * $STR(S292)
     
591. FORMATSTR S285 <COLOR=GREEN#32%-13s%-14s><COLOR=FF00FF#32%-25s><COLOR=ORANGE#32%-11s>%-7s<@@!PIC2#3250,40026><凝练心法/@提交心法物品&%s><@@!PIC2#3250,40026> #32|<$NUMTOCHR($STR(M91))>重|<$STR(S290)>|<$STR(S293)>|<$CUSTOMVALUE(156)>/<$STR(S294)>|<$STR(M91)>
     
592. INC S282 $STR(S285)
     
593. INC S282 \
     
594. BREAK
     
595. 
     
596. 
     
597. [@庄园索引_格式]
     
598. #IF
     
599. !EQUAL S289
     
600. #ACT
     
601. SPLIT $STR(S289) | S290
     
602. ;INDEX|庄园名称|庄园等级|庄园主人ID|庄园主人|庄园主人区
     
603. #ELSEACT
     
604. BREAK
     
605. 
     
606. #IF
     
607. EQUAL S293 0
     
608. #ACT
     
609. FORMATSTR S285 <COLOR=GREEN#32%-10s%-5s%-18s%-10s%-15s%-16s><购买庄园/@购买庄园&%s> #32|<$STR(S290)>|<$STR(S291)>|<$STR(S292)>|<$STR(S295)>|<$STR(S294)>|<$STR(S290)>
     
610. INC S282 $STR(S285)
     
611. INC S282 \
     
612. BREAK
     
613. 
     
614. 
     
615. #IF
     
616. !EQUAL S293 $CUSTOMVALUE(3)
     
617. #ACT
     
618. FORMATSTR S285 <COLOR=GRAY#32%-10s%-5s%-18s%-10s%-15s%-16s><潜入庄园/@潜入庄园&%s> #32|<$STR(S290)>|<$STR(S291)>|<$STR(S292)>|<$STR(S295)>|<$STR(S294)>|<$STR(S293)>
     
619. INC S282 $STR(S285)
     
620. INC S282 \
     
621. BREAK
     
622. 
     
623. #IF
     
624. EQUAL S293 $CUSTOMVALUE(3)
     
625. #ACT
     
626. FORMATSTR S285 <COLOR=ORANGE#32%-10s%-5s%-18s%-10s%-15s%-16s><我的庄园/@进入庄园&%s> #32|<$STR(S290)>|<$STR(S291)>|<$STR(S292)>|<$STR(S295)>|<$STR(S294)>|<$STR(S293)>
     
627. INC S282 $STR(S285)
     
628. INC S282 \
     
629. BREAK
     
630. 
     
631. 
     
632. [@庄园物资排序_格式]
     
633. #IF
     
634. !EQUAL S289
     
635. #ACT
     
636. ;紫金灵芝,46,45,1612479756,1612481436|叨叨|暂无|0|时间
     
637. SPLIT $STR(S289) | S270
     
638. ;S270        紫金灵芝,46,45,1612479756,1612481436
     
639. ;S271        叨叨
     
640. ;S272        暂无，采集者
     
641. ;S273        采集者的唯一编号
     
642. ;S274        采集排序
     
643. SPLIT $STR(S270) , S250
     
644. #ELSEACT
     
645. BREAK
     
646. 
     
647. #IF
     
648. EQUAL S272 $USERNAME
     
649. #ACT
     
650. ;                物资名称                                采集人
     
651. FORMATSTR S285 <COLOR=GRAY#32%-14s%-28s%-16s> <$STR(S250)>|#32|<$STR(S272)>
     
652. INC S282 $STR(S285)
     
653. INC S282 \
     
654. BREAK
     
655. 
     
656. #IF
     
657. !EQUAL S272 $USERNAME
     
658. !EQUAL S272 暂无
     
659. #ACT
     
660. ;                物资名称                                采集人
     
661. FORMATSTR S285 <COLOR=FF00FF#32%-14s%-28s><遭遇窃取/@潜入庄园&%s&%s> <$STR(S250)>|<$STR(S272)>窃取了该物资|<$STR(S273)>|<$STR(S272)>
     
662. INC S282 $STR(S285)
     
663. INC S282 \
     
664. BREAK
     
665. 
     
666. #IF
     
667. LARGE $LONGDATE $STR(S254)
     
668. #ACT
     
669. ;                物资名称                                采集人
     
670. FORMATSTR S285 <COLOR=Green#32%-14s%-14s%-14s%s> <$STR(S250)>|<$STR(S251)>,<$STR(S252)>|已成熟|尚未采集
     
671. INC S282 $STR(S285)
     
672. INC S282 \
     
673. BREAK
     
674. #ELSEACT
     
675. MOV P0 $STR(S254)
     
676. DEC P0 $LONGDATE
     
677. DIV P0 60
     
678. ;                物资名称                                采集人
     
679. FORMATSTR S285 <COLOR=RED#32%-14s%-14s%-14s> <$STR(S250)>|<$STR(S251)>,<$STR(S252)>|[<$STR(P0)>]分钟后成熟
     
680. INC S282 $STR(S285)
     
681. INC S282 \
     
682. BREAK
     
683. 
     
684. 
     
685. [@庄园收入排序_格式]
     
686. #IF
     
687. !EQUAL S289
     
688. #ACT
     
689. ;<$STR(A97)>|<$STR(A98)>|<$USERNAME>|<$CUSTOMVALUE(3)>|<$DIV^$MULT.20.$STR(S3)^2>|未领取
     
690. SPLIT $STR(S289) | S290
     
691. #ELSEACT
     
692. BREAK
     
693. 
     
694. #IF
     
695. EQUAL S295 未领取
     
696. #ACT
     
697. FORMATSTR S285 <COLOR=GREEN#32%-14s%-26s元宝×%-6s><领取收益/@领取收益&%s> <$STR(S290)>|<$STR(S292)>[<$STR(S291)>]|<$STR(S294)>|<$STR(S289)>
     
698. INC S282 $STR(S285)
     
699. INC S282 \
     
700. BREAK
     
701. #ELSEACT
     
702. FORMATSTR S285 <COLOR=GRAY#32%-14s%-26s元宝×%-6s%s> <$STR(S290)>|<$STR(S292)>[<$STR(S291)>]|<$STR(S294)>|<$STR(S295)>
     
703. INC S282 $STR(S285)
     
704. INC S282 \
     
705. BREAK
     
706. 
     
707. [@查询元宝分成_格式]
     
708. #IF
     
709. !EQUAL S289
     
710. #ACT
     
711. ;输入时间|区服|玩家名字|数字账号|充值金额|分成金额|已领取金额|当前可领取
     
712. ;20200708|一区|原野测试|100004|0|0|0|0
     
713. SPLIT $STR(S289) | S290
     
714. #ELSEACT
     
715. BREAK
     
716. 
     
717. #IF
     
718. EQUAL S297 0
     
719. #ACT
     
720. FORMATSTR S285 %-14s%-8s%-18s%-10s%-6s<领取分成/@领取推广分成&%s> <$STR(S290)>|<$STR(S291)>|<$STR(S292)>|<$STR(S294)>|<$STR(S295)>|<$STR(S290)>
     
721. INC S282 $STR(S285)
     
722. INC S282 \
     
723. BREAK
     
724. #ELSEACT
     
725. FORMATSTR S285 %-14s%-8s%-18s%-10s%-6s<COLOR=GRAY#32已领取> <$STR(S290)>|<$STR(S291)>|<$STR(S292)>|<$STR(S294)>|<$STR(S295)>
     
726. INC S282 $STR(S285)
     
727. INC S282 \
     
728. BREAK
     
729. 
     
730. 
     
731. 
     
732. [@红袖商城_格式]
     
733. #IF
     
734. !EQUAL S289
     
735. #ACT
     
736. SPLIT $STR(S289) | S290
     
737. FORMATSTR S285 %-18s%-14s%-20s<购买物品/@红袖物品&%s> <$STR(S290)>|<$STR(S291)>|<$STR(S292)>|<$STR(S289)>
     
738. INC S282 $STR(S285)
     
739. INC S282 \
     
740. #ELSEACT
     
741. BREAK
     
742. 
     
743. 
     
744. 
     
745. 
     
746. }
     
747. 
     
748. 调用数据
     
749. 点金石|50|激活装备属性
     
750. 圣灵药水|30|修复破损装备
     
751. 超级天山雪莲|5|持续回血
     
752. 超级深海灵礁|5|持续回蓝
     
753. 道尊神符|20|可使用5000次
     
754. 道尊灵毒(绿)|20|可使用3000次
     
755. 道尊灵毒(红)|20|可使用3000次
     
756. 随机神石|40|地图随机传送
     
757. 回城石(大)|50|可用100次
     
758. 战斗号角|1|建立行会必备
     
759. 超级冰泉圣水|10|特修全身装备
     
760. 7级宠物强化卷|40|BB强化至7级
     
761. 兽名魔咒|20|宠物改名必备
     
762. 兽神水|50|复活死亡宠物
     
763. 极品兽粮|5|喂食所有宠物
     
764. 真视水晶|10|探寻仇人位置
     
765. 飞来神石|20|好友地图传送
     
766. 探魔球|100|探寻魔王位置
     
767. 遗忘丹|10|帮助遗忘技能
     
768. 仙品项圈|10|捕捉麒麟凤凰
     
769. 仙品项圈(捆)|200|捕捉麒麟凤凰
     
770. 黄金御兽天袍|1000|高级骑战服饰
     
771. 黄金御兽天衣|1000|高级骑战服饰
     
772. 绝望探魔卷轴|10|绝望领域专用的卷轴

复制代码

不错请自行理解