1. //----------------------------------------------------------------------
2. //本脚步是由 万古魔主 制作 联系QQ229130276
3. //脚步归万古魔主个人所有 未经许可任何人不得用于商业用途
4. //和私自传播！！！
5. //----------------------------------------------------------------------
6. （VBScript语句） dim hong,lan,hongT,lanT
7. 用户定义变量 hong=40 血量低于几%时，自动吃红。
8. 用户定义变量 lan=30 蓝量低于几%时，自动吃蓝。
9. 用户定义变量 jialan=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 加蓝键
10. 用户定义变量 jiahong=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 加红键
11. 用户定义变量 jn1=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能1
12. 用户定义变量 jn2=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能2
13. 用户定义变量 jn3=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能3
14. 用户定义变量 jn4=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能4
15. 用户定义变量 jn5=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能5
16. 用户定义变量 jn6=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能6
17. 用户定义变量 jn7=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能7
18. 用户定义变量 jn8=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能8
19. 用户定义变量 xg=DropList{否:1|是:2} 是否选怪
20. 标记 ks
21. 延时1500毫秒
22. 按键<Tab>
23. 调用子程序 补红蓝
24. 如果表达式 (xg=2) 为真,则
25.     调用子程序 选怪
26. 条件结束
27. 标记 sg
28. 如果表达式 (jn1>0) 为真,则
29.     如果 (373,46) 的颜色大约等于 #300df 则
30.         按键#jn1
31.         延时1000毫秒
32.     否则
33.         跳转到标记 ks
34.     条件结束
35.     调用子程序 补红蓝
36. 条件结束
37. 如果表达式 (jn2>0) 为真,则
38.     如果 (373,46) 的颜色大约等于 #300df 则
39.         按键#jn2
40.         延时1000毫秒
41.     否则
42.         跳转到标记 ks
43.     条件结束
44.     调用子程序 补红蓝
45. 条件结束
46. 如果表达式 (jn3>0) 为真,则
47.     如果 (373,46) 的颜色大约等于 #300df 则
48.         按键#jn3
49.         延时1000毫秒
50.     否则
51.         跳转到标记 ks
52.     条件结束
53.     调用子程序 补红蓝
54. 条件结束
55. 如果表达式 (jn4>0) 为真,则
56.     如果 (373,46) 的颜色大约等于 #300df 则
57.         按键#jn4
58.         延时1000毫秒
59.     否则
60.         跳转到标记 ks
61.     条件结束
62.     调用子程序 补红蓝
63. 条件结束
64. 如果 (373,46) 的颜色大约等于 #300df 则
65.     跳转到标记 sg
66. 否则
67.     调用子程序 检物
68. 条件结束
69. 跳转到标记 ks
70. 子程序 补红蓝
71.     如果表达式 (jiahong>0) 为真,则
72.         如果 (hong/100*(246-91)+91,47) 的颜色大约等于 #2E1734 则
73.             延时32毫秒
74.             按键#jiahong
75.         条件结束
76.     条件结束
77.     如果表达式 (jialan) 为真,则
78.         如果 (lan/100*(246-91)+91,57) 的颜色大约等于 #371F1A 则
79.             延时32毫秒
80.             按键#jialan
81.         条件结束
82.     条件结束
83. 子程序结束,回到调用处
84. 子程序 选怪
85.     如果 (527,47) 的颜色大约等于 #150A18 则
86.         延时1000毫秒
87.         跳转到标记 ks
88.     条件结束
89. 子程序结束,回到调用处
90. 子程序 检物
91.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(200,100,600,580,"25FF2D",1,0.8,x,y)
92.     //区域模煳找色 0,0,1024,768为区域范围 "FFFFFF"为颜色 1为查找方式(中间向外) 0.8为模煳值 x,y为找到颜色后的坐标变量
93.     如果表达式 (x>0 and y>0) 为真,则
94.         //如果找到颜色 比如找到颜色就会赋值给坐标变量 通过判断坐标变量可以知道有没有找到怪
95.         鼠标移到 x , y
96.         //把鼠标移动到该色的坐标 如果找的是怪名字或血条 可能移动不到怪身上 这时就要用鼠标偏移 如：MoveTo x+10 y+10
97.         延时500毫秒
98.         //延时
99.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(200,100,600,580,"25FF2D",1,0.8,x,y)
100.         如果表达式 (shape=876372781) 为真,则