1. dim dong,xi,bao1,bao2,bao3,bao4,k,i,mai
2. dim color(2),kuang(2)
3. color(0)="Attachment:\水晶.bmp"
4. color(1)="Attachment:\绿宝石.bmp"
5. color(2)="Attachment:\蓝宝石.bmp"
6. kuang(0)="Attachment:\矿.bmp"
7. kuang(1)="Attachment:\矿1.bmp"
8. kuang(2)="Attachment:\矿2.bmp"
9. mai="铂金矿,钛金矿,3000 5000一组,要的MMMM"
10. 延时200毫秒
11. 按键`
12. 延时200毫秒
13. 标记 循环
14. 鼠标移到 292 , 226
15. 调用子程序 走路
16. 鼠标移到 313 , 252
17. 调用子程序 走路
18. 鼠标移到 271 , 287
19. 调用子程序 走路
20. 鼠标移到 378 , 213
21. 调用子程序 走路
22. 鼠标移到 415 , 215
23. 调用子程序 走路
24. 鼠标移到 312 , 325
25. 调用子程序 走路
26. 鼠标移到 337 , 334
27. 调用子程序 走路
28. 鼠标移到 273 , 330
29. 调用子程序 走路
30. 鼠标移到 307 , 362
31. 调用子程序 走路
32. 延时200毫秒
33. 跳转到标记 循环
34. 子程序 走路
35.     延时200毫秒
36.     左键单击
37.     延时100毫秒
38.     按键`
39.     延时200毫秒
40.     按键<F4>
41.     延时200毫秒
42.     标记 行走中
43.     调用外部VBScript子程序 xi=得到指定点的颜色(885,221)
44.     调用外部VBScript子程序 xi=得到指定点的颜色(885,221)
45.     延时1000毫秒
46.     调用外部VBScript子程序 xi=得到指定点的颜色(885,221)
47.     调用外部VBScript子程序 xi=得到指定点的颜色(885,221)
48.     如果表达式 (xi1=xi and dong1=dong) 为真,则
49.         延时200毫秒
50.         按键<F4>
51.         延时500毫秒
52.         调用子程序 挖矿
53.         跳转到标记 无矿
54.     条件结束
55.     跳转到标记 行走中
56.     标记 无矿
57.     延时200毫秒
58.     按键`
59.     延时200毫秒
60. 子程序结束,回到调用处
61. 子程序 挖矿
62.     标记 继续挖矿
63.     调用子程序 防御
64.     延时200毫秒
65.     调用子程序 拒绝请求
66.     延时200毫秒
67.     k=0
68.     循环 3 遍
69.         调用外部VBScript子程序 xi=得到指定点的颜色(885,221)
70.         如果表达式 (x>=0 and y>=0) 为真,则
71.             鼠标移到 x , y+15
72.             延时200毫秒
73.             左键单击
74.             延时200毫秒
75.             鼠标相对移动 0 , 200
76.             延时200毫秒
77.             调用子程序 补活力
78.             延时20000毫秒
79.             跳转到标记 继续挖矿
80.         条件结束
81.         k=k+1
82.     循环结束
83.     标记 区域找色挖矿
84.     调用外部VBScript子程序 xi=得到指定点的颜色(885,221)
85.     如果表达式 (x>=0 and y>=0) 为真,则
86.         鼠标移到 x , y+15
87.         延时200毫秒
88.         左键单击
89.         延时200毫秒
90.         鼠标相对移动 0 , 200
91.         延时200毫秒
92.         调用子程序 补活力
93.         延时15000毫秒
94.         跳转到标记 继续挖矿
95.     条件结束
96.     延时300毫秒
97. 子程序结束,回到调用处
98. 子程序 补活力
99.     调用子程序 叫卖
100.     延时500毫秒