Suporte ao desenvolvimento de jogos!


    Colocando Tag ADM/GM

    Compartilhe
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Colocando Tag ADM/GM

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

    PREVIEW:



    - 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 !




    Minha Sign:

    avatar
    Juton
    Experiente
    Experiente

    Mensagens : 490
    Créditos : 129

    Re: Colocando Tag ADM/GM

    Mensagem por Juton em 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
    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1552
    Créditos : 32

    Re: Colocando Tag ADM/GM

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

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


    _________________
    avatar
    Nanzin
    Membro de Honra
    Membro de Honra

    Mensagens : 1559
    Créditos : 252

    Re: Colocando Tag ADM/GM

    Mensagem por Nanzin em 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


    _________________


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


    Pet:
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Re: Colocando Tag ADM/GM

    Mensagem por thales12 em 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 !




    Minha Sign:

    avatar
    Nanzin
    Membro de Honra
    Membro de Honra

    Mensagens : 1559
    Créditos : 252

    Re: Colocando Tag ADM/GM

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

    @thales > postado o topico ja!


    _________________


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


    Pet:
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Re: Colocando Tag ADM/GM

    Mensagem por thales12 em 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 !




    Minha Sign:

    avatar
    Nanzin
    Membro de Honra
    Membro de Honra

    Mensagens : 1559
    Créditos : 252

    Re: Colocando Tag ADM/GM

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

    o link é esse aqui se quiser

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

    abraços


    _________________


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


    Pet:
    avatar
    Faabinhuu ;
    Experiente
    Experiente

    Medalhas :
    Mensagens : 567
    Créditos : 166

    Re: Colocando Tag ADM/GM

    Mensagem por Faabinhuu ; em 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



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

    Medalhas :
    Mensagens : 567
    Créditos : 166

    Re: Colocando Tag ADM/GM

    Mensagem por Faabinhuu ; em 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

    Conteúdo patrocinado

    Re: Colocando Tag ADM/GM

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sab Abr 21, 2018 12:40 am