I took a look in perl_npc.cpp, questmgr.cpp, and perl_mob.cpp and couldn't seem to find anything for pulling an item from an NPC's loot. There is NPC::QueryLoot in npc.cpp, but it's only used for #npcstats. It may be possible to write something for Perl that allows you to check for certain items in the NPC's current loot though.
|