[eo] Chest Attribute

[Growlith1223]

ok so i added in your code but when i tried using it, it highlighted:
```
            Call SetPlayerInvItemValue(index, b, Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerInvItemValue(index, b) + GetPlayerY(index)).data2)
```any thing that can fix that?

[Joyce]

If you tell me what error it gives, I can look into it.. If you report an issue, at least hand me some debug info!

[Growlith1223]

it said something about a runtime error 9 subscript out of range.if you need a screen shot i can make a screen shot of it.

[Joyce]

Whoops, I see what I missed there.. I wrote the + portion in the middle of an array.

```
Sub HandleMapGetItem(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddR As Long, ByVal ExtraVar As Long)
    Dim b As Long

    If Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).Type = TILE_TYPE_CHEST Then
        If Val(GetVar("data\chests\" & Trim(GetPlayerName(index)) & ".ini", "Chests_Map_" & Trim(STR(GetPlayerMap(index))), Trim(STR(GetPlayerX(index))) & "_" & Trim(STR(GetPlayerY(index))))) = 0 Then
            b = FindOpenInvSlot(index, Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).data1)
            Call PlayerMsg(index, "You opened the chest and found " & Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).data2 & " " & Item(Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).data1).Name, White)
            Call SetPlayerInvItemNum(index, b, Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).data1)
            Call SetPlayerInvItemValue(index, b, GetPlayerInvItemValue(index, b) + Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).data2)
            Call PutVar("data\chests\" & Trim(GetPlayerName(index)) & ".ini", "Chests_Map_" & Trim(STR(GetPlayerMap(index))), Trim(STR(GetPlayerX(index))) & "_" & Trim(STR(GetPlayerY(index))), "1")
            Call SendInventoryUpdate(index, b)
        Else
            Call PlayerMsg(index, "You have already looted this chest!", BrightRed)
        End If
    Else
        Call PlayerMapGetItem(index)
    End If
End Sub
```
Try this instead.

[Growlith1223]

ok now it's saying Compile error: Expected variable or procedure, not project.
and then it's highlighting
Call SetPlayerInvItemValue(index, VB, GetPlayerInvItemValue(index, b) + Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).Data2)

[Joyce]

Because VB is supposed to say b ;]

[Murdoc]

@Growlith1223:

> ok now it's saying Compile error: Expected variable or procedure, not project.
> and then it's highlighting
> Call SetPlayerInvItemValue(index, VB, GetPlayerInvItemValue(index, b) + Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).Data2)

Same thing happened here. I just changed VB to b.

[Joyce]

I'm sorting out four or five things at once, and I was working with projects in another screen, so I blindly wrote down vb over there instead of b. :P

But if you can't figure that out, how on earth are you going to make your entire game?  :confused:

[Growlith1223]

omg it works!no errors at all, and it fixed the Currency problem!!!
Thank you soooo much!

EDIT:I thought you meant to put VB sorry XD

[Joyce]

Just make sure to make a new folder in Data\ called Chests so your chest data gets stored ;]

edit: Updated the original post with my new sub, and removed the useless INI commands. Seriously, GetVar does NOT error unless you're an idiot and screwed it over.

[Justn]

Hey thanks yami can't wait to get home and use it!!

[hisherwin]

I got a Problem on your Chest system , It worked great but it give unlimited item D: how to fix that?

[Stein]

Why are you using this old one anyway? Joyce wrote one that's a lot better.

[hisherwin]

Eh i use it , I thought joyce chest system never work on 1.1 but it did :)

[Alerd]

It should not be so with time can be drawn from the box and not the subject all the time?

[Joyce]

I don't think bumping a 5 month old topic is really appropriate.