//↑测蓝色，如测不到,则说明没蓝了，没法清心补血了
  Goto rw血满
  End If
  End If
  rem 有蓝 
  Dim mm, nn
  mm = 0
  nn = 0
  Rem 选人
  mm = mm + 1
  If mm > 5 Then 
  	//↑限制选人次数
  	Goto rw血满
  End If
  MoveTo Lx + 39, Ty + 50
  Delay 1000
  LeftClick 2
  Delay 1000
  LeftClick 2
  Delay 1000
  //↓测蓝色
  mycolor = GetPixelColor(Lx + 278, Ty + 62)
  Call Plugin.Color.ColorToRGB(mycolor, R, G, B)  
  //↑红色(R)、绿色(G)、蓝色(B)
  Call Plugin.Color.ColorToHSL(mycolor, H, S, L)  
  //↑色调(H)、饱和度(S)、亮度(L)
  If B >210 and S >180 and L > 90 Then 
  //↑测蓝色，如测不到,则说明没选中自已
  Rem 再加血
  nn = nn + 1
  If nn > 7 Then 
  	//↑限制加血次数
  	Goto rw血满
  End If
  KeyPress "F8", 1
  Delay 1000
  //↓测黑色(查看蓝条左端是否还有蓝)
  mycolor = GetPixelColor(Lx + 90, Ty + 62)
  Call Plugin.Color.ColorToRGB(mycolor, R, G, B)  
  //↑红色(R)、绿色(G)、蓝色(B)
  Call Plugin.Color.ColorToHSL(mycolor, H, S, L)  
  //↑色调(H)、饱和度(S)、亮度(L)
  If R < 66 and S < 40 Then 
  //↑人物缺蓝，退出加清心加血
  Goto rw血满
  End If 
  Delay 50
  //↓测黑色
  mycolor = GetPixelColor(Lx + 440, Ty + 54)
  Call Plugin.Color.ColorToRGB(mycolor, R, G, B)  
  //↑红色(R)、绿色(G)、蓝色(B)
  Call Plugin.Color.ColorToHSL(mycolor, H, S, L)  
  //↑色调(H)、饱和度(S)、亮度(L)
  If R < 66 and S < 40 Then 
  //↑人物缺血，需补充
  Goto 再加血
  End If
  Else 
  Goto 选人
  End If 
  End If
  Rem rw血满
  xuelank = 0
 End Sub
 Sub 搜包()
     Dim shape, x, y, x0, y0, n, r, w
     x0 = 0.49 * Rx : y0 = 0.52 * By : n = 0
     If Rx>1000 then
     r = 20 : w = 20
     Else 
     r = 15 : w = 15
     End If
     Rem 重搜
     While n<3.1415926*2
        x = Lx + x0 + r * sin(n)
        y = Ty + y0 + r * cos(n)
        If daqunk =1 Then 
        //↑如果施放大群，则停止搜包
        Goto 已搜
        End If
        MoveTo x,y
        Delay 20
        shape=GetCursorShape(0)
        If shape= bagdm then
        RightClick 2
        Delay 500
        Goto 已搜
        End If 
        n=n+w/r
     Wend
     If Rx>1000 then
     r = r + 20
     Else 
     r = r + 10
     End If 
     If r<40*searchn then
        n=0
        Goto 重搜
     End If
     Rem 已搜