Buscamos:
- If EsNewbie(TempCharIndex) Then
- Stat = " <NEWBIE>"
- End If
y abajo ponemos
- If UserList(TempCharIndex).Stats.MinHp = (UserList(TempCharIndex).Stats.MaxHp Then
- Stat = Stat & " [MUERTO]"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp * 0.1) Then
- Stat = Stat & " [CASI MUERTO]"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp * 0.25) Then
- Stat = Stat & " [MUY HERIDO]"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp * 0.5) Then
- Stat = Stat & " [HERIDO]"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp * 0.75) Then
- Stat = Stat & " [HERIDO MEDIANAMENTE]"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp) Then
- Stat = Stat & " [HERIDO LEVEMENTE]"
- Else
- Stat = Stat & " [SANO]"
- End If
Listorti, sencillito y funcional.
EDIT: Agregué el Muerto porque sino cuando no estabas vivo te iba a decir CASI MUERTO.
LuuuQ.-





821![Dragon Ancestral [2] Dragon Ancestral [2]](./images/ranks/Rango31.gif)

![Destructor de Mentes [3] Destructor de Mentes [3]](./images/ranks/Rango15.gif)

![Dragon Ancestral [3] Dragon Ancestral [3]](./images/ranks/Rango32.gif)

![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)


![Newbie [3] Newbie [3]](./images/ranks/Rango2.gif)
![Aprendiz [1] Aprendiz [1]](./images/ranks/Rango6.gif)


![Aprendiz [3] Aprendiz [3]](./images/ranks/Rango8.gif)
