Suporte ao desenvolvimento de jogos!


    Mudando a Cor de Algumas coisas

    Compartilhe
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Mudando a Cor de Algumas coisas

    Mensagem por thales12 em Qua Out 05, 2011 2:09 am

    ao pedido do castiel .. vamos la ..

    Server~Side:

    Mudando a cor da fala no global:

    procure por:

    Código:
    Private Sub HandleBroadcastMsg(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
        Dim Msg As String
        Dim s 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

        s = "[Global]" & GetPlayerName(index) & ": " & Msg
        Call SayMsg_Global(index, Msg, QBColor(White))
        Call AddLog(s, PLAYER_LOG)
        Call TextAdd(s)
       
        Set Buffer = Nothing
    End Sub

    e na linha:

    Código:
    Call SayMsg_Global(index, Msg, QBColor(White))

    onde ta :

    White

    so mudar para a cor q tu quer..

    Mudando a cor da fala no mapa:

    procure por:

    Código:
    ' ::::::::::::::::::::
    ' :: Social packets ::
    ' ::::::::::::::::::::
    Private Sub HandleSayMsg(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)
            ' limit the ASCII
            If AscW(Mid$(Msg, i, 1)) < 32 Or AscW(Mid$(Msg, i, 1)) > 126 Then
                ' limit the extended ASCII
                If AscW(Mid$(Msg, i, 1)) < 128 Or AscW(Mid$(Msg, i, 1)) > 168 Then
                    ' limit the extended ASCII
                    If AscW(Mid$(Msg, i, 1)) < 224 Or AscW(Mid$(Msg, i, 1)) > 253 Then
                        Mid$(Msg, i, 1) = ""
                    End If
                End If
            End If
        Next

        Call AddLog("Map #" & GetPlayerMap(index) & ": " & GetPlayerName(index) & " says, '" & Msg & "'", PLAYER_LOG)
        Call SayMsg_Map(GetPlayerMap(index), index, Msg, QBColor(White))
       
        Set Buffer = Nothing
    End Sub

    e na linha:

    Código:
    Call SayMsg_Map(GetPlayerMap(index), index, Msg, QBColor(White))

    onde ta :

    White

    so mudar para a cor q tu quer.

    Client~Side:

    mudando a cor do acesso de adm e do player normal:

    procure por:

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

        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler

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

            Select Case GetPlayerAccess(Index)
                Case 0
                    color = RGB(255, 96, 0)
                Case 1
                    color = QBColor(DarkGrey)
                Case 2
                    color = QBColor(Cyan)
                Case 3
                    color = QBColor(BrightGreen)
                Case 4
                    color = QBColor(Yellow)
            End Select

        Else
            color = QBColor(BrightRed)
        End If

        Name = Trim$(Player(Index).Name)
        ' calc pos
        TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Name)))
        If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
            TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
        Else
            ' Determine location for text
            TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 16
        End If

        ' Draw name
        Call DrawText(TexthDC, TextX, TextY, Name, color)
       
        ' Error handler
        Exit Sub
    errorhandler:
        HandleError "DrawPlayerName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Sub
    End Sub

    e na linha:

    Código:
    color = QBColor(Yellow)

    aonde ta:

    ai vai mudar a do adm:

    Yellow

    mude para a cor q vc quer..

    a do player ein:


    Código:
     color = RGB(255, 96, 0)

    mude para:

    Código:
    color = QBColor(DarkGrey)

    so por a cor q tu quer, ou se prefirir ali no, 255, 96, 0, so tu ir configurando ate ficar a cor q tu quer..

    mudando a cor do nome do npc:
    procure por:

    Código:
    Public Sub DrawNpcName(ByVal Index As Long)
    Dim TextX As Long
    Dim TextY As Long
    Dim color As Long
    Dim Name As String
    Dim npcNum As Long

        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler

        npcNum = MapNpc(Index).num

        Select Case Npc(npcNum).Behaviour
            Case NPC_BEHAVIOUR_ATTACKONSIGHT
                color = QBColor(BrightRed)
            Case NPC_BEHAVIOUR_ATTACKWHENATTACKED
                color = QBColor(Yellow)
            Case NPC_BEHAVIOUR_GUARD
                color = QBColor(Grey)
            Case Else
                color = QBColor(BrightGreen)
        End Select

        Name = Trim$(Npc(npcNum).Name)
        TextX = ConvertMapX(MapNpc(Index).x * PIC_X) + MapNpc(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Name)))
        If Npc(npcNum).Sprite < 1 Or Npc(npcNum).Sprite > NumCharacters Then
            TextY = ConvertMapY(MapNpc(Index).y * PIC_Y) + MapNpc(Index).YOffset - 16
        Else
            ' Determine location for text
            TextY = ConvertMapY(MapNpc(Index).y * PIC_Y) + MapNpc(Index).YOffset - (DDSD_Character(Npc(npcNum).Sprite).lHeight / 4) + 16
        End If

        ' Draw name
        Call DrawText(TexthDC, TextX, TextY, Name, color)
       
        ' Error handler
        Exit Sub
    errorhandler:
        HandleError "DrawNpcName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Sub
    End Sub

    e nas linhas:

    Código:
    Select Case Npc(npcNum).Behaviour
            Case NPC_BEHAVIOUR_ATTACKONSIGHT
                color = QBColor(BrightRed)
            Case NPC_BEHAVIOUR_ATTACKWHENATTACKED
                color = QBColor(Yellow)
            Case NPC_BEHAVIOUR_GUARD
                color = QBColor(Grey)
            Case Else
                color = QBColor(BrightGreen)
        End Select

    aonde ta:

    BrightRed, yellow, Grey, brightgreen

    so vc mudar para a cor q tu quer..

    Bom ai ta algumas coisas q tu pode mudar a cor ! :)
    se quizer mudar a cor de mais alguma coisa so falar ai, q eu add no tuto ! :)

    Créditos: A Mim Thales12


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4750
    Créditos : 1009

    Re: Mudando a Cor de Algumas coisas

    Mensagem por Valentine em Qua Out 05, 2011 11:09 am

    Muito bom o tuto cara
    + 1 crédito


    _________________
    avatar
    Alexandrexs
    Ocasional
    Ocasional

    Mensagens : 165
    Créditos : 42

    Re: Mudando a Cor de Algumas coisas

    Mensagem por Alexandrexs em Qua Out 05, 2011 2:26 pm

    Marlos Gama escreveu:Muito bom o tuto cara
    + 1 crédito

    Sim, muito bom!!!!

    Aliais de ser bom vai ajudar pakas quer pessoa.


    _________________
    Utilize nossa Fan Bar:


    Código:
    [img]http://imageshack.us/a/img89/9804/userbar2wr.png[/img]

    Nosso Fórum: ( Em construção mas ativo )
    [url=darkslayer.forumeiros.com]Dark Slayer - Fórum[/url]
    avatar
    tenchumaster
    Banido
    Banido

    Mensagens : 578
    Créditos : 76

    Re: Mudando a Cor de Algumas coisas

    Mensagem por tenchumaster em Qua Out 05, 2011 7:22 pm

    Muito legal cara parabens voce esta fazendo muitos turtoriais bons , voce poderia colocar o endereço deles no forum na sua assinatura ficaria muito legal cara! parabens + 1 cred!


    _________________




    Barra de fan do meu joguinho use voce tambem

    [code:1][URL=http://imageshack.us/photo/my-images/163/barradefan.jpg/][IMG]http://img163.imageshack.us/img163/2981/barradefan.jpg[/IMG][/URL]

    [/code:1]

    alexdesouza
    Novato
    Novato

    Mensagens : 3
    Créditos : 0

    Re: Mudando a Cor de Algumas coisas

    Mensagem por alexdesouza em Seg Set 03, 2012 1:32 pm

    tipo to começando agr a mecher com isso em fim, poderia me falar onde acho esse arquivo para editar?

    FFogomax
    Experiente
    Experiente

    Mensagens : 564
    Créditos : 37

    Re: Mudando a Cor de Algumas coisas

    Mensagem por FFogomax em Seg Set 03, 2012 2:26 pm

    Alex, quando falam Client~Side é o arquivo client.vbp, que fica na pasta Client. Quando falam Server~Side é o arquivo server.vbp, que fica na pasta Server.
    Você vai precisar do VB6 (Visual Basic6 ) para editar os arquivos.
    Espero ter ajudado. Razz


    Última edição por Fogomax em Ter Set 04, 2012 12:31 am, editado 1 vez(es)

    alexdesouza
    Novato
    Novato

    Mensagens : 3
    Créditos : 0

    Re: Mudando a Cor de Algumas coisas

    Mensagem por alexdesouza em Seg Set 03, 2012 7:42 pm

    vllllw cara ajudo mt msm =)
    avatar
    Sieghart
    Novato
    Novato

    Mensagens : 19
    Créditos : 1

    Re: Mudando a Cor de Algumas coisas

    Mensagem por Sieghart em Dom Nov 11, 2012 10:49 am

    ae aqui nao aparece essa tal de "Side" o que é isso? nunca usei essa maker 1º vez!


    _________________
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Re: Mudando a Cor de Algumas coisas

    Mensagem por thales12 em Sab Nov 24, 2012 4:16 pm

    e o Client.vbp q tu abre.. fica na pasta do client..


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    Spooky
    Membro Ativo
    Membro Ativo

    Mensagens : 262
    Créditos : 22

    Re: Mudando a Cor de Algumas coisas

    Mensagem por Spooky em Qua Dez 17, 2014 5:42 pm

    Cara, vlw pelo tutorial. mais queria saber como eu faço pra criar mais ranks tipo o adm
    ex
    GM,Helper,Administrador e Owner
    e mudar a cores deles?
    EDIT:
    E que ganha acessos ao jogo. tipo o ADM que já vem no E.O


    _________________
    Sign

    Sign¹:

    Sign²:

    Conteúdo patrocinado

    Re: Mudando a Cor de Algumas coisas

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sab Fev 17, 2018 5:58 pm