[EEB]Vila em cima do nome do Player
+7
GuiinhoLP
GABRIEL HENRIQUE
Shirosaki5005
math320
Storm™
mmorpgelysium
lucasvivo25
11 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 1
[EEB]Vila em cima do nome do Player
por lucasvivo25 Sáb 02 Jun 2012, 20:13
Bom Aqui vai um tuto para quem fez o Sistema de Vilas e quer colocar o nome da vila em cima do nome do player:
Bom Começando:
(Esse e para Sprites 32x32)
Procure por:
Abaixo Adicione:
Agora procure por essa sub:
E em baixo sub adicone:
Agora procure por:
mude para:
(Esse e para Sprites 32x64)
Procure por:
Abaixo Adicione:
Agora procure por essa sub:
E em baixo sub adicone:
Agora procure por:
mude para:
E Than esta pronto... aqui vai uma Screen:
![[EEB]Vila em cima do nome do Player Scaled.php?server=37&filename=imagembfh](http://desmond.imageshack.us/Himg37/scaled.php?server=37&filename=imagembfh.jpg&res=landing)
Creditos:
Pablo
lucasvivo25~~Por Arrumar
Bom Começando:
(Esse e para Sprites 32x32)
Procure por:
- Código:
Call BltPlayerName(I)
Abaixo Adicione:
- Código:
Call BltPlayerVilas(I)
Agora procure por essa sub:
- Código:
Sub BltPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(BrightBlue)
Case 2
Color = QBColor(Grey)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
' Draw name
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerName(Index)) / 2) * 8)
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - (SIZE_Y - PIC_Y)
Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerName(Index), Color)
End Sub
E em baixo sub adicone:
- Código:
Sub BltPlayerVilas(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0 ' vila 1
Color = QBColor(Brown)
Case 1 ' vila 2
Color = QBColor(Blue)
End Select
Else
Color = QBColor(BrightRed) ' Vila quando ficar pk
End If
' Draw VilaName
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerVila(Index)) / 2) * 8)
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - 12
Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerVila(Index), Color)
End Sub
Agora procure por:
- Código:
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X * 0.5) - ((Len(GetPlayerGuild(Index)) * 0.5) * 8)
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y * 0.5) - 12
mude para:
- Código:
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X * 0.5) - ((Len(GetPlayerGuild(Index)) * 0.5) * 8)
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y * 0.5) - 25
(Esse e para Sprites 32x64)
Procure por:
- Código:
Call BltPlayerName(I)
Abaixo Adicione:
- Código:
Call BltPlayerVilas(I)
Agora procure por essa sub:
- Código:
Sub BltPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(BrightBlue)
Case 2
Color = QBColor(Grey)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
' Draw name
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerName(Index)) / 2) * 8)
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - (SIZE_Y - PIC_Y)
Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerName(Index), Color)
End Sub
E em baixo sub adicone:
- Código:
Sub BltPlayerVilas(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0 ' vila 1
Color = QBColor(Brown)
Case 1 ' vila 2
Color = QBColor(Blue)
End Select
Else
Color = QBColor(BrightRed) ' Vila quando ficar pk
End If
' Draw VilaName
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerVila(Index)) / 2) * 8)
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - 45
Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerVila(Index), Color)
End Sub
Agora procure por:
- Código:
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X * 0.5) - ((Len(GetPlayerGuild(Index)) * 0.5) * 8)
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y * 0.5) - 45
mude para:
- Código:
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X * 0.5) - ((Len(GetPlayerGuild(Index)) * 0.5) * 8)
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y * 0.5) - 91
E Than esta pronto... aqui vai uma Screen:
Creditos:
Pablo
lucasvivo25~~Por Arrumar
Última edição por lucasvivo25 em Dom 03 Jun 2012, 09:39, editado 1 vez(es)
lucasvivo25- Membro
- Mensagens : 166
Re: [EEB]Vila em cima do nome do Player
por mmorpgelysium Dom 03 Jun 2012, 08:06
tem como fazer para sprites 32 x 64 ??
mmorpgelysium- Novato
- Mensagens : 25
Re: [EEB]Vila em cima do nome do Player
por lucasvivo25 Dom 03 Jun 2012, 09:24
Edit~~~~
Olha ai em cima eu fiz a de 32x64 eu editei da olhada lá ;D
Olha ai em cima eu fiz a de 32x64 eu editei da olhada lá ;D
lucasvivo25- Membro
- Mensagens : 166
Re: [EEB]Vila em cima do nome do Player
por mmorpgelysium Dom 03 Jun 2012, 11:24
Valeu , vou testar aqui pois vou ter que começar a editar novamente ¬¬'
mmorpgelysium- Novato
- Mensagens : 25
Storm™- Moderador Global
- Mensagens : 2155
-
Re: [EEB]Vila em cima do nome do Player
por math320 Ter 12 Jun 2012, 20:37
ei amigo qual sistema de vila e compativel com este tuto?
math320- Membro Sênior
- Mensagens : 255
Re: [EEB]Vila em cima do nome do Player
por lucasvivo25 Qui 28 Jun 2012, 06:54
A que tem aqui mesmo, 'de naruto" ;D
lucasvivo25- Membro
- Mensagens : 166
Shirosaki5005- Membro
- Mensagens : 236
Re: [EEB]Vila em cima do nome do Player
por GABRIEL HENRIQUE Ter 24 Jul 2012, 21:33
ou vc pode me fazer um favor coloca como editar nome da vila
GABRIEL HENRIQUE- Novato
- Mensagens : 10
GuiinhoLP- Membro Sênior
- Mensagens : 257
nuno960- Membro
- Mensagens : 137
Re: [EEB]Vila em cima do nome do Player
por giovani18 Ter 13 Nov 2012, 23:10
ta dando erro nessa parte aqui o copile error Sub or Function not defined
Sub BltPlayerVilas(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0 ' vila 1
Color = QBColor(Brown)
Case 1 ' vila 2
Color = QBColor(Blue)
End Select
Else
Color = QBColor(BrightRed) ' Vila quando ficar pk
End If
' Draw VilaName
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerVila(Index)) / 2) *
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - 12
Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerVila(Index), Color)
End Sub
Sub BltPlayerVilas(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0 ' vila 1
Color = QBColor(Brown)
Case 1 ' vila 2
Color = QBColor(Blue)
End Select
Else
Color = QBColor(BrightRed) ' Vila quando ficar pk
End If
' Draw VilaName
TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerVila(Index)) / 2) *
TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - 12
Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerVila(Index), Color)
End Sub
giovani18- Novato
- Mensagens : 35
-
Re: [EEB]Vila em cima do nome do Player
por newbie123 Qua 14 Nov 2012, 06:14
Alem de estar com erro, provavelmente tem uma maneira mais simples de colocar esse sistema, aproposito quando for criar um tutorial aperfeiçoando outro sistema, poste o link do sistema que você aperfeiço-o. --'
newbie123- Membro Vitalicio
- Mensagens : 622
Re: [EEB]Vila em cima do nome do Player
por Pablo Qua 14 Nov 2012, 09:17
Sistema foi testado sim, já faz muito tempo desde que eu ajudei o Lucas a fazer isso, e até testei, porém você precisa ter o sistema de vila porque ele não ira fazer um próprio.
Obs: Newbie um jeito mais fácil é excluir as parte de cores que não ira dar problema porque a drawtext é para desenhar na tela, caso você ainda não tenha aprendido isso.
Mais tem as possibilidades também, só colocar o código de desenhar na bltplayername que vai dar no mesmo, só precisa arrumar tudo certinho
Atenciosamente,
Pablo
Obs: Newbie um jeito mais fácil é excluir as parte de cores que não ira dar problema porque a drawtext é para desenhar na tela, caso você ainda não tenha aprendido isso.
Mais tem as possibilidades também, só colocar o código de desenhar na bltplayername que vai dar no mesmo, só precisa arrumar tudo certinho
Atenciosamente,
Pablo
Pablo- Moderador Global
- Mensagens : 1371
Tópicos semelhantes» Nome da classe em cima do nome do player
» [ALL][tutorial]Nome do player e da classe no painel do game
» Como colocar level em cima do nome e a STR dos npcs
» Como fazer aparecer a classe em cima do nome?
» Alterando fonte do nome do player e npc
» [ALL][tutorial]Nome do player e da classe no painel do game
» Como colocar level em cima do nome e a STR dos npcs
» Como fazer aparecer a classe em cima do nome?
» Alterando fonte do nome do player e npc
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos|
|
|
» Ojkjeeeee
» Naruto Great Ninja Batle
» Recrutamento de um Designer para jogo de CDZ.
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Projeto Dbz
» Avaliação - Sprites Naruto
» [Sprites] DBZ (Plix)
» Super Pack - Bleach V.2
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [Pedido] Contador de resets na FrmMain
» [Recrutamento]
» Ajuda erro no Cliente e Servidor do EEB 2.6!
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
» Recursos Pokemons
» erro frm flash
» Pedido - Pack de star wars
» [Ajuda] Sobre como por o servidor on por ip fixo
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
» [NSME] Naruto Shinobi Maker Engine
» Script /base,/casa Igual DBZ Forces
» [Pedido]Colar Tsunade item sprite eclipse origin
» [Pedido] Elysium
» Naruto - Recruta
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
» Demonstração de Sprites (Á VENDA!)
» [Sistema de Reset]Para Eclipse .
» Cada Guild Nascer em Certo Mapa
» Dragon Ball z Fusion A Grande Volta
» Ajuda com Ip fixo
» Como Fazer um GUI no Eclipse Origins
» Shisui Susanoo
» Fantasy Art Online
» Ajuda !!
» como passar o usuário e senha para o MainMenu?
» Ru time ero 13 Type mismatch
» Jarvis 1.3 Download
» [Avaliação/Disponibilização]Árvore 64x64
» Mlk's Zikas Signatures
» Pedido de Sistemas
» [AjudaEEB]Gerador de EXP
» [Avaliar] Base, Humano e Goblin.
» Fabrica do Tio Cronos!
» [PixelArt] Minion - Meu malvado favorito
» [Avaliar] Goku Dragon Ball Z