[APORTE] Frags Cuando Te Clickean. (FENIX)

Petin · 15-nov-2008, 23:22

TODO EL SERVER:

Buscan:

Código:

Sub ContarMuerte(Muerto As Integer, Atacante As Integer)

Abajo ponen:

Código:

Dim o As Byte
UserList(Atacante).flags.TDead = UserList(Atacante).Faccion.Matados(o) + UserList(Atacante).Faccion.Matados(1) + UserList(Atacante).Faccion.Matados(2)

Despues buscan:

Código:

         If UserList(TempCharIndex).flags.Privilegios = 0 Then
            If UserList(TempCharIndex).flags.Muerto Then
                Stat = "2K" & UserList(TempCharIndex).Name
            ElseIf UserList(TempCharIndex).Faccion.Bando = Real Then
                Stat = "3K" & Stat
            ElseIf UserList(TempCharIndex).Faccion.Bando = Caos Then
                Stat = "4K" & Stat
            ElseIf EsNewbie(TempCharIndex) Then
                Stat = "H0" & Stat
            Else
                Stat = "1&" & Stat
            End If

Abajo ponen:

Código:

       If UserList(TempCharIndex).flags.TDead >= 0 Then
            Stat = Stat & " <Matados: " & UserList(TempCharIndex).flags.TDead & ">"
            End If

EDIT: BUSCAN:

Código:

BonusFlecha As Boolean

Abajo Ponen:

Código:

TDead As Integer

Liisto, es mio el code.

TESTADO FUNCIONAL

**Lobby** · 16-nov-2008, 03:09

Buen aporte Peto=). Está testeado?

iL Nolox · 16-nov-2008, 12:13

Cita:

If UserList(TempCharIndex).flags.TDead >= 0 Then

me tira "No se encontro el metodo o el miembro de datos"

Petin · 16-nov-2008, 16:01

Hay meo lvidfe, ahi edito...

Buscas:

Código:

BonusFlecha As Boolean

Abajo pones:

Código:

TDead As Integer

**Lobby** · 16-nov-2008, 16:03

asdasd editado ¬¬

Muy bueno Peto, gracias=)

(G)onza(h) · 16-nov-2008, 19:28

Una pregunta, ¿sirve para Twist?

Petin · 16-nov-2008, 20:32

ADAPTACION TWIST POR MI, NOSE SI TA BN:

SERVER:

BUSCAS:

Código:

Sub ContarMuerte(ByVal Muerto As Integer, ByVal Atacante As Integer)

Abajo pones:

Código:

Dim o As Byte
UserList(Atacante).flags.TDead = UserList(Atacante).Faccion.Matados(o) + UserList(Atacante).Faccion.Matados(1) + UserList(Atacante).Faccion.Matados(2)

Despues, buscamos:

Código:

            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

Abajo Pones:

Código:

       If UserList(TempCharIndex).flags.TDead >= 0 Then
            Stat = Stat & " <Matados: " & UserList(TempCharIndex).flags.TDead & ">"
            End If

Buscas:

Código:

Meditando As Boolean

Abajo:

Código:

TDead As Integer

Fijate, probalo

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

Remove advertisements Sponsored links

Secciones de Interés