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


5 participantes

    Colocando Tag ADM/GM

    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)

    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
    Juton
    Juton
    Experiente
    Experiente


    Mensagens : 486
    Créditos : 129

    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
    BrunoFox
    BrunoFox
    Aldeia Friend
    Aldeia Friend


    Mensagens : 1531
    Créditos : 32

    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
    Nanzin
    Nanzin
    Membro de Honra
    Membro de Honra


    Mensagens : 1550
    Créditos : 252

    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:
    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)

    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
    Nanzin
    Nanzin
    Membro de Honra
    Membro de Honra


    Mensagens : 1550
    Créditos : 252

    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:
    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)

    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
    Nanzin
    Nanzin
    Membro de Honra
    Membro de Honra


    Mensagens : 1550
    Créditos : 252

    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:
    Faabinhuu ;
    Faabinhuu ;
    Experiente
    Experiente


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

    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

    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

    Conteúdo patrocinado


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

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Seg Dez 09, 2024 11:16 pm