2. //******************************************
3. //******************************************
4. // 定义和初始化变量
5. // 定义和初始化变量
6. //******************************************
7. //******************************************
8. （VBScript语句） dim hong,hong1,lan
9. （VBScript语句） dim hong,hong1,lan
10. //定义数组
11. //定义数组
12. （VBScript语句） dim sj(8),s(8),color(3)
13. （VBScript语句） dim sj(8),s(8),color(3)
14. //color(0):人物血颜色,color(1):为蓝颜色,color(2):怪血颜色
15. //color(0):人物血颜色,color(1):为蓝颜色,color(2):怪血颜色
16. （VBScript语句） color(0)="110576":color(1)="774008":color(2)="2E7FA7"
17. （VBScript语句） color(0)="110576":color(1)="774008":color(2)="2E7FA7"
18. 用户定义变量 hong=60 红量<hong%时，自动吃小红
19. 用户定义变量 hong=60 红量<hong%时，自动吃小红
20. 用户定义变量 hong1=30 红量<hong1%时，自动吃大红
21. 用户定义变量 hong1=30 红量<hong1%时，自动吃大红
22. 用户定义变量 lan=20 蓝量<lan%时，自动吃蓝
23. 用户定义变量 lan=20 蓝量<lan%时，自动吃蓝
24. //初始化技能时间
25. //初始化技能时间
26. （VBScript语句） dim i,m,r,t1,t2,t3,t4,t5,katime,katime2
27. （VBScript语句） dim i,m,r,t1,t2,t3,t4,t5,katime,katime2
28. （VBScript语句） i=0:m=0:r=0
29. （VBScript语句） i=0:m=0:r=0
30. （VBScript语句） t1=now:t2=now:t3=now:t4=now:t5=now:katime=now:katime2=now
31. （VBScript语句） t1=now:t2=now:t3=now:t4=now:t5=now:katime=now:katime2=now
32. 用户定义变量 sj(0)=2 技能1间隔时间(秒)
33. 用户定义变量 sj(0)=2 技能1间隔时间(秒)
34. 调用子程序 [判断时间]
35. 调用子程序 [判断时间]
36. 用户定义变量 sj(1)=2 技能2间隔时间(秒)
37. 用户定义变量 sj(1)=2 技能2间隔时间(秒)
38. 调用子程序 [判断时间]
39. 调用子程序 [判断时间]
40. 用户定义变量 sj(2)=3 技能3间隔时间(秒)
41. 用户定义变量 sj(2)=3 技能3间隔时间(秒)
42. 调用子程序 [判断时间]
43. 调用子程序 [判断时间]
44. 用户定义变量 sj(3)=5 技能4间隔时间(秒)
45. 用户定义变量 sj(3)=5 技能4间隔时间(秒)
46. 调用子程序 [判断时间]
47. 调用子程序 [判断时间]
48. 用户定义变量 sj(4)=5 技能5间隔时间(秒)
49. 用户定义变量 sj(4)=5 技能5间隔时间(秒)
50. 调用子程序 [判断时间]
51. 调用子程序 [判断时间]
52. //******************************************
53. //******************************************
54. // 主程序开始
55. // 主程序开始
56. //******************************************
57. //******************************************
58. 展开附件 .\plugin *.dll
59. 展开附件 .\plugin *.dll
60. 调用插件命令 hwnd = Window.Foreground()
61. 调用插件命令 hwnd = Window.Foreground()
62. 调用插件命令 Window.Move(hwnd, 0, 0)
63. 调用插件命令 Window.Move(hwnd, 0, 0)
64. //6.30版之后支持从.附件中直接读图片信息找图，不需要再释放到硬盘上
65. //6.30版之后支持从.附件中直接读图片信息找图，不需要再释放到硬盘上
66. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
67. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
68. 如果表达式 (x01>=0 and y01>=0) 为真,则
69.     如果表达式 (x01>=0 and y01>=0) 为真,则
70.         //复位方向
71.         //复位方向
72.         超级模拟鼠标移动 x01+11 , y01+10
73.         超级模拟鼠标移动 x01+11 , y01+10
74.         延时100毫秒
75.         延时100毫秒
76.         超级模拟左键单击
77.         超级模拟左键单击
78.     条件结束
79. 条件结束
80. 延时500毫秒
81. 延时500毫秒
82. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
83. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
84. 延时300毫秒
85. 延时300毫秒
86. //取得定位点(x,y)这个坐标点
87. //取得定位点(x,y)这个坐标点
88. SetEnvironmentVar "threadx",CStr(x)
89. SetEnvironmentVar "threadx",CStr(x)
90. SetEnvironmentVar "thready",CStr(y)
91. SetEnvironmentVar "thready",CStr(y)
92. //同步标志
93. //同步标志
94. SetEnvironmentVar "KeyFlg","0"
95. SetEnvironmentVar "KeyFlg","0"
96. //红蓝检测线程
97. //红蓝检测线程
98. BeginThread "Threadcheckhonglan"
99. BeginThread "Threadcheckhonglan"
100. //捡物品线程