Name Health Display

From VbGORE Visual Basic Online RPG Engine

Name: Benjamin Justice

Credit: not required, but would make me happy ^^

Feature: It colors all characters names according to their HP% (screenshot)

Difficulty: very easy, copy paste ;)

Edits: Client

Details: See screenie, its not complex

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!)

Implementation

Open GameClient.vbp.

Find:

<vb>

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

</vb>

and replace it with:

<vb> 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

</vb>

That's it! If you have any questions, please ask here: [1]