loglos
03-27-2008, 10:59 AM
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
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