1. //血条查询Y1/605（稍微扩大了寻图范围，主要是水晶矿场右上角有个地方比较高，贴图不是在以前的位置了，上移了一点）
2. y1=587
3. //血条查询Y2
4. y2=615
5. //包裹查询Y1/575
6. b1=560
7. //包裹查询Y2
8. b2=605
9. //矿脉查询Y1/575
10. k1=560
11. //矿脉查询Y2
12. k2=595
13. 用户定义变量 c=DropList{关闭:0|开启:1}=0 路点检查
14. 用户定义变量 b=DropList{关闭:0|开启:1}=0 水晶矿场
15. 用户定义变量 a=DropList{山林矿场1层:1|山林矿场3层:3|山林矿场5层:5|关闭全地图寻矿:0}=3 采矿地点
16. （VBScript语句） dim face,wx,wy,r,s,h,v,t,l,pt,n
17. v=0.12
18. l=1
19. pt=0
20. n=0
21. face=0
22. //像素/毫秒
23. //按1次行动键=按下85ms弹起！
24. //变量定义结束（face 面对方向；wx,wy 物品查询返回值；r 随机数；l 位置；p t上梯后，偏移时间）
25. 如果表达式 (b=1) 为真,则
26.     a=0
27. 条件结束
28. 如果表达式 (1) 为真,则循环执行
29.     调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
30.     如果表达式 (x>=0 or y>=0) 为真,则
31.         x=x+21
32.         标记 包查询
33.         调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
34.         如果表达式 (wx>=0 or wy>=0) 为真,则
35.             wx=wx+6
36.             //moveto wx,wy-200
37.             调用子程序 拾取动作
38.             跳转到标记 包查询
39.         否则
40.             //无包，开始矿查询
41.             如果表达式 (b=1) 为真,则
42.                 调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
43.             否则
44.                 调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
45.             条件结束
46.             如果表达式 (c=1) 为真,则
47.                 wx=-1
48.                 wy=-1
49.             条件结束
50.             如果表达式 (wx>=0 or wy>=0) 为真,则
51.                 跳转到标记 找到矿脉
52.             否则
53.                 如果表达式 (b=1) 为真,则
54.                     调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
55.                 否则
56.                     调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
57.                 条件结束
58.                 如果表达式 (c=1) 为真,则
59.                     wx=-1
60.                     wy=-1
61.                 条件结束
62.                 如果表达式 (wx>=0 or wy>=0) 为真,则
63.                     跳转到标记 找到矿脉
64.                 否则
65.                     如果表达式 (b=1) 为真,则
66.                         调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
67.                     否则
68.                         调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
69.                     条件结束
70.                     如果表达式 (c=1) 为真,则
71.                         wx=-1
72.                         wy=-1
73.                     条件结束
74.                     如果表达式 (wx>=0 or wy>=0) 为真,则
75.                         标记 找到矿脉
76.                         wx=wx+10
77.                         //MoveTo wx,wy-200
78.                         调用子程序 挖矿
79.                         标记 采矿跳转
80.                     否则
81.                         如果表达式 (a=1) 为真,则
82.                             调用子程序 山林矿场1层
83.                         否则如果(a=3)为真,则
84.                             调用子程序 山林矿场3层
85.                         否则如果(a=5)为真,则
86.                             调用子程序 山林矿场5层
87.                         条件结束
88.                     条件结束
89.                 条件结束
90.             条件结束
91.         条件结束
92.     否则
93.         //血查询失败
94.         Randomize
95.         r=Rnd
96.         如果表达式 (r>=0.5) 为真,则
97.             //左移
98.             硬件模拟按住<Left>
99.             延时500毫秒
100.             硬件模拟弹起<Left>