1. （VBScript语句） dim hong,lan,xgT,BB,BBB,bhong,blan,jn1,jn2,jn3,jn4,jn5,x3,hhh,hh,ll,lll,bh,bbh
2. 用户定义变量 hong=DropList{35%加血:145,57|55%加血:188,58|75%加血:222,58}=1 人百分比加血
3. 用户定义变量 hhh=DropList{35%加血:24292a|55%加血:24292a|75%加血:24292a}=1 人百分比加血
4. 用户定义变量 lan=DropList{25%加蓝:144,75|75%加蓝:222,74}=1 人百分比加蓝
5. 用户定义变量 lll=DropList{25%加蓝:24292a|75%加蓝:24292a}=1 人百分比加蓝
6. 用户定义变量 bhong=DropList{25%加红:162,113|50%加红:182,113|75%加红:202,113}=1 宠百分比加红
7. 用户定义变量 bh=DropList{25%加红:24292a|50%加红:24292a|75%加红:24292a}=1 宠百分比加红
8. 用户定义变量 BB=DropList{第一位宝宝:240|第二位宝宝:255|第三位宝宝:270|第四位宝宝:285}=1 召唤宝宝
9. 用户定义变量 jn1=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 人血药键
10. 用户定义变量 jn2=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 人蓝药键
11. 用户定义变量 jn3=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 宠血药键
12. 用户定义变量 jn4=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 宠蓝药键
13. 用户定义变量 jn5=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 普技能键
14. 用户定义变量 x3=DropList{二星怪:638|三星怪:658}=1 不打几星怪
15. 延时2000毫秒
16. 调用子程序 视觉调整
17. 调用子程序 召唤宝宝
18. 标记 开始
19. 调用子程序 寻怪
20. 跳转到标记 开始
21. 子程序 视觉调整
22.     鼠标移到 1179 , 52
23.     延时200毫秒
24.     左键单击
25.     延时200毫秒
26.     按键<End>
27.     延时200毫秒
28. 子程序结束,回到调用处
29. 子程序 召唤宝宝
30.     如果 (255,117) 的颜色不等于 #21147b 则
31.         按键<X>
32.         延时500毫秒
33.         鼠标移到 1148 , BB
34.         左键单击
35.         延时300毫秒
36.         鼠标移到 1232 , 421
37.         延时300毫秒
38.         左键单击
39.         延时59毫秒
40.         按键<X>
41.         延时4200毫秒
42.     条件结束
43. 子程序结束,回到调用处
44. 子程序 拾取
45.     循环 3 遍
46.         调用外部VBScript子程序 在屏幕区域里查找图形(10,10,1000,750,"2.bmp",0.4,x,y)
47.         如果表达式 (x>=0 and y>=0) 为真,则
48.             鼠标移到 x , y
49.             延时50毫秒
50.             右键单击
51.         条件结束
52.     循环结束
53.     跳转到标记 报警
54. 子程序结束,回到调用处
55. 子程序 寻怪
56.     按键`
57.     如果 (619,58) 的颜色大约等于 #3C88AF 则
58.         调用子程序 怪物星级
59.     否则
60.         按键`
61.         延时200毫秒
62.     条件结束
63. 子程序结束,回到调用处
64. 子程序 怪物星级
65.     如果 (x3,58) 的颜色大约等于 #3C88AF 则
66.         按键`
67.     否则
68.         调用子程序 打怪
69.     条件结束
70. 子程序结束,回到调用处
71. 子程序 打怪
72.     如果 (618,58) 的颜色大约等于 #3C88AF 则
73.         按键#jn5
74.         延时500毫秒
75.         hh=split(cstr(hong),",")
76.         如果 (clng(hh(0)),clng(hh(1))) 的颜色大约等于 #hhh 则
77.             按键#jn1
78.         否则
79.         条件结束
80.         //加蓝
81.         ll=split(cstr(lan),",")
82.         如果 (clng(ll(0)),clng(ll(1))) 的颜色大约等于 #lll 则
83.             按键#jn2
84.         否则
85.         条件结束
86.         bbh=split(cstr(bhong),",")
87.         如果 (clng(bbh(0)),clng(bbh(1))) 的颜色大约等于 #bh 则
88.             按键#jn3
89.         条件结束
90.         如果 (613,41) 的颜色大约等于 #25272a 则
91.             调用子程序 拾取
92.         否则
93.             调用子程序 打怪
94.         条件结束
95.     条件结束
96. 子程序结束,回到调用处
97. 子程序 报警
98.     调用外部VBScript子程序 在屏幕区域里查找图形(10,10,1000,750,"2.bmp",0.4,x,y)
99.     如果表达式 (x>=0 and y>=0) 为真,则
100.         循环 60 遍