Sub BltPlayerHP(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long

    ' Set Color HP is displayed in
    If GetPlayerHP(Index) = 0 Then
        Color = QBColor(DarkGray)
            Else
        Color = QBColor(BrightGreen)
    End If
   
   
    ' Draw player HP
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 3) - ((Len(GetPlayerHP(Index)) / 2) * 8)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 3) - (SIZE_Y - PIC_Y)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerHP(Index), Color)
End Sub