1. //挂机前先将角色移动到要挂机的地方
2. 延时100毫秒
3. Dim x,y,x1,y1,x2,y2,xa,ya,xb,yb,xc,yc,xd,yd
4. //定义变量
5. 标记 定点
6. 延时1000毫秒
7. 按键<Tab>
8. //TAB键出大地图，5秒内将鼠标移动到代表角色的黄点上
9. 延时5000毫秒
10. 调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
11. //记录鼠标在大地图上的位置并保存为变量XD,XY
12. 延时1000毫秒
13. 按键<Tab>
14. //关闭大地图
15. 延时50毫秒
16. 标记 找怪
17. 延时50毫秒
18. 调用子程序 红蓝
19. 调用子程序 躲怪
20. 调用子程序 状态
21. 延时50毫秒
22. 调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
23. 如果表达式 (x>0 and y>0) 为真,则
24.     鼠标移到 x+25 , y+70
25.     延时50毫秒
26.     右键单击
27.     延时50毫秒
28.     调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
29.     跳转到标记 打怪
30. 条件结束
31. 延时50毫秒
32. 调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
33. 如果表达式 (x>0 and y>0) 为真,则
34.     鼠标移到 x+25 , y+70
35.     延时50毫秒
36.     右键单击
37.     延时50毫秒
38.     调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
39.     跳转到标记 打怪
40. 条件结束
41. 延时50毫秒
42. 调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
43. 如果表达式 (x>0 and y>0) 为真,则
44.     鼠标移到 x+25 , y+70
45.     延时50毫秒
46.     右键单击
47.     延时50毫秒
48.     调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
49.     跳转到标记 打怪
50. 条件结束
51. //以上参考qmmwn找怪脚本，加入了找到怪后记录鼠标位置VBSCall GetCursorPos(x1,y1)
52. 标记 红药
53. 延时500毫秒
54. 如果 (60,757) 的颜色大约等于 #000000 则
55.     如果 (70,740) 的颜色大约等于 #212421 则
56.         如果 (78,751) 的颜色大约等于 #424d42 则
57.             跳转到标记 卷轴
58.         条件结束
59.     条件结束
60. 条件结束
61. //此段为红药检测，无要回城
62. 标记 小地图判断
63. 调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
64. 如果表达式 (x<=913 and y<=121 and x>0 and y>0) 为真,则
65.     鼠标移到 340 , 260
66.     延时50毫秒
67.     左键单击
68.     延时50毫秒
69.     跳转到标记 找怪
70. 否则如果(x>=913 and y>=121)为真,则
71.     鼠标移到 684 , 508
72.     延时50毫秒
73.     左键单击
74.     延时50毫秒
75.     跳转到标记 找怪
76. 条件结束
77. 延时50毫秒
78. 如果表达式 (x>=913 and y<=121) 为真,则
79.     鼠标移到 684 , 260
80.     延时50毫秒
81.     左键单击
82.     延时50毫秒
83.     跳转到标记 找怪
84. 否则如果(x<=913 and y>=121)为真,则
85.     鼠标移到 340 , 508
86.     延时50毫秒
87.     左键单击
88.     延时50毫秒
89.     跳转到标记 找怪
90. 条件结束
91. //此段参照qmmwn小地图找怪
92. 延时50毫秒
93. 按键<Tab>
94. 延时100毫秒
95. 标记 范围
96. 鼠标移到 xd , yd
97. 延时500毫秒
98. 左键单击
99. 延时1000毫秒
100. 调用外部VBScript子程序 得到鼠标当前位置(xd,yd)