Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Mudando a Cor de Algumas coisas
+4
tenchumaster
Alexandrexs
Valentine
thales12
8 participantes
Página 1 de 1
Mudando a Cor de Algumas coisas
ao pedido do castiel .. vamos la ..
Server~Side:
Mudando a cor da fala no global:
procure por:
e na linha:
onde ta :
so mudar para a cor q tu quer..
Mudando a cor da fala no mapa:
procure por:
e na linha:
onde ta :
so mudar para a cor q tu quer.
Client~Side:
mudando a cor do acesso de adm e do player normal:
procure por:
e na linha:
aonde ta:
ai vai mudar a do adm:
mude para a cor q vc quer..
a do player ein:
mude para:
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:
e nas linhas:
aonde ta:
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
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:
Minha Sign:
Re: Mudando a Cor de Algumas coisas
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]
Alexandrexs- Ocasional
- Mensagens : 162
Créditos : 42
Re: Mudando a Cor de Algumas coisas
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]
tenchumaster- Banido
- Mensagens : 577
Créditos : 76
Re: Mudando a Cor de Algumas coisas
tipo to começando agr a mecher com isso em fim, poderia me falar onde acho esse arquivo para editar?
alexdesouza- Novato
- Mensagens : 3
Créditos : 0
Re: Mudando a Cor de Algumas coisas
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.
Você vai precisar do VB6 (Visual Basic6 ) para editar os arquivos.
Espero ter ajudado.
Última edição por Fogomax em Ter Set 04, 2012 12:31 am, editado 1 vez(es)
FFogomax- Experiente
- Mensagens : 557
Créditos : 37
Re: Mudando a Cor de Algumas coisas
vllllw cara ajudo mt msm =)
alexdesouza- Novato
- Mensagens : 3
Créditos : 0
Re: Mudando a Cor de Algumas coisas
ae aqui nao aparece essa tal de "Side" o que é isso? nunca usei essa maker 1º vez!
_________________
Sieghart- Novato
- Mensagens : 19
Créditos : 1
Re: Mudando a Cor de Algumas coisas
e o Client.vbp q tu abre.. fica na pasta do client..
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
Re: Mudando a Cor de Algumas coisas
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
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²:
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Tópicos semelhantes
» Algumas coisas sobre o pc
» Algumas Novidades
» Algumas Sprites FTO
» Coisas estranhas...
» Mutas coisas.
» Algumas Novidades
» Algumas Sprites FTO
» Coisas estranhas...
» Mutas coisas.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|