[Aportes indexados] Ver vida de los usuarios al clickearlos

Amraphen · Feb 14, 2007

CÓDIGO PARA EL SERVIDOR 0.11.5

Bien, como lo estan pidiendo por el foro, acá lo dejo, con dos formas, como el de los NPCs:

Se ve la VidaActual/VidaTotal.
Se ve el estado del usuario (herido, malherido, etc...)

Buscamos en el modulo Extra (GameLogic.bas), dentro del Sub LookAtTile, lo siguiente:

Código:

If FoundChar = 1 Then '  ¿Encontro un Usuario?
           
       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 & " <" & Guilds(UserList(TempCharIndex).GuildIndex).GuildName & ">"
                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).flags.PertAlCons > 0 Then
                    Stat = Stat & " [CONSEJO DE BANDERBILL]" & FONTTYPE_CONSEJOVesA
                ElseIf UserList(TempCharIndex).flags.PertAlConsCaos > 0 Then
                    Stat = Stat & " [CONSEJO DE LAS SOMBRAS]" & FONTTYPE_CONSEJOCAOSVesA
                Else
                    If UserList(TempCharIndex).flags.Privilegios > 0 Then
                        Stat = Stat & " <GAME MASTER> ~0~185~0~1~0"
                    ElseIf Criminal(TempCharIndex) Then
                        Stat = Stat & " <CRIMINAL> ~255~0~0~1~0"
                    Else
                        Stat = Stat & " <CIUDADANO> ~0~0~200~1~0"
                    End If
                End If
            Else
                Stat = UserList(TempCharIndex).DescRM & " " & FONTTYPE_INFOBOLD
            End If
           
            If Len(Stat) > 0 Then _
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & Stat)

            FoundSomething = 1
            UserList(UserIndex).flags.TargetUser = TempCharIndex
            UserList(UserIndex).flags.TargetNPC = 0
            UserList(UserIndex).flags.TargetNpcTipo = eNPCType.Comun
       End If

    End If

Ahora debemos elegir de que forma deseamos visualisar. Para la primer forma, reemplazamos todo eso por lo siguiente:

Código:

If FoundChar = 1 Then '  ¿Encontro un Usuario?
           
       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 & " <" & Guilds(UserList(TempCharIndex).GuildIndex).GuildName & ">"
                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
               
                Stat = Stat & " [" & UserList(TempCharIndex).Stats.MinHP & "/" & UserList(TempCharIndex).Stats.MaxHP & "]"
               
                If UserList(TempCharIndex).flags.PertAlCons > 0 Then
                    Stat = Stat & " [CONSEJO DE BANDERBILL]" & FONTTYPE_CONSEJOVesA
                ElseIf UserList(TempCharIndex).flags.PertAlConsCaos > 0 Then
                    Stat = Stat & " [CONSEJO DE LAS SOMBRAS]" & FONTTYPE_CONSEJOCAOSVesA
                Else
                    If UserList(TempCharIndex).flags.Privilegios > 0 Then
                        Stat = Stat & " <GAME MASTER> ~0~185~0~1~0"
                    ElseIf Criminal(TempCharIndex) Then
                        Stat = Stat & " <CRIMINAL> ~255~0~0~1~0"
                    Else
                        Stat = Stat & " <CIUDADANO> ~0~0~200~1~0"
                    End If
                End If
            Else
                Stat = UserList(TempCharIndex).DescRM & " " & FONTTYPE_INFOBOLD
            End If
           
            If Len(Stat) > 0 Then _
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & Stat)

            FoundSomething = 1
            UserList(UserIndex).flags.TargetUser = TempCharIndex
            UserList(UserIndex).flags.TargetNPC = 0
            UserList(UserIndex).flags.TargetNpcTipo = eNPCType.Comun
       End If

    End If

Para la segunda forma, reemplazamos todo eso por lo siguiente:

Código:

If FoundChar = 1 Then '  ¿Encontro un Usuario?
           
       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 & " <" & Guilds(UserList(TempCharIndex).GuildIndex).GuildName & ">"
                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.PertAlCons > 0 Then
                    Stat = Stat & " [CONSEJO DE BANDERBILL]" & FONTTYPE_CONSEJOVesA
                ElseIf UserList(TempCharIndex).flags.PertAlConsCaos > 0 Then
                    Stat = Stat & " [CONSEJO DE LAS SOMBRAS]" & FONTTYPE_CONSEJOCAOSVesA
                Else
                    If UserList(TempCharIndex).flags.Privilegios > 0 Then
                        Stat = Stat & " <GAME MASTER> ~0~185~0~1~0"
                    ElseIf Criminal(TempCharIndex) Then
                        Stat = Stat & " <CRIMINAL> ~255~0~0~1~0"
                    Else
                        Stat = Stat & " <CIUDADANO> ~0~0~200~1~0"
                    End If
                End If
            Else
                Stat = UserList(TempCharIndex).DescRM & " " & FONTTYPE_INFOBOLD
            End If
           
            If Len(Stat) > 0 Then _
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & Stat)

            FoundSomething = 1
            UserList(UserIndex).flags.TargetUser = TempCharIndex
            UserList(UserIndex).flags.TargetNPC = 0
            UserList(UserIndex).flags.TargetNpcTipo = eNPCType.Comun
       End If

    End If

Y así debería funcionar. Espero que les sirva!

DiCHANHO · Feb 14, 2007

lo pruebo y te cuento (?)

DarkThom · Feb 15, 2007

anda Perfecto ( testeado en 0.11.2 )

Amraphen · Feb 15, 2007

DarkThom dijo:
anda Perfecto ( testeado en 0.11.2 )

Probaste ambas formas?

Si funciona entonces muevanlo a desarrollos completos.

Ladder · Feb 15, 2007

todaaaa

no anda!

Amraphen · Feb 15, 2007

Qué error te tira? Posteá aca todo el sub LookAtTile a ver que onda.

elukhan · Feb 15, 2007

Esto no funciona en la 0.11.2. Tiene cosas que no corresponden, ej: SendTarget o eNPCType.Comun.

Amraphen · Feb 15, 2007

elukhan dijo:
Esto no funciona en la 0.11.2. Tiene cosas que no corresponden, ej: SendTarget o eNPCType.Comun.

Buen punto elukhan, me olvidé de indicar que solo funciona para la v0.11.5. Para la 0.11.2 tendran que eliminar algunas palabras como las que dijo elukhan.

Ladder · Feb 15, 2007

claro..ahi ta
solo funciona para la 0.11.5

si alguien lo pasa. taria bueno

DarkThom · Feb 15, 2007

cheeeee yo l oprobe en la 0.11.2 el de Sano herido , etc y me andubo :S

aoReady 0.5

Amraphen · Feb 15, 2007

Sisisi, ya entendí

. DarkThom usa la 0.11.2 pero solamente copypasteo la parte que está modificada, cosa que tendría que haber hecho para la "portación" de versiónes. Pero igual yo soy fiel a la 0.11.5 ^^ =P

Muchas gracias gente!

Amraphen · Feb 21, 2007

Pasenlo a desarrollos completos cuando puedan plz ^^.

[Aportes indexados] Ver vida de los usuarios al clickearlos

Amraphen

Aprendiz Lvl 6

DiCHANHO

by cimsp.net

DarkThom

Oráculo Lvl 3

Amraphen

Aprendiz Lvl 6

Ladder

Noicoder FANS!

Amraphen

Aprendiz Lvl 6

elukhan

Oráculo Lvl 2

Amraphen

Aprendiz Lvl 6

Ladder

Noicoder FANS!

DarkThom

Oráculo Lvl 3

Amraphen

Aprendiz Lvl 6

Amraphen

Aprendiz Lvl 6