Diablo style loot

[Burningsoul]

That looks awesome Kayen, so simple I can't believe I overlooked it. I fixed the typo in sub EVENT_SPAWN and changed a few bits, saved it as default.pl in tutorialb. I zone in, #repop zone just for OCD's sake, and pulled a train of 30-ish mobs. I'm not noticing it taking effect.

Is it because it uses an if, but doesn't include elseif afterwards? 123309 is near the end of the items table, so I should be seeing quite a variety of items dropping, even if they're useless placeholders or whatnot.

Also tried changing quest::addloot($Select_Itemid); to
quest::addloot($Select_Itemid, charges = 0, equipitem = true)
And all I'm seeing in zone.exe is warning that missing "'s around charges and equipitem might break later revisions.

sub EVENT_SPAWN
{
 
my $DropChance = int(rand(99)) + 1;

if ($DropChance < 99)
{
my $Select_Itemid = int(rand(123309))+1;

quest::addloot($Select_Itemid);
}
}

I set the $DropChance < 99 just to ensure I wouldn't be on the losing side of the RNG during testing.

[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