Making the chest attribute work (source tutorial)

[dao]

First id like to say i couldnt of done this without unknown. thanks xD
if i missed something post it.
Go to map editor go on attributes and find chest one and open the properties window and make it visible.
then paste this code inside of it

> frmChest.Show vbModal

All client sided

Ctrl find this in mod game editor:

> If frmMapEditor.optChest.Value = True Then

Then make sure it looks like this:

> If frmMapEditor.optChest.Value = True Then
>                                 .Type = TILE_TYPE_CHEST
>                                 .Data1 = ChestItemNum
>                                 .Data2 = ChestItemAmount
>                                 .Data3 = 0
>                                 .String1 = vbNullString
>                                 .String2 = vbNullString
>                                 .String3 = vbNullString
>                             End If

Ctrl find this in mod game editor:

> If frmMapEditor.optChest.Value = True Then

Then make sure it looks like this:

> If frmMapEditor.optChest.Value = True Then
>                                 .Type = TILE_TYPE_CHEST
>                                 .Data1 = ChestItemNum
>                                 .Data2 = ChestItemAmount
>                                 .Data3 = 0
>                                 .String1 = vbNullString
>                                 .String2 = vbNullString
>                                 .String3 = vbNullString
>                             End If

Ctrl find this:

> ' Handle when the player presses the return key

At the bottom add this:

> If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).Type = TILE_TYPE_CHEST And Player(MyIndex).Dir = DIR_UP Then
>                 Call SendData("openchest" & SEP_CHAR & END_CHAR)
>                 Exit Sub
>             End If
>         End If

Now Ctrl find this:

> If Map(GetPlayerMap(MyIndex)).Tile(X, Y).Type = TILE_TYPE_BLOCKED

And highlight the whole code and replace with:

> If Map(GetPlayerMap(MyIndex)).Tile(X, Y).Type = TILE_TYPE_BLOCKED Or Map(GetPlayerMap(MyIndex)).Tile(X, Y).Type = TILE_TYPE_SIGN Or Map(GetPlayerMap(MyIndex)).Tile(X, Y).Type = TILE_TYPE_ROOFBLOCK Or Map(GetPlayerMap(MyIndex)).Tile(X, Y).Type = TILE_TYPE_CHEST Then
>         CanMove = False
>         Exit Function
>     End If

Now in mod types add:

> ' Used for chest editor
> Public ChestItemNum As Long
> Public ChestItemAmount As Long

Now download this and put it in your source and drag it in your frm's
[http://www.freemmorpgmaker.com/files/imagehost/pics/caa5d63d7ae2cfc30034c7716cc4843c.zip](http://www.freemmorpgmaker.com/files/imagehost/pics/caa5d63d7ae2cfc30034c7716cc4843c.zip)

[Guest]

Nice Zultar,
you finding a fix for everything lol good job

[Sr_Sirius]

Dont work for me, when i click the chest atribute dont happens anything :S

[dao]

OOPS add this in the code for the chest attribute

> frmChest.Show vbModal

[Sr_Sirius]

Well, now when i press enter in chest atributte, the game lost the conection :S

[dao]

Ctrl find this in mod game editor:

> If frmMapEditor.optChest.Value = True Then

Then make sure it looks like this:

> If frmMapEditor.optChest.Value = True Then
>                                 .Type = TILE_TYPE_CHEST
>                                 .Data1 = ChestItemNum
>                                 .Data2 = ChestItemAmount
>                                 .Data3 = 0
>                                 .String1 = vbNullString
>                                 .String2 = vbNullString
>                                 .String3 = vbNullString
>                             End If

[Sr_Sirius]

OMG still dont working :(, i press enter in front of C atribute and conection lost of game :S

[dao]

in mod game logic search for this

> ' Say message
>       If Len(Trim$(MyText)) > 0 Then
>             Call SayMsg(MyText)
>         End If
>         MyText = vbNullString
>         Exit Sub
>     End If

if its not there add it then test

[Sr_Sirius]

Yes, i have this code added, and dont work. you are sure dont need add code to server side?

[dao]

>.< try adding this to the botton of handle data in the server
```
Case "openchest"
            If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Type = TILE_TYPE_CHEST Then
                If Val(ReadINI(GetPlayerName(Index), "Chest" & GetPlayerMap(Index) & "," & GetPlayerX(Index) & "," & (GetPlayerY(Index) - 1), App.Path & "\Chests.ini", 0)) = 0 Then
                    Call PlayerMsg(Index, "The chest contained " & Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Data2 & " " & Trim$(Item(Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Data1).Name), 1)
                    Call GiveItem(Index, Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Data1, Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Data2)
                    Call WriteINI(GetPlayerName(Index), "Chest" & GetPlayerMap(Index) & "," & GetPlayerX(Index) & "," & (GetPlayerY(Index) - 1), 1, App.Path & "\Chests.ini")
                Else
                    Call PlayerMsg(Index, "You already opened this chest", BLUE)
                End If
            Else
                Call HackingAttempt(Index, "Trying to chest cheat!!")
            End If
            Exit Sub
    End Select

    Call HackingAttempt(Index, "Received invalid packet: " & Parse(0))
```

[kris_hole]

or instead of saying at the bottom coz people WILL put it in the wrong place as the bottom is where it handles all the packets not where it gets them.

Find
```

Case "getclasses"
            Call Packet_GetClasses(Index)
            Exit Sub

```
and underneath it put…

```

Case "openchest"
            If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Type = TILE_TYPE_CHEST Then
                If Val(ReadINI(GetPlayerName(Index), "Chest" & GetPlayerMap(Index) & "," & GetPlayerX(Index) & "," & (GetPlayerY(Index) - 1), App.Path & "\Chests.ini", 0)) = 0 Then
                    Call PlayerMsg(Index, "The chest contained " & Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Data2 & " " & Trim$(Item(Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Data1).Name), 1)
                    Call GiveItem(Index, Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Data1, Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Data2)
                    Call WriteINI(GetPlayerName(Index), "Chest" & GetPlayerMap(Index) & "," & GetPlayerX(Index) & "," & (GetPlayerY(Index) - 1), 1, App.Path & "\Chests.ini")
                Else
                    Call PlayerMsg(Index, "You already opened this chest", BLUE)
                End If
            Else
                Call HackingAttempt(Index, "Trying to chest cheat!!")
            End If
            Exit Sub

```

[dao]

kool nice lol i dont even think people care for this that much

[Jed]

not working, every time i try to compile it gives me "End If without block If" and highlights the end if of this:

' Say message
      If Len(Trim$(MyText)) > 0 Then
            Call SayMsg(MyText)
        End If
        MyText = vbNullString
        Exit Sub
    End If

[Braiton]

Umm.well, you can see the problem with the ifs. Maybe, try this?:

' Say message
      If Len(Trim$(MyText)) > 0 Then
            Call SayMsg(MyText)
        MyText = vbNullString
        Exit Sub
    End If

You can see its simple, just remove an end if.

[Sr_Sirius]

Its simple remove a End If

[dao]

yeah not sure why its hard. ill give out a compiled version maybe later

[Skillzalot]

Good jobs guys. I like how you can only use it once

[dao]

llol u got it working? xD

[kris_hole]

well i havnt done this yet i just use scripted tiles and ini's before i could be arsed to do the chest attribute but meh. i'll compile it into a fresh source for ya'll… give me 5 mins or so :P

[dao]

alright kool good to know lol xD

[kris_hole]

i'll shove it in the "your edit bit" =D

and i know whats causing an error in this btw for people now when they try to chat and they get a full string when they press any letter.

if you didnt put this RIGHT AT THE BOTTOM of the sub that handles when the enter key is pressed then remove one of the end if's… so it goes...
```
If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).Type = TILE_TYPE_CHEST And Player(MyIndex).Dir = DIR_UP Then
                Call SendData("openchest" & SEP_CHAR & END_CHAR)
                Exit Sub
            End If
        End If

```
to

```
If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).Type = TILE_TYPE_CHEST And Player(MyIndex).Dir = DIR_UP Then
                Call SendData("openchest" & SEP_CHAR & END_CHAR)
                Exit Sub
            End If

```

[Jed]

i got rid of the middle end if in that, now its taking everything i type and using it without me pressing enter first.

[kris_hole]

i did say if you DIDNT post it at the bottom of the sub… not if you did

[Darkonever]

Ok, I have 1 question. Did this work already or is it still dead?
And If first Yes then is it work for EE 2.8?

[dao]

I think it works and ya it will