Error BD(parte 2 )

Error BD

ya esta solucionado en la parte de dateo pero en alguna parte del código del BD hay un problema ya que ahora lo puedo usar y ekipar pero le pega al dragón como pegaría sin tener Bacu equipado. :S edito y pongo el code que use


EDIT:
CODE BD:


Busca en el modulo modHechizos, Sub HechizoPropNPC, debajo del segundo de estos q aparece:

Código:
daño = RandomNumber(Hechizos(hIndex).MinHP, Hechizos(hIndex).MaxHP)
daño = daño + Porcentaje(daño, 3 * UserList(UserIndex).Stats.ELV)


agrega

Código:
If If UserList(UserIndex).Invent.WeaponEqpObjIndex > 0 Then
If ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).VaraDragon = 1 And Npclist(NpcIndex).NPCtype = DRAGON Then
daño = daño * 50
End If
End If


En el modulo Declaraciones busca:

Código:
StaffPower As Integer


Arriba agrega

Código:
VaraDragon As Byte


En el Modulo ES (FileIO.bas), el Sub LoadOBJData agrega debajo de:

Código:
ObjData(Object).StaffDamageBonus = val(Leer.DarValor("OBJ" & Object, "StaffDamageBonus"))


esto

Código:
ObjData(Object).VaraDragon = val(Leer.DarValor("OBJ" & Object, "VaraDragon"))


Por ultimo, vamos al Obj.dat y a la vara que queremos que sea la varadragon le ponemos VaraDragon=1

Me fije en el modulo modHechizos, el Sub HechizoPropNPC, vas a encontrar dos veces esto:

Código:
daño = RandomNumber(Hechizos(hIndex).MinHP, Hechizos(hIndex).MaxHP)
daño = daño + Porcentaje(daño, 3 * UserList(UserIndex).Stats.ELV)


Vos tenes q agregar esto:

Código:
If UserList(UserIndex).Invent.WeaponEqpObjIndex > 0 Then
If ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).VaraDragon = 1 And Npclist(NpcIndex).NPCtype = DRAGON Then
daño = daño * 50
End If


En los 2