Colocando barra de HP nos NPC

por Slash Dom 21 Nov 2010, 19:29

~Descrição~
•Como o titulo ja diz, o sistema serve para ficar visivel a barrinha de HP dos "monstros".

~Tutorial~

1) Abra o Server.vbp, que se localiza na pasta Server.

2) Procure no modPlayer:

Código:: Sub AttackNpc

3) Nessa sub, procure por:

Código:: ' NPC not dead, just do the damage MapNpc(MapNum).Npc(MapNpcNum).Vital(Vitals.HP) = MapNpc(MapNum).Npc(MapNpcNum).Vital(Vitals.HP) - Damage ' Check for a weapon and say damage SendActionMsg MapNum, "-" & Damage, BrightRed, 1, (MapNpc(MapNum).Npc(MapNpcNum).x * 32), (MapNpc(MapNum).Npc(MapNpcNum).y * 32) SendBlood GetPlayerMap(Attacker), MapNpc(MapNum).Npc(MapNpcNum).x, MapNpc(MapNum).Npc(MapNpcNum).y

4) Logo abaixo coloque:

Código:: SendMapNpcVitals GetPlayerMap(Attacker), MapNpcNum

Parte do Server acabada!

5) Agora abra o Client.vbp, que se localiza na pasta Client.

6) No modDirectDraw7, procure por:

Código:: Public Sub Render_Graphics

7) Nessa sub, procure por:

Código:: ' Npcs For I = 1 To MAX_MAP_NPCS If MapNpc(I).Y = Y Then Call BltNpc(I) End If Next

Substitua por:

Código:: ' Npcs For I = 1 To MAX_MAP_NPCS ' Draw out npc hp bars Call BltNpcHP(I) If MapNpc(I).Y = Y Then Call BltNpc(I) End If Next

9) No mesmo mod, procure por:

Código:: Public Sub BltNpc

10) Abaixo do código coloque:

Código:: Public Sub BltNpcHP(ByVal Index As Long) Dim X As Long, Y As Long, Sprite As Long, NpcNum As Long NpcNum = MapNpc(Index).Num If NpcNum = 0 Then Exit Sub End If ' Don't display the HP if the npc is at max hp If MapNpc(Index).Vital(Vitals.HP) = Npc(NpcNum).HP Then Exit Sub End If ' Only display HP for npcs that we can attack If Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_ATTACKONSIGHT And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_ATTACKWHENATTACKED Then Exit Sub End If Sprite = Npc(NpcNum).Sprite ' Calculate the X coordinate to place the name X = MapNpc(Index).X * PIC_X + MapNpc(Index).XOffset If Sprite < 1 Or Sprite > NumCharacters Then Y = MapNpc(Index).Y * PIC_Y + MapNpc(Index).YOffset - 22 Else Y = MapNpc(Index).Y * PIC_Y + MapNpc(Index).YOffset - (DDSD_Character(Sprite).lHeight) + 81 End If ' Draw the outside box Call DDS_BackBuffer.SetFillColor(RGB(0, 0, 0)) Call DDS_BackBuffer.DrawBox(ConvertMapX(X), ConvertMapY(Y), ConvertMapX(X + 32), ConvertMapY(Y + 4)) ' Draw the HP Call DDS_BackBuffer.SetFillColor(RGB(0, 255, 0)) Call DDS_BackBuffer.DrawBox(ConvertMapX(X), ConvertMapY(Y), ConvertMapX(X + Int(((MapNpc(Index).Vital(Vitals.HP) / 32) / (Npc(NpcNum).HP / 32)) * 32)), ConvertMapY(Y + 4)) End Sub

Tutorial acabado.

Retirado de: Aldeia RPG

por Zeus Seg 22 Nov 2010, 18:20

Interessante =)

por Darkpeople196 Seg 22 Nov 2010, 22:15

Testado e aprovado pelo tiu Dark.

boa man mas eu acho que eu vi esse tuto primeiro no forum oficial do eclipse mas
qualquer coisa so mudar os creditos.
e outra obrigado por trazer este tuto para cá

por Ian Ter 23 Nov 2010, 07:46

Bem Interesante esse Tutorial mais original Mente Ele Veio Do Forum Original Do Eclipse Mais Boa Por Postar aki +1 Cred ^^

por Valentine Sáb 11 Dez 2010, 19:38

veio originalmente os códigos, mais a explicação e a tradução foi eu que fiz

por xurana321 Dom 12 Dez 2010, 13:09

ou nao to conseguindo compila o client.exe na parte numero 10 do seu tutorial eu faço mas da errado e para por o codigo debaixo do Public Sub BltNpc mesmo?

por Lucas Roberto Dom 12 Dez 2010, 18:23

manda um screen para saber o nome do erro --'

por Slash Seg 13 Dez 2010, 08:31

xurana321 escreveu:ou nao to conseguindo compila o client.exe na parte numero 10 do seu tutorial eu faço mas da errado e para por o codigo debaixo do Public Sub BltNpc mesmo?

Cara, acho que o erro foi seu, porque aqui eu fiz e deu certo. Colocando barra de HP nos NPC 329928

Você tem que colocar o codigo em baixo do CODIGO da Public Sub BltNpc. Se mesmo assim você não entendeu, tente ler e re-ler o tutorial, que você vai conseguir. Very Happy

por xurana321 Seg 13 Dez 2010, 11:06

sim mas e depois do End Sub? so aprendiz ainda no VB6 Colocando barra de HP nos NPC 535201

Olha a imagem do erro;
Colocando barra de HP nos NPC Dfhgh

https://2img.net/r/ihimizer/f/dfhgh.png/
Colocando barra de HP nos NPC Dfhgh

por CAIO Qua 19 Jan 2011, 11:16

aqui da o mesmo erro do xurana
https://2img.net/r/ihimizer/f/dfhgh.png/

alguem me ajuda ??

por Valentine Qua 19 Jan 2011, 18:20

CAIO escreveu:aqui da o mesmo erro do xurana
https://2img.net/r/ihimizer/f/dfhgh.png/

alguem me ajuda ??

Procure:

Código:: ' Npcs For I = 1 To MAX_MAP_NPCS

você deve ter colado a parte:

Código:: ' Npcs For I = 1 To MAX_MAP_NPCS ' Draw out npc hp bars Call BltNpcHP(I) If MapNpc(I).Y = Y Then Call BltNpc(I) End If Next

no lugar de tudo que tava, ou seja faltou

Código:: End If

no final (Depois do Next)

por CAIO Qua 19 Jan 2011, 18:47

deu esse erro aqui agora ó Colocando barra de HP nos NPC 123_5

por DshFox Qua 19 Jan 2011, 19:11

poha,tu excluiu a sub bltnpc ._____.

pega uma copia zerada do origins,e copia a sub bltnpc ou refaz o tuto numa copia tua ae

por CAIO Qui 20 Jan 2011, 07:43

n exclui n ela ta la ainda '-'

por xurana321 Ter 22 Fev 2011, 13:13

aqui fico tudo bugado a barra do hp fico grande e estranho

por Ian Ter 22 Fev 2011, 13:19

e por que sua versão ñ e a do tutorial amigo mais na versão mais atual a HP e MP dos NPCS ja vem uzando outro modo difente utilizando uma IMG

por Valentine Ter 22 Fev 2011, 14:41

Nem precisa mais desse tutorial, eu tranquei na aldeia já que a versão atual ja vem com esse sistema

por xurana321 Ter 22 Fev 2011, 16:02

qual versão é a atual?

por megosarco Ter 22 Fev 2011, 16:11

por Conteúdo patrocinado

Colocando barra de HP nos NPC

Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC

Re: Colocando barra de HP nos NPC