Library Book

[loglos]

I used to play EQ way back when. So far back that the testament of Vanear was a dang good item. It was also my favorite quest. So I decided to implement it.

There are several NPCs involved across several zones. The alla link is http://everquest.allakhazam.com/db/quest.html?quest=144

This is my first quest so I expect there'll be some errors. All of the steps do work though. I did a successful run through of the entire thing before posting. I appreciate any feedback and I'll be glad to fix any errors if you can point them out to me.

The dollar amount for the reward I got from alla. The items for the reward, I took a best shot at. The EXP and FACTION values I pulled out of my nether regions.

quests\erudnext\Rarnan_Lapice.pl

#############
#Quest Name: Library Book
#Author: loglos
#NPCs Involved: Rarnan Lapice, Tol Nicelot, Illithi Nollith, Moodoro Finharn, Ran Flamspinner, Dyllin Starsine
#Items Involved: Testament of Vanear, Page 30 of a book, Page 34 of a book, Jester, 2 gold, 4 gold
#################

sub EVENT_SAY { 

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

quest::say("It is good to meet you. $name.  To enter the Temple of Divine Light is to invite Quellious into your body and soul.  Tranquility is our way and. as such. we do all we can to uphold it.  Are you a [cleric of Quellious]. or am I mistaken?");

}

if($text=~/cleric of Quellious/i){

  if ($faction <= 5) {
    quest::say("I have a small task for you then. Go to the city library and ask the librarian for the book 'The Testament of Vanear'. I shall require it for further studies. Do not return empty-handed or you shall know my rage.");
   }
   else
   {    
     quest::say("You have not done much to upset the Peacekeepers of this temple. but we must ask you to prove yourself to us before we may discuss things such as this."); 
   }
  }
}

sub EVENT_ITEM {
    if ($itemcount{13991} == 1) {
        quest::say("I sent you after that book ages ago! What took you so long? I have already completed my studies. Luckily I found the original manuscript under my bedroll. I forgot I had kept it there. Take this as a token of my apology. Maybe it will aid you in your next book hunt. I know how cunning those books can be.");
        my $a = quest::ChooseRandom(15302,6351,89036,16647);
        quest::summonitem($a);
        quest::givecash(0,0,20,3);
        quest::exp(12500);
        quest::faction(145, -25);
        quest::faction(247, 25);
        quest::faction(143, 25);
    }
  else {

    quest::emote("will not accept this item.");

    plugin::return_items(\%itemcount);

  }
}

#End of FILE Zone:erudnext  ID:98046 -- Rarnan_Lapice

quests\erudnext\Tol_Nicelot.pl

#############
#Quest Name: Library Book
#Author: loglos
#NPCs Involved: Rarnan Lapice, Tol Nicelot, Illithi Nollith, Moodoro Finharn, Ran Flamspinner, Dyllin Starsine
#Items Involved: Testament of Vanear, Page 30 of a book, Page 34 of a book, Jester, 2 gold, 4 gold
#################

sub EVENT_SAY { 

if ($text=~/Hail/i)
  {
    quest::say("Shhhh... Greetings, $name. Welcome to the Library of Erudin. Please respect the other patrons and speak softly."); 
  }


if ($text=~/Testament of vanear/i)
  {
    quest::say("Oh my!! You have not heard?! The Testament of Vanear was stolen from the library! It was checked out by a man named Moodoro. He is an Erudite, but I believe he was executed for some crime. Now the book is lost forever. You should speak with Tol Nicelot. He used to know Moodoro. Tol is most likely upstairs."); 
  }

}

#End of FILE Zone:erudnext  ID:98061 -- Illithi_Nollith

quests\erudnext\Illithi_Nollith.pl

#############
#Quest Name: Library Book
#Author: loglos
#NPCs Involved: Rarnan Lapice, Tol Nicelot, Illithi Nollith, Moodoro Finharn, Ran Flamspinner, Dyllin Starsine
#Items Involved: Testament of Vanear, Page 30 of a book, Page 34 of a book, Jester, 2 gold, 4 gold
#################

sub EVENT_SAY { 

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

    quest::say("I have no time to waste with strangers!"); 
  }


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

    quest::say("Yes, I knew Moodoro Finharn. He used to be a good friend until he started visiting Qeynos and indulging in human vices. He was executed for crimes against the state. Not even his sister Nolusia could get the charge dropped. There have been some who say he escaped execution and lives in Qeynos. That is insane babbling."); 
  }


}

#END of FILE Zone:erudnext  ID:98035 -- Tol_Nicelot

quests\qeynos2\Moodoro_Finharn.pl

#############
#Quest Name: Library Book
#Author: loglos
#NPCs Involved: Rarnan Lapice, Tol Nicelot, Illithi Nollith, Moodoro Finharn, Ran Flamspinner, Dyllin Starsine
#Items Involved: Testament of Vanear, Page 30 of a book, Page 34 of a book, Jester, 2 gold, 4 gold
#################

sub EVENT_SAY 

{ 

if($text=~/Hail/i)

{

	quest::say("Greetings, fellow traveler! I gotta tell ya. I love this town. Especially Crow's. Although the crowd seems a bit shadier than other places of the sort.");

}

if($text=~/testament of vanear/i)

{

	quest::say("So you have heard that good old Moodoro has knowledge of the Testament of Vanear. I care little for that book. Of course I have it!! If you want it, I will sell it to you for two gold pieces.");

}

if($text=~/I want page 34/i)

{

	quest::say("So, you know I have page 34. Pretty smart of me to tear the most important page out before someone else tried, eh? If you really want it, then sit down and deal in. Ante is 4 gold. I will give you one card. If it is a jester, then I will give you the page. Let's do it.");

}

}

sub EVENT_ITEM 

{

if($gold == 2)

{

	quest::say("HA!! I hope you enjoy the book. It is missing pages 30 and 34. It is nothing more than garbage without them. A rogue ripped them from their bindings and sold them to [Ran].");

	quest::summonitem(17918);

}

if($gold == 4)

{

	quest::say("Well, what do you have?!!");

        my $a = quest::ChooseRandom(13994,13993,13992,13995);
        quest::summonitem($a);
}

if($itemcount{13994} == 1)

{

	quest::say("Lucky you. We were hoping to really clean you out. Here you go. Take the page. Even together, the book is nothing more than fiction.");

	quest::summonitem(13836);

}

}

sub EVENT_DEATH
{
        quest::say("I'll get you back $name!");
	quest::summonitem(13836);

 
}

#author caliz

#END of FILE Zone:qeynos2  ID:2083 -- Moodoro_Finharn

quests\highkeep\Ran_Flamespinner.pl

#############
#Quest Name: Library Book
#Author: loglos
#NPCs Involved: Rarnan Lapice, Tol Nicelot, Illithi Nollith, Moodoro Finharn, Ran Flamspinner, Dyllin Starsine
#Items Involved: Testament of Vanear, Page 30 of a book, Page 34 of a book, Jester, 2 gold, 4 gold
#################

sub EVENT_SAY { 

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

    quest::say("I am very sorry to have to inform you that the library is off limits to strangers."); 

  } 
  if($text=~/Testament of Vanear/i)
  {

    quest::say("So, you seek the page 30 I recently purchased from an Erudite named Moodoro? He also had page 34, but refused to sell it to me. If you seek page 34, you will first have to find Moodoro. I had page 30 for but a few days when a man swiped it from the library's shelves. I believe he wore the garb of a guard of Qeynos. He darted away so fast I did not have time to cast a single spell! I believe he is still in Highpass, I can feel it!!");
  }

}



#END of FILE Zone:highkeep  ID:6066 -- Ran_Flamespinner

quests\highpass\Dyllin_Starsine.pl

#############
#Quest Name: Library Book
#Author: loglos
#NPCs Involved: Rarnan Lapice, Tol Nicelot, Illithi Nollith, Moodoro Finharn, Ran Flamspinner, Dyllin Starsine
#Items Involved: Testament of Vanear, Page 30 of a book, Page 34 of a book, Jester, 2 gold, 4 gold
#################

sub EVENT_SAY { 

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

    quest::say("Hey!! I don't have any spare change, okay?!"); 

  }

  if($text =~/Testament of Vanear/i) {

    quest::say("So you heard Guard Dyllin has page 30 of the Testament of Vanear, eh?! Well, get lost!! Over my dead body will you get page 30!");

    quest::attack($name);
  }

}



sub EVENT_ITEM {

  plugin::return_items(\%itemcount);

}


 sub EVENT_DEATH
{
 quest::say("How dare you attack a member of the Qeynos Guard!!");
 quest::summonitem(13832);
}

#END of FILE Zone:highpass  ID:5045 -- Dyllin_Starsine

[cavedude]

Submitted thank you!

[Andrew80k]

Wrong post. Sorry...

[Andrew80k]

Gerael Woodone (Qrg)

####################################
# NPC: Gerael Woodone
# Zone:  Qrg
# Quest:  Nitrates and the Assassin
# Author: Andrew80k
####################################
sub EVENT_SAY { 

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

       quest::say("It is good to meet you, $name. You, my friend, are an adventurer. The rugged look of you testifies to that. Let me know if you plan to adventure in the Plains of Karana. I have need of a person such as yourself to [deliver a flask]");

   }

   if ($text=~/deliver a flask/i){

       quest::say("That is splendid! I thought I would have to take the long journey to the western Plains of Karana myself. Here you are, my friend. Take this flask of nitrates to a woman named Linaya Sowlin. It will help her crops grow stronger. You will find her farm alongside the road to Highpass Hold. She should pay you well for the delivery. Farewell.");

       quest::summonitem("13945","1"); 
   }
   if ($text=~/Jale Phlintoes/i) {
       quest::say("Jale Phlintoes was trained in the ways of the Jaggedpine Treefolk since his birth. He was only eight when his parents were killed by poachers. Young Jale would have had his throat slit also if he were not off fishing at the lake. Unfortunate. The now orphaned Jale was brought up by us druids. After many conflicts with our council, he ran off to start his own sect somewhere in the nearby lands. For his terrorist activities his head now brings a high price.");
   }
   if ($text=~/Unkempt Druids/i) {
       quest::say("The Unkempt Druids are a radical splinter group of druids. Their beliefs have been contorted by the mad druid [Jale Phlintoes]. It is he who engineers and coordinates the druids' transgressions. From setting lumbermills aflame to murdering any man who dares to wear a bearhide. They must be stopped!! Citizens must learn to understand Tunare's will, not fear it.");
   }

}
sub EVENT_ITEM {
   if (plugin::check_handin(\%itemcount,18911=>1)) {
      quest::say("Oh my!! Our Qeynos Ambassador, Gash, is in danger. Please take the note over to Captain Tillin of the Qeynos Guard then find Gash and inform him [they are trying to kill him]. Go!!");
      quest::faction(265,10);
      quest::faction(159,10);
      quest::faction(267,10);
      quest::faction(347,-30);
      quest::faction(135,10);
      quest::givecash(int(rand(10)),int(rand(10)),int(rand(10)),int(rand(10)));
      quest::summonitem(18912);
   }
   if (plugin::check_handin(\%itemcount,12141=>1)) {
      quest::say("So the Unkempt Druids are alive and well.  We shall keep a watchful eye out as should you.  Take this for your bravery and defense of the Jaggedpine.");
      quest::faction(265,10);
      quest::faction(159,10);
      quest::faction(267,10);
      quest::faction(347,-30);
      quest::faction(135,10);
      quest::givecash(int(rand(10)),int(rand(10)),int(rand(10)),int(rand(10)));
   }
}

#END of FILE Zone:qrg  ID:1666 -- Gerael_Woodone