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:
Y abajo ponemos:
Después vamos a las declaraciones, arriba de:
Ponemos:
Y en el sub LoadOBJData, abajo de esto:
Agregamos:
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.
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
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
Código:
StaffPower As Integer
Código:
VaraDraco As Byte
Código:
ObjData(Object).StaffDamageBonus = val(Leer.DarValor("OBJ" & Object, "StaffDamageBonus"))
Código:
ObjData(Object).VaraDraco = val(Leer.DarValor("OBJ" & Object, "VaraDraco"))
Si no les funciona avisenme, lo habré copiado mal, porque yo ya lo probé y funciona bien.