Este codigo estaba para la version 0.11.5 y lo adapte a 0.12.1:
Buscan:
Y reemplazan todo el Foundchar hasta antes que empieze el foundchar2, por este:
Buscan:
- Código:
If FoundChar = 1 Then
Y reemplazan todo el Foundchar hasta antes que empieze el foundchar2, por este:
- Código:
If FoundChar = 1 Then
If UserList(TempCharIndex).flags.AdminInvisible = 0 Or UserList(UserIndex).flags.Privilegios = PlayerType.Dios Then
If UserList(TempCharIndex).DescRM = "" Then
If EsNewbie(TempCharIndex) Then
Stat = " <NEWBIE>"
End If
If UserList(TempCharIndex).Faccion.ArmadaReal = 1 Then
Stat = Stat & " <Ejercito real> " & "<" & TituloReal(TempCharIndex) & ">"
ElseIf UserList(TempCharIndex).Faccion.FuerzasCaos = 1 Then
Stat = Stat & " <Legión oscura> " & "<" & TituloCaos(TempCharIndex) & ">"
End If
If UserList(TempCharIndex).guildIndex > 0 Then
Stat = Stat & " <" & modGuilds.GuildName(UserList(TempCharIndex).guildIndex) & ">"
End If
If Len(UserList(TempCharIndex).desc) > 1 Then
Stat = "Ves a " & UserList(TempCharIndex).name & Stat & " - " & UserList(TempCharIndex).desc
Else
Stat = "Ves a " & UserList(TempCharIndex).name & Stat
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 & " [Su vida corre riesgo]"
ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.5) Then
Stat = Stat & " [En grave estado]"
ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.75) Then
Stat = Stat & " [Levemente herido]"
ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP) Then
Stat = Stat & " [Sano]"
Else
Stat = Stat & " [Vida completa]"
End If
If UserList(TempCharIndex).flags.Privilegios And PlayerType.RoyalCouncil Then
Stat = Stat & " [CONSEJO DE BANDERBILL]"
ft = FontTypeNames.FONTTYPE_CONSEJOVesA
ElseIf UserList(TempCharIndex).flags.Privilegios And PlayerType.ChaosCouncil Then
Stat = Stat & " [CONSEJO DE LAS SOMBRAS]"
ft = FontTypeNames.FONTTYPE_CONSEJOCAOSVesA
Else
If Not UserList(TempCharIndex).flags.Privilegios And PlayerType.User Then
Stat = Stat & " <GAME MASTER>"
ft = FontTypeNames.FONTTYPE_GM
ElseIf criminal(TempCharIndex) Then
Stat = Stat & " <CRIMINAL>"
ft = FontTypeNames.FONTTYPE_FIGHT
Else
Stat = Stat & " <CIUDADANO>"
ft = FontTypeNames.FONTTYPE_CITIZEN
End If
End If
Else 'Si tiene descRM la muestro siempre.
Stat = UserList(TempCharIndex).DescRM
ft = FontTypeNames.FONTTYPE_INFOBOLD
End If
If LenB(Stat) > 0 Then
Call WriteConsoleMsg(UserIndex, Stat, ft)
End If
FoundSomething = 1
UserList(UserIndex).flags.TargetUser = TempCharIndex
UserList(UserIndex).flags.TargetNPC = 0
UserList(UserIndex).flags.TargetNpcTipo = eNPCType.Comun
End If
End If
