Treasure Chest

[stealth]

I know this is an old tutorial, but there's no Sub SaveChest, and It calls for one in the Save Chest Packet.

So I made my own out of Sub SaveNpc

Code:

Sub SaveChest(ByVal ChestNum As Long)
    Dim FileName As String
    Dim f As Long

    FileName = App.Path & "\chests\chest" & ChestNum & ".dat"
    f = FreeFile
    Open FileName For Binary As #f
    Put #f, , Chest(ChestNum)
    Close #f
End Sub

But for some reason it still wont call the sub even when its in the right place.

I could really use some help on this.