Mirage Engine
Visual Inventory Problem - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: Visual Inventory Problem (/showthread.php?tid=1825)

Visual Inventory Problem - jsventor - 12-06-2008

Code:
Dim Q As Long
        Dim Qq As Long
        Dim IT As Long
        Dim sDc As Long
        Dim DC As Long
              
        If GetTickCount > IT + 500 And frmMirage.picInv3.Visible = True Then
            For Q = 0 To MAX_INV - 1
                Qq = Player(MyIndex).Inv(Q + 1).Num
                
              
                If frmMirage.picInv(Q).Picture  LoadPicture() Then
                    frmMirage.picInv(Q).Picture = LoadPicture()
                Else
                    If Qq = 0 Then
                        frmMirage.picInv(Q).Picture = LoadPicture()
                    Else
                    'sDc = DD_ItemSurf.GetDC
                   'DD_ItemSurf.ReleaseDC (sDc)
                   DC = DD_ItemSurf.GetDC
                   'Call BitBlt(frmMirage.picInv(Q).hDC, 0, 0, PIC_X, PIC_Y, DC, 0, 0, vbSrcCopy)
                   Call BitBlt(frmMirage.picInv(Q).hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, 0, Item(GetPlayerInvItemNum(MyIndex, frmMirage.lstInv.SelCount + Q)).Pic * PIC_Y, SRCCOPY)
                   DD_ItemSurf.ReleaseDC (DC)
                    End If
                End If
            Next Q
        End If

This code is not displaying the inventory properly, it usus same items as a blank Mirage. thanks for any help!

Re: Visual Inventory Problem - William - 12-06-2008

Instead of your:

Code:
Item(GetPlayerInvItemNum(MyIndex, frmMirage.lstInv.SelCount + Q)).Pic * PIC_Y


Try:

Code:
Item(Qq).Pic * PIC_Y