Also, to call it, use something like this:
Code:
#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