Ver daño a criaturas , user ,etc. Style IAO

Fecha de inscripción : 09/05/2011

Bueno Empezamos ( TODO EN EL SERVIDOR ) :

Buscan :

Código:: Npclist(NpcIndex).Stats.MinHP = Npclist(NpcIndex).Stats.MinHP - daño
Call WriteConsoleMsg(UserIndex, "¡Le has causado " & daño & " puntos de daño a la criatura!", FontTypeNames.FONTTYPE_FIGHT)

y abajo ponen :

Código:: ]Call WriteChatOverHead(UserIndex, " - " & daño, str(Npclist(NpcIndex).Char.CharIndex), RGB(165, 10, 10)

Busquen ( este es el PLUS por si quieren que aparescan en la criatura cuando la curas, si quieren hacerlo en un personaje se tienen que "guiar" de esto y cambiar dos cositas nada mas ) :

Buscan

Código:: If Npclist(NpcIndex).Stats.MinHP > Npclist(NpcIndex).Stats.MaxHP Then _
Npclist(NpcIndex).Stats.MinHP = Npclist(NpcIndex).Stats.MaxHP
Call WriteConsoleMsg(UserIndex, "Has curado " & daño & " puntos de salud a la criatura.", FontTypeNames.FONTTYPE_FIGHT)

y abajo ponen :

Código:: [Call WriteChatOverHead(UserIndex, " + " & daño, Npclist(NpcIndex).Char.CharIndex, vbGreen)

Ahora buscan :

Código:: ]UserList(tempChr).Stats.MinHP = UserList(tempChr).Stats.MinHP - daño

Call WriteUpdateHP(tempChr)

Call WriteConsoleMsg(UserIndex, "Le has quitado " & daño & " puntos de vida a " & UserList(tempChr).name, FontTypeNames.FONTTYPE_FIGHT)

y abajo ponen ,, :

Código:: Call WriteChatOverHead(tempChr, " - " & daño, str(UserList(tempChr).Char.CharIndex), RGB(165, 10, 10))

Buscan :

Código:: '[HaSeO]
Call WriteUserHitNPC(UserIndex, daño)

Y abajo ponen :

Código:: Call WriteChatOverHead(UserIndex, " - " & daño, str(Npclist(NpcIndex).Char.CharIndex), RGB(165, 10, 10)

Busquen :

Código:: Call WriteUserHittedUser(AtacanteIndex, Lugar, UserList(VictimaIndex).Char.CharIndex, daño)
Call WriteUserHittedByUser(VictimaIndex, Lugar, UserList(AtacanteIndex).Char.CharIndex, daño)

Y lo Reemplazan por :

Código:: Call WriteUserHittedUser(AtacanteIndex, Lugar, UserList(VictimaIndex).Char.CharIndex, daño)
Call WriteChatOverHead(VictimaIndex, " - " & daño, str(UserList(VictimaIndex).Char.CharIndex), RGB(165, 10, 10))
Call WriteUserHittedByUser(VictimaIndex, Lugar, UserList(AtacanteIndex).Char.CharIndex, daño)
Call WriteChatOverHead(AtacanteIndex, " - " & daño, str(UserList(AtacanteIndex).Char.CharIndex), RGB(165, 10, 10))

Aviso es una adaptacion de 11.5

Fecha de inscripción : 09/05/2011

Buen Aporte

PD: El TH te lo edite para que se vea bien

PD D PD: Tiene fuente aclara .

Invitado

Buen codigo...
Lo implementare seguro
Como dijo Elendil, falta la fuente...
Srte!

Fecha de inscripción : 09/05/2011

Lo hize yo el post...Y ademas no sabía poner el Code por que puse Previsualización y me marco mal el code...Perdón si lo hize mal...