[Beretta]

I am not sure if this will work. I am still pretty new to Perl and working with quests, but couldnt you try something like this?

if ( $npcid = 221000 )
     {
          quest::cast(,3150);
     }

I am not sure if this will work, but if its like SQL, you can use quest::castspell(,3150) to say cast spell 3150 on no target

Worth a shot, might not work, would be nice if it did though =-)