Diablo style loot

[lerxst2112]

I attached this script to npc id 9001 (deathfist pawn), spawned a bunch of them, and found a variety of loot on them they would not normally have with a wide variety of IDs.

I changed it to +1001 since that is the first valid item ID.

sub EVENT_SPAWN
{
	my $DropChance = int(rand(99)) + 1;
	if($DropChance < 99)
	{
		my $Select_Itemid = int(rand(100000))+1001;
		quest::addloot($Select_Itemid);
	}
}

If you only want valid items you might try looping the selection until you get one. This will tell you how to figure out if the item is valid or not: http://eqemulator.org/forums/showthread.php?t=34188