1 Tag Ao Lado do Nome Ter 02 Out 2012, 20:32
SynysterGates
Membro - Novato
Exemplo:
[ADM]Papa Gates
[GM]TheRev
Cliente ~ Side procure por:
Depois Procure por:
Ainda na mesma Sub, abaixo de:
Isso:
Na mesma Sub procure por:
Código: Textx =
Depois do "=" substitua o que tiver lá por:
Faça mesma coisa com TextY
Depois do "=" substitua o que estiver lá por:
Depois Substitua a Linha:
Pos Está:
Créditos ~
Minato
Kyle
Eu por Postar
[ADM]Papa Gates
[GM]TheRev
Cliente ~ Side procure por:
- Código:
DrawPlayerName
Depois Procure por:
- Código:
' Check access level
If GetPlayerPK(Index) = NO Then
Troque toda a Antiga " Select Case GetPlayerAcess por esta:
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
Ainda na mesma Sub, abaixo de:
- Código:
Dim Name As String
Isso:
- 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
Pos Está:
- Código:
Call DrawText(TexthDC, TextX, TextY, Stag & Name, color)
Créditos ~
Minato
Kyle
Eu por Postar