Visual Inventory (GSD)

[RyanBlandin]

Hey, I know its an old post but when I added this part of your tutorial:

Code:

Call BitBlt(PicInv(Q).hdc, 0, 0, PIC_X, PIC_Y, PicItems.hdc, 0,
Item(GetPlayerInvItemNum(MyIndex, lstInv.SelCount + Q)).Pic * PIC_Y,
SRCCOPY)

All the text went red.

EDIT: Same with all this:

Code:

If Item(GetPlayerInvItemNum(MyIndex, lstInv.SelCount + D + e)).Name = ""
Then
picInv2.Picture = LoadPicture()
IName.Caption = ""
Else
If Item(GetPlayerInvItemNum(MyIndex, D + 1)).Type =
ITEM_TYPE_CURRENCY Then
IName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex, D +
1)).Name) & " (" & GetPlayerInvItemValue(MyIndex, D + 1) & ")"
Call BitBlt(PicInv2.hdc, 0, 0, PIC_X, PIC_Y, picItems.hdc, 0,
Item(GetPlayerInvItemNum(MyIndex, D + 1)).Pic * PIC_Y, SRCCOPY)
Else
' Check if this item is being worn
If GetPlayerWeaponSlot(MyIndex) = D + 1 Or
GetPlayerArmorSlot(MyIndex) = D + 1 Or GetPlayerHelmetSlot(MyIndex) = D + 1
Or GetPlayerShieldSlot(MyIndex) = D + 1 Then
IName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex, D +
1)).Name) & " (worn)"
Call BitBlt(PicInv2.hdc, 0, 0, PIC_X, PIC_Y, picItems.hdc,
0, Item(GetPlayerInvItemNum(MyIndex, D + 1)).Pic * PIC_Y, SRCCOPY)
Else
IName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex, D +
1)).Name)
Call BitBlt(PicInv2.hdc, 0, 0, PIC_X, PIC_Y, picItems.hdc,
0, Item(GetPlayerInvItemNum(MyIndex, D + 1)).Pic * PIC_Y, SRCCOPY)

EDIT2: And all of this:

Code:

Sub UpdateVisInv()
Dim Index As Long

For Index = 1 To MAX_INV
If GetPlayerShieldSlot(MyIndex)  Index Then ShieldImage.Picture =
LoadPicture()
If GetPlayerWeaponSlot(MyIndex)  Index Then WeaponImage.Picture =
LoadPicture()
If GetPlayerHelmetSlot(MyIndex)  Index Then HelmetImage.Picture =
LoadPicture()
If GetPlayerArmorSlot(MyIndex)  Index Then ArmorImage.Picture =
LoadPicture()
Next Index

For Index = 1 To MAX_INV
If GetPlayerShieldSlot(MyIndex) = Index Then Call
BitBlt(ShieldImage.hdc, 0, 0, PIC_X, PIC_Y, PicItems.hdc, 0,
Item(GetPlayerInvItemNum(MyIndex, Index)).Pic * PIC_Y, SRCCOPY)
If GetPlayerWeaponSlot(MyIndex) = Index Then Call
BitBlt(WeaponImage.hdc, 0, 0, PIC_X, PIC_Y, PicItems.hdc, 0,
Item(GetPlayerInvItemNum(MyIndex, Index)).Pic * PIC_Y, SRCCOPY)
If GetPlayerHelmetSlot(MyIndex) = Index Then Call
BitBlt(HelmetImage.hdc, 0, 0, PIC_X, PIC_Y, PicItems.hdc, 0,
Item(GetPlayerInvItemNum(MyIndex, Index)).Pic * PIC_Y, SRCCOPY)
If GetPlayerArmorSlot(MyIndex) = Index Then Call BitBlt(ArmorImage.hdc,
0, 0, PIC_X, PIC_Y, PicItems.hdc, 0, Item(GetPlayerInvItemNum(MyIndex,
Index)).Pic * PIC_Y, SRCCOPY)
Next Index

If GetPlayerInvItemNum(MyIndex, lstInv.SelCount) = ITEM_TYPE_NONE Then
picInv2.Picture = LoadPicture()
IName.Caption = ""
Else
If Item(GetPlayerInvItemNum(MyIndex, lstInv.SelCount)).Type =
ITEM_TYPE_CURRENCY Then
IName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex,
lstInv.SelCount)).Name) & " (" & GetPlayerInvItemValue(MyIndex,
lstInv.SelCount) & ")"
Else
If GetPlayerWeaponSlot(MyIndex) = lstInv.SelCount Or
GetPlayerArmorSlot(MyIndex) = lstInv.SelCount Or
GetPlayerHelmetSlot(MyIndex) = lstInv.SelCount Or
GetPlayerShieldSlot(MyIndex) = lstInv.SelCount Then
IName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex,
lstInv.SelCount)).Name) & " (worn)"
Else
IName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex,
lstInv.SelCount)).Name)
End If
End If
Call BitBlt(PicInv2.hdc, 0, 0, PIC_X, PIC_Y, PicItems.hdc, 0,
Item(GetPlayerInvItemNum(MyIndex, lstInv.SelCount)).Pic * PIC_Y, SRCCOPY)
End If
End Sub

EDIT3: Guess this doesn't work either.

Code:

If Item(lstInv.ListIndex + D).Type = ITEM_TYPE_POTIONADDMP Or
ITEM_TYPE_POTIONADDHP Or ITEM_TYPE_POTIONADDSP Or ITEM_TYPE_POTIONSUBHP Or
ITEM_TYPE_POTIONSUBMP Or ITEM_TYPE_POTIONSUBSP Then

It's probably me just being new to VB6 but if anyone could tell me what im doing wrong that would be great.