2. dim x0,y0
3. dim x0,y0
4. 调用外部VBScript子程序 得到鼠标当前位置(x0,y0)
5. 调用外部VBScript子程序 得到鼠标当前位置(x0,y0)
6. 标记 loop
7. 标记 loop
8. //惊喜
9. //惊喜
10. 调用子程序 Jingxi
11. 调用子程序 Jingxi
12. //吃药
13. //吃药
14. 调用子程序 EatFood
15. 调用子程序 EatFood
16. //组队
17. //组队
18. 调用子程序 MakeGroup
19. 调用子程序 MakeGroup
20. //left
21. //left
22. 鼠标移到 x0 , y0
23. 鼠标移到 x0 , y0
24. 左键单击
25. 左键单击
26. 延时500毫秒
27. 延时500毫秒
28. 左键单击
29. 左键单击
30. 调用子程序 WaitSec
31. 调用子程序 WaitSec
32. //buttom
33. //buttom
34. 鼠标移到 x0+32 , y0+13
35. 鼠标移到 x0+32 , y0+13
36. 左键单击
37. 左键单击
38. 延时500毫秒
39. 延时500毫秒
40. 左键单击
41. 左键单击
42. 调用子程序 WaitSec
43. 调用子程序 WaitSec
44. //buttom
45. //buttom
46. 鼠标移到 x0+64 , y0
47. 鼠标移到 x0+64 , y0
48. 左键单击
49. 左键单击
50. 延时500毫秒
51. 延时500毫秒
52. 左键单击
53. 左键单击
54. 调用子程序 WaitSec
55. 调用子程序 WaitSec
56. //回去
57. //回去
58. 跳转到标记 loop
59. 跳转到标记 loop
60. //等待挖矿成功
61. //等待挖矿成功
62. 子程序 WaitSec
63.     子程序 WaitSec
64.         dim start_time
65.         dim start_time
66.         start_time = now
67.         start_time = now
68.         如果表达式 (DateDiff("s",start_time,now)<7) 为真,则循环执行
69.             如果表达式 (DateDiff("s",start_time,now)<7) 为真,则循环执行
70.                 调用子程序 MakeGroup
71.                 调用子程序 MakeGroup
72.                 延时100毫秒
73.                 延时100毫秒
74.             循环结束
75.         循环结束
76.     子程序结束,回到调用处
77. 子程序结束,回到调用处
78. //判断组队
79. //判断组队
80. 子程序 MakeGroup
81.     子程序 MakeGroup
82.         dim intX,intY
83.         dim intX,intY
84.         调用外部VBScript子程序 得到鼠标当前位置(x0,y0)
85.         调用外部VBScript子程序 得到鼠标当前位置(x0,y0)
86.         如果表达式 (intX>=0 and intY>=0) 为真,则
87.             如果表达式 (intX>=0 and intY>=0) 为真,则
88.                 保存鼠标位置
89.                 保存鼠标位置
90.                 鼠标移到 intX+2 , intY+2
91.                 鼠标移到 intX+2 , intY+2
92.                 延时100毫秒
93.                 延时100毫秒
94.                 左键单击
95.                 左键单击
96.                 延时50毫秒
97.                 延时50毫秒
98.                 恢复鼠标位置
99.                 恢复鼠标位置
100.                 左键单击