Colocando Tag ADM/GM Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


Colocando Tag ADM/GM

5 participantes

Aldeia RPG :: Eclipse Origins e Crystalshire :: Central de ajuda :: Tutoriais

Ir para baixo

Colocando Tag ADM/GM Empty Colocando Tag ADM/GM

Mensagem por thales12 Qua Out 12, 2011 11:26 am

PREVIEW:

Colocando Tag ADM/GM Dd19bf0e4271baf04fafeaac50634f8c

- Serve~Side -

Em modPlayer va ate o final e adicionar:

Código:
Public Function GetPlayerTag(ByVal index As Long) As String
Select Case GetPlayerAccess(index)
Case ADMIN_MONITOR, ADMIN_MAPPER
      GetPlayerTag = "[GM] "
Case ADMIN_DEVELOPER, ADMIN_CREATOR
        GetPlayerTag = "[ADM] "
Case Else
GetPlayerTag = " "
End Select
End Function

Va em modHandleData e substitua a seguinde sub:
Código:
Private Sub HandleEmoteMsg(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Por essa sub:
Código:
Private Sub HandleEmoteMsg(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim Msg As String
    Dim I As Long
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    Msg = Buffer.ReadString

    ' Prevent hacking
    For I = 1 To Len(Msg)

        If AscW(Mid$(Msg, I, 1)) < 32 Or AscW(Mid$(Msg, I, 1)) > 126 Then
            Exit Sub
        End If

    Next
    Call AddLog("Map #" & GetPlayerMap(index) & ": " & GetPlayerName(index) & " " & Msg, PLAYER_LOG)
    Call MapMsg(GetPlayerMap(index), GetPlayerTag(index) &
GetPlayerName(index) & " " & Right$(Msg, Len(Msg) - 1),
EmoteColor)
    Set Buffer = Nothing
End Sub

Em modServeTCP subistitua a sub:
Código:
Sub SayMsg_Map(ByVal MapNum As Long, ByVal Index As Long, ByVal message As String, ByVal saycolour As Long)

Por:
Código:
Sub SayMsg_Map(ByVal MapNum As Long, ByVal index As Long, ByVal message As String, ByVal saycolour As Long)
    Dim Buffer As clsBuffer
   
    Set Buffer = New clsBuffer
    Buffer.WriteLong SSayMsg
    Buffer.WriteString GetPlayerName(index)
    Buffer.WriteLong GetPlayerAccess(index)
    Buffer.WriteLong GetPlayerPK(index)
    Buffer.WriteString message
    Buffer.WriteString "[Map] " & GetPlayerTag(index)
    Buffer.WriteLong saycolour
   
    SendDataToMap MapNum, Buffer.ToArray()
   
    Set Buffer = Nothing
End Sub

Substitua tabem abaixo dessa sub a sub:
Código:
Sub SayMsg_Global(ByVal Index As Long, ByVal message As String, ByVal saycolour As Long)

Por:
Código:
Sub SayMsg_Global(ByVal index As Long, ByVal message As String, ByVal saycolour As Long)
    Dim Buffer As clsBuffer
   
    Set Buffer = New clsBuffer
    Buffer.WriteLong SSayMsg
    Buffer.WriteString GetPlayerName(index)
    Buffer.WriteLong GetPlayerAccess(index)
    Buffer.WriteLong GetPlayerPK(index)
    Buffer.WriteString message
    Buffer.WriteString "[Global]" & GetPlayerTag(index)
    Buffer.WriteLong saycolour
   
    SendDataToAll Buffer.ToArray()
   
    Set Buffer = Nothing
End Sub



Parte do Client:

~~~Client~~~

Em modText substitua a sub:
Código:
Public Sub DrawPlayerName(ByVal Index As Long)

Ate:
Código:
'Ate :
 ' Draw name
    Call DrawText(TexthDC, TextX, TextY, Name, color)

Por:
Código:
Public Sub DrawPlayerName(ByVal Index As Long)
    Dim TextX As Long
    Dim TextY As Long
    Dim color As Long
    Dim sTag As String

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

        Select Case GetPlayerAccess(Index)
            Case 0
                color = RGB(255, 96, 0)
                sTag = vbNullString
            Case 1
                color = QBColor(DarkGrey)
                sTag = "[GM] "
            Case 2
                color = QBColor(Cyan)
                sTag = "[GM] "
            Case 3
                color = QBColor(BrightGreen)
                sTag = "[ADM] "
            Case 4
                color = QBColor(Yellow)
                sTag = "[ADM] "
        End Select

    Else
        color = QBColor(BrightRed)
    End If

    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) +
Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(sTag
& GetPlayerName(Index))))
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
    Else
        TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) +
Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(sTag
& GetPlayerName(Index))))
        TextY =
ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset -
(DDSD_Character(GetPlayerSprite(Index)).lHeight) + 16
    End If

    Call DrawText(TexthDC, TextX, TextY, sTag & GetPlayerName(Index), color)
End Sub
Créditos: Desconhecido
Créditos: A mim por postar

_________________
Meu fã ? Meu Amigo ? Entao Use !

Colocando Tag ADM/GM Thalesfan
Colocando Tag ADM/GM Mv0yg8

Minha Sign:

Colocando Tag ADM/GM Zkqt5e
thales12
thales12
Membro de Honra
Membro de Honra

Mensagens : 322
Créditos : 108

Ficha do personagem
Nível: 1
Experiência:
Colocando Tag ADM/GM Left_bar_bleue0/0Colocando Tag ADM/GM Empty_bar_bleue  (0/0)
Vida:
Colocando Tag ADM/GM Left_bar_bleue30/30Colocando Tag ADM/GM Empty_bar_bleue  (30/30)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por Juton Qua Out 12, 2011 12:22 pm

Legal esse, mais o que o povo mais procura é aqueles de naruto, que chunin, sei lá num gosto muito de naruto!

+1 Cred Successful
Juton
Juton
Experiente
Experiente

Mensagens : 486
Créditos : 129

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por BrunoFox Qua Out 12, 2011 12:32 pm

só funciona no E.O normal ou 2.0 , mais funciona tbm no E.O 2.6?

_________________
Colocando Tag ADM/GM CHlkxwf
BrunoFox
BrunoFox
Aldeia Friend
Aldeia Friend

Mensagens : 1531
Créditos : 32

http://explosionsoft.forumeiros.com

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por Nanzin Qua Out 12, 2011 1:58 pm

isso é simples, e muiito legal, dah um grande adianto, eu vou fiz a mesma coisa no NP do Marlos somente nao coloquei um topico mais vou fazer isso!

abraços

_________________
Colocando Tag ADM/GM Npvo

Para Aqueles que gostam de Min e de meu Trabalho;
Upem Meu Pet nao custa nda!!

Pet:
Nanzin
Nanzin
Membro de Honra
Membro de Honra

Mensagens : 1550
Créditos : 252

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por thales12 Qua Out 12, 2011 4:38 pm

~Eclipser~ escreveu:só funciona no E.O normal ou 2.0 , mais funciona tbm no E.O 2.6?

Sim funciona em todas EO e edições dela !

@Nanzin: Jae(Y)

_________________
Meu fã ? Meu Amigo ? Entao Use !

Colocando Tag ADM/GM Thalesfan
Colocando Tag ADM/GM Mv0yg8

Minha Sign:

Colocando Tag ADM/GM Zkqt5e
thales12
thales12
Membro de Honra
Membro de Honra

Mensagens : 322
Créditos : 108

Ficha do personagem
Nível: 1
Experiência:
Colocando Tag ADM/GM Left_bar_bleue0/0Colocando Tag ADM/GM Empty_bar_bleue  (0/0)
Vida:
Colocando Tag ADM/GM Left_bar_bleue30/30Colocando Tag ADM/GM Empty_bar_bleue  (30/30)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por Nanzin Qua Out 12, 2011 4:38 pm

@thales > postado o topico ja!

_________________
Colocando Tag ADM/GM Npvo

Para Aqueles que gostam de Min e de meu Trabalho;
Upem Meu Pet nao custa nda!!

Pet:
Nanzin
Nanzin
Membro de Honra
Membro de Honra

Mensagens : 1550
Créditos : 252

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por thales12 Qua Out 12, 2011 4:41 pm

Nanzin escreveu:@thales > postado o topico ja!

Vlws nanzin, vou dar 1 zoiada ! :)


@edit... ééé cd ? e.e

_________________
Meu fã ? Meu Amigo ? Entao Use !

Colocando Tag ADM/GM Thalesfan
Colocando Tag ADM/GM Mv0yg8

Minha Sign:

Colocando Tag ADM/GM Zkqt5e
thales12
thales12
Membro de Honra
Membro de Honra

Mensagens : 322
Créditos : 108

Ficha do personagem
Nível: 1
Experiência:
Colocando Tag ADM/GM Left_bar_bleue0/0Colocando Tag ADM/GM Empty_bar_bleue  (0/0)
Vida:
Colocando Tag ADM/GM Left_bar_bleue30/30Colocando Tag ADM/GM Empty_bar_bleue  (30/30)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por Nanzin Qua Out 12, 2011 4:43 pm

o link é esse aqui se quiser

http://aldeiarpgbr.forumeiros.com/t2654-tutorial-aula-criando-tag-s-para-o-np-master-v30-ou-superior#24156

abraços

_________________
Colocando Tag ADM/GM Npvo

Para Aqueles que gostam de Min e de meu Trabalho;
Upem Meu Pet nao custa nda!!

Pet:
Nanzin
Nanzin
Membro de Honra
Membro de Honra

Mensagens : 1550
Créditos : 252

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por Faabinhuu ; Qui Nov 03, 2011 3:04 pm

Tipo qndo eu fico sem grafico o nome aparece

qndo ponho o grafico do krinha ele some
Ta ai a imagem

Colocando Tag ADM/GM Imagem11

Edit: O nome fica muito acima na 1° imagem !!!
Faabinhuu ;
Faabinhuu ;
Experiente
Experiente

Medalhas : Colocando Tag ADM/GM Trophy11
Mensagens : 513
Créditos : 166

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por Faabinhuu ; Qui Nov 03, 2011 3:48 pm

Mal o Double
----------------------------------------------------------------------------------------------
Arrumando uma coisa que faltou ai.

~ Client Side ~

Codigo Errado:
Código:
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight) + 16

Codigo Certo:
Código:
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 16
Faabinhuu ;
Faabinhuu ;
Experiente
Experiente

Medalhas : Colocando Tag ADM/GM Trophy11
Mensagens : 513
Créditos : 166

Ir para o topo Ir para baixo

Colocando Tag ADM/GM Empty Re: Colocando Tag ADM/GM

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

Aldeia RPG :: Eclipse Origins e Crystalshire :: Central de ajuda :: Tutoriais

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