realityincarnate
04-12-2008, 02:38 PM
This one was a little bit interesting, as the original quest depends on an npc, Hansl Bigroon, dropping one of the quest items as he walks away. To the best of my knowledge (someone please let me know if I'm wrong), this isn't possible with the quest system, so I worked around it by having him create a proximity as he leaves. A player entering the proximity gets the item and a message, and the proximity is cleared.
Weligon_Steelherder.pl zone:erudnext (identical to the script I posted in the Fisherman Convert quest)
#####################################
#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
Hansl_Bigroon.pl zone:qeynos
#####################################
#Quests: The Bridge
#NPC: Hansl Bigroon
#Zone: qeynos
#Original Author Unknown
#Heavily modified by RealityIncarnate
#####################################
sub EVENT_SAY {
if($text=~/Hail/i) {
quest::say("Greetings, $name! Are you a [citizen of Qeynos] or are you a [traveler of sorts]?");
}
if($text=~/traveler of sorts/i) {
quest::say("Ah, yes! Traveling can be truly dangerous. Have you ever been to Erudin or do you not care for that place?");
}
if($text=~/have been to Erudin/i) {
quest::say("The trip to Erudin takes far too long. I have been designing a [titanic bridge] which will shorten the trip. Well, I cannot take full credit, most of the plans are being designed by [three great engineers].");
}
if($text=~/three great engineers/i) {
#text made up
quest::say("I'm keeping the list of the engineers to myself until the project is underway. There has been some opposition to the idea, and we wish to protect them from harm.");
}
if($text=~/citizen of qeynos/i) {
quest::say("Then you are aware of how few ships come and go to the continent of Erudin. The port authority is even planning to tax all passage aboard the ships. You will be happy to know that a few other engineers and I are designing a [titanic bridge].");
}
if($text=~/what titanic bridge/i) {
quest::say("My grand plan has always been to erect a bridge which would span the distance between Qeynos and Odus. It would bypass the city of Erudin. Antonius Bayle would take full control of the bridge and its adjacent territories. This has had some opposition in Erudin, but for the most part, they just believe it is impossible to build such a bridge.");
}
}
#This script handles the dropping of the sealed list of engineers.
#To simulate dropping the list, he creates a proximity when leaving his house and sends an emote to draw attention to it.
#The proximity is cleared when either someone enters (gets the note) or he gets far enough away from the area.
sub EVENT_WAYPOINT {
if ($wp == 0) {
quest::emote("drops something as he walks away. He doesn't seem to notice.");
quest::set_proximity($x - 10, $x + 10, $y - 10, $y + 10);
}
if ($wp == 13) {
quest::clear_proximity();
}
}
sub EVENT_ENTER {
$client->Message(15,"A note on the ground catches your eye.");
quest::summonitem(18835);
quest::clear_proximity();
}
#END of FILE Zone:qeynos ID:1096 -- Hansl_Bigroon
Database additions/changes needed:
The "sealed list" dropped by Hansl does not currently have any text entered for it, so it needs to be added to the "Books" table.
name: ListOfEngineers
text: "Antonius Bayle,
Here is the list of the three engineers who will aid in the design of the Great Span.
Jogl Doobraugh - Ak'Anon
Trantor Everhot - Kaladim
Purchin Oddsbot - Freeport"
None of the three engineer npcs currently have loot table entries. They should be as follows (all drops are 100%)
Jogl Doobraugh (56109) - Gnome Decapitated Head (13840)
Purchin Oddsbot (6074) - Human Decapitated Head (13838)
Trantor Everhot (67033) - Dwarf Decapitated Head (13839)
Finally, I don't believe the spawn settings for Jogl Doobraugh (56109, spawngrp 4816) are correct. He currently shares a 50/50 spawn with Charlotte the mechanical spider. I know I often saw these two up together back when I played. They had almost an owner/pet relationship. I don't know exactly how it should be set up, just that they shouldn't share a spawn.
Cavedude, is there a preferred way to submit required database additions/changes? In most cases, I don't know what the ID# for new things should be, so I've just been listing the relevant information, but let me know if there's a more convenient way to format it.
Weligon_Steelherder.pl zone:erudnext (identical to the script I posted in the Fisherman Convert quest)
#####################################
#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
Hansl_Bigroon.pl zone:qeynos
#####################################
#Quests: The Bridge
#NPC: Hansl Bigroon
#Zone: qeynos
#Original Author Unknown
#Heavily modified by RealityIncarnate
#####################################
sub EVENT_SAY {
if($text=~/Hail/i) {
quest::say("Greetings, $name! Are you a [citizen of Qeynos] or are you a [traveler of sorts]?");
}
if($text=~/traveler of sorts/i) {
quest::say("Ah, yes! Traveling can be truly dangerous. Have you ever been to Erudin or do you not care for that place?");
}
if($text=~/have been to Erudin/i) {
quest::say("The trip to Erudin takes far too long. I have been designing a [titanic bridge] which will shorten the trip. Well, I cannot take full credit, most of the plans are being designed by [three great engineers].");
}
if($text=~/three great engineers/i) {
#text made up
quest::say("I'm keeping the list of the engineers to myself until the project is underway. There has been some opposition to the idea, and we wish to protect them from harm.");
}
if($text=~/citizen of qeynos/i) {
quest::say("Then you are aware of how few ships come and go to the continent of Erudin. The port authority is even planning to tax all passage aboard the ships. You will be happy to know that a few other engineers and I are designing a [titanic bridge].");
}
if($text=~/what titanic bridge/i) {
quest::say("My grand plan has always been to erect a bridge which would span the distance between Qeynos and Odus. It would bypass the city of Erudin. Antonius Bayle would take full control of the bridge and its adjacent territories. This has had some opposition in Erudin, but for the most part, they just believe it is impossible to build such a bridge.");
}
}
#This script handles the dropping of the sealed list of engineers.
#To simulate dropping the list, he creates a proximity when leaving his house and sends an emote to draw attention to it.
#The proximity is cleared when either someone enters (gets the note) or he gets far enough away from the area.
sub EVENT_WAYPOINT {
if ($wp == 0) {
quest::emote("drops something as he walks away. He doesn't seem to notice.");
quest::set_proximity($x - 10, $x + 10, $y - 10, $y + 10);
}
if ($wp == 13) {
quest::clear_proximity();
}
}
sub EVENT_ENTER {
$client->Message(15,"A note on the ground catches your eye.");
quest::summonitem(18835);
quest::clear_proximity();
}
#END of FILE Zone:qeynos ID:1096 -- Hansl_Bigroon
Database additions/changes needed:
The "sealed list" dropped by Hansl does not currently have any text entered for it, so it needs to be added to the "Books" table.
name: ListOfEngineers
text: "Antonius Bayle,
Here is the list of the three engineers who will aid in the design of the Great Span.
Jogl Doobraugh - Ak'Anon
Trantor Everhot - Kaladim
Purchin Oddsbot - Freeport"
None of the three engineer npcs currently have loot table entries. They should be as follows (all drops are 100%)
Jogl Doobraugh (56109) - Gnome Decapitated Head (13840)
Purchin Oddsbot (6074) - Human Decapitated Head (13838)
Trantor Everhot (67033) - Dwarf Decapitated Head (13839)
Finally, I don't believe the spawn settings for Jogl Doobraugh (56109, spawngrp 4816) are correct. He currently shares a 50/50 spawn with Charlotte the mechanical spider. I know I often saw these two up together back when I played. They had almost an owner/pet relationship. I don't know exactly how it should be set up, just that they shouldn't share a spawn.
Cavedude, is there a preferred way to submit required database additions/changes? In most cases, I don't know what the ID# for new things should be, so I've just been listing the relevant information, but let me know if there's a more convenient way to format it.