Plugin hwnd=Window.Foreground() Import window.dll VBSBegin win=Window.Foreground() client=Window.GetClientRect(win) s=split(client,"|") dx=s(0) dy=s(1) zx=s(2) zy=s(3) VBSEnd Dim red,blue,bbred,redwait,bluewait,monwait,fqg,jb,a,b,c,k,q,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10 t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0 UserVar fqg=DropList{防抢怪:0|不防抢怪:1}=0 防抢怪设置 UserVar jb=DropList{不捡包:0|自动捡包:1}=0 是否捡物 UserVar s1=2 门派普攻F1间隔(秒) UserVar s2=20 单体攻击F2间隔(秒) UserVar s3=20 单体攻击F3间隔(秒) UserVar s4=25 怒气攻击F4间隔(秒) UserVar s5=80 自定技能F5间隔(秒) UserVar s6=60 BB技能F6间隔(秒) UserVar s7=10 状态技能F7间隔(分) UserVar red=DropList{30%:30|50%:50|70%:70}=1 血少于%加血F8 UserVar blue=DropList{30%:30|50%:50|70%:70}=0 蓝少于%加蓝F9 UserVar bbred=DropList{没有出战:0|20%:20|30%:30|50%:50}=2 宠少于%加血F10 UserVar redwait=1 红药冷却时间(秒) UserVar bluewait=1 蓝药冷却时间(秒) UserVar monwait=100 寻怪延时(毫秒) PutAttachment .\plugin *.dll Rem 开始 Delay monwait Gosub 验证码 Gosub 找怪 If fqg=0 IfColor dx+369,dy+31,1E252A,2 Goto 开始 EndIf EndIf Rem 继续杀怪 Gosub 判断血蓝状态 Gosub BB血状态 Gosub 杀怪 Rem End EndScript Sub 验证码 Rem 再次报警 VBSCall FindPic(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y) If x>0 and y>0 Plugin SimPlayer.ring(19) //使用了声音插件,需要自己去官网下载 Delay 2000 EndIf While x>0 VBSCall FindPic(0,300,600,550,"Attachment:\20S.bmp",0.9,x,y) If x>=0 and y>=0 IfColor x+17,y+9-k,FFFFFF,0 KeyPress 27 1 Delay 1000 MoveTo dx+446,dy+315 Delay 1000 LeftClick 1 Goto End EndIf Else Goto 再次报警 EndIf EndWhile Return 验证码 Sub 判断血蓝状态 IfColor red/100*120+66+dx,dy+31,222222,2 a=a+1 Else EndIf IfColor blue/100*120+66+dx dy+37 222222 2 b=b+1 Else EndIf Return 判断血蓝状态 Sub BB血状态 If bbred>0 IfColor bbred+91+dx dy+69 111111 2 c=c+1 EndIf EndIf Return BB血状态 Sub 找怪 KeyDown 1,1 Delay 10 KeyPress 9,1 Delay 10 KeyUp 1,1 Delay 10 Return 找怪 Sub 杀怪 IfColor dx+247,dy+31,0019FF,2 IfColor dx+261,dy+31,0011ff,2 Gosub 技能 Else KeyPress 12 1 Delay 1000