Warrens Quests

[realityincarnate]

I was poking around in the Warrens and noticed that pretty much none of the quests work properly, so I made minor updates to get them up and running.

File: A_captured_erudite.pl Zone: Warrens

###############################
#Zone: The Warrens
#Short Name: warrens
#Zone ID: 101
#
#NPC Name: a captured erudite
#NPC ID: 101064
#Quest Status: completed
#Modified by: Realityincarnate
###############################

sub EVENT_SAY {
  if ($text=~/hail/i) {
    quest::emote("bats her eye lashes seductively.");
    quest::say("I would be immensely pleased if someone would free me from these shackles.");
  }
}

sub EVENT_ITEM {
  if (plugin::check_handin(\%itemcount, 6923 => 1)) {
    quest::say("I thank you for freeing me from my dog faced captors.");
    quest::depop();
    quest::exp(300);
  }
  else {
    plugin::return_items(\%itemcount);
  }
}

File: A_captured_kerran.pl Zone: Warrens

###############################
# NPC: A captured Kerran
# Zone: The Warrens
# Quest: Erudite Prisoners
# Modified by RealityIncarnate
###############################

sub EVENT_SAY { 
  if($text=~/Hail/i) {
    quest::say("My spirrrit witherrrrs herrre in this dank, stinking, flea infested hole! I must be set frrree frrrom these shackles!!"); 
  }
}

sub EVENT_ITEM {
  if (plugin::check_handin(\%itemcount, 6923 => 1)) {
    quest::say("I thank you for frrreeing me frrrom my dog face captorrrs.");
    quest::depop();
    quest::exp(300);
  }
  else {
    plugin::return_items(\%itemcount);
  }
}
#END of FILE Zone:warrens  ID:101085 -- a_captured_kerran

File: An_erudite_prisoner.pl Zone: Warrens

###############################
#Zone: The Warrens
#Short Name: warrens
#Zone ID: 101
#
#NPC Name: an erudite prisoner
#NPC ID: 101068
#Quest Status: completed
#Modified by: Realityincarnate
###############################

sub EVENT_SAY {
  if ($text=~/hail/i) {
    quest::emote("angrily rattles his shackles.");
    quest::say("Damned Kobolds!! Some day I will return and these filthy warrens will be littered with their dog faced corpses! You wouldn't happen to have a key for these shackles would you?");
  }
}

sub EVENT_ITEM {
  if (plugin::check_handin(\%itemcount, 6923 => 1)) {
    quest::say("I say we round up the Furballs AND the Dog Faces and let them kill each other off! Then we can easily finish off the survivors!");
    quest::exp(300);
    quest::depop();
  }
  else {
    plugin::return_items(\%itemcount);
  }
}

#END of FILE Zone: warrens ID:101068 -- an_erudite_prisoner

And the last one didn't have anything wrong, per se, but the phrase needed to activate it was ridiculously specific.

File: Aderius_Rhenar.pl Zone: Warrens

sub EVENT_SAY { 
  if($text=~/Hail/i){
    quest::say("Hail, $name, I am Aderius Rhenar, priest of Quellious and assistant to Lady Laraena. I have been fortunate to be imprisoned here with these Kejekan cat men, they are a very wise people. Are you planning on returning to Erudin soon my friend?");
  }

  if($text=~/to erudin/i) {
    quest::say("I have managed to prepare a message on this scrap of cloth for the priestess Laraena. It is a matter of great importance to the High Council of Erudin. Please deliver this message to her promptly. I must stay here for a while longer and converse further with my Kejekan friends.");
    quest::summonitem("2049"); 
  }
}
#END of FILE Zone:warrens  ID:101087 -- Aderius_Rhenar