1. //F1红 F2 F3技能 F8回城卷
2. dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r
3. dim zhiye,zidongzhaoguai,zidongjianwu,xp
4. m=85:n=10
5. a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""
6. c=0:d=0
7. dim jn1,jn2
8. jn1=0:jn2=0
9. 用户定义变量 zhiye=1 选择职业 0近战 1远战
10. 用户定义变量 hp=50 红量<%多少时,补红
11. 用户定义变量 zidongzhaoguai=1 0定点刷怪 1自动刷怪
12. 用户定义变量 zidongjianwu=1 0不自动捡物 1自动捡物
13. 用户定义变量 xp=1 选择使用哪种XP技能,从右到左1,2,3
14. 标记 机战
15. 调用子程序 找怪
16. 调用子程序 攻击怪
17. 调用子程序 补红
18. 调用子程序 捡钱
19. 调用子程序 捡熟练度
20. 调用子程序 捡流星
21. 调用子程序 捡粉红水晶
22. 调用子程序 捡蓝水晶x
23. 调用子程序 捡聚态水晶
24. 调用子程序 检测xp
25. 调用子程序 无弹回城
26. 调用子程序 拒绝交易
27. 调用子程序 同意组队
28. 调用子程序 关闭推荐任务
29. 调用子程序 关闭导师界面
30. 延时32毫秒
31. 跳转到标记 机战
32. 子程序 找怪
33.     如果表达式 (zidongzhaoguai=1) 为真,则
34.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
35.         如果表达式 (x<0 and y<0) 为真,则
36.             延时32毫秒
37.             c=c+1
38.             如果表达式 (c>4) 为真,则
39.                 延时225毫秒
40.                 鼠标移到 510 , 500
41.                 左键单击
42.                 调用子程序 快速找怪
43.                 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
44.                 如果表达式 (x<0 and y<0) 为真,则
45.                     延时520毫秒
46.                     鼠标移到 100 , 330
47.                     左键单击
48.                     调用子程序 快速找怪
49.                     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
50.                     如果表达式 (x<0 and y<0) 为真,则
51.                         延时520毫秒
52.                         鼠标移到 510 , 200
53.                         左键单击
54.                         调用子程序 快速找怪
55.                         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
56.                         如果表达式 (x<0 and y<0) 为真,则
57.                             延时520毫秒
58.                             鼠标移到 920 , 330
59.                             左键单击
60.                             调用子程序 快速找怪
61.                         条件结束
62.                     条件结束
63.                 条件结束
64.             条件结束
65.         条件结束
66.     条件结束
67. 子程序结束,回到调用处
68. 子程序 攻击怪
69.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
70.     如果表达式 (x>=0 and y>=0) 为真,则
71.         c=0
72.         鼠标移到 x-20 , y+20
73.         左键单击
74.         延时32毫秒
75.         调用子程序 攻击
76.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
77.         如果表达式 (x>=0 and y>=0) 为真,则
78.             c=0
79.             鼠标移到 x-20 , y-20
80.             左键单击
81.             延时32毫秒
82.             调用子程序 攻击
83.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
84.             如果表达式 (x>=0 and y>=0) 为真,则
85.                 c=0
86.                 鼠标移到 x+20 , y-20
87.                 左键单击
88.                 延时32毫秒
89.                 调用子程序 攻击
90.                 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
91.                 如果表达式 (x>=0 and y>=0) 为真,则
92.                     c=0
93.                     鼠标移到 x+20 , y+20
94.                     左键单击
95.                     延时32毫秒
96.                     调用子程序 攻击
97.                 条件结束
98.             条件结束
99.         条件结束
100.     条件结束