[EO] Adding an arena tile

[kibbelz]

Hey there, Just about 15 mins ago i decided to make an arena system for my game. (without pvp penalty's, admin access etc effecting the combat and an on death warp), So i thought why not release it for eclipse, so i did.

First Client side:

On frmeditor_map add a new option to the attributes called "OptArena"

Next double click on OptArena and add this code:

```
    ClearAttributeDialogue
    picAttributes.Visible = True
    fraMapWarp.Visible = True

    scrlMapWarp.Max = MAX_MAPS
    scrlMapWarp.Value = 1
    scrlMapWarpX.Max = MAX_BYTE
    scrlMapWarpY.Max = MAX_BYTE
    scrlMapWarpX.Value = 0
    scrlMapWarpY.Value = 0
```
Then in Sub MapEditorMouseDown, search for:

```
                ' slide
                If frmEditor_Map.optSlide.Value Then
                    .Type = TILE_TYPE_SLIDE
                    .Data1 = MapEditorSlideDir
                    .Data2 = 0
                    .Data3 = 0
                End If
```
And underneath add:

```
                ' Arena
                If frmEditor_Map.OptArena.Value Then
                    .Type = TILE_TYPE_ARENA
                    .Data1 = EditorWarpMap
                    .Data2 = EditorWarpX
                    .Data3 = EditorWarpY
                End If
```
After that, in Function BltMapAttributes search for:

```
                            Case TILE_TYPE_SLIDE
                                DrawText TexthDC, tX, tY, "S", QBColor(BrightCyan)
```
Underneath add:

```
                            Case TILE_TYPE_ARENA
                                DrawText TexthDC, tX, tY, "A", QBColor(Black)
```
And finally in ModConstants find:

```
Public Const TILE_TYPE_SLIDE As Byte = 14
```
And underneath add:

```
Public Const TILE_TYPE_ARENA As Byte = 15
```
And now to the server:

Find in ModConstants:

```
Public Const TILE_TYPE_SLIDE As Byte = 14
```
And underneath add:

```
Public Const TILE_TYPE_ARENA As Byte = 15
```
Then make your way over to ModCombat, In Function CanPlayerAttackPlayer Find:

```
    ' Check if map is attackable
    If Not Map(GetPlayerMap(attacker)).Moral = MAP_MORAL_NONE Then
        If GetPlayerPK(victim) = NO Then
            Call PlayerMsg(attacker, "This is a safe zone!", BrightRed)
            Exit Function
        End If
    End If
```
Add above:

```
    'Checks if it is an Arena
    If Map(GetPlayerMap(victim)).Tile(GetPlayerX(victim), GetPlayerY(victim)).Type = TILE_TYPE_ARENA Then
        CanPlayerAttackPlayer = True
        Exit Function
    End If
```
And we now go to Sub PlayerAttackPlayer and find:

```
            If GetPlayerPK(victim) = NO Then
                If GetPlayerPK(attacker) = NO Then
                    Call SetPlayerPK(attacker, YES)
                    Call SendPlayerData(attacker)
                    Call GlobalMsg(GetPlayerName(attacker) & " has been deemed a Player Killer!!!", BrightRed)
                End If

            Else
                Call GlobalMsg(GetPlayerName(victim) & " has paid the price for being a Player Killer!!!", BrightRed)
            End If
```
Change to:

```
        'Checks if it is an Arena
        If Not Map(GetPlayerMap(victim)).Tile(GetPlayerX(victim), GetPlayerY(victim)).Type = TILE_TYPE_ARENA Then
            If GetPlayerPK(victim) = NO Then
                If GetPlayerPK(attacker) = NO Then
                    Call SetPlayerPK(attacker, YES)
                    Call SendPlayerData(attacker)
                    Call GlobalMsg(GetPlayerName(attacker) & " has been deemed a Player Killer!!!", BrightRed)
                End If

            Else
                Call GlobalMsg(GetPlayerName(victim) & " has paid the price for being a Player Killer!!!", BrightRed)
            End If
        End If
```
And finally, in the same sub still, Find:

```
Call OnDeath(victim)
```
Change to:

```
        'Checks if it is an Arena
        If Map(GetPlayerMap(victim)).Tile(GetPlayerX(victim), GetPlayerY(victim)).Type = TILE_TYPE_ARENA Then
            Call PlayerWarp(victim, Map(GetPlayerMap(victim)).Tile(GetPlayerX(victim), GetPlayerY(victim)).Data1, Map(GetPlayerMap(victim)).Tile(GetPlayerX(victim), GetPlayerY(victim)).Data2, Map(GetPlayerMap(victim)).Tile(GetPlayerX(victim), GetPlayerY(victim)).Data3)
        Else
            Call OnDeath(victim)
        End If
```
That is all i belive, If i have missed anything out post it.

[leuzin]

Nice man … This work ;D

[gdog12356]

what exactly does this do?

[kibbelz]

If you have ever played or used ES then it is exactly like that. you simply make an arena out of tiles and then add the arena attribute to them. With a warp for the looser who dies. You do not gain Player Killer status while in an arena and you can attack in the arena even if you are an admin etc. Was it that hard to understand >.>

[iSnow]

This seems great, but when I put the label in attrubutes and did everything in the tutorial, it didn't show up on the menu for the map editor? (I named it optArena and the caption was 'Arena'

[kibbelz]

Maybe you didn't place it onto fraAttribs. You. just dragged it over. Since it isn't in fraAttribs it won't show.

[iSnow]

Thanks, Ill take another look at it.

[MrKris]

Oh I remember these, I missed the arena tiles. Made things a lot easier.

[GKO]

Wouldnt it be a little better if you made this a map property type instead of a tile?

[kibbelz]

Yes but by making it a tile it isn't the whole map. So you can have spectators in the grand stand or somthing. If your not happy with it, change it yourself.

[erkro1]

I have added it but then I kill someone in an arena (both admins) they dont get the Player Killer message and the victim is losing exp.

[kibbelz]

@Erwin:

> I have added it but then I kill someone in an arena (both admins) they dont get the Player Killer message and the victim is losing exp.

The whole point of the arena is to make it so that you don't get a PK status >.>. But i left in the exp for fun ;3 you can always remove it if you wish.

[erkro1]

Ah, sorry, I did understand that wrong ;)

[Likestodraw]

@kibbelz:

> -don't quote the whole post please-

All right now, how do you do this if you are just editing with notepad? If you'd rather just give me the files, I haven't added anything else to the map editor stuff yet.

[Justn]

First off you can't edit anything with notepad… You need VB6\. And you wonder why you couldn't get the other tutorials to work?

[Taegan]

Notepad after all those complaints about the tutorials not working. I lol'd. Oh, did I lol.

[kibbelz]

@Likestodraw:

> All right now, how do you do this if you are just editing with notepad? If you'd rather just give me the files, I haven't added anything else to the map editor stuff yet.

*Face palms*

[Ruins of Hell]

@Likestodraw:

> All right now, how do you do this if you are just editing with notepad? If you'd rather just give me the files, I haven't added anything else to the map editor stuff yet.

[A quick search could have told you you need Visual Basic 6 to make any source edits.](http://www.touchofdeathforums.com/smf/index.php/topic,68399.msg736833.html#msg736833)

[wito35]

I do everything as it is written, and **I have something like that**  :sad:


**What is wrong** ?  :sad:

Please help :sad:

[emblem]

@kibbelz:

> Next double click on OptArena and add this code:

Did you do that, and make sure it's a radio button?

[wito35]

Yes, **I think so**  :embarrassed: **I clicked this**:


And I made a **new option in the attributes**, I called it **OptArena**


And next I double click to OptArena and added this code:


**I really don't know** what was going on  :sad: and **I very please help**  :sad:

[PD]

You just added in a label, you need to choose the radio button control, the fourth one down in the second column :cheesy:

[wito35]

Oh yeah! **it works!** thanks **Scootaloo** and **Zesh** you are so cool :P

**PS**:  I have one more question, **who can help me with this problem**:
http://www.touchofdeathforums.com/smf/index.php/topic,62538.msg827373.html#msg827373 ?  :embarrassed:

**And once again thanks**  :cheesy:

[Likestodraw]

Okay, so I have the tutorial in, the attribute appears under the map attributes, it allows me to set death spawn point and apply it to a tile, but it ways 'This zone is a safezone' when I try and kill another player.

[Growlith1223]

Are you sure you added everything and where they are supposed to go in the exact area too?