[Aporte] Items DM + RM + Arreglo de bug skill RM Stilo IAO

Estado
Cerrado para nuevas respuestas.

Van Dyke

Oráculo Lvl 6
Hola no aporto nada hace mucho y queria aportar esto que hice para Clipster AO

-Armas de Daño Magico
-Escudo, Casco y Tunica de Resistencia Magica
-Arreglo de skill Resistencia Magica

Todo es estilo IAO

*Armas de Daño Magico
Buscan
Código:
DefensaMagicaMin As Integer
Y abajo ponen
C++:
DañoMagico As Integer
Buscan
Código:
ObjData(Object).SkCarpinteria = val(Leer.GetValue("OBJ" & Object, "SkCarpinteria"))
Y arriba ponen
Código:
ObjData(Object).DañoMagico = val(Leer.GetValue("OBJ" & Object, "CuantoAumenta"))
Buscan en HechizoPropUsuario
Código:
If UserList(UserIndex).Invent.HerramientaEqpObjIndex = LAUDMAGICO Then
        daño = daño * 1.04  'laud magico de los bardos
    End If
Y abajo ponen
Código:
If UserList(UserIndex).Invent.WeaponEqpObjIndex > 0 Then
            daño = (daño + ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).DañoMagico)
        End If
Buscan en HechizoPropUsuario
Código:
'anillos
    If (UserList(tempChr).Invent.HerramientaEqpObjIndex > 0) Then
        daño = daño - RandomNumber(ObjData(UserList(tempChr).Invent.HerramientaEqpObjIndex).DefensaMagicaMin, ObjData(UserList(tempChr).Invent.HerramientaEqpObjIndex).DefensaMagicaMax)
    End If
y arriba ponen
Código:
If (UserList(tempChr).Invent.WeaponEqpObjIndex > 0) Then
        daño = (daño + ObjData(UserList(tempChr).Invent.WeaponEqpObjIndex).DañoMagico)
    End If

*Escudo, Casco y Tunica de Resistencia Magica
Buscan
Código:
DefensaMagicaMin As Integer
y abajo ponen
Código:
ResistenciaMagica As Integer
Buscan
Código:
ObjData(Object).SkCarpinteria = val(Leer.GetValue("OBJ" & Object, "SkCarpinteria"))
Y arriba ponen
Código:
ObjData(Object).ResistenciaMagica = val(Leer.GetValue("OBJ" & Object, "ResistenciaMagica"))
Buscan en NpcLanzaSpellSobreUser
Código:
daño = RandomNumber(Hechizos(Spell).MinHP, Hechizos(Spell).MaxHP)
Y abajo ponen
Código:
If UserList(UserIndex).Invent.CascoEqpObjIndex > 0 Then
            daño = (daño - ObjData(UserList(UserIndex).Invent.CascoEqpObjIndex).ResistenciaMagica)
        End If
        
        If UserList(UserIndex).Invent.ArmourEqpObjIndex > 0 Then
            daño = (daño - ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).ResistenciaMagica)
        End If
        
        If UserList(UserIndex).Invent.EscudoEqpObjIndex > 0 Then
            daño = (daño - ObjData(UserList(UserIndex).Invent.EscudoEqpObjIndex).ResistenciaMagica)
        End If
Buscan en HechizoPropUsuario
Código:
If UserList(UserIndex).Invent.HerramientaEqpObjIndex = LAUDMAGICO Then
        daño = daño * 1.04  'laud magico de los bardos
    End If
Y abajo ponen
Código:
If UserList(UserIndex).Invent.CascoEqpObjIndex > 0 Then
        daño = (daño - ObjData(UserList(tempChr).Invent.WeaponEqpObjIndex).ResistenciaMagica)
    End If
        
    If UserList(UserIndex).Invent.ArmourEqpObjIndex > 0 Then
        daño = (daño - ObjData(UserList(tempChr).Invent.WeaponEqpObjIndex).ResistenciaMagica)
    End If
        
    If UserList(UserIndex).Invent.EscudoEqpObjIndex > 0 Then
        daño = (daño - ObjData(UserList(tempChr).Invent.WeaponEqpObjIndex).ResistenciaMagica)
    End If

*Arreglo de skill Resistencia Magica
Buscan en NpcLanzaSpellSobreUser
Código:
daño = daño - Porcentaje(daño, Int(((UserList(UserIndex).Stats.UserSkills(eSkill.Resistencia) + 1) / 4) + ResistenciaClase(UserList(UserIndex).Clase)))
        Call SubirSkill(UserIndex, Resistencia)
Y lo ponen abajo de
Código:
daño = RandomNumber(Hechizos(Spell).MinHP, Hechizos(Spell).MaxHP)

Para las armas de daño magico ponen en el dat
CuantoAumenta= X ' es el numero de cuanto eumenta el daño magico
Para los items de resistencia magica ponen
ResistenciaMagica= X ' es el numero de cuanto reduce el daño magico
Listo el pollo, Cualquier cosa me pegan un tubaso (Era joda)

Fuente:
YO :D
 

Dr. GoDKeR

El Rey y el As
Miembro del equipo
Administrador
Developer
Moderador de RRPP
Moderador de AO
Moderador de Tecnología
Moderador de Entretenimiento
Moderador de Diseño
Especialista de RRPP
Especialista de Entretenimiento
Especialista de Tecnología
Especialista de Argentum
Especialista de Diseño
agrrr me robaste la fuente (?) xD

buenisimo el aporte ;)

Saludos :)
 

Dylan.-

Dylan Ullúa.
uyyyyyyyyyyyy lo adapto a feniiiiiiiiiiiiiiiiiixxxxxxxxxx graciass!!!!!!! grande aporteeeeeeee
 

Van Dyke

Oráculo Lvl 6
El aporte de skills de resistencia magica lo pueden encontrar entre mis aportes o bien en el indice jaja

Saludos
 

II XTREEM II

Oráculo Lvl 3
No entiendo lo del arreglo de " Skills en resistencia mágica "... Que es, y porque arreglo ?...

Saludos
Xtreem
 
Estado
Cerrado para nuevas respuestas.
Arriba