Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

Sistema do DBZ Legacy: Colocando [ADM] e [GM] do lado do NICK

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial Sistema do DBZ Legacy: Colocando [ADM] e [GM] do lado do NICK

Mensagem por Lucas Roberto em Sex 30 Set 2011, 19:39

Esse tutorial pode ser MUITO complicado :Smile
Prestem BASTANTEEE atenção pois tenho certeza que terá muitas reclamações Smile

O tutorial é 100% Client-Side

Irei logo avisando, esse tutorial só funcionará se o servidor estiver programado para sprites 32x32 =]

Na sub BltPlayerName vá no final dela (na End Sub)
Subindo algumas linhas verá: Call DrawText(...
Substitua esta linha inteira por:
Código:
Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, Add & GetPlayerName(index), color)

Indo umas 3 linhas para cima, verá: TextX = ...
Substitua essa linha inteira por:
Código:
TextX = GetPlayerX(index) * PIC_X + sx + Player(index).xOffset + Int(PIC_X / 2) - (((Len(GetPlayerName(index)) + Len(Add)) / 2) * 8)

Suba uma linha e adicione:
Código:
                If GetPlayerAccess(index) > 0 And GetPlayerAccess(index) < 5 Then
                Add = "[GM]"
                End If
                If GetPlayerAccess(index) = 5 Then
                Add = "[ADM]"
                End If

Subindo algumas linhas, verá outro Call DrawText
Substitua esta linha inteira por:
Código:
Call DrawText(TexthDC, TextX, TextY, Add & "" & GetPlayerName(MyIndex), color)
Umas 3 linhas para cima verá outro TextX = ...
Substitua novamente a linha por:
Código:
TextX = NewX + sx + Int(PIC_X / 2) - (((Len(GetPlayerName(MyIndex)) + Len(Add)) / 2) * 8)

Suba uma linha e adicione:
Código:
                    If GetPlayerAccess(MyIndex) > 0 And GetPlayerAccess(MyIndex) < 5 Then
                    Add = "[GM]"
                    End If
                    If GetPlayerAccess(MyIndex) = 5 Then
                    Add = "[ADM]"
                    End If

Logo à cima, verá: If index = MyIndex Then
Logo em cima dessa linha adicione:
Código:
Dim Add

Coisa simples ;D

Obs:
Caso tenha algo como: If lvl >= 1 Then
Terá dois Call DrawText e dois TextX, substitua no de baixo ^^
Creditos
Felipebn

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum