Blitting Vis Inv?

[Tony]

oi Kite! I tried the thing you told me but didn't work. When I do it, nothing shows. (Items)

Heres my regular code that works, for the first 5 items.
( now blits correct items )

Code:

Sub BltInvItems(ByVal ItemNum As Long)
Dim IX As Long, IY As Long

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

-35 for spacing. etc.

[ e d i t ] Thanks to sensei's help (