If B < 66 and S < 40 Then 
	//↑人物缺蓝，需补充
  //↓补蓝之前，先补宝宝血
  rworbb = 2
  //↑(人或)宝宝加血对像判断参数
  Call 辨状态()
  //↓passnum:人或宝宝是否被遮挡或已挂传递参数
  If passnum = 1 Then 
  Dim bbn
  bbn = 0
  Rem 补BB血
  bbn = bbn + 1
  If bbn > 3 Then 
  	//↑此处限制喂食次数，以防陷入死循环
  	Goto BB血满
  End If
  //↓测红色
  bbcolor = GetPixelColor(Lx + 210, Ty + 110)
  Call Plugin.Color.ColorToRGB(bbcolor, R, G, B)  
  //↑红色(R)、绿色(G)、蓝色(B)
  Call Plugin.Color.ColorToHSL(bbcolor, H, S, L)  
  //↑色调(H)、饱和度(S)、亮度(L)
  If R > 210 and B < 10 and H < 10 and S > 230 Then 
  //↑测红色，如测不到,则说明宝宝加没加满血，需继续喂食
  Goto BB血满
  Else 
  KeyPress "F10", 1
  Delay 1000
  Goto 补BB血
  End If
  End If 
  rem BB血满 
  KeyPress "F9", 1
  Delay 1000
  Call 喂食()
  End If
  Rem 已加蓝
 End Sub
 Sub 人加血()
  rworbb = 1
  //↑人(或宝宝)加血对像判断参数
  Call 辨状态()
  //↓passnum:人或宝宝是否被遮挡或已挂传递参数
  If passnum = 1 Then 
  Goto 血亏盈
  Else 
  Goto rw满血
  End If
  //↑经过上面先后测数，如没测到，则说明人物被遮挡住了
  Rem 血亏盈
  Delay 50
  //↓测黑色
  mycolor = GetPixelColor(Lx + 220-round((1-ppxue)*139), 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 B < 66 and S < 40 Then 
  //↑人物缺蓝，需补充
  xuelank = 1
  Delay 1000
  KeyPress "F8", 1
  Delay 1000
  End If
  xuelank = 0
  Rem rw满血
 End Sub
 Sub 清心()
  rworbb = 1
  //↑人(或宝宝)加血对像判断参数
  Call 辨状态()
  //↓passnum:人或宝宝是否被遮挡或已挂传递参数
  If passnum = 1 Then 
  Goto 血盈亏
  Else 
  Goto rw血满
  End If
  //↑经过上面先后测数，如没测到，则说明人物被遮挡住了
  Rem 血盈亏
  Delay 50
  //↓测黑色
  mycolor = GetPixelColor(Lx + 220-round((1-ppxue)*139), 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 
  //↑人物缺血，需补充
  xuelank = 1
  //↓测蓝色,看人物是否还有蓝，没有则退出
  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 B >210 and S >180 and L > 90 Then 
  //↑测蓝色，如测不到,则说明没蓝了，没法清心补血了
  Goto 有蓝
  Else 
  If xuemode = 2 Then