Name Healthdisplay

From VbGORE Visual Basic Online RPG Engine

This is a small quicki addition which colors the Name displayed above the Character relative to the Characters HP!

This looks very good used together with the Name Border (following Screenshot uses the Name Border aswell!)

Green = Healthy

Yellow = wounded

Red = weak

There are 10 Green-Yellow-Red Colors ;) (changes every 10% HP!)

[edit] Implementation

Open GameClient.vbp.

Find:

    Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, RenderColor(1)

and replace it with:

If CharList(CharIndex).HealthPercent = 100 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -14104576
    ElseIf CharList(CharIndex).HealthPercent > 90 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -11483136
    ElseIf CharList(CharIndex).HealthPercent > 80 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -8861696
    ElseIf CharList(CharIndex).HealthPercent > 70 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -6240256
    ElseIf CharList(CharIndex).HealthPercent > 50 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -3618816
    ElseIf CharList(CharIndex).HealthPercent > 40 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -3629056
    ElseIf CharList(CharIndex).HealthPercent > 30 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -3639296
    ElseIf CharList(CharIndex).HealthPercent > 20 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -3649536
    ElseIf CharList(CharIndex).HealthPercent > 10 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -3659776
    ElseIf CharList(CharIndex).HealthPercent > 0 Then
        Engine_Render_Text Font_Default, CharList(CharIndex).Name, PixelOffsetX + 16 - CharList(CharIndex).NameOffset, PixelOffsetY - 40, -3670016
    End If