MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[Tutorial] Sistema de Cargo ao Lado do Nome!

2 participantes

Ir para baixo

[Tutorial] Sistema de Cargo ao Lado do Nome! Empty [Tutorial] Sistema de Cargo ao Lado do Nome!

Mensagem por LoadinGZ Seg 27 maio 2013, 14:34

Esse sistema serve para:
Colocar do lado esquerdo do nome do jogador ,seu cargo ,exemplo:
[administrador] LoadinGZ
[Moderador] LoadinGZ

Tutorial:

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:
Minato
LoadinGZ
LoadinGZ
Membro
Membro

Mensagens : 205

Ir para o topo Ir para baixo

[Tutorial] Sistema de Cargo ao Lado do Nome! Empty Re: [Tutorial] Sistema de Cargo ao Lado do Nome!

Mensagem por Hitsugaya Kuchiki Seg 27 maio 2013, 14:40

Sistema já existente, e você ainda nem corrigiu o tutorial...
Irei fazer um novo e postar.
Hitsugaya Kuchiki
Hitsugaya Kuchiki
Membro
Membro

Mensagens : 153

Ir para o topo Ir para baixo

[Tutorial] Sistema de Cargo ao Lado do Nome! Empty Re: [Tutorial] Sistema de Cargo ao Lado do Nome!

Mensagem por LoadinGZ Seg 27 maio 2013, 16:09

Opa era pra uma Garota Precisando, Desculpe Algo.. Não foi eu que fiz o Tutorial então.. Créditos a quem Me Passou Very Happy
LoadinGZ
LoadinGZ
Membro
Membro

Mensagens : 205

Ir para o topo Ir para baixo

[Tutorial] Sistema de Cargo ao Lado do Nome! Empty Re: [Tutorial] Sistema de Cargo ao Lado do Nome!

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos