EQEmulator Forums - Quest::The Acolyte

This was a extremely fun quest to do :)
Code:
#############

#Quest Name:The Acolyte

#Author:Shaznito

#NPCs Involved:Gapeers Johhanis

#Items Involved:Algae Covered Flesh, Swollen Flesh, Waterlogged Flesh

#################





sub EVENT_SAY { 



if($text=~/Hail/i){

quest::say("Gapeers Johhanis jumps at your voice, he's obviously very focused on a set of beakers on the table. They seem to be holding samples of rotted flesh. Gapeers says, 'Oh my heart! You could have stopped it! Please be careful when entering these chambers. It would be unfortunate if I had dropped and broken these [specimens].");

}

if($text=~/what specimens/i){

quest::say("Gapeers Johhanis turns to explain the specimens when he accidentally knocks over the beakers. He sucks in a short breath as the beakers crash to the ground, ruining the samples. As Gapeers's skin loses color he says, 'OH NO!! No, not my specimens!! Now what am I to do?! I needed those badly! You did this! You [owe] me now!");

}

if($text=~/what do I owe/i){

quest::say("Gapeers Johhanis says 'You bet you do! You big clumsy $race! These were the remains of unfortunates who were drowned. Not only were they drowned but their bodies clung to life and refused to settle. Products of the horrendous curse of unlife. I'll need you to find three [special samples] of drowned and cursed flesh.");

}

if($text=~/what three special samples/i){

quest::say("Gapeers Johhanis 's eyes widen as he realizes you actually might intend to help him. His voice becomes raspy with desperation as he says, 'Oh! Wonderful....uuhhmmm.... well ....You'll need to find undead creatures found in the waters of three different climates. One from a tropical ocean. One from the muddy and slow moving river of a jungle. And one from the stagnate and polluted water of a city's sewer, Freeport would be ideal. Will you really [do this for me]?");

}

if($text=~/I will do this for you/i){

quest::doanim(50);

quest::say("Gapeers Johhanis says 'Oh thank goodness! Thank you so much, $name! Those old specimens were much to ancient anyway, fresh ones will help in my mission to heal those who were unfortunate enough to drown and become cursed. If you bring back the three samples I have a little something you might like. Although it will only fit and be of use to one who heals as a profession and is small of stature like myself. Good luck!");

 }

}



sub EVENT_ITEM {



if ($itemcount{1736} == 1 && $itemcount{1737} == 1 && $itemcount{1735} == 1) {

 quest::say("Gapeers Johhanis cheers as you hand him the samples of zombie flesh. He says, 'You have them! Excellent! Thank you very much, $name! Now I have much work to do so shoo before you break something else. Oh and here is your reward. It's an anklet that all our acolytes wear. Not only is it functional, but we can show off our beautiful foot hairs at the same time. Us halflings are pretty smart really.");

}

 quest::summonitem(1731);

 quest::faction(259,20);

 quest::faction(208,20); 

 quest::faction(133,20);

 quest::givecash(18,13,0,0);

 quest::exp(100);

}