19-09-2008, 06:19 PM
This Visual Inventory uses BltToDc to draw your inventory instead of picture boxes.
All Client Side
frmMirage
Add a Picture Box
Name it picVisInv
Set AutoRedraw to True
modConstants
Add the following:
InvX and InvY are where the first item will be drawn within the picVisInv
InvOffsetX and InvOffsetY are the offsets in between the items
modDirectDraw7
Add the following sub:
[code]Public Sub BltInventory()
Dim i As Long
Dim rec As DxVBLib.RECT
Dim rec_pos As DxVBLib.RECT
If frmMirage.picVisInv.Visible Then
frmMirage.picVisInv.Cls
For i = 1 To MAX_INV
If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i) 0 And GetPlayerInvItemNum(MyIndex, i) = tempRec.Left And X = tempRec.Top And Y
All Client Side
frmMirage
Add a Picture Box
Name it picVisInv
Set AutoRedraw to True
modConstants
Add the following:
Code:
' Visual Inventory
Public Const InvX As Byte = 30
Public Const InvY As Byte = 11
Public Const InvOffsetX As Byte = 17
Public Const InvOffsetY As Byte = 16
InvX and InvY are where the first item will be drawn within the picVisInv
InvOffsetX and InvOffsetY are the offsets in between the items
modDirectDraw7
Add the following sub:
[code]Public Sub BltInventory()
Dim i As Long
Dim rec As DxVBLib.RECT
Dim rec_pos As DxVBLib.RECT
If frmMirage.picVisInv.Visible Then
frmMirage.picVisInv.Cls
For i = 1 To MAX_INV
If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i) 0 And GetPlayerInvItemNum(MyIndex, i) = tempRec.Left And X = tempRec.Top And Y