Blitting Vis Inv?

[Tony]

What way is that? Oh the way you told me?

Also, tell me whats up with my code. Its buggy and doesn't blit the correct item.

Code:

Sub BltInvItems(ByVal ItemNum As Long)
Dim X As Long, Y As Long, I As Long

    rec.top = Item(ItemNum).Pic * PIC_Y
    rec.Bottom = rec.top + PIC_Y
    rec.Left = 0
    rec.Right = rec.Left + PIC_X
    
    X = 108 - 35
    Y = 78
    'Call DD_BackBuffer.Blt(rec_pos, DD_ItemSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
    Call DD_BackBuffer.BltFast(X + (ItemNum * 35), Y, DD_ItemSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
End Sub

Note ( 35 is used because the spacing in the bitmap file )

Nvm. fixed it, Now for the new embarks!