Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
[EO] Colocando Hp nos Monstros
3 participantes
Página 1 de 1
[EO] Colocando Hp nos Monstros
1)Vá no Servidor
2)Procure por:
modPlayer -> Sub AttackNpc
3)Procure por:
4)Embaixo coloque:
5)Va no cliente
6)Procure por:
modDirectDraw7 -> Public Sub Render_Graphics
7)Procure por:
8)Substitua por:
9)Procure por:
Public Sub BltNpc
10)Embaixo do código coloque:
11)Para Muda a posição do nome, procure por:
12)Se você quiser que ele mostre o nome sem precisar atacar, retire as linhas:
2)Procure por:
modPlayer -> Sub AttackNpc
3)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)Embaixo coloque:
- Código:
SendMapNpcVitals GetPlayerMap(Attacker), MapNpcNum
5)Va no cliente
6)Procure por:
modDirectDraw7 -> Public Sub Render_Graphics
7)Procure por:
- Código:
' Npcs
For I = 1 To MAX_MAP_NPCS
If MapNpc(I).Y = Y Then
Call BltNpc(I)
End If
Next
8)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)Procure por:
Public Sub BltNpc
10)Embaixo 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) + 227
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
11)Para Muda a posição do nome, procure por:
- Código:
Y = MapNpc(Index).Y * PIC_Y + MapNpc(Index).YOffset - 22
Y = MapNpc(Index).Y * PIC_Y + MapNpc(Index).YOffset - (DDSD_Character(Sprite).lHeight) + 227
12)Se você quiser que ele mostre o nome sem precisar atacar, retire as linhas:
- Código:
' 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
Última edição por Marlos Gama em Sex Jan 28, 2011 12:46 pm, editado 2 vez(es)
Re: [EO] Colocando Hp nos Monstros
esta dando erro em
- Código:
Dim attackspeed As Long
tecko- Novato
- Mensagens : 2
Créditos : 1
Re: [EO] Colocando Hp nos Monstros
Tem como trazer a barra de hp, pra mais perto do monstor? Pq ela fica uns 3 quadros acima.
_________________
Ser maker e ser capaz de dar vida a sua imaginação.
joaovitor2763- Membro de Honra
- Medalhas :
Mensagens : 645
Créditos : 137
Re: [EO] Colocando Hp nos Monstros
Tópico trancado devido a nova versão do eclipse ja ter esse sistema
Tópicos semelhantes
» Monstros pf
» Colocando Tag ADM/GM
» Invasão de Monstros!
» Lista monstros
» Criaando Monstros em jog off
» Colocando Tag ADM/GM
» Invasão de Monstros!
» Lista monstros
» Criaando Monstros em jog off
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos