1. //定位器保存在每个道的最里边 上5最右道为1 逆时针转 依次为1-18
2. //F1红 F2EN技能 F3PW技能 F4定点 F5舰队经验 F6战队经验 F7小队经验 F8回城卷
3. dim hp,m,n,a,b,e,f,g,h,i,j,k,l,q,r,o
4. dim zidongjianwu,xp,dao
5. m=85:n=10:o=0
6. a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""
7. dim jn1,jn2
8. jn1=0:jn2=0
9. dim zt(2)
10. dim t1,t2,t3,t4
11. t1=now:t2=now:t3=now:t4=now
12. 用户定义变量 hp=50 红量<%多少时,补红
13. 用户定义变量 zt(0)=302 舰队+经验状态的持续时间(秒)
14. 用户定义变量 zt(1)=304 战队+经验状态的持续时间(秒)
15. 用户定义变量 zt(2)=306 小队+经验状态的持续时间(秒)
16. 用户定义变量 zidongjianwu=0 0不自动捡物 1自动捡物
17. 用户定义变量 xp=2 选择使用哪种XP技能,从右到左1,2,3
18. 用户定义变量 dao=5 上5最右道为1 逆时针转 依次为1-18
19. 标记 机战
20. 调用子程序 移动2
21. 调用子程序 移动3
22. 调用子程序 移动5
23. 调用子程序 定位2l
24. 调用子程序 定位2h
25. 调用子程序 定位3l
26. 调用子程序 定位3h
27. 调用子程序 定位5l
28. 调用子程序 定位5h
29. 调用子程序 回定位点
30. 调用子程序 攻击
31. 调用子程序 补红
32. 调用子程序 状态
33. 调用子程序 捡钱
34. 调用子程序 捡流星
35. 调用子程序 捡粉红水晶
36. 调用子程序 捡蓝水晶
37. 调用子程序 捡聚态水晶
38. 调用子程序 检测xp
39. 调用子程序 拒绝交易
40. 调用子程序 同意组队
41. 调用子程序 关闭推荐任务
42. 调用子程序 关闭导师界面
43. 调用子程序 自动收花
44. 延时32毫秒
45. 跳转到标记 机战
46. 子程序 移动2
47.     如果表达式 (dao=2) 为真,则
48.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
49.         如果表达式 (x<0 and y<0) 为真,则
50.             延时32毫秒
51.             o=o+1
52.             如果表达式 (o>=3) 为真,则
53.                 鼠标移到 290 , 450
54.                 延时32毫秒
55.                 左键单击
56.                 o=0
57.             条件结束
58.         条件结束
59.     条件结束
60. 子程序结束,回到调用处
61. 子程序 移动3
62.     如果表达式 (dao=3) 为真,则
63.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
64.         如果表达式 (x<0 and y<0) 为真,则
65.             延时32毫秒
66.             o=o+1
67.             如果表达式 (o>=3) 为真,则
68.                 鼠标移到 290 , 450
69.                 延时32毫秒
70.                 左键单击
71.                 o=0
72.             条件结束
73.         条件结束
74.     条件结束
75. 子程序结束,回到调用处
76. 子程序 移动5
77.     如果表达式 (dao=5) 为真,则
78.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
79.         如果表达式 (x<0 and y<0) 为真,则
80.             延时32毫秒
81.             o=o+1
82.             如果表达式 (o>=3) 为真,则
83.                 鼠标移到 290 , 450
84.                 延时32毫秒
85.                 左键单击
86.                 o=0
87.             条件结束
88.         条件结束
89.     条件结束
90. 子程序结束,回到调用处
91. 子程序 定位2l
92.     如果表达式 (dao=2) 为真,则
93.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
94.         如果表达式 (x>=0 and y>=0) 为真,则
95.             延时32毫秒
96.             按键<F4>
97.         条件结束
98.     条件结束
99. 子程序结束,回到调用处
100. 子程序 定位2h