1. 展开附件 D:\ *.wav
2. dim hong,lan,hongT,lanT,xgT,bbh,hgsd
3. dim number(2),thetime(2),key(2),sj(2)
4. dim a,b,c,d,jn1,jn2,jn3,s1,s2,s3,t1,t2,t3,L
5. //声明变量
6. 用户定义变量 hong=DropList{30%:30|50%:50|70%:70|90%:90|95%:95}=1 人多少吃红F5
7. 用户定义变量 lan=DropList{30%:30|50%:50|70%:70}=1 人多少吃蓝F6
8. 用户定义变量 bbh=DropList{30%:30|50%:50|70%:70|90%:90|95%:95}=1 宠多少吃红F7
9. 用户定义变量 hongT=10000 红药冷却时间
10. 用户定义变量 lanT=1000 蓝药冷却时间
11. 用户定义变量 xgT=1000 寻怪延时
12. 标记 开始
13. 调用子程序 外挂提示
14. 如果 (247,31) 的颜色大约等于 #101410 则
15.     标记 继续找怪
16.     调用子程序 寻怪
17.     标记 正式开始
18.     调用子程序 吃血蓝
19.     延时200毫秒
20.     调用子程序 锁定怪
21.     延时50毫秒
22. 否则
23.     调用子程序 外挂提示
24. 条件结束
25. 如果 (247,31) 的颜色大约等于 #000fff 则
26.     调用子程序 打怪
27. 否则
28.     如果 (223,30) 的颜色不等于 #000000 则
29.         调用子程序 外挂提示
30.         跳转到标记 继续找怪
31.     否则
32.         跳转到标记 开始
33.     条件结束
34. 条件结束
35. 子程序 关闭意外窗口
36.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\tlxx.bmp",0.6,x,y)
37.     如果表达式 (x>0 and y>0) 为真,则
38.         鼠标移到 x+2 , y+2
39.         左键单击
40.     条件结束
41.     //条件结束
42.     延时200毫秒
43. 子程序结束,回到调用处
44. 子程序 外挂提示
45.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\tlxx.bmp",0.6,x,y)
46.     如果表达式 (x>0 and y>0) 为真,则
47.         循环 3 遍
48.             调用子程序 报警
49.         循环结束
50.         延时20毫秒
51.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\tlxx.bmp",0.6,x,y)
52.         如果表达式 (x>0 and y>0) 为真,则
53.             鼠标移到 886 , 746
54.             延时20毫秒
55.             左键单击
56.             延时1000毫秒
57.             鼠标移到 515 , 398
58.             延时20毫秒
59.             左键单击
60.         条件结束
61.     条件结束
62. 子程序结束,回到调用处
63. 子程序 报警
64.     strSoundFile = "d:\5201.wav"
65.     Set objShell = CreateObject("Wscript.Shell")
66.     strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
67.     objShell.Run strCommand, 0, True
68.     延时2000毫秒
69. 子程序结束,回到调用处
70. 子程序 吃血蓝
71.     如果 (hong/100*(185-65)+65,30) 的颜色大约等于 #1b1f1a 则
72.         //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
73.         //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
74.         按键<F5>
75.         //按下补血快捷键
76.         延时hongT毫秒
77.         //补血延时
78.     条件结束
79.     如果 (lan/100*(185-65)+65,37) 的颜色大约等于 #1b1f1a 则
80.         //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
81.         //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
82.         按键<F6>
83.         //按下补血快捷键
84.         延时lanT毫秒
85.         //补血延时
86.     条件结束
87.     如果 (bbh/100*(185-92)+92,70) 的颜色大约等于 #111310 则
88.         //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
89.         //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
90.         按键<F7>
91.         //按下补血快捷键
92.         延时lanT毫秒
93.         //补血延时
94.     条件结束
95. 子程序结束,回到调用处
96. 子程序 寻怪
97.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\tlxx.bmp",0.6,x,y)
98.     如果表达式 (x>0 and y>0) 为真,则
99.         鼠标移到 x+4 , y+4
100.         左键单击