[Pedido] Espada mata NPCS v0.11.5

fechh · 18-nov-2008, 11:17

Nombre o descripción del código: Espada Mata NPCS
Versión sobre la que se trabaja: 0.11.5
Función del código: Una espada tipo la matadrakos pero que se aplique a cualquier npc.
Aclaraciones: Intenté hacerlo copiando el formato de la matadragones pero no pude . me saltaban mil errores

Espero me puedan ayudar (:
Gracias

Bazzana · 18-nov-2008, 11:47

aver, pasame el codigo de la mata drakos-..

fechh · 18-nov-2008, 13:17

En modulo DECLARACIONES :

Código:

Public Const EspadaMataDragonesIndex As Integer = 402

En modulo SISTEMA COMBATE :

Código:

 'Usa la mata dragones?
        If UserList(UserIndex).Invent.WeaponEqpObjIndex = EspadaMataDragonesIndex Then ' Usa la matadragones?
            ModifClase = ModicadorDañoClaseArmas(UserList(UserIndex).Clase)
                If Npclist(NpcIndex).NPCtype = DRAGON Then 'Ataca dragon?
                DañoArma = RandomNumber(Arma.MinHIT, Arma.MaxHIT)
                DañoMaxArma = Arma.MaxHIT
                matodragon = True ''sacar esto si no queremos q la matadracos mate el dragon si o si
           
            Else ' Sino es dragon daño es 1
                DañoArma = 1
                DañoMaxArma = 1
            End If
            
            
        Else ' daño comun
           If Arma.proyectil = 1 Then
                ModifClase = ModicadorDañoClaseProyectiles(UserList(UserIndex).Clase)
                    DañoArma = RandomNumber(Arma.MinHIT, Arma.MaxHIT)
                DañoMaxArma = Arma.MaxHIT
                If Arma.Municion = 1 Then
                    proyectil = ObjData(UserList(UserIndex).Invent.MunicionEqpObjIndex)
                    DañoArma = DañoArma + RandomNumber(proyectil.MinHIT, proyectil.MaxHIT)
                    DañoMaxArma = Arma.MaxHIT
                End If
           Else
                ModifClase = ModicadorDañoClaseArmas(UserList(UserIndex).Clase)
                    DañoArma = RandomNumber(Arma.MinHIT, Arma.MaxHIT)
                DañoMaxArma = Arma.MaxHIT
           End If
        End If
    
    Else ' Ataca usuario
        If UserList(UserIndex).Invent.WeaponEqpObjIndex = EspadaMataDragonesIndex Then
            ModifClase = ModicadorDañoClaseArmas(UserList(UserIndex).Clase)
                DañoArma = 1 ' Si usa la espada matadragones daño es 1
            DañoMaxArma = 1

        Else
           If Arma.proyectil = 1 Then
                ModifClase = ModicadorDañoClaseProyectiles(UserList(UserIndex).Clase)
                    DañoArma = RandomNumber(Arma.MinHIT, Arma.MaxHIT)
                    DañoMaxArma = Arma.MaxHIT
                If Arma.Municion = 1 Then
                    proyectil = ObjData(UserList(UserIndex).Invent.MunicionEqpObjIndex)
                    DañoArma = DañoArma + RandomNumber(proyectil.MinHIT, proyectil.MaxHIT)
                    DañoMaxArma = Arma.MaxHIT
                End If
           Else
                ModifClase = ModicadorDañoClaseArmas(UserList(UserIndex).Clase)
                    DañoArma = RandomNumber(Arma.MinHIT, Arma.MaxHIT)
                DañoMaxArma = Arma.MaxHIT
           End If
        End If
    End If
Else
    CalcularDaño = CInt(UserList(UserIndex).Stats.MaxHIT / 5)
    Exit Function
End If

DañoUsuario = RandomNumber(UserList(UserIndex).Stats.MinHIT, UserList(UserIndex).Stats.MaxHIT)

''sacar esto si no queremos q la matadracos mate el dragon si o si
If matodragon Then
    CalcularDaño = Npclist(NpcIndex).Stats.MinHP + Npclist(NpcIndex).Stats.def
Else
    CalcularDaño = (((3 * DañoArma) + ((DañoMaxArma / 5) * Maximo(0, (UserList(UserIndex).Stats.UserAtributos(eAtributos.Fuerza) - 15))) + DañoUsuario) * ModifClase)
End If

End Function

**Lobby** · 18-nov-2008, 13:53

Poné en el modulo Declaraciones, abajo de:

Código:

Public Const EspadaMataDragonesIndex As Integer = 402

Agregá

Código:

Public Const EspadaMataNPCIndex As Integer = *** 'Cambiá los asteriscos por el número de item.

Después, en Sistema Combate, abajo de:

Código:

        If UserList(UserIndex).Invent.WeaponEqpObjIndex = EspadaMataDragonesIndex Then
            ModifClase = ModicadorDañoClaseArmas(UserList(UserIndex).Clase)
                DañoArma = 1 ' Si usa la espada matadragones daño es 1
            DañoMaxArma = 1

Agregá:

Código:

        Elseif UserList(UserIndex).Invent.WeaponEqpObjIndex = EspadaMataNPCIndex Then
            ModifClase = ModicadorDañoClaseArmas(UserList(UserIndex).Clase)
                DañoArma = 1
            DañoMaxArma = 1

La idea de esto, sería que al item le pongas min y maxhit = mucho

Suerte, ojala te sirva

fechh · 19-nov-2008, 15:52

Gracias Lob.
También hay que agregar lo que pasa si le pega a un usuario.
Además poner un NPC Type, para despues agregar en los .dat
Algo asi como NPCType = 6 (DRAGON)

Eso ni idea como hacerlo , se me re complico

Se agradece cualquier aporte !

**Lobby** · 19-nov-2008, 16:07

No, fijate que ya está todo listo. Lo único que tenés que hacer es datear un arma común, con daño 1000/1000, y el número del objeto lo tenés que poner acá:

Código:

Public Const EspadaMataNPCIndex As Integer = *** 'Cambiá los asteriscos por el número de item.

Así debería funcionar perfecto

**KoTox** · 19-nov-2008, 19:07

NO se la mandaron todos.com

Es facil, si es por codigo tenes que hacer que si la espada matadragon le pega a un NPC HOSTIL lo mate de 1, eso pasa con la matadragon, xq se piensan que para datear un dragon es NPCTYPE=6 y no El comun? es por eso entonces los que hacen en el codigo cambian el npctype y listo.

Y si lo qeres datear directamente, vas al NPC-HOSTILES.DAT y en todos los npcs que dan lucha le pones NPCTYPE=6 y listo

**Lobby** · 19-nov-2008, 20:56

Cita:

Iniciado por KoTox

NO se la mandaron todos.com

Es facil, si es por codigo tenes que hacer que si la espada matadragon le pega a un NPC HOSTIL lo mate de 1, eso pasa con la matadragon, xq se piensan que para datear un dragon es NPCTYPE=6 y no El comun? es por eso entonces los que hacen en el codigo cambian el npctype y listo.

Y si lo qeres datear directamente, vas al NPC-HOSTILES.DAT y en todos los npcs que dan lucha le pones NPCTYPE=6 y listo

¬¬ El código qe yo puse tiene que andar josha, no me cagues los créditos jaja. A parte ponerle NPCTYPE a cáda NPC es mucho más bardo que lo mio :A.

**KoTox** · 20-nov-2008, 00:56

Tu codigo no va a andar, que alguien lo testee y que diga si funka ono, pero para mi que no anda.

**Lobby** · 20-nov-2008, 10:09

Mi código es demasiado simple como para que no ande; lo que hago es definir EspadaMataNPCIndex como el objeto(el arma vendría a ser), y tiene que estar dateado con mucho golpe, por ej, 1k/1k. Así mata seguro al NPC, y lo que hace también es no permitir que se la de a los user=).

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

Remove advertisements Sponsored links