[Cisyouc]

Also, to call it, use something like this:

#quest::scorpse demonstration
#perlQuest by Cisyouc
sub EVENT_SAY
{
  if($text=~/hail/i)
  {
  quest::say("Greetings, $name. Have you recently been [slain] and separated from your corpse?");
  }
  if($text=~/slain/i)
  {
  quest::say("How unfortunate. My studies in Paineel have taught me how to summon nearby corpses, and I would be happy to [summon] yours, if you would like.");
  }
  if($text=~/summon/i)
  {
  quest::scorpse();
  }
}

..or of course, move it to sub EVENT_ITEM to charge money =D