Rangos de vida al clickear usuario 0.12.1

    Comparte
    avatar
    Elaine

    TEMPLARIO


    TEMPLARIO

    PJ :
    Nombre : Elaine
    Monedas de Oro172
    Mana :
    0 / 9000 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 38
    Edad : 27
    Llegada : 23/08/2010
    Femenino

    Rangos de vida al clickear usuario 0.12.1

    Mensaje por Elaine el Lun Ago 23, 2010 5:50 pm

    Este codigo estaba para la version 0.11.5 y lo adapte a 0.12.1:

    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
    avatar
    SuaveChiTow.-

    TEMPLARIO ESTRELLA


    TEMPLARIO ESTRELLA

    PJ :
    Nombre : SuaveChitOw.-
    Monedas de Oro-2261
    Mana :
    900 / 900900 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 132
    Edad : 27
    Llegada : 25/11/2008
    Masculino

    Re: Rangos de vida al clickear usuario 0.12.1

    Mensaje por SuaveChiTow.- el Lun Ago 23, 2010 5:53 pm

    Buen aporte, felicitaciones! Trata de poner la fuente si es que la tiene!
    +

    Gracias

      Fecha y hora actual: Miér Mayo 23, 2018 3:52 pm