couple of questions about perl

[Cisyouc]

Im not sure if you wanted the source code or the perl quest, but here is an example of a perl quest I have for a Planar Projection that is triggered by quest::spawn(); on the death of Manaetic Behemoth in Innovation.

The code is set up so after 5 hails he depops or after 1 minute.

sub EVENT_SAY
{
if($text=~/hail/i)
 {
 if($temple2 == 0){
   if($pplimit == 0){
   quest::me("A Planar Progression says, 'You have slain the Manaetic Behemoth? Astounding. See Relm M`Loch.");
   quest::setglobal("temple2","1","7","C999999");
   quest::setglobal("pplimit","1","2","C010000");
   quest::yellow("You have recieved a character flag!");}
   if($pplimit == 1){
   quest::me("A Planar Progression says, 'You have slain the Manaetic Behemoth? Astounding. See Relm M`Loch.");
   quest::setglobal("temple2","1","7","C999999");
   quest::setglobal("pplimit","2","2","C010000");
   quest::yellow("You have recieved a character flag!");}
   if($pplimit == 2){
   quest::me("A Planar Progression says, 'You have slain the Manaetic Behemoth? Astounding. See Relm M`Loch.");
   quest::setglobal("temple2","1","7","C999999");
   quest::setglobal("pplimit","3","2","C010000");
   quest::yellow("You have recieved a character flag!");}
   if($pplimit == 3){
   quest::me("A Planar Progression says, 'You have slain the Manaetic Behemoth? Astounding. See Relm M`Loch.");
   quest::setglobal("temple2","1","7","C999999");
   quest::setglobal("pplimit","4","2","C010000");
   quest::yellow("You have recieved a character flag!");}
   if($pplimit == 4){
   quest::me("A Planar Progression says, 'You have slain the Manaetic Behemoth? Astounding. See Relm M`Loch.");
   quest::setglobal("temple2","1","7","C999999");
   quest::setglobal("pplimit","5","2","C010000");
   quest::yellow("You have recieved a character flag!");}
   if($pplimit == 5){
   quest::me("A Planar Progression says, 'You have slain the Manaetic Behemoth? Astounding. See Relm M`Loch.");
   quest::setglobal("temple2","1","7","C999999");
   quest::setglobal("pplimit","6","2","C010000");
   quest::yellow("You have recieved a character flag!");
   quest::setglobal("pplimit","0","2","C999999");
   quest::depop();}
 } }
}
sub EVENT_SPAWN
{
quest::settimer(1,60);
}
sub EVENT_TIMER
{
quest::depop();
}

quest::yellow(); is a custom command which acts like quest::me(); only it displays yellow text.