1. Dim x,y,m,n,M,N,j,k
2. 标记 找怪
3. 调用外部VBScript子程序 在屏幕区域里查找图形(336,128,673,450,"Attachment:\血.bmp",0.6,x,y)
4. 如果表达式 (x>=0 and y>=0) 为真,则
5.     跳转到标记 打怪
6. 否则
7.     跳转到标记 捡
8. 条件结束
9. 标记 打怪
10. 鼠标移到 x+45 , y+50
11. 延时700毫秒
12. 左键单击
13. 延时6000毫秒
14. 调用外部VBScript子程序 在屏幕区域里查找图形(336,128,673,450,"Attachment:\血.bmp",0.6,x,y)
15. 如果表达式 (x>=0 and y>=0) 为真,则
16.     跳转到标记 打怪
17. 条件结束
18. 跳转到标记 找怪
19. //============================================================
20. //=====================等怪掉钱延时^_^==================
21. //===============================捡钱=============================
22. 标记 捡
23. 调用外部VBScript子程序 在屏幕区域里查找图形(336,128,673,450,"Attachment:\血.bmp",0.6,x,y)
24. 如果表达式 (x>=0 and y>=0) 为真,则
25.     鼠标移到 x+25 , y+10
26.     左键按下
27.     延时1500毫秒
28.     左键弹起
29.     延时500毫秒
30. 否则
31. 条件结束
32. 调用外部VBScript子程序 在屏幕区域里查找图形(336,128,673,450,"Attachment:\血.bmp",0.6,x,y)
33. 如果表达式 (x>=0 and y>=0) 为真,则
34.     鼠标移到 x+25 , y+10
35.     左键按下
36.     延时1500毫秒
37.     左键弹起
38.     跳转到标记 找怪
39. 否则
40.     跳转到标记 小地图找怪
41. 条件结束
42. 标记 小地图找怪
43. 调用外部VBScript子程序 在屏幕区域里查找图形(336,128,673,450,"Attachment:\血.bmp",0.6,x,y)
44. 调用外部VBScript子程序 在屏幕区域里查找图形(336,128,673,450,"Attachment:\血.bmp",0.6,x,y)
45. 如果表达式 (m>0 and n>0) 为真,则
46.     M=400+(x-m)*35
47.     N=200+(y-n)*35
48.     鼠标移到 M , N
49.     右键按下
50.     延时1000毫秒
51.     右键弹起
52.     延时500毫秒
53.     跳转到标记 找怪
54. 条件结束