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. //跳轉到循環開始