Bank

[DarkX]

I have started to re-do it, from the basics of the Inventory system, adding a deposit and withdraw system, which are sort of acting as the pickup item and dropitem code, then modifing it to have a actual defined system to Identify that the bank has the item. Which is going to take me a little longer, but if it works it'll be good(And I think I figured out what I did wrong with the other one.) Since I had made the code to where the Bank was actually stored within the players account like the inventory,
example:

Code:

player
all the normal stats
then
Inv 1-20
Spell 1-20
Bank 1-100
anyother things stored in player profile

So I am taking out the this

Code:

If FileExist("banks\" & Trim(Name) & ".ini") = False Then
                For i = 1 To MAX_CHARS
                    For n = 1 To MAX_BANK
                        Call PutVar(App.Path & "\banks\" & Trim(Name) & ".ini", "CHAR" & i, "BankItemNum" & n, STR(Player(Index).Char(i).Bank(n).Num))
                        Call PutVar(App.Path & "\banks\" & Trim(Name) & ".ini", "CHAR" & i, "BankItemVal" & n, STR(Player(Index).Char(i).Bank(n).Value))
                        Call PutVar(App.Path & "\banks\" & Trim(Name) & ".ini", "CHAR" & i, "BankItemDur" & n, STR(Player(Index).Char(i).Bank(n).Dur))

and doing like Robin and making it's own sub, and making the

Code:

bank(1 to MAX_BANK) as BankRec

instead of

Code:

bank(1 to MAX_BANK) as BankRec

and making the BankRec Identify the Num, Val and Dur instead of using the PlayerRec. (Hoping that it works)