¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.


Todo sobre AO
 
ÍndiceÚltimas imágenesBuscarRegistrarseConectarse

 

 Los NPC nos dicen el daño

Ir abajo 
AutorMensaje
Agus
Admin



Mensajes : 69
Fecha de inscripción : 01/07/2008

Los NPC nos dicen el daño Empty
MensajeTema: Los NPC nos dicen el daño   Los NPC nos dicen el daño EmptyVie Ago 01, 2008 8:10 pm

Para que los NPC nos digan el daño, o curacion que le realizamos sobre sus cabezas

En modHechizos....
Buscamos
Citación :
If Hechizos(hIndex).SubeHP = 1 Then
daño = RandomNumber(Hechizos(hIndex).MinHP, Hechizos(hIndex).MaxHP)
daño = daño + Porcentaje(daño, 3 * UserList(UserIndex).Stats.ELV)

Debajo colocamos...
Citación :
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbGreen & "°+" & daño & "°" & str(Npclist(NpcIndex).Char.charindex))


Buscamos
Citación :
Npclist(NpcIndex).Stats.MinHP = Npclist(NpcIndex).Stats.MinHP - daño
SendData ToIndex, UserIndex, 0, "||Le has causado " & daño & " puntos de daño a la criatura!" & FONTTYPE_FIGHT
Call CalcularDarExp(UserIndex, NpcIndex, daño)

y arriba colocamos....
Citación :
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbRed & "°-" & daño & "°" & str(Npclist(NpcIndex).Char.charindex))


Ahora en SistemaCombate
Buscamos....
Citación :

Call SendData(ToIndex, UserIndex, 0, "U2" & daño)
Call CalcularDarExp(UserIndex, NpcIndex, daño)

y arriba ponemos....
Citación :
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbRed & "°-" & daño & "°" & str(Npclist(NpcIndex).Char.charindex))
Volver arriba Ir abajo
https://recompilacionao.forosactivos.com
 
Los NPC nos dicen el daño
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Los npcs dicen si el user falla arriba de ellos.
» Los npcs dicen si ellos fayan sobre los users arriba de ellos.

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: 0.11.2-
Cambiar a: