Mirage Source

Sub BltWait(ByVal index As Long)
Dim X As Long, Y As Long
   
    With rec
        .top = 16
        .Bottom = .top + 16
        .Left = 0
        .Right = .Left + 16
    End With
   
    X = GetPlayerX(index) * PIC_X + Player(index).XOffset
    Y = GetPlayerY(index) * PIC_Y + Player(index).YOffset - 4

    Call DD_BackBuffer.BltFast(X, Y, DD_WaitSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
End Sub

        For i = 1 To MAX_PLAYERS
           
                Call BltWait(i)
         
        Next i

DDSD_Wait.lFlags = DDSD_CAPS
    DDSD_Wait.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN Or DDSCAPS_SYSTEMMEMORY
    Set DD_WaitSurf = DD.CreateSurfaceFromFile(App.Path & "\GFX\wait.bmp", DDSD_Wait)
    DD_WaitSurf.SetColorKey DDCKEY_SRCBLT, key

Public DDSD_Wait As DDSURFACEDESC2

Public DD_WaitSurf As DirectDrawSurface7

    With rec
        .top = 0
        .Bottom = .top + 16
        .Left = 0
        .Right = .Left + 16
    End With