PDA

View Full Version : Warrens Quests


realityincarnate
04-04-2009, 02:04 PM
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