Mirage Source http://web.miragesource.net/forums/ |
|
Visual Inventory Problem http://web.miragesource.net/forums/viewtopic.php?f=201&t=3826 |
Page 1 of 1 |
Author: | jsventor [ Thu Jun 12, 2008 5:57 am ] |
Post subject: | Visual Inventory Problem |
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! |
Author: | William [ Thu Jun 12, 2008 11:25 am ] |
Post subject: | Re: Visual Inventory Problem |
Instead of your: Code: Item(GetPlayerInvItemNum(MyIndex, frmMirage.lstInv.SelCount + Q)).Pic * PIC_Y Try: Code: Item(Qq).Pic * PIC_Y
|
Page 1 of 1 | All times are UTC |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |