Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Blitting Stuff...
#2
Easy stuff, yo.

Code:
Private Sub BltRestIcon(ByVal Index As Long)
Dim rec As DXVBLib.RECT

    With rec
        .Top = 0
        .Bottom = 32
        .Left = 0
        .Right = 32
    End With
    
    Call DD_BltFast(GetPlayerX(Index) * 32, (GetPlayerY(Index) * 32) - 32, DDS_RestIcon, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
    
End Sub

Then call this somewhere:

Code:
Call InitDDSurf("resticon", DDS_RestIcon)

And make sure you have a resticon.bmp.

The rec defines the size of the image...for example the rec I have set up does a 32x32 selection from the resticon.bmp at 0,0 (very top left).
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)