1. （VBScript语句） dim hong,lan,hongT,lanT
2. //F3红，F4蓝
3. //在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。
4. 用户定义变量 hong=70 血量<hong%时，自动吃红。
5. 用户定义变量 lan=30 蓝量<lan%时，自动吃蓝。
6. 用户定义变量 hongT=256 补血延时时间（毫秒）
7. 用户定义变量 lanT=256 补蓝延时时间（毫秒）
8. 标记 开始
9. //循环开始标记
10. 延时32毫秒
11. //循环小延时，防止出现CPU使用率过高，脚本卡
12. 标记 补红
13. 如果 (hong/100*(x2-x1)+x1,y) 的颜色大约等于 #color 则
14.     //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
15.     //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
16.     按键<F3>
17.     //按下补血快捷键
18.     延时hongT毫秒
19.     //补血延时
20. 条件结束
21. 标记 补蓝
22. 如果 (lan/100*(x2-x1)+x1,y) 的颜色大约等于 #color 则
23.     //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
24.     //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
25.     按键<F4>
26.     //按下补蓝快捷键
27.     延时lanT毫秒
28.     //补蓝延时
29. 条件结束
30. 跳转到标记 开始
31. //跳转到循环开始