(Intacto, Herido, Mal Herido, Casi Muerto) NPCs IAO CLON

Bueno me base en los rangos de vida de Npc de IAO, espero que les sirva...

En el Servidor Buscamos:

Código:

If FoundChar = 1 Then

Y simplemente lo reemplazamos por:

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 & " [Agonizando]"
                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 & " [Herido]"
                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 & " [Intacto]"
                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(1, 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

y listo ya esta

No hace falta reemplazar tantas cosas .-

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 & " [Herido]"
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 & " [Intacto]"
End If

Fuente Gs-Zone creo?

Es muy simple el código :_ espero que no sea fuente Gs.-