Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Drop aelatorio

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: Drop aelatorio   Lun Ago 25, 2008 3:25 am

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))
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Drop aelatorio
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Area de DROP [DEVIAS]
» Dropbox
» RANDY MACHO MAN SAVAGE HA MUERTO Y_Y
» Terreno recortable para añadir a los mapas
» Ayuda para mazo Aggro

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: jijijijijiij-
Cambiar a: