End Sub
Sub 开始血量
    dm_ret = dm.FindColor(xl + 71, yl + 58, xl + 70 + 140, yl + 60, "232323", 1.0, 0, intX, intY)
    If intX >= 0 and intY >= 0 Then
        自有血 = int(left(((intx - xl - 70 - 1) / 140) * 100, 3))
    Else 
        dm_ret = dm.FindColor(xl + 70+139, yl + 58, xl + 70 + 140, yl + 60, "d90a00", 1.0, 0, intX, intY)
        If intX >= 0 and intY >= 0 Then
            自有血 = 100
        end if
    End If
    dm_ret = dm.FindColor(xl + 71, yl + 58+8, xl + 70 + 140, yl + 60+8, "232323", 1.0, 0, intX, intY)
    If intX >= 0 and intY >= 0 Then
        自有蓝 = int(left(((intx - xl - 70 - 1) / 140) * 100, 3))
    Else 
        dm_ret = dm.FindColor(xl + 70+139, yl + 58+8, xl + 70 + 140, yl + 60+8, "0118d9", 1.0, 0, intX, intY)
        If intX >= 0 and intY >= 0 Then
            自有血 = 100
        end if
    End If
    dm_ret = dm.FindColor(xl + 141, yl + 58+48, xl +140 + 94, yl + 60+48, "232323", 0.9, 0, intX, intY)
    If intX >= 0 and intY >= 0 Then
        宠物血 = int(left(((intx - xl - 140 - 1) / 95) * 100, 3))
    Else 
        dm_ret = dm.FindColor(xl + 140+94, yl + 58+48, xl + 140+95, yl + 60+48, "d90a00", 1.0, 0, intX, intY)
        If intX >= 0 and intY >= 0 Then
            宠物血 = 100
        Else 
            宠物血 = 0
            If 宠物血 = 0 Then 
                BBjiaxue=0
            End If            
        end if
    End If
End Sub
Sub 获取血量
    If TFjiaxue>0 or xueliang>0 or EMjiaxue>0 then
        dm_ret = dm.FindColor(xl + 70, yl + 58, xl + 70 + 140, yl + 60, "232323", 1.0, 0, intX, intY)
        If intX >= 0 and intY >= 0 Then
            自有血 = int(left(((intx - xl - 70 - 1) / 140) * 100, 3))
        Else 
            dm_ret = dm.FindColor(xl + 70+139, yl + 58, xl + 70 + 140, yl + 60, "d90a00", 1.0, 0, intX, intY)
            If intX >= 0 and intY >= 0 Then
                自有血 = 100
            end if
        End If
    End If
    If TFjialan>0 then
        dm_ret = dm.FindColor(xl + 70, yl + 58+8, xl + 70 + 140, yl + 60+8, "232323", 1.0, 0, intX, intY)
        If intX >= 0 and intY >= 0 Then
            自有蓝 = int(left(((intx - xl - 70 - 1) / 140) * 100, 3))
        Else 
            dm_ret = dm.FindColor(xl + 70+139, yl + 58+8, xl + 70 + 140, yl + 60+8, "0118d9", 1.0, 0, intX, intY)
            If intX >= 0 and intY >= 0 Then
                自有血 = 100
            end if
        End If
    End If
    If BBjiaxue>0 then
        dm_ret = dm.FindColor(xl + 70+70, yl + 58+48, xl + 70 + 95+70, yl + 60+48, "232323", 0.8, 0, intX, intY)
        If intX >= 0 and intY >= 0 Then
            宠物血 = int(left(((intx - xl - 70-70 - 1) / 95) * 100, 3))
        Else 
            dm_ret = dm.FindColor(xl + 70+94+70, yl + 58+48, xl + 70 + 95+70, yl + 60+48, "d90a00", 0.8, 0, intX, intY)
            If intX >= 0 and intY >= 0 Then
                宠物血 = 100
            Else 
                宠物血 = 0
                If 宠物血 = 0 Then 
                    BBjiaxue=0
                End If            
            end if
        End If
    End If
End Sub
Sub 加血加蓝
    Call 获取血量
    If xueliang = 0 Then 
    Else 
        If 自有血>0 and 自有血 < xueliang * 10 Then 
            For 5
                Beep 
                Delay 50
            Next			
        End If		
    End If
    If TFjiaxue = 0 Then 
    else
        If 自有血>0 and 自有血 < TFjiaxue * 10 Then 
            Call Plugin.Bkgnd.KeyPress(Hwnd, 118)
            goto 防卡死
        End If		
    End If
    If TFjialan = 0 Then 
    else
        If 自有蓝>0 and 自有蓝 < TFjialan * 10 Then 
            Call Plugin.Bkgnd.KeyPress(Hwnd, 119)
            goto 防卡死
        End If	
    End If