1. count=0
2. //用户自定义变量
3. 用户定义变量 selfhp=285 自己补红下限
4. 用户定义变量 selfmp=130 自己补蓝下限
5. 用户定义变量 pathp=180 宠物补红下限
6. 用户定义变量 patmp=108 宠物补蓝下限
7. 用户定义变量 pateat=12 宠物食物补充间隔次数
8. 用户定义变量 movetime=2000 随机移动时间间隔
9. //
10. 标记 开始
11. 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(170,94,227,97,"#f0f8",0,0.8,xa,ya)
12. 如果表达式 (xa>0 and ya>0) 为真,则
13.     调用子程序 是否需要加血
14.     调用子程序 随机移动
15. 否则
16.     调用子程序 战斗
17. 条件结束
18. 跳转到标记 开始
19. 子程序 随机移动
20.     y=Int(100*rnd(100)) mod 4
21.     如果表达式 (y=0) 为真,则
22.         //左上方移动
23.         鼠标移到 334 , 201
24.         左键单击
25.         跳转到标记 y++
26.     条件结束
27.     如果表达式 (y=1) 为真,则
28.         //右上方移动
29.         鼠标移到 675 , 201
30.         左键单击
31.         跳转到标记 y++
32.     条件结束
33.     如果表达式 (y=2) 为真,则
34.         //左下方移动
35.         鼠标移到 334 , 546
36.         左键单击
37.         跳转到标记 y++
38.     条件结束
39.     如果表达式 (y=3) 为真,则
40.         //右下方移动
41.         鼠标移到 675 , 546
42.         左键单击
43.         跳转到标记 y++
44.     条件结束
45.     标记 y++
46.     延时movetime毫秒
47. 子程序结束,回到调用处
48. 子程序 战斗
49.     i=1
50.     如果表达式 (i=1) 为真,则循环执行
51.         //■■■■下面的这个按键是你攻击怪物时用的技能,请修改为自己所用的键
52.         按键<3>
53.         延时150毫秒
54.         //■■■■下面的这个按键是宠物攻击怪物时用的技能,请修改为自己所用的键
55.         按键<F1>
56.         延时2000毫秒
57.         如果 (204,93) 的颜色大约等于 #f0f8 则
58.             i=0
59.         条件结束
60.     循环结束
61.     //通过战斗次数判断宠物是否需要喂食
62.     count=count+1
63. 子程序结束,回到调用处
64. 子程序 是否需要加血
65.     //红循环控制参数
66.     j=1
67.     //兰循环控制参数
68.     k=1
69.     // 自己加红
70.     如果表达式 (j=1) 为真,则循环执行
71.         //读取内存中红的地址
72.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(170,94,227,97,"#f0f8",0,0.8,xa,ya)
73.         如果表达式 (m<selfhp) 为真,则
74.             按键<1>
75.             调用子程序 加血鼠标动作
76.         否则
77.             j=0
78.         条件结束
79.     循环结束
80.     // 自己加蓝
81.     如果表达式 (k=1) 为真,则循环执行
82.         //读取内存中红的地址
83.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(170,94,227,97,"#f0f8",0,0.8,xa,ya)
84.         如果表达式 (n<selfmp) 为真,则
85.             按键<2>
86.             调用子程序 加血鼠标动作
87.         否则
88.             k=0
89.         条件结束
90.     循环结束
91.     //红循环控制参数
92.     j=1
93.     //兰循环控制参数
94.     k=1
95.     // 宠物加红
96.     如果表达式 (j=1) 为真,则循环执行
97.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(170,94,227,97,"#f0f8",0,0.8,xa,ya)
98.         如果表达式 (o<pathp) 为真,则
99.             按键<1>
100.             调用子程序 宠物加血鼠标动作