[Aportes indexados] Vara Matadragones

Estado
Cerrado para nuevas respuestas.

Mikinel

Licenciado en Cinismo
[SERVIDOR]Vara Matadragones

Esta vara serviría para darle al mago una ventaja frente a los dragones como la tienen las clases que usan espadas matadragones. Al estar equipada proporciona un bonus de daño si el enemigo es un dragón, la vara no se quema.
En el sub HechizoPropNpc buscamos:
Código:
If Hechizos(hIndex).StaffAffected Then
        If UCase$(UserList(UserIndex).Clase) = "MAGO" Then
            If UserList(UserIndex).Invent.WeaponEqpObjIndex > 0 Then
                daño = (daño * (ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).StaffDamageBonus + 70)) / 100
                'Aumenta daño segun el staff-
                'Daño = (Daño* (80 + BonifBáculo)) / 100
            Else
                daño = daño * 0.7 'Baja daño a 80% del original
            End If
        End If
    End If
Y abajo ponemos:
Código:
If UCase$(UserList(UserIndex).Clase) = "MAGO" And ObjData(UserListUserIndex).Invent.WeaponEqpObjIndex).VaraDraco = 1 And Npclist(NpcIndex).NPCtype = DRAGON Then
daño = daño + RandomNumber(3000, 6000)
End If
Después vamos a las declaraciones, arriba de:
Código:
StaffPower As Integer
Ponemos:
Código:
VaraDraco As Byte
Y en el sub LoadOBJData, abajo de esto:
Código:
ObjData(Object).StaffDamageBonus = val(Leer.DarValor("OBJ" & Object, "StaffDamageBonus"))
Agregamos:
Código:
ObjData(Object).VaraDraco = val(Leer.DarValor("OBJ" & Object, "VaraDraco"))
Después vamos al Obj.dat y a la vara que queremos que sea matadragones le ponemos VaraDraco=1

Si no les funciona avisenme, lo habré copiado mal, porque yo ya lo probé y funciona bien.
 

Shura

Dragón Ancestral Lvl 2
me hace reir la sensura al dar una mirada =P si se fijan el foro sensura la palabra baculo xD
 
A

Anonymous

Invitado
pero la re baculo de baculo

(baculo para todos ustedes hijos de baculo)
 
A

Anonymous

Invitado
cuando te desequipas la vara deja de tirar hechizos..

Rodra.-
 
Estado
Cerrado para nuevas respuestas.
Arriba