1. （VBScript语句） dim a,b,c,d,i,j,k
2. （VBScript语句） dim x,y,x1,y1,x2,y2,x3,y3,x4,y4
3. 用户定义变量 a=F2 设置第一技能键（F2）。
4. 用户定义变量 b=F3 固定设置第一使用怒气技能键（F3）。
5. 用户定义变量 c=F4 设置第二技能键（F4）。
6. 用户定义变量 d=F5 设置打坐回血蓝键（F5）。
7. 延时200毫秒
8. i=0
9. j=0
10. 如果表达式 (true) 为真,则循环执行
11.     x=0
12.     y=0
13.     延时200毫秒
14.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(100,100,870,510,"0000FD",0,0.8,x,y)
15.     如果表达式 (x>=10 and y>=10) 为真,则
16.         鼠标移到 x+8 , y+25
17.         左键单击
18.         延时200毫秒
19.         调用子程序 技能
20.         调用子程序 杀怪
21.     否则如果(x<10 and y<10)为真,则
22.         延时200毫秒
23.         k=1
24.         按键<F5>
25.         延时3000毫秒
26.     条件结束
27. 循环结束
28. 子程序 技能
29.     延时200毫秒
30.     如果表达式 (k=1) 为真,则
31.         鼠标移到 767 , 35
32.         延时350毫秒
33.         右键单击
34.         延时350毫秒
35.         k=0
36.     条件结束
37.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(100,100,870,510,"0000FD",0,0.8,x,y)
38.     如果表达式 (x3=172 and y3=42) 为真,则
39.         延时200毫秒
40.         按键<F3>
41.         x3=0
42.         y3=0
43.     条件结束
44.     延时200毫秒
45.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(100,100,870,510,"0000FD",0,0.8,x,y)
46.     如果表达式 (x4=187 and y4=37) 为真,则
47.         延时200毫秒
48.         按键<F4>
49.         x4=0
50.         y4=0
51.     条件结束
52.     延时200毫秒
53. 子程序结束,回到调用处
54. 子程序 杀怪
55.     延时200毫秒
56.     如果表达式 (true) 为真,则循环执行
57.         x1=0
58.         y1=0
59.         延时200毫秒
60.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(100,100,870,510,"0000FD",0,0.8,x,y)
61.         如果表达式 (x1>=221 and y1>=29) 为真,则
62.             延时200毫秒
63.             跳转到标记 怪已死
64.         条件结束
65.         延时200毫秒
66.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(100,100,870,510,"0000FD",0,0.8,x,y)
67.         如果表达式 (x2<=221 and y2<=29) 为真,则
68.             i=(x+5)-510
69.             j=(y+25)-400
70.             鼠标移到 ABS(i-510) , ABS(j-400)
71.             延时200毫秒
72.             左键单击
73.             延时200毫秒
74.             跳转到标记 怪已死
75.         条件结束
76.     循环结束
77.     标记 怪已死
78.     延时200毫秒
79. 子程序结束,回到调用处