Any way to add loot to an npc via Perl?

[mystic414]

I have an npc that I want to not drop any loot when killed unless the player hands in some items first, in which case a different item x is added to the npc's loot.

In other words, I don't want the player to be able to get item x by killing the npc without handing in the other items first.

I think in EQ live they despawn the mob and repop him with the new loot, but I can't figure out how to use quest::spawn to do that. Anyone more knowledgeable than me have any ideas? Thanks in advance.

[fathernitwit]

$npc->AddItem(item_id, charges)

needs XS classes.