Empezemos:
Buscamos
- If Len(.desc) > 0 Then
- Stat = "Ves a " & .name & Stat & " - " & .desc
- Else
- Stat = "Ves a " & .name & Stat
- End If
Y lo reemplazamos por:
- If Len(UserList(TempCharIndex).desc) > 0 Then
- Stat = "Ves a " & UserList(TempCharIndex).name & Stat & " - " & "<" & "Nivel: " & UserList(TempCharIndex).Stats.ELV & "> " & "<Frags: " & (UserList(TempCharIndex).Stats.UsuariosMatados) & "> " & "<Oro: " & (UserList(TempCharIndex).Stats.GLD) & "> " & UserList(TempCharIndex).desc
- Else
- Stat = "Ves a " & UserList(TempCharIndex).name & Stat & " - " & "<" & "Nivel: " & UserList(TempCharIndex).Stats.ELV & "> " & "<Frags: " & (UserList(TempCharIndex).Stats.UsuariosMatados) & "> " & "<Oro: " & (UserList(TempCharIndex).Stats.GLD) & "> "
- End If
- If UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp * 0.05) Then
- Stat = Stat & " <Vida 0%>"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp * 0.1) Then
- Stat = Stat & " <Vida 15%>"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp * 0.25) Then
- Stat = Stat & " <Vida 35%>"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp * 0.5) Then
- Stat = Stat & " <Vida 55%>"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp * 0.75) Then
- Stat = Stat & " <Vida 75%>"
- ElseIf UserList(TempCharIndex).Stats.MinHp < (UserList(TempCharIndex).Stats.MaxHp) Then
- Stat = Stat & " <Vida 95%>"
- Else
- Stat = Stat & " <Vida 100%>"
- End If
Nos vemos, espero que les sirva.





45![Newbie [3] Newbie [3]](./images/ranks/Rango2.gif)



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