Sistema de cargo ao lado do nome

Este sistema serve para:
Colocar do lado esquerdo do nome do jogador,seu cargo,exemplo:
[administrador] Zé Mayer
[Moderador] Camila Pitanga

Abra o Client~Side e procure por

Código:

DrawPlayerName

Depois procure por:

Código:

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


Troque a antiga " Select Case GetPlayerAcess por esta:

Código:

        Select Case GetPlayerAccess(Index)
            Case 0
                color = QBColor(White)
            Case 1
                color = QBColor(Grey)
                Stag = "[Game Master]"
            Case 2
                color = QBColor(Cyan)
                Stag = "[Mapeador]"
            Case 3
                color = QBColor(Green)
                Stag = "[Staff]"
            Case 4
                color = QBColor(Yellow)
                Stag = "[Administrador]"

End Selected

Abaixo de,ainda na mesma sub

Código:

Dim Name As String

adicione abaixo disso:

Código:

 Dim Stag As String

Na mesma Sub procure por:

Código:

Textx =

Depois do "=" substitua o que tiver lá por:

Código:

ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, Stag & (Trim$(Name)))

Faça mesma coisa com TextY
Depois do "=" substitua o que estiver lá por:

Código:

ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16

Depois Substitua a linha:

Código:

 Call DrawText

Substitua essa linha toda por essa:

Código:

Call DrawText(TexthDC, TextX, TextY, Stag & Name, color)

Créditos:Kisuke