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

Ir abajo

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

Mensaje por Zenitram el Sáb Sep 07, 2013 12:06 pm

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 Very Happy
Zenitram
Zenitram



Aportes : 10
Mensajes : 65
Puntos : 130
Edad : 18

Ver perfil de usuario

Volver arriba Ir abajo

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

Mensaje por Sderty el Sáb Sep 07, 2013 2:09 pm

No hace falta reemplazar tantas cosas .-
Sderty
Sderty



Aportes : 13

Mensajes : 44
Puntos : 75
Edad : 21
Localización : Caba Flores.-

Ver perfil de usuario

Volver arriba Ir abajo

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

Mensaje por Acquiles el Dom Sep 08, 2013 12:22 am

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
Acquiles
Acquiles



Mensajes : 7
Puntos : 9

Ver perfil de usuario

Volver arriba Ir abajo

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

Mensaje por Shermie80 el Dom Sep 08, 2013 8:52 pm

Fuente Gs-Zone creo?
Shermie80
Shermie80



CoverAOStaff
Aportes : 55
Mensajes : 139
Puntos : 822
Edad : 22

Ver perfil de usuario http://todo-argentum.foroargentina.net

Volver arriba Ir abajo

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

Mensaje por Sderty el Dom Sep 08, 2013 11:50 pm

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



Aportes : 13

Mensajes : 44
Puntos : 75
Edad : 21
Localización : Caba Flores.-

Ver perfil de usuario

Volver arriba Ir abajo

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

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.