A
Anonymous
Invitado
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
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