Estado del usuario estilo IAO

Todo en servidor:

Buscamos:


Stat = "Ves a " & UserList(TempCharIndex).name & Stat & " - " & UserList(TempCharIndex).Desc
Else
Stat = "Ves a " & UserList(TempCharIndex).name & Stat
End If



Y lo reemplazamos por:


Stat = "Ves a " & UserList(TempCharIndex).name & Stat & " - " & UserList(TempCharIndex).Desc & " (" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & " " & " Nivel " & UserList(TempCharIndex).Stats.ELV & " | "
Else
Stat = "Ves a " & UserList(TempCharIndex).name & Stat & " (" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & " " & " Nivel " & UserList(TempCharIndex).Stats.ELV & " | "
End If

If UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.05) 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 Malherido)"
ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.5) Then
Stat = Stat & " Malherido)"
ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.75) Then
Stat = Stat & " Herido9"
ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP) Then
Stat = Stat & " Levemente Herido)"
Else
Stat = Stat & " Intacto)"
End If

Muuy bueno !