1. //函数变量定义
2. //主函数
3. dim xb1,yb1,xb,yb,mb,t2,xb3,yb3,xb4,yb4,xb5,yb5
4. dim xe,xe1,ye,ye1,re
5. dim per1,per2
6. //坐标读取函数
7. dim x,y,d,txt,z1,z2
8. //坐标移动函数
9. dim xa0,ya0,ra,damax,na.damax1
10. //范围检测函数
11. dim xc,yc,xc1,yc1,dc
12. //防止卡住函数
13. dim t1,xd,yd,xd1,yd1,xd2,yd2,nd,md,xd3,yd3
14. //定时技能函数
15. dim t3,t4,kt1,kt2
16. //参数设置~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
17. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
18. //坐标读取第一个数字的左顶点坐标,2个数字间的距离
19. x=962:y=100:d=6
20. //找怪坐标修正(打不同的怪可能修正值不同)
21. xb4=0:yb4=-10
22. //挂机点坐标(xa0,ya0),挂机半径(ra)
23. //na是移动终点精确系数(na越大,移动越精确)
24. //ma是范围挂机开关(1为开,0为关)
25. xa0=48:ya0=68:ra=30:damax=20:na=2
26. mb=0
27. //当血为%多少时休息(per1),当血为%多少时用血瓶(per2)
28. per1=50:per2=25
29. //定时技能间隔时间(单位:秒)
30. kt1=300:kt2=300
31. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
32. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
33. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
34. t2=now
35. //卡住的解决变量
36. nd=1
37. t1=now
38. xd1=0:xd2=0:yd1=0:yd2=0
39. //坐标小移动参数
40. re=300
41. //脚本开始前释放一次定时技能
42. 按键<F5>
43. 延时500毫秒
44. 按键<F6>
45. 延时500毫秒
46. t3=now
47. t4=now
48. //脚本开始~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
49. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
50. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
51. 标记 开始
52. 标记 找怪
53. 延时300毫秒
54. 调用外部VBScript子程序 在屏幕区域里查找颜色(864,25,1019,96,"4255FF",xb2,yb2)
55. //小地图中找怪红点坐标
56. 调用外部VBScript子程序 在屏幕区域里查找颜色(864,25,1019,96,"4255FF",xb2,yb2)
57. 如果表达式 (xb1>=0 and yb1>=0) 为真,则
58.     //红点有9个象素 小地图坐标修正
59.     如果表达式 (xb1>946) 为真,则
60.         xb1=xb1+1
61.     否则如果(xb1<935)为真,则
62.         xb1=xb1-1
63.     条件结束
64.     //人在大地图上的坐标计算
65.     //地图边缘坐标修正
66.     如果表达式 (xb2>=902 and xb2<=976) 为真,则
67.         xb5=512
68.     否则如果(xb2<902)为真,则
69.         xb5=(xb2-902)*12.43+512
70.     否则
71.         xb5=(xb2-976)*12.43+512
72.     条件结束
73.     如果表达式 (yb2>=48 and yb2<=63) 为真,则
74.         yb5=384
75.     否则如果(yb2<48)为真,则
76.         yb5=(yb2-48)*12.43+384
77.     否则
78.         yb5=(yb2-63)*12.43+384
79.     条件结束
80.     //注意后面的大地坐标修正
81.     xb=(xb1-xb2-1)*12.43+xb5+xb4
82.     yb=(yb1-yb2-1)*12.43+yb5+yb4
83.     如果表达式 (yb>=120 and yb<=700) 为真,则
84.         如果表达式 (xb>=30 and xb<=1000) 为真,则
85.             标记 打怪
86.             鼠标移到 xb , yb
87.             延时128毫秒
88.             左键单击
89.             延时256毫秒
90.             //技能F1
91.             按键<F1>
92.             延时500毫秒
93.             //调的比较大 刷其他的怪可以改的
94.             循环 6 遍
95.                 按键<F2>
96.                 延时400毫秒
97.             循环结束
98.             //判断是否进入战斗 如果没有继续找怪
99.             如果 (1019,19) 的颜色等于 #847500 则
100.                 延时200毫秒