Mudando a Cor de Algumas coisas Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar 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.

Mudando a Cor de Algumas coisas

+4
tenchumaster
Alexandrexs
Valentine
thales12
8 participantes

Ir para baixo

Mudando a Cor de Algumas coisas Empty Mudando a Cor de Algumas coisas

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

Mudando a Cor de Algumas coisas Thalesfan
Mudando a Cor de Algumas coisas Mv0yg8

Minha Sign:

Mudando a Cor de Algumas coisas Zkqt5e
thales12
thales12
Membro de Honra
Membro de Honra

Mensagens : 322
Créditos : 108

Ficha do personagem
Nível: 1
Experiência:
Mudando a Cor de Algumas coisas Left_bar_bleue0/0Mudando a Cor de Algumas coisas Empty_bar_bleue  (0/0)
Vida:
Mudando a Cor de Algumas coisas Left_bar_bleue30/30Mudando a Cor de Algumas coisas Empty_bar_bleue  (30/30)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

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

Muito bom o tuto cara
+ 1 crédito
Valentine
Valentine
Administrador
Administrador

Medalhas : Mudando a Cor de Algumas coisas ZgLkiRU
Mensagens : 5345
Créditos : 1164

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

Mensagem por Alexandrexs 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:
Mudando a Cor de Algumas coisas Userbar2wr

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]
Alexandrexs
Alexandrexs
Ocasional
Ocasional

Mensagens : 162
Créditos : 42

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

Mensagem por tenchumaster 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!

_________________
Mudando a Cor de Algumas coisas Barradefan



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]
tenchumaster
tenchumaster
Banido
Banido

Mensagens : 577
Créditos : 76

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

Mensagem por alexdesouza 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?

alexdesouza
Novato
Novato

Mensagens : 3
Créditos : 0

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

Mensagem por FFogomax 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)

FFogomax
Experiente
Experiente

Mensagens : 557
Créditos : 37

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

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

vllllw cara ajudo mt msm =)

alexdesouza
Novato
Novato

Mensagens : 3
Créditos : 0

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

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

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

_________________
Mudando a Cor de Algumas coisas 292wr9y
Sieghart
Sieghart
Novato
Novato

Mensagens : 19
Créditos : 1

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

Mensagem por thales12 Sáb Nov 24, 2012 4:16 pm

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

_________________
Meu fã ? Meu Amigo ? Entao Use !

Mudando a Cor de Algumas coisas Thalesfan
Mudando a Cor de Algumas coisas Mv0yg8

Minha Sign:

Mudando a Cor de Algumas coisas Zkqt5e
thales12
thales12
Membro de Honra
Membro de Honra

Mensagens : 322
Créditos : 108

Ficha do personagem
Nível: 1
Experiência:
Mudando a Cor de Algumas coisas Left_bar_bleue0/0Mudando a Cor de Algumas coisas Empty_bar_bleue  (0/0)
Vida:
Mudando a Cor de Algumas coisas Left_bar_bleue30/30Mudando a Cor de Algumas coisas Empty_bar_bleue  (30/30)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

Mensagem por Spooky 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
Mudando a Cor de Algumas coisas Hticjn

Sign¹:

Sign²:
Spooky
Spooky
Membro Ativo
Membro Ativo

Mensagens : 267
Créditos : 24

Ir para o topo Ir para baixo

Mudando a Cor de Algumas coisas Empty Re: Mudando a Cor de Algumas coisas

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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