Sistema de Hud

Imagem



Client~Side

modDirectDraw7

Código:

Public DDS_Bars As DirectDrawSurface7

Código:

Public DDS_Hud As DirectDrawSurface7

Código:

Public DDSD_Bars As DDSURFACEDESC2

Código:

Public DDSD_Hud As DDSURFACEDESC2

Código:

    If FileExist(App.Path & "\data files\graphics\bars.bmp", True) Then Call InitDDSurf("bars", DDSD_Bars, DDS_Bars)

Código:

    If FileExist(App.Path & "\data files\graphics\hud.bmp", True) Then Call InitDDSurf("hud", DDSD_Hud, DDS_Hud)

Código:

    ' Render the bars
    BltBars

Código:

    ' Render the hud
    BltHud

Código:

Sub BltHud()
Dim HealthRec As RECT, SpiritRec As RECT, ExperienceRec As RECT, SpriteRec As RECT

    ' Health
    With HealthRec
        .top = 0
        .Bottom = 5
        .Left = 0
        .Right = ((GetPlayerVital(MyIndex, Vitals.HP) / DDSD_Hud.lWidth) / (GetPlayerMaxVital(MyIndex, Vitals.HP) / DDSD_Hud.lWidth)) * DDSD_Hud.lWidth
    End With
   
    Call DDS_BackBuffer.BltFast(Camera.Left + 40, Camera.top + 16, DDS_Hud, HealthRec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
   
    ' Spirit
    With SpiritRec
        .top = 5
        .Bottom = 10
        .Left = 0
        .Right = ((GetPlayerVital(MyIndex, Vitals.mp) / DDSD_Hud.lWidth) / (GetPlayerMaxVital(MyIndex, Vitals.mp) / DDSD_Hud.lWidth)) * DDSD_Hud.lWidth
    End With
   
    Call DDS_BackBuffer.BltFast(Camera.Left + 40, Camera.top + 22, DDS_Hud, SpiritRec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)

    ' Experience
    With ExperienceRec
        .top = 10
        .Bottom = 15
        .Left = 0
        .Right = ((GetPlayerExp(MyIndex) / DDSD_Hud.lWidth) / (GetPlayerNextLevel / DDSD_Hud.lWidth)) * DDSD_Hud.lWidth
    End With
   
    Call DDS_BackBuffer.BltFast(Camera.Left + 40, Camera.top + 28, DDS_Hud, ExperienceRec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
   
    ' Sprite
    With SpriteRec
        .top = 0
        .Bottom = DDSD_Character(GetPlayerSprite(MyIndex)).lHeight / 4
        .Left = 0
        .Right = DDSD_Character(GetPlayerSprite(MyIndex)).lWidth / 4
    End With
   
    Call DDS_BackBuffer.BltFast(Camera.Left + 5, Camera.top + 5, DDS_Character(GetPlayerSprite(MyIndex)), SpriteRec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "BltHud", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

modGlobals

Código:

' experience
Public GetPlayerNextLevel As Long

modHandleData

Código:

Private Sub HandlePlayerExp(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim i As Long
   
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
   
    SetPlayerExp MyIndex, Buffer.ReadLong
    GetPlayerNextLevel = Buffer.ReadLong
    frmMain.lblEXP.Caption = GetPlayerExp(Index) & "/" & GetPlayerNextLevel
    ' mp bar
    frmMain.imgEXPBar.Width = ((GetPlayerExp(MyIndex) / EXPBar_Width) / (GetPlayerNextLevel / EXPBar_Width)) * EXPBar_Width
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "HandlePlayerExp", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Anexo


Salve na pasta data files/graphics, no formato .bmp

Créditos

Ricardo