Error en CODE

Hola! yo implemente este code en aoready porq los npc no pueden tirar mas de X cantidad de oro...

Para el Servidor

Para hacer que los NPCs puedan tirar mas que una pila de 10K.

En el modulo NPCs

Buscar

Código de Visual Basic: Sub NPCTirarOro(MiNPC As npc)


'SI EL NPC TIENE ORO LO TIRAMOS
If MiNPC.GiveGLD > 0 Then
' [GS] Multplicador de ORO
If Multiplicador(1) 0 Then MiNPC.GiveGLD = MiNPC.GiveGLD * Multiplicador(0)
' [GS] Oro autoequipable
If AutoOroEquip = True And UserIndex 0 Then
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiNPC.GiveGLD
Else
Dim Oro As Long
Dim MiObj As Obj
Oro = MiNPC.GiveGLD
Do While (Oro 0)
If Oro > 10000 Then
Oro = Oro - 10000
MiObj.Amount = 10000
Else
MiObj.Amount = Oro
Oro = 0
End If
MiObj.ObjIndex = iORO
Call TirarItemAlPiso(MiNPC.Pos, MiObj)
Loop
End If
End If

Y me tira un error :S

If MiNPC.MaestroUser = 0 Then
'Tiramos el oro
Call NPCTirarOro(MiNPC, UserIndex)
'Tiramos el inventario
' GS
If MiNPC.DropItem = 1 Then 'Verfica si tiene sistema de DropItem
Call NpcTiraDropItem(MiNPC, UserIndex)
Else ' /GS
Call NPC_TIRAR_ITEMS(MiNPC)
End If
End If

"numero de argumentos erroneo, o propiedad de asignacion no valida"

Gracias

Call NPCTirarOro(MiNPC, UserIndex)

USERINDEX?

Eso sería para que se lo tire al user directo al bolsillo, pero talvez no esta implementado en AOReady