random loot, the easy way

[c0ncrete]

i finally got around to using the new global_npc.pl script
it makes loot randomization so much easier...

this small snippet
- doesn't make changes to default loot chances
- only gives npcs with existing loot tables are given an extra item
(so untargetable, invisible npcs won't turn into floating weapons)
- verifies itemid is valid via temporary itemlink creation

EQEmu\quests\templates\global_npc.pl

sub EVENT_SPAWN {
    return unless $npc->GetLoottableID();
    my ($tested, $itemid);
    do {
        $itemid = ( int rand 131474 ) + 1001;
        $tested = quest::varlink($itemid);
    } while $tested =~ /INVALID/;
    $npc->AddItem($itemid);
}

- can easily be expanded upon

examples:
filter specific items from roll
destroy extra item under certain conditions
roll for chance at extra item
additional random items

NOTE: you'll want to change the number from 131474 to whatever the highest itemid is in your items table and subtract 1001 (or your lowest itemid) from that number.