1. dim hong,lan,hongT,lanT
2. //F8红，F9蓝，F10宠物红
3. //在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。
4. 用户定义变量 hong=70 血量<hong%时，自动吃红。
5. 用户定义变量 lan=30 蓝量<lan%时，自动吃蓝。
6. 用户定义变量 hongT=256 补血延时时间（毫秒）
7. 用户定义变量 lanT=256 补蓝延时时间（毫秒）
8. t = 954439560
9. // 定义鼠标移动到怪物身上后变成包裹形鼠标的值，请使用抓点抓色功能得到
10. s = 1594686126
11. // 定义鼠标移动到怪物身上后变成刀形鼠标的值，请使用抓点抓色功能得到
12. 标记 找怪
13. n = 15
14. // 定义变量n,用于后面的循环
15. x = 200
16. // 定义找怪区域左上角的X坐标
17. 如果表达式 (n >= 0) 为真,则循环执行
18.     // 如果n大于等于0，则执行循环
19.     y = 100
20.     // 定义找怪区域左上角的Y坐标
21.     鼠标移到 x , y
22.     // 鼠标移动到坐标x,y
23.     z =15
24.     如果表达式 (z >= 0) 为真,则循环执行
25.         y = y +30
26.         // y坐标增加30
27.         z = z - 1
28.         鼠标移到 x , y
29.         延时10毫秒
30.         调用外部VBScript子程序 k=GetCursorShape(0)
31.         如果表达式 (k = t) 为真,则
32.             调用子程序 捡包
33.         条件结束
34.         调用外部VBScript子程序 k=GetCursorShape(0)
35.         如果表达式 (k = s) 为真,则
36.             调用子程序 杀怪
37.         条件结束
38.     循环结束
39.     x = x + 30
40.     // x坐标增加30
41.     n = n - 1
42. 循环结束
43. //Gosub 捡物
44. 跳转到标记 找怪
45. 子程序 捡包
46.     右键单击
47.     //右键捡包
48.     延时2000毫秒
49.     调用子程序 回原点
50. 子程序结束,回到调用处
51. 子程序 杀怪
52.     右键单击
53.     //右键选怪
54.     调用子程序 技能
55.     标记 怪物
56.     如果 (247,33) 的颜色大约等于 #0011FF 则
57.         调用子程序 吃药
58.         跳转到标记 怪物
59.     条件结束
60.     n2 = 7
61.     x2 = 300
62.     // 定义杀怪完毕实时搜包的X坐标
63.     如果表达式 (n2 >= 0 //此循环同理于找怪循环) 为真,则循环执行
64.         y2 = 200
65.         // 定义杀怪完毕实时搜包的Y坐标
66.         鼠标移到 x2 , y2
67.         z2 = 7
68.         如果表达式 (z2 >= 0) 为真,则循环执行
69.             y2 = y2 + 30
70.             z2 = z2 - 1
71.             鼠标移到 x2 , y2
72.             延时10毫秒
73.             调用外部VBScript子程序 k=GetCursorShape(0)
74.             如果表达式 (k = t) 为真,则
75.                 右键单击
76.                 延时500毫秒
77.             条件结束
78.         循环结束
79.         x2 = x2 + 30
80.         n2 = n2 - 1
81.     循环结束
82.     调用子程序 回原点
83.     延时2000毫秒
84. 子程序结束,回到调用处
85. 子程序 技能
86.     按键<F2>
87.     //F2狂砍
88. 子程序结束,回到调用处
89. 子程序 吃药
90.     标记 补红
91.     如果 (hong/100*(187-64)+64,31) 的颜色大约等于 #222222 则
92.         //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
93.         //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
94.         按键<F8>
95.         //按下补血快捷键F8
96.         延时hongT毫秒
97.         //补血延时
98.     条件结束
99.     标记 补兰
100.     如果 (lan/100*(187-64)+64,38) 的颜色大约等于 #111111 则