1. 用户定义变量 hong=70 血量<hong%时，自动吃红。
2. 用户定义变量 xp=DropList{是:1|否:2}=0 是否自动XP
3. 用户定义变量 XPZ="877,555" XP坐标
4. 用户定义变量 sou=DropList{是:1|否:2}=0 搜不到怪是否随机移动
5. 用户定义变量 cs=3 随机移动步数
6. 用户定义变量 cs2=2 检查几次金币
7. 用户定义变量 cs3=2 找到怪后打几下
8. 用户定义变量 Ys=3500 每步延时
9. XY=Split(XPZ,",")
10. mx=XY(0):my=XY(1)
11. 标记 机战
12. 调用子程序 检查HP
13. 调用子程序 检查装备是否要修
14. 调用子程序 检查XP
15. 调用子程序 找怪1
16. 调用子程序 捡物
17. 跳转到标记 机战
18. 子程序 检查HP
19.     如果 (hong/100*(205-88)+88,14) 的颜色大约等于 #000000 则
20.         按键<F1>
21.         延时10毫秒
22.     条件结束
23. 子程序结束,回到调用处
24. 子程序 检查装备是否要修
25.     调用外部VBScript子程序 在屏幕区域里查找图形(743,53,853,140,"Attachment:\装备要修.bmp",0.9,x,y)
26.     如果表达式 (x>0 and y>0) 为真,则
27.         按键<F8>
28.         延时10毫秒
29.         循环 10 遍
30.             响一声
31.         循环结束
32.     脚本停止运行
33. 条件结束
34. 子程序结束,回到调用处
35. 子程序 检查XP
36.     调用外部VBScript子程序 在屏幕区域里查找图形(743,53,853,140,"Attachment:\装备要修.bmp",0.9,x,y)
37.     如果表达式 (x=-1 and y=-1) 为真,则
38.         跳转到标记 再次检查
39.     否则
40.         跳转到标记 回去
41.     条件结束
42.     调用外部VBScript子程序 在屏幕区域里查找图形(743,53,853,140,"Attachment:\装备要修.bmp",0.9,x,y)
43.     如果表达式 (x2=-1 and y2=-1 and xp=1) 为真,则
44.         鼠标移到 mx , my
45.         延时10毫秒
46.         左键单击
47.     条件结束
48.     标记 回去
49. 子程序结束,回到调用处
50. 子程序 找怪1
51.     S=0
52.     标记 渐开线
53.     r=20:x0=512:y0=384:x=0:y=0:shape=248174080:r=10
54.     如果表达式 (r<300) 为真,则循环执行
55.         n=0
56.         如果表达式 (n<3.1415926*2) 为真,则循环执行
57.             x=x0+r*cos(n)
58.             y=y0-r*sin(n)
59.             鼠标移到 x , y
60.             调用外部VBScript子程序 在屏幕区域里查找图形(743,53,853,140,"Attachment:\装备要修.bmp",0.9,x,y)
61.             如果表达式 (Shape1=Shape) 为真,则
62.                 循环 cs3 遍
63.                     右键单击
64.                     延时10毫秒
65.                     S=1
66.                 循环结束
67.                 跳转到标记 渐开线
68.             条件结束
69.             n=n+0.03
70.         循环结束
71.         延时10毫秒
72.         r=r+30
73.     循环结束
74.     调用外部VBScript子程序 在屏幕区域里查找图形(743,53,853,140,"Attachment:\装备要修.bmp",0.9,x,y)
75.     如果表达式 (x=-1 and y=-1 and sou=1 and S=0) 为真,则
76.         调用子程序 检查HP
77.         调用子程序 捡物
78.         调用子程序 随机移动
79.     条件结束
80. 子程序结束,回到调用处
81. 子程序 捡物
82.     循环 cs2 遍
83.         调用外部VBScript子程序 在屏幕区域里查找图形(743,53,853,140,"Attachment:\装备要修.bmp",0.9,x,y)
84.         如果表达式 (x>0 and y>0) 为真,则
85.             鼠标移到 x , y
86.             延时100毫秒
87.             左键单击
88.             延时3000毫秒
89.         条件结束
90.     循环结束
91. 子程序结束,回到调用处
92. 子程序 随机移动
93.     Randomize
94.     sjsj = Int((4 * Rnd) + 1)
95.     如果表达式 (sjsj=1) 为真,则
96.         鼠标移到 14 , 100
97.         延时100毫秒
98.         循环 cs 遍
99.             左键单击
100.             延时Ys毫秒