PDA

View Full Version : Erudin: Zombie Flesh & Fisherman Convert


realityincarnate
04-11-2008, 03:53 PM
These two quests are both given by Dleria Mausrel in the Deepwater Knights guild in Erudin.

Dleria_Mausrel.pl zone:erudnext

#####################################
#Quests: Zombie Flesh, Convert Fishermen
#NPC: Dleria Mausrel
#Zone: erudnext
#Author: RealityIncarnate
#####################################

sub EVENT_SAY {
if ($text=~/Hail/i) {
quest::say("Hail! You appear to be a [new priest]. Ah, I so enjoy the presence of youth within Deepwater Temple. I am sure Prexus is smiling upon us as we speak.");
}

if ($text=~/new priest/i) {
quest::say("As I suspected. I shall assist you with your training and you shall assist the temple with your service. A young priest can help out by asking to [convert fishermen in Qeynos] or maybe even something truly great such as requesting to [protect the depths].");
}

if($text=~/protect the depths/i) {
quest::say("We have heard of zombies inhabiting the depths of Erud's Crossing. Go and seek them out. Destroy them. This evil should not exist within the realm of the Ocean Lord. Take this bag. Fill it with their rotting flesh. combine it and return it to me. May Prexus guide you.");
quest::summonitem(17939);
}

if ($text=~/convert fishermen in Qeynos/i) {
quest::say("So you wish to journey to Qeynos? So be it. Go to Qeynos and find me a willing convert. Ask them if they wish the blessing of Prexus. If so, they should snap their pole in two and you will return it to me. Do this and be rewarded.");
}
}

sub EVENT_ITEM {
if (plugin::check_handin(\%itemcount, 13922 => 1)) {
quest::say("Good work, young priest. Soon you shall carry the word of the Ocean Lord to distant lands. For now, continue your training. As for your reward, I have this which has been sitting in our vault. I hope it can be of use to a young priest such as yourself.");
quest::faction( 79, 10);
quest::faction( 145, 10);
quest::faction( 143, -15);
quest::exp(100);
quest::summonitem(quest::ChooseRandom(2144, 2146, 2147, 17005));
quest::givecash(0,14,5,0);
}

elsif (plugin::check_handin(\%itemcount, 13880 => 1)) {
quest::say("Peeuww!! That most certainly is zombie flesh!! Here is your reward. You have done a fine service in the name of Prexus. Soon you shall advance and we may tell you of greater dangers lurking in the depths.");
quest::faction( 79, 10);
quest::faction( 145, 10);
quest::faction( 143, -15);
quest::exp(100);
quest::givecash(0,12,4,0);
}
else {
#Text made up
quest::say("You have my thanks, but I have no need for this.");
plugin::return_items(\%itemcount);
}
}

#END of FILE Zone:erudnext ID:24050 -- Dleria_Mausrel


The "Fisherman Convert" quest also requires the following files:
Marlin_Bizmite.pl zone:qeynos

#####################################
#Quests: Convert Fishermen
#NPC: Marlin Bizmite
#Zone: Qeynos
#Author: RealityIncarnate
#####################################

sub EVENT_SAY {
if ($text=~/Hail/i) {
quest::say("Greetings, fellow fisherman. You must be a fisherman. You have the stench of one. If you are not, might I suggest this new pastime I have heard of? A bath!!");
}

if ($text=~/blessing of Prexus/i) {
quest::say("Oh no!! Not another Prexus freak!! Listen up aqua man, if you think a man named Marlin has any chance of giving up fishing, you have got another think coming. Go night diving in the north pond, you might find some bait for your Prexus blessing.");
}
}

#END of FILE Zone:qeynos ID:1003 -- Marlin_Bizmite


Bait_Masterson.pl zone:qcat

#####################################
#Quests: Convert Fishermen
#NPC: Marlin Bizmite
#Zone: Qeynos
#Author: RealityIncarnate
#####################################

sub EVENT_SAY {
if ($text=~/Hail/i) {
quest::say("You know.. I took up fishing because it was a nice, quiet activity. Most of all, I took it up to avoid conversing with strangers. Get the picture?!!");
}

if ($text=~/blessing of prexus/i) {
quest::say("Prexus!!? Aye!! I once followed the ways of the Ocean Lord. I remember those days. So clear and peaceful were they. I shall make a deal with you, my friend. I shall give up fishing if you give me your guild tunic. With such a tunic I shall once again be compelled to follow the peaceful ways of the Ocean Lord.");
}
}

sub EVENT_ITEM {
if (plugin::check_handin(\%itemcount, 13544 => 1)) {
quest::say("Nice material!! I feel the ways of Prexus enlightening my soul. Unngh!! Enough of this fishing. Here take my broken fishing pole and toss it to the sea. All hail Prexus!!");
quest::summonitem(13922);
quest::faction( 79, 5);
quest::faction( 145, 5);
quest::faction( 143, -5);
quest::exp(100);
}
}

#END of FILE Zone:qcat ID:10139 -- Bait_Masterson


In order to allow paladins of Prexus to complete the quest, the response to their newbie note also needed to be added.

Weligon_Steelherder.pl zone:erudnext (replaces previous)

#####################################
#Quests: Odus Pearls, The Bridge, Barnacle Breastplate, Fisherman Convert
#NPC: Weligon Steelherder
#Zone: erudnext
#Heavily modified by RealityIncarnate
#####################################

sub EVENT_SAY {
if($text=~/Hail/i) {
quest::say("Hail, $name! This is the Deepwater Temple. Here you shall find the wisdom and courage of Prexus, the Ocean Lord. I am glad to see you have an interest. Forgive me if I cut our conversation short, but I have many [Deepwater tasks] to complete.");
}

if($text=~/deepwater tasks/i) {
if($faction > 5) {
quest::say("We, the Deepwater Knights, know of your vile ways. You had best leave while you can.");
}
elsif($faction < 4) {
quest::say("We here at the Deepwater Temple must tend to the [Peacekeeper battlestaff] and the [Deepwater harpoon] as well as other duties such as [ocean protection]. There is always something we must do.");
}
else {
quest::say("There is no reason to dislike you, but we of the Deepwater Knights must see more done for our cause before we truly accept you.");
}
}

if($text=~/deepwater harpoon/i) {
quest::say("We do not award the Deepwater harpoon to just any paladin. Nobility is all well and good, but you must still prove yourself. We have heard rumors of a very distressing matter. Perhaps it is your calling. Are you ready to [prove allegiance to Erudin] and earn the Deepwater harpoon?");
}

if($text=~/prove allegiance to Erudin/i) {
quest::say("Yes, you are ready. We have heard rumors of a great bridge which will connect Antonica with Odus!! This must not happen! We must shield ourselves from the savage and evil ways of the other races. They say that a list exists. A list of three grand architects who wish to see this bridge erected. You will venture to Qeynos and find the list, then exterminate these three men. Return the list along with their heads and the Deepwater Harpoon is yours. Go!!");
}

if($text=~/peacekeeper battlestaff/i) {
quest::say("Every sentinel in Erudin carries a High Guard battlestaff. The creation of these weapons is the duty of the Deepwater Temple and the Temple of Divine Light. Our portion of the task is to send young members to [collect the Pearls of Odus]. These are imbedded into the staff and used to store mystical power.");
}

if($text=~/ocean protection/i) {
quest::say("In the name of Prexus, we are sworn to protect all ocean creatures. We have heard reports of a shark carrying a deadly malady. We believe she is pregnant. If she delivers her young to the ocean, it will endanger all other creatures. We need to find a young paladin to [hunt the diseased shark].");
}

if($text=~/hunt the diseased shark/i) {
quest::say("Ah, yes! Take this bag with you. When you have collected the remains of the diseased shark and no fewer than three of her young in it, combine them in it and return it to me. Then, you shall get your reward.");
quest::summonitem(17938);
}

if($text=~/collect the pearls of odus/i) {
quest::say("Then venture to the harbor of Erudin. There, you shall dive into the shark-infested water and search for the Pearls of Odus. They lie upon the grounds of our waters. Fill the bag I have given you, combine it, and return it to me. Good luck.");
quest::summonitem(17939);
}

if($text=~/harpoon no more/i) {
quest::say("The Deepwater harpoon's distribution has been restricted by order of the High Council. The last one awarded was to an outsider, the brave and noble paladin, Sentry Xyrin. She hailed from the Temple of Marr.");
}
}

sub EVENT_ITEM {
if (plugin::check_handin(\%itemcount, 13876 => 1)) {
quest::say("Very good, my dear young follower of Prexus. You will learn that swimming is a strong skill among the Deepwater Knights. Keep this up and you may wield a Deepwater harpoon soon enough. For now, you shall wear this barnacle breastplate. It is strong enough to aid a young knight in his quest for perfection.");
quest::summonitem(12194);
quest::faction( 79, 10); #Deepwater Knights
quest::faction( 145, 10); #High Council of Erudin
quest::faction( 143, -15); #Heretics
quest::exp(100);
}

#Pearls of Odus Handin: full bag of pearls
if (plugin::check_handin(\%itemcount, 13879 => 1)) {
quest::say("Fine work, Deepwater Knight. You have proven yourself an excellent addition to our ranks. These shall be used to create more Peacekeeper staffs. Oh yes, I almost forgot your reward. Here you are. Now, go, and serve Prexus.");
quest::summonitem(quest::ChooseRandom(2104, 2106, 2108, 2111, 2112));
quest::faction( 79, 10);
quest::faction( 145, 10);
quest::faction( 143, -15);
quest::exp(100);
}

#Bridge Quest Handin: 3 heads + sealed list
if (plugin::check_handin(\%itemcount, 18835 => 1, 13838 => 1, 13839 => 1, 13840 => 1)) {
quest::say("It is done!! I pray to Prexus that the knowledge of the bridge's design has departed from this world with the passing of these intelligent men. A pity they had to die. As for you, the other states may not tolerate your presence any longer, but you have proven that allegiance to Erudin is paramount among all Erudites. I am afraid the [harpoon is no more]!! I bestow upon you Deep Six, my personal cutlass!! May you wield it in the name of Erudin.");
quest::summonitem(5377);
quest::faction( 79, 10);
quest::faction( 145, 10);
quest::faction( 143, -15);
quest::exp(100);
}

#Paladin Newbie Note
if (plugin::check_handin(\%itemcount, 18725 => 1)) {
#Text made up
quest::say("Ah, an aspiring Deepwater Knight. I bid you welcome to our order, brother. Wear this tunic with pride.");
quest::summonitem(13544);
quest::faction(79, 200);
quest::faction( 145, 200);
quest::faction( 143, -300);
}

#do all other handins first with plugin, then let it do disciplines
plugin::try_tome_handins(\%itemcount, $class, 'Paladin');
}

#END of FILE Zone:erudnext ID:24065 -- Weligon_Steelherder


As always, there are some database changes also required to make this quest function properly.

Recipe: Bag of Zombie Flesh
Tradeskill: 75, no fail, replaces container
Container: 17939
Components: 4x 13074
On success: 13880

[Note: This uses the same container as the "Pearls of Odus" quest, but to the best of my knowledge this is correct. Allakhazam has references to bugs in the containers for both quests on Live, and I think this is how it ended up being resolved. If anyone knows otherwise, any information would be appreciated.]

The npc that gives these quests, Dleria Mausrel (npcID 24050), also has a problem in the spawn tables. Currently, she shares a 50% spawn chance with a spell merchant (spawngroupID 801). She should, as best I recall, spawn by herself on the next floor up in the building (x,y,z = -415, -1070, 67)


And one final thing: this probably isn't the best place to put it, but it doesn't seem worth starting its own thread. There is a forge in Erudin that is mostly sunk in the ground and it constantly drives me nuts. I don't remember it being there at all when I played Live, but at the very least it should be raised above ground. The forge is object ID 287, and should have zpos = 53.

cavedude
04-12-2008, 07:14 AM
Committed to PEQ, thank you! Added the recipe, and deleted the forge. There was another one in that city that I removed not too long ago.