Drop aelatorio

Buscar

Citación :

Equipped As Byte

Y abajo poner

Citación :

ProbTirar As Byte

Reemplazar:

Citación :

Public Sub NPC_TIRAR_ITEMS(ByRef npc As npc)
'TIRA TODOS LOS ITEMS DEL NPC
On Error Resume Next

If npc.Invent.NroItems > 0 Then

Dim i As Byte
Dim MiObj As Obj

For i = 1 To MAX_INVENTORY_SLOTS

If npc.Invent.Object(i).ObjIndex > 0 Then
MiObj.Amount = npc.Invent.Object(i).Amount
MiObj.ObjIndex = npc.Invent.Object(i).ObjIndex
Call TirarItemAlPiso(npc.Pos, MiObj)
End If

Next i

End If

End Sub

Por:

Citación :

Public Sub NPC_TIRAR_ITEMS(ByRef npc As npc)
On Error Resume Next

If npc.Invent.NroItems > 0 Then
Dim i As Byte
Dim MiObj As Obj

For i = 1 To MAX_INVENTORY_SLOTS
If npc.Invent.Object(i).ObjIndex > 0 Then
If RandomNumber(1, 100) <= npc.Invent.Object(i).ProbTirar Then
MiObj.Amount = npc.Invent.Object(i).Amount
MiObj.ObjIndex = npc.Invent.Object(i).ObjIndex
Call TirarItemAlPiso(npc.Pos, MiObj)
End If
End If
Next i
End If
End Sub

MODULO_NPCs.bas
Buscar:

Citación :

ln = Leer.GetValue("NPC" & NpcNumber, "Obj" & LoopC)

Y abajo poner:

Citación :

Npclist(NpcIndex).Invent.Object(LoopC).ProbTirar = val(ReadField(3, ln, 45))