Hello
Oráculo Lvl 6
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
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