Help with function

[totaly]

Hi,

i wanted to add a storage function to the code i attached, when i say storage its for a game.

i did attempt it and i`ll post the code here, but i want it done the way it was intended.

my way..just lists items in the database which share my guid and isnt ONPLAYER, because of this...no structure means i had no way to check
how many slots was available or max to store your items..i would have
to of made an array to keep count of all the items which aint onplayer in the db.

this just lists the stored items but i guessed if i cud do that i cud do anything.

btw thiers a popupmnu on the client which send`s the listindex of the item to the server.

Public Sub display(Index As Integer)
On Error Resume Next
Dim a As Integer
Dim msg As String
 
msg = Chr$(2)
'
If City(User(Index).Location).OwnerGUID <> User(Index).UName Then
   frmMain.wsk(Index).SendData Chr$(2) & "You need to return to you hideout before you can stash items." & vbCrLf & vbCrLf & Chr$(0)
   DoEvents
   Exit Sub
End If
 
For a = 0 To UBound(Item)
      If Item(a).ItemGUID = User(Index).UserGUID And _
         Item(a).OnPlayer = False Then 'item belongs to me, aint on me..so must be stored.
         frmMain.wsk(Index).SendData Chr$(2) & "Your stash, type grab itemname." & vbCrLf & vbCrLf & Chr$(0)
         DoEvents
         msg = msg & Item(a).IName & vbCrLf & Chr$(0)
   End If
Next a
 
'Runs if no item in room matches get message
frmMain.wsk(Index).SendData Chr$(2) & "You have no stashed items matching that name." & vbCrLf & vbCrLf & Chr$(0)
DoEvents
 
 
frmMain.wsk(Index).SendData msg & Chr$(0)
DoEvents
End Sub

in the code however ull notice Storage(49) As Integer and its
used in a few other places...so i need help doing it that way please.