05-01-2009, 03:37 PM
Ok so finally figured out the problem some people were having with the interaction code.
First change:
To:
Then in BltInventory:
To:
If there are any more problems let me know.
First change:
Code:
Public Const InvX As Byte = 11
Public Const InvY As Byte =30
Code:
Public Const InvX As Byte = 30
Public Const InvY As Byte = 11
Then in BltInventory:
Code:
With rec_pos
.top = InvX + ((InvOffsetY + 32) * ((i - 1) \ 4))
.Bottom = .top + PIC_Y
.Left = InvY + ((InvOffsetX + 32) * (((i - 1) Mod 4)))
.Right = .Left + PIC_X
End With
Code:
With rec_pos
.top = InvY + ((InvOffsetY + 32) * ((i - 1) \ 4))
.Bottom = .top + PIC_Y
.Left = InvX + ((InvOffsetX + 32) * (((i - 1) Mod 4)))
.Right = .Left + PIC_X
End With
If there are any more problems let me know.