Else KeyPressH 53,1 EndIf EndIf EndIf Return 补血蓝 Sub 补血 //红 IfColor ax,22,8688db,2 Else Delay 100 IfColor ax,22,8688db,2 Else Delay 100 IfColor ax,22,8688db,2 Else KeyPressH 49,1 EndIf EndIf EndIf Return 补血 //==================找怪==================== Sub 找怪1 //近距离找怪 VBSCall FindColorEx(300,260,730,520,"00ffff",1,0.8,x,y) Delay 100 If x>=0 and y>=0 Goto 自动打怪 Else //全范围找怪 VBSCall FindColorEx(40,45,970,680,"00ffff",1,0.8,x,y) Delay 100 If x>=0 and y>=0 Goto 自动打怪 Else EndIf EndIf Return 找怪1 Sub 找怪2 //近距离找怪 VBSCall FindColorEx(300,260,730,520,"80ff",1,0.8,x,y) Delay 100 If x>=0 and y>=0 Goto 自动打怪 Else //全范围找怪 VBSCall FindColorEx(40,45,970,680,"80ff",1,0.8,x,y) Delay 100 If x>=0 and y>=0 Goto 自动打怪 Else EndIf EndIf Return 找怪2 Sub 找怪3 //近距离找怪 VBSCall FindColorEx(300,260,730,520,"40bec0",1,0.8,x,y) Delay 100 If x>=0 and y>=0 Goto 自动打怪 Else //全范围找怪 VBSCall FindColorEx(40,45,970,680,"40bec0",1,0.8,x,y) Delay 100 If x>=0 and y>=0 Goto 自动打怪 Else EndIf EndIf Return 找怪3 EndScript