sub EVENT_DEATH_COMPLETE { if(quest::ChooseRandom(0..3) == 0) { quest::say("I am free of this mortal cell! Prepare for my wrath!"); quest::spawn(quest::ChooseRandom(123..125), 0, 0, $x, $y, $z); } }
perl -c checkcode.pl