Drop cada X criaturas

Estado
Cerrado para nuevas respuestas.

Shura

Dragón Ancestral Lvl 2
Codigo perfeccionado por lagalot el dia 28 de Enero de 2006, quedan reservados todos los derechos de autor y copyright 2006 por lagalot.

-Funcion del codigo: Cada X npcs cae X item dando la posibilidad de que los personajes recien creados puedan obtener algun item.

+Aplicacion: Es sencillo solo tenemos que crear 1 function y alguna que otra varible.

En el modulo InvNpc, despues del find del Sub NPC_TIRAR_ITEMS ponemos:
Código:
Public Sub NpcTiraEstrella(ByRef npc As npc)
'TIRA TODOS LOS ITEMS DEL NPC
On Error Resume Next
    
Dim EstrellaNacimiento As Obj
    
Dim EstrellaRandom
Dim Pos1A
Dim Pos2B
'NO VALORES NEGATIVOS NI NULOS
Pos1A = X  'PROBABILIDAD MINIMA
Pos2B = X  'PROBABILIDAD MAXIMA
'Ecuacion de probabilidad
'Pos1A sobre Pos2B.
'ej: 1 de cada 5
EstrellaRandom = RandomNumber(Pos1A, Pos2B) 'RANDOM DE PROBABILIDADES
If EstrellaRandom = 1 Then
EstrellaNacimiento.Amount = X 'CANTIDAD
EstrellaNacimiento.ObjIndex = X 'NUMERO DEL ITEM EN EL OBJ.DAT
Call TirarItemAlPiso(npc.Pos, EstrellaNacimiento)
End If
 
End Sub
En el sub Muerenpc buscamos:
Código:
Call NPCTirarOro(MiNPC)
y abajo ponemos:
Código:
Call NpcTiraEstrella(MiNPC)
Codigo completado.

Codigo Creado Por Lagalot
 
Estado
Cerrado para nuevas respuestas.
Arriba