[Bohbo]

Here is the working quest code if anyone wants to reuse it. This is in the zone directory in the file default.pl

sub EVENT_SPAWN{
my @drops = (6701,6702,6703,6704);#define loot drops here
	if(quest::ChooseRandom(1..100) >= 95){ #probability an item will be added
		$item = $drops[int(rand @drops)];
		$npc->AddItem($item);
	}
}