GS-Zone
Facebook Twitter

AYUDA VER VIDA NPCS Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

4

Nota » 14 May 2009 14:01

Hola qisiera saber si alguien me podria dejar el codigo de ver vida npcs con 0 en supervivencia.
Busqe en todo el foro pero nada :L
Bueno gracias = :)
FRANKITO
Usuario Registrado
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 8
Arriba

Nota » 14 May 2009 15:00

Busca esto en el modulo Extra(GameLogic.bas):

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If FoundChar = 2 Then '¿Encontro un NPC?
  2.             Dim estatus As String
  3.            
  4.             If UserList(UserIndex).flags.Privilegios And (PlayerType.SemiDios Or PlayerType.Dios Or PlayerType.Admin) Then
  5.                 estatus = "(" & Npclist(TempCharIndex).Stats.MinHP & "/" & Npclist(TempCharIndex).Stats.MaxHP & ") "
  6.             Else
  7.                 If UserList(UserIndex).flags.Muerto = 0 Then
  8.                     If UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) >= 0 And UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) <= 10 Then
  9.                         estatus = "(Dudoso) "
  10.                     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) > 10 And UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) <= 20 Then
  11.                         If Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP / 2) Then
  12.                             estatus = "(Herido) "
  13.                         Else
  14.                             estatus = "(Sano) "
  15.                         End If
  16.                     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) > 20 And UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) <= 30 Then
  17.                         If Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.5) Then
  18.                             estatus = "(Malherido) "
  19.                         ElseIf Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.75) Then
  20.                             estatus = "(Herido) "
  21.                         Else
  22.                             estatus = "(Sano) "
  23.                         End If
  24.                     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) > 30 And UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) <= 40 Then
  25.                         If Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.25) Then
  26.                             estatus = "(Muy malherido) "
  27.                         ElseIf Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.5) Then
  28.                             estatus = "(Herido) "
  29.                         ElseIf Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.75) Then
  30.                             estatus = "(Levemente herido) "
  31.                         Else
  32.                             estatus = "(Sano) "
  33.                         End If
  34.                     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) > 40 And UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) < 60 Then
  35.                         If Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.05) Then
  36.                             estatus = "(Agonizando) "
  37.                         ElseIf Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.1) Then
  38.                             estatus = "(Casi muerto) "
  39.                         ElseIf Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.25) Then
  40.                             estatus = "(Muy Malherido) "
  41.                         ElseIf Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.5) Then
  42.                             estatus = "(Herido) "
  43.                         ElseIf Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP * 0.75) Then
  44.                             estatus = "(Levemente herido) "
  45.                         ElseIf Npclist(TempCharIndex).Stats.MinHP < (Npclist(TempCharIndex).Stats.MaxHP) Then
  46.                             estatus = "(Sano) "
  47.                         Else
  48.                             estatus = "(Intacto) "
  49.                         End If
  50.                     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Supervivencia) >= 60 Then
  51.                         estatus = "(" & Npclist(TempCharIndex).Stats.MinHP & "/" & Npclist(TempCharIndex).Stats.MaxHP & ") "
  52.                     Else
  53.                         estatus = "!error!"
  54.                     End If
  55.                 End If
  56.             End If


Y reemplazalo por esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If FoundChar = 2 Then '¿Encontro un NPC?
  2.         estatus = "(" & Npclist(TempCharIndex).Stats.MinHP & "/" & Npclist(TempCharIndex).Stats.MaxHP & ") "


Silver

P.D: Cualquier cosa avisame! :D

Imagen
Director y Programador
<Destruction-Ao>
Silver
Director y Programador Destruction-Ao
19
Destructor de Mentes [4]
Registrado: 5 Años de membresía!
Mensajes: 659
Aportes: 6
Arriba

Nota » 14 May 2009 23:28

Hola todo bien?
Mira me tiro un error nuse que onda :l ..
Es para la 0.12.1
Nuse si esta es para eso.
me podes ayudar porfa ? :)
Adios..


If FoundChar = 2 Then '¿Encontro un NPC?
estatus = "(" & Npclist(TempCharIndex).Stats.MinHP & "/" & Npclist(TempCharIndex).Stats.MaxHP & ") "

me tira error en estatus te podrias, fijar? gracias = :)
FRANKITO
Usuario Registrado
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 8
Arriba

Nota » 15 May 2009 10:42


Imagen
Director y Programador
<Destruction-Ao>
Silver
Director y Programador Destruction-Ao
19
Destructor de Mentes [4]
Registrado: 5 Años de membresía!
Mensajes: 659
Aportes: 6
Arriba

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados