[EO] 2.0 Show Level OPTION

[gdog12356]

Ok, i thought i have been asking too much of the community, and not sharing enough, so here is a super quick edit i did which took mabe 2 mins max.

This tutorial is based off of the one made by sheldon here
>! [http://www.touchofdeathforums.com/smf/index.php/topic,67213.0.html](http://www.touchofdeathforums.com/smf/index.php/topic,67213.0.html)

ok, first open up modconstants and at the bottom, add```
Public Level_Show As Boolean
```now open up mod text, and add
```
Dim TextA As Long
Dim TextB As Long
```below
```
Public Sub DrawPlayerName(ByVal Index As Long)
```
now find```
Call DrawText(TexthDC, TextX, TextY, Name, color)
```(still in mod text)

and below that add```
    If Level_Show = True Then
    ' calc pos
    TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$("Level " & GetPlayerLevel(Index))))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 5
    Else
        ' Determine location for text
        TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 5
    End If
```
ok, now open up frmMain. And go to the side, and choose picOptions then where it shows the squared outline, right click and hit bring to front. 

Now make a new CHECKBOX, and name it```
level_chk
```
now double click on the check box, and replace all the code that is there with this```
Private Sub level_chk_Click()
If level_chk.Value = 0 Then
Level_Show = True
Else
Level_Show = False
End If
End Sub
```
now make a label, and for the caption, put hide player level. now just put that next to the checkbox, and your done!! :).

in the end u shuld get something like this 

[XPiXel]

Pretty cool. But the level system my server uses is Name Here(Lv. Level Here)
You know how to make it like that?

[Notsu]

```
    If Level_Show = True Then
    ' calc pos
    TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$("Level " & GetPlayerLevel(Index))))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 5
    Else
        ' Determine location for text
        TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 5
    End If

```
I have problem with this code, all working properly but the level don't shows.

//sorry for my eng ;p

//edit: Ok, it's work. I don't write all of post.

[Guest]

so it works but i had to change it up just a lil bit.  heres your code that you said to add.

```
    If Level_Show = True Then 
' calc pos   
TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$("Level " & GetPlayerLevel(Index)))) 
  If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then 
      TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 5 
Else     
  ' Determine location for text     
TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 5 
End If
```
so i did it a little diferently.  i had to add just this.
```
If Level_Show = True Then 
```above like you said.

```
end if
```at the bottom  and i skipped the middle section as its already there if you did the previous step of the show level tut.  the rest was spot on.

[Kyrie]

I can't 'bring to front' pic options. I click it on drop down menu, and then i go and right click and it switches to what is on top.

[gdog12356]

right click on the box, the small boxes, like right clickj it exactly

[Vus]

it works but when you join game, you dont see levels, only when you check the box and uncheck it again
how to do level be visible from beggining as well?

[erkro1]

@Vus:

> it works but when you join game, you dont see levels, only when you check the box and uncheck it again
> how to do level be visible from beggining as well?

Sub Joingame, add this:
```
Level_show = True
```

[Vus]

@Erkro1:

> Sub Joingame, add this:
> ```
> Level_show = True
> ```

lol true, i am such a noob, but
could you please tell me where it is? search function (CTRL + F) cant find it :(

[Vus]

can somebody tell me please? my search function isnt working now… :(

[erkro1]

@Vus:

> lol true, i am such a noob, but
> could you please tell me where it is? search function (CTRL + F) cant find it :(

Have you set search on Current Project?
And its in **Modplayer**

[Vus]

@Erkro1:

> Have you set search on Current Project?
> And its in **Modplayer**

yes i did, and i dont have there any Modplayer :((

EDIT: nvm, i found it in server :)

[Vus]

@Vus:

> yes i did, and i dont have there any Modplayer :((

EDIT: nvm, i found it in server :)
EDIT2: Still isnt working :(

[quintensky]

i hate to bring this topic to liife (lol)
but do i need his edits to be able to use yours? or is his, included in yours?
(can you still follow it? XDXD) :P

[Beanie93]

Or you can make your life easier by doing this:
Make a checkbox, name it chkLevel.
Go to modText, and in Sub DrawPlayerName, in it's declarations, add
```
Dim TextA As Long
Dim TextB As Long
```
Still in modText, add at the bottom:
```
    ' calc pos
    TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$("Level " & GetPlayerLevel(Index))))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 5
    Else
        ' Determine location for text
        TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 5
    End If

    'Draw level
    If frmMain.chkLevel.Value = 1 Then
        Call DrawText(TexthDC, TextA, TextB, "Level " & GetPlayerLevel(Index), color)
    Else
        ' nothing, don't show it
    End If
```
**NOTE:** This uses Sheldon's tutorial.

[stefans]

I did every step, but it doesn't work for me.. When i click the checkbox nothing happens

EDIT: nevermind.. XD

[Kocho]

to me work this way…

im remplace Public Sub DrawPlayerName for this:

```
Public Sub DrawPlayerName(ByVal Index As Long)
Dim TextA As Long
Dim TextB As Long
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Dim Name As String

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    ' Check access level
    If GetPlayerPK(Index) = NO Then

        Select Case GetPlayerAccess(Index)
            Case 0
                color = RGB(255, 96, 0)
            Case 1
                color = QBColor(DarkGrey)
            Case 2
                color = QBColor(Cyan)
            Case 3
                color = QBColor(BrightGreen)
            Case 4
                color = QBColor(Yellow)
        End Select

    Else
        color = QBColor(BrightRed)
    End If

    Name = Trim$(Player(Index).Name)
    ' calc pos
    TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Name)))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
    Else
        ' Determine location for text
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 16
    End If

    ' Draw name
    Call DrawText(TexthDC, TextX, TextY, Name, color)

    If Level_Show = True Then
    ' calc pos
    TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$("" & GetPlayerLevel(Index))))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 5
    Else
        ' Determine location for text
        TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 5
    End If
    'Draw level
    Call DrawText(TexthDC, TextA, TextB, "" & GetPlayerLevel(Index), color)
    End If
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "DrawPlayerName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
```

[lexkymbeth]

i did this, for some reson if i have more than one npc  a wird lvl 0 pops up on top left of my maps? plus my lvl only pups up when a npc is on the map? Edit: Fixed it nvm.. heres my code i put tags in there for admins to

```
Public Sub DrawPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Dim Name As String

    ' Check access level
    If GetPlayerPK(Index) = NO Then

        Select Case GetPlayerAccess(Index)
            Case 0
                color = RGB(255, 96, 0)
            Case 1
                color = QBColor(DarkGrey)
            Case 2
                color = QBColor(Cyan)
            Case 3
                color = QBColor(BrightGreen)
            Case 4
                color = QBColor(Yellow)
        End Select

    Else
        color = QBColor(BrightRed)
    End If

    If GetPlayerAccess(Index) = 0 Then
    Name = Trim$(Player(Index).Name) & " Lvl: " & GetPlayerLevel(Index)
    ElseIf GetPlayerAccess(Index) = 1 Then
    Name = "[Player Relations] " & Trim$(Player(Index).Name) & " Level: " & GetPlayerLevel(Index)
    ElseIf GetPlayerAccess(Index) = 2 Then
    Name = "[Mapper] " & Trim$(Player(Index).Name) & " Lvl: " & GetPlayerLevel(Index)
    ElseIf GetPlayerAccess(Index) = 3 Then
    Name = "[Admin] " & Trim$(Player(Index).Name) & " Lvl: " & GetPlayerLevel(Index)
    ElseIf GetPlayerAccess(Index) = 4 Then
    Name = "[Developer] " & Trim$(Player(Index).Name) & " Lvl: " & GetPlayerLevel(Index)
    End If

    ' calc pos
    TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Name)))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
    Else
        ' Determine location for text
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 16
    End If

    ' Draw name
    Call DrawText(TexthDC, TextX, TextY, Name, color)
        ' Error handler
    Exit Sub
errorhandler:
    HandleError "DrawPlayerName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
```

[erkro1]

Use case's for that