Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Submissions

Quests::Submissions This is where you submit your quests for review

Reply
 
Thread Tools Display Modes
  #1  
Old 05-02-2006, 05:13 PM
attempt37
Fire Beetle
 
Join Date: Apr 2006
Posts: 29
Default Warrior Epic 1.0 complete

Preface: The following code segments will give you everything you need for the quest. The final combine requires the Red Scabbard to be able to take the 4 components and spit out the two blades, which it currently doesn't do and I personally don't know how to get it to (and didn't really bother trying to figure out). My only purpose in writing this code was to make it available to everyone since I couldn't find a completed version of it anywhere. I started with a couple of the files from the the PEQ quest release, and added files as needed.

NOTE: This quest does NOT reward experience or faction. As far as I can tell there are no faction hits in the warrior epic quest, but I did notice there are a lot of experience messages along the way. I did not reward experience because, quite frankly, I had no idea how much would be appropriate at each stage of the quest. I invite anyone who wants to to add the experience rewards to do so.

There are 6 NPCs for this quest in 5 zones. I obtained the ID numbers for both the NPCs and the items from a server that runs a database that is a blend of cavedude's and PEQ's that you can get by installing cavedude's Serverpack 3.52 and choosing "both" under the database option.

Tenal_Redblade in eastkarana:

Code:
############################################
# ZONE: East Karana (eastkarana)
# DATABASE: Caveman + PEQ (from Serverpack 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Tenal_Redblade
# ID: 15077
# TYPE: Warrior
# RACE: Human
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Redblade's Legacy ID-18083
# Totem of the Freezing War ID-20680
# Heart of Frost ID-10549
# Totem of Fiery War ID-20681
# Green Dragon Scales ID-11582
# Red Dragon Scales ID-11622
# Mark of the Sword ID-20683
# Hand of the Maestro ID-20676
# Tenal's Note to Kargek ID-20684
#  
#
# *** QUESTS INVOLVED IN ***
#
#1 - Warrior Epic Quest
#
#
#
############################################

sub EVENT_ITEM {

	#Redblade's Legacy ID-18083
	if($itemcount{18083} == 1) {
		quest::say("So Kargek sent you.  How is my dear brother?  If you come to me with this book then you 

must be interested in the scabbard.  Take this totem and return to me with it and the heart of frost from the 

goblins of permafrost. Do not return until this task is accomplished."); 
		quest::ding();

		# Totem of the Freezing War ID-20680
		quest::summonitem("20680");}

	#Totem of the Freezing War ID-20680 and Heart of Frost ID-10549
	if($itemcount{20680} == 1 && $itemcount{10549} == 1) {
		quest::say("Very good, you have wreaked havoc on your foes in the ancient land of the giants. Rallos 

Zek must have guided your blade."); 
		quest::emote("voice is suddenly silenced and you feel as if your body is frozen. From Tenal's lips 

issues a voice that is not his own, 'Bring this mortal the scales of the children of Veeshan. The red and green as 

well as my war totem. I will guide your blade.' Your movement returns as Tenal falls to the ground, gasping for 

breath.");
		quest::ding();

		#Totem of Fiery War ID-20681
		quest::summonitem("20681"); }

	#Totem of Fiery War ID-20681 and Red Dragon Scales ID-11622 and Green Dragon Scales ID-11582
	if($itemcount{20681} == 1 && $itemcount{11622} == 1 && $itemcount{11582} == 1) {
		quest::emote("looks at you oddly as you hand him the scales.");
		quest::say("What are..? You have done well, mortal, and you will be rewarded if you are truly brave. 

Travel to the Plane of Hatred and slay the ancient bard who lives there. Do not return without his hand and this 

mark or you will never be a true warlord.");
		quest::emote("drops to the ground as the last words leave his lips.");

		quest::ding();
		# Mark of the Sword ID-20683
		quest::summonitem("20683"); }

	# Mark of the Sword ID-20683 and Hand of the Maestro ID-20676
	if($itemcount{20683} == 1 && $itemcount{20676} == 1) {
		quest::emote("looks horrified as you give him the hand of the Maestro of Rancor and show him the 

mark of the sword.  The godlike voice returns, 'You have done well to acquire this. One final task must be completed 

before you hold the red scabbard in your mortal hands.' Tenal reaches out and hands you a note. 'Take this note and 

a wingblade of the spirocs to Kargek. When he receives them, I will speak to you one last time.'");
		quest::ding();

		#Tenal's Note to Kargek ID-20684
		quest::summonitem("20684"); }
}

#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:eastkarana  ID: 15077 -- Tenal_Redblade
Oknoggin_Stonesmacker in feerrott:

Code:
############################################
# ZONE: Feerrott (feerrott)
# DATABASE: Caveman + PEQ (from ServerPack 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Oknoggin_Stonesmacker
# ID: 47126
# TYPE: Warrior
# RACE: Ogre
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Wax Sealed Note ID-20673
# Tiny Lute ID-20674
#
# *** QUESTS INVOLVED IN ***
#
# 1) Warrior epic quest
#
#
#
############################################

sub EVENT_SAY { 

if($text=~/Hail/i){
quest::say("Yoo leave me 'lone!"); }
}

sub EVENT_ITEM {
   if($itemcount{20673} == 1)   {
		quest::say("Hmm, so Wenden send you. Here, take this to him as letter say.");
		quest::ding();

		# Tiny Lute ID-20674
		quest::summonitem("20674"); }
}

#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:feerrott  ID:47126 -- Oknoggin_Stonesmacker
Kargek_Redblade in freporte:

Code:
############################################
# ZONE: East Freeport (freeporte)
# DATABASE: Caveman + PEQ (from Serverpack 3.52)
# LAST EDIT DATE: 5/1/06
# VERSION: 1.0
# BASE QUEST BY: PEQ Team
# DEVELOPER: MWMDRAGON
# EDITED BY: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Kargek_Redblade
# ID: 10117
# TYPE: Warrior
# RACE: Human
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Wax Sealed Note ID-20673
# Tiny Lute ID-20674
# Redblade's Legacy ID- 18083
# Tanel's Note to Kargek ID-20684
# Spiroc Wingblade ID-20679
# Red Scabbard ID-17859
#
# *** QUESTS INVOLVED IN ***
#
#1 - Jagged Blade of War - Warrior Epic
#
#
#
#
############################################

######## EVENT_SAY AREA ####################
### Called when the NPC is spoken to by a PC

sub EVENT_SAY
{
	if($class eq "Warrior") {
   if($text=~/Hail/i)   {
   quest::emote("looks up from his forge and says, 'Hello there, Can I help you?' Your eyes are drawn to an 

extremely large [red sword Scabbard] strapped to his back with no sword in it.");
   quest::say("I said, can I help you or do you need help from [Wenden]?");   }

   if($text=~/Wenden/i)   {
   quest::emote("points to the other side of the forge and says, Wenden is my partner. He is standing right over 

there. If it is a question about a weapon, he will probably have the answers.'"); }

   if($text=~/red sword Scabbard/i)   {
   quest::emote("turns to look at you and says, 'It is a family Heirloom. I might tell you the story behind it if 

you do me a little [favor].'"); }

    if($text=~/favor/i) {
   quest::say("An associate of mine is wandering somewhere in the Feerrott. His name is Oknoggin Stonesmacker. If 

you will Deliver this note to him, I would appreciate it.");

   # Wax Sealed Note ID-20673
   quest::summonitem("20673"); } 
				 }
  
}

######## EVENT_ITEM AREA ###################
### Called when the NPC is handed items

sub EVENT_ITEM
{

	# Tiny Lute ID-20674
	if($itemcount{20674} == 1)   {
	quest::say("Thank you for delivering the note to my Associate. Take this book - It will tell you A little of 

the history of The old scabbard. If you would like to own the scabbard, seek out my younger brother Tenal and give 

him the book.");
   quest::ding();

	# Redblade's Legacy ID-18083
	quest::summonitem("18083"); }

   # Tenal's Note to Kargek ID-20684 and Spiroc Wingblade ID-20679
   if($itemcount{20684} == 1 && $itemcount{20679} == 1)   {
	quest::say("What is this? A note from my brother? Thank you for the gift as well.");
	quest::emote("reads the note and hands you the huge sword hilt. Your mind is filled with the sound of battle 

and a voice. 'Place the ancient sword blade, ancient blade, finely crafted dragon head hilt, and the jeweled dragon 

head hilt into the scabbard to receive your rewards. If you think you are worthy, place your rewards into the 

scabbard and see what havoc you can unleash on the world.'");
	quest::emote("addresses you as you turn to leave. 'One more thing. Gartrog over there has told me of a great 

discovery. Seems there are all sorts of stones being found in the recently discovered lost dungeons scattered around 

Antonica.  The Wayfarer's Brotherhood has found a way to make items even more powerful by using the stones with 

existing items.'");
	quest::ding();

	# Red Scabbard ID-17859
	quest::summonitem("17859"); }
}




### The End of this script must contain 2 empty lines for the EQ Quest System
#END of FILE Zone:freporte  ID:10117 -- Kargek_Redblade
Reply With Quote
  #2  
Old 05-02-2006, 05:14 PM
attempt37
Fire Beetle
 
Join Date: Apr 2006
Posts: 29
Default

Final 3 NPCs:


Wenden_Blackhammer in freporte:

Code:
############################################
# ZONE: East Freeport (freporte)
# DATABASE: Caveman + PEQ (from Serverpack 3.52)
# LAST EDIT DATE: 5/1/06
# VERSION: 1.0
# BASE QUEST BY: PEQ Team
# DEVELOPER: MWMDRAGON
# EDITED BY: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Wenden_Blackhammer
# ID: 10116
# TYPE: Warrior
# RACE: Dwarf
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Unjeweled Dragon Head Hilt ID-20668
# Diamond ID-10037
# Black Sapphire ID-10036
# Jacinth ID-10053
# Jeweled Dragon Head Hilt ID-20671
# Severely Damaged Dragon Head Hilt ID- 20669
# Rejesiam Ore ID-20666
# Ball of Everliving Golem ID-20677
# Finely Crafted Dragon Head Hilt ID-20672
# 
#
# *** QUESTS INVOLVED IN ***
#
#1 - Repair of the Unjeweled Dragon Head Hilt
#2 - Repair of the Severely Damaged Dragon Head Hilt
#
# *** QUESTS AVAILABLE TO ***
#
#1 - Warrior
#
#
############################################


sub EVENT_SAY
{ 

if($class eq "Warrior") {

if($text=~/Hail/i)
{
quest::say("What do you need?  Be specific. I'm busy right now!");
}

if($text=~/what hilt/i)
{
quest::say("What is it you need to be knowing about hilts?  Do you need one made or [repaired]?");
}

if($text=~/repaired/i)
{
quest::say("Well. tell me the name of the hilt you need repaired and I'll see what I can do.");
}

if($text=~/unjeweled dragon head hilt/i)
{
quest::say("That just looks like it's missing some gems.  I'm not quite sure what type of gems either but I can tell 

you two things about them just by the settings.  They were all different. and they all were very. very expensive.  

If I try to put the wrong kind of gems in these slots. it may be ruined forever.  I'll do whatever you want though. 

Just bring me the three gems you want me to try and put in the hilt.");
}

if($text=~/Severely Damaged Dragon Head Hilt/i)
{
quest::say("Unfotunatly this hilt can only be reforged with the propper components. You might have a rough time 

finding the correct ore types needed for this hilt. I'll do whatever you want though. Just bring me the two 

components you want me to use to try and reforge this hilt with and I'll do it.");
}

			}

}

sub EVENT_ITEM
{
   # Unjeweled Dragon Head Hilt ID-20668 - Diamond ID-10037 - Black Sapphire ID-10036 - Jacinth ID-10053
   if($itemcount{20668} == 1 && $itemcount{10037} == 1 && $itemcount{10036} == 1 && $itemcount{10053} == 1)
   {
   quest::emote("begins to fiddle with the hilt, gently pressing the gems into place. It seems to take forever as 

you watch in silence. Wenden slowly places the last gem in place and gently bends the settings to hold the gems 

before he hands it back to you. 'That's a very impressive looking hilt there. The material it is made out of seems 

strangely familiar,' Wenden says as he turns back to his forge and his other work.");
   quest::exp("1000");
   quest::ding();
   # Jeweled Dragon Head Hilt ID-20671
   quest::summonitem("20671");

   }

   # Severely Damaged Dragon Head Hilt ID- 20669 - Rejesiam Ore ID-20666 - Ball of Everliving Golem ID-20677
   elsif($itemcount{20669} == 1 && $itemcount{20666} == 1 && $itemcount{20677} == 1)
   {
   quest::emote("works his magic with his forge as you have never seen done quite like this. The bending and shaping 

to repair the hilt is only something a master of his art could even fathom to try. Once the hilt has been cooled in 

a near by bucket of ice cold water, he checks it for balance and resonance before handing it to you.");
   quest::exp("1000");
   quest::ding();
   # Finely Crafted Dragon Head Hilt ID-20672
   quest::summonitem("20672");

   }
}

#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:freporte  ID:10116 -- Wenden_Blackhammer
Mentrax_Mountainbone in frontiermtns:

Code:
############################################
# ZONE: Frontier Mountains (frontiermtns)
# DATABASE: Caveman + PEQ (from Serverpack 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Mentrax_Mountainbone
# ID: 92148
# TYPE: Warrior
# RACE: Giant
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Giant Sized Monocle ID-20678
# Rejesiam Ore ID-20666
#
# *** QUESTS INVOLVED IN ***
#
#1 - Jagged Blade of War - Warrior Epic
#
#
#
#
############################################

sub EVENT_SAY {
	if($text=~/Hail/i) {
		quest::say("What be it you want? Go away before I eat you for dinner!"); }
}

sub EVENT_ITEM {

	# Giant Sized Monocle ID-20678
	if($itemcount{20678} == 1) {
		quest::say("Eh, you actually found one! Thank you, $name. Here is a block of ore for you. Just don't 

let the other giants know.");
		quest::ding();

		# Rejesiam Ore ID-20666
		quest::summonitem("20666"); }
}

#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:frontiermtns  ID:92148 -- Mentrax_Mountainbone
Denken_Strongpick in oot:

Code:
############################################
# ZONE: Ocean of Tears (oot)
# DATABASE: Caveman + PEQ (from Serverpack 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Denken_Strongpick
# ID: 69061
# TYPE: Warrior
# RACE: Dwarf
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Keg of Vox Tail Ale ID-20664
# Block of Permafrost ID-20665
# Rebreather ID-16889
# Ancient Sword Blade ID-20667
#
# *** QUESTS INVOLVED IN ***
#
#1 - Jagged Blade of War - Warrior Epic
#
# *** QUESTS AVAILABLE TO ***
#
#1 - Warrior
#
# *** NPC NOTES ***
#
#
#
############################################


sub EVENT_SAY {

	if($text=~/Hail/i) {
		quest::say("Hello, $name. I am Denken Strongpick. I wish I could get off this rock, silly clan 

honor. My boss broke our rebreathers and we can not go back to the mainland before we gather some goblin relics."); 

}

	if($text=~/goblin relics/i) {
		quest::say("There are supposedly goblin ruins around here somewhere. Fendlemend thinks we will find 

paydirt underwater. We did find one thing."); }

	if($text=~/what did you find/i) {
		quest::say("We found a very fine sword blade.");
		quest::emote("pulls open his pack and shows you a razor sharp sword covered with runes.");
		quest::say("I can't figure out what type of metal it is and I sure can't figure out what technique 

was used to forge it. Perhaps you would like to take it off my hands and [buy] it?"); }

	if($text=~/buy/i) {
		quest::say("Out here, money is fairly useless to me. You see, I can't leave Fendlemend out here 

alone. I signed on with a very detailed contract. I could sure [use] a few things from the mainland though."); }

	if($text=~/use/i) {
		quest::say("I would be willing to part with this very fine blade for; a keg of Vox tail ale, a block 

of permafrost to keep it cool, and two new rebreathers to get this operation back underway.");}

}

sub EVENT_ITEM {

	# Keg of Vox tail ale ID-20664 and Block of Permafrost ID-20665 and 2 Rebreather ID-16889
	if($itemcount{20664} == 1 && $itemcount{20665} == 1 && $itemcount{16889} == 2) {
		quest::say("Excellent! Here is your sword. I feel like I'm at home already!");
		quest::ding();

		# Ancient Sword Blade ID-20667
		quest::summonitem("20667"); }
}


#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:oot  ID:69061 -- Denken_Strongpick
Reply With Quote
  #3  
Old 05-02-2006, 05:17 PM
attempt37
Fire Beetle
 
Join Date: Apr 2006
Posts: 29
Default

Note to anyone at PEQ, feel free to put this in your quest pack, the base of a couple of files came from there to start with.
Reply With Quote
  #4  
Old 05-03-2006, 01:24 AM
attempt37
Fire Beetle
 
Join Date: Apr 2006
Posts: 29
Default

I have updated the quest to include experience (found a table of experience required per level on the PEQ forums). The full quest should reward approximately 15% experience at level 51.

Server admins will still have to add ground spawns for the unjeweled dragon head hilt and severely damaged dragon head hilt in Lake Rathe and Timorous Deep respectively. They will also have to add the recipe for the final combine in the red scabbard to their DB.

The new code is as follows:


Tenal_Redblade in eastkarana:

Code:
############################################
# ZONE: East Karana (eastkarana)
# DATABASE: Cavedude + PEQ (from server release 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Tenal_Redblade
# ID: 15077
# TYPE: Warrior
# RACE: Human
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Redblade's Legacy ID-18083
# Totem of the Freezing War ID-20680
# Heart of Frost ID-10549
# Totem of Fiery War ID-20681
# Green Dragon Scales ID-11582
# Red Dragon Scales ID-11622
# Mark of the Sword ID-20683
# Hand of the Maestro ID-20676
# Tenal's Note to Kargek ID-20684
#  
#
# *** QUESTS INVOLVED IN ***
#
#1 - Warrior Epic Quest
#
#
#
############################################

sub EVENT_ITEM {

	#Redblade's Legacy ID-18083
	if($itemcount{18083} == 1) {
		quest::say("So Kargek sent you.  How is my dear brother?  If you come to me with this book then you must be interested in the scabbard.  Take this totem and return to me with it and the heart of frost from the goblins of permafrost. Do not return until this task is accomplished."); 
		quest::ding();
		quest::exp("100000");

		# Totem of the Freezing War ID-20680
		quest::summonitem("20680");}

	#Totem of the Freezing War ID-20680 and Heart of Frost ID-10549
	if($itemcount{20680} == 1 && $itemcount{10549} == 1) {
		quest::say("Very good, you have wreaked havoc on your foes in the ancient land of the giants. Rallos Zek must have guided your blade."); 
		quest::emote("voice is suddenly silenced and you feel as if your body is frozen. From Tenal's lips issues a voice that is not his own, 'Bring this mortal the scales of the children of Veeshan. The red and green as well as my war totem. I will guide your blade.' Your movement returns as Tenal falls to the ground, gasping for breath.");
		quest::ding();
		quest::exp("100000");

		#Totem of Fiery War ID-20681
		quest::summonitem("20681"); }

	#Totem of Fiery War ID-20681 and Red Dragon Scales ID-11622 and Green Dragon Scales ID-11582
	if($itemcount{20681} == 1 && $itemcount{11622} == 1 && $itemcount{11582} == 1) {
		quest::emote("looks at you oddly as you hand him the scales.");
		quest::say("What are..? You have done well, mortal, and you will be rewarded if you are truly brave. Travel to the Plane of Hatred and slay the ancient bard who lives there. Do not return without his hand and this mark or you will never be a true warlord.");
		quest::emote("drops to the ground as the last words leave his lips.");
		quest::ding();
		quest::exp("100000");

		# Mark of the Sword ID-20683
		quest::summonitem("20683"); }

	# Mark of the Sword ID-20683 and Hand of the Maestro ID-20676
	if($itemcount{20683} == 1 && $itemcount{20676} == 1) {
		quest::emote("looks horrified as you give him the hand of the Maestro of Rancor and show him the mark of the sword.  The godlike voice returns, 'You have done well to acquire this. One final task must be completed before you hold the red scabbard in your mortal hands.' Tenal reaches out and hands you a note. 'Take this note and a wingblade of the spirocs to Kargek. When he receives them, I will speak to you one last time.'");
		quest::ding();
		quest::exp("100000");

		#Tenal's Note to Kargek ID-20684
		quest::summonitem("20684"); }
}

#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:eastkarana  ID: 15077 -- Tenal_Redblade


Oknoggin_Stonesmacker in feerrott:

Code:
############################################
# ZONE: Feerrott (feerrott)
# DATABASE: Cavedude + PEQ (from server release 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Oknoggin_Stonesmacker
# ID: 47126
# TYPE: Warrior
# RACE: Ogre
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Wax Sealed Note ID-20673
# Tiny Lute ID-20674
#
# *** QUESTS INVOLVED IN ***
#
# 1) Warrior epic quest
#
#
#
############################################

sub EVENT_SAY { 

if($text=~/Hail/i){
quest::say("Yoo leave me 'lone!"); }
}

sub EVENT_ITEM {
   if($itemcount{20673} == 1)   {
		quest::say("Hmm, so Wenden send you. Here, take this to him as letter say.");
		quest::ding();
		quest::exp("1000");

		# Tiny Lute ID-20674
		quest::summonitem("20674"); }
}

#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:feerrott  ID:47126 -- Oknoggin_Stonesmacker


Kargek_Redblade in freporte:

Code:
############################################
# ZONE: East Freeport (freeporte)
# DATABASE: Cavedude + PEQ (from server release 3.52)
# LAST EDIT DATE: 5/1/06
# VERSION: 1.0
# BASE QUEST BY: PEQ Team
# DEVELOPER: MWMDRAGON
# EDITED BY: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Kargek_Redblade
# ID: 10117
# TYPE: Warrior
# RACE: Human
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Wax Sealed Note ID-20673
# Tiny Lute ID-20674
# Redblade's Legacy ID- 18083
# Tanel's Note to Kargek ID-20684
# Spiroc Wingblade ID-20679
# Red Scabbard ID-17859
#
# *** QUESTS INVOLVED IN ***
#
#1 - Jagged Blade of War - Warrior Epic
#
#
#
#
############################################

######## EVENT_SAY AREA ####################
### Called when the NPC is spoken to by a PC

sub EVENT_SAY
{
	if($class eq "Warrior") {
   if($text=~/Hail/i)   {
   quest::emote("looks up from his forge and says, 'Hello there, Can I help you?' Your eyes are drawn to an extremely large [red sword Scabbard] strapped to his back with no sword in it.");
   quest::say("I said, can I help you or do you need help from [Wenden]?");   }

   if($text=~/Wenden/i)   {
   quest::emote("points to the other side of the forge and says, Wenden is my partner. He is standing right over there. If it is a question about a weapon, he will probably have the answers.'"); }

   if($text=~/red sword Scabbard/i)   {
   quest::emote("turns to look at you and says, 'It is a family Heirloom. I might tell you the story behind it if you do me a little [favor].'"); }

    if($text=~/favor/i) {
   quest::say("An associate of mine is wandering somewhere in the Feerrott. His name is Oknoggin Stonesmacker. If you will Deliver this note to him, I would appreciate it.");

   # Wax Sealed Note ID-20673
   quest::summonitem("20673"); } 
				 }
  
}

######## EVENT_ITEM AREA ###################
### Called when the NPC is handed items

sub EVENT_ITEM
{

   # Tiny Lute ID-20674
   if($itemcount{20674} == 1)   {
	quest::say("Thank you for delivering the note to my Associate. Take this book - It will tell you A little of the history of The old scabbard. If you would like to own the scabbard, seek out my younger brother Tenal and give him the book.");
   quest::ding();
		quest::exp("1000");

	# Redblade's Legacy ID-18083
	quest::summonitem("18083"); }

   # Tenal's Note to Kargek ID-20684 and Spiroc Wingblade ID-20679
   if($itemcount{20684} == 1 && $itemcount{20679} == 1)   {
	quest::say("What is this? A note from my brother? Thank you for the gift as well.");
	quest::emote("reads the note and hands you the huge sword hilt. Your mind is filled with the sound of battle and a voice. 'Place the ancient sword blade, ancient blade, finely crafted dragon head hilt, and the jeweled dragon head hilt into the scabbard to receive your rewards. If you think you are worthy, place your rewards into the scabbard and see what havoc you can unleash on the world.'");
	quest::emote("addresses you as you turn to leave. 'One more thing. Gartrog over there has told me of a great discovery. Seems there are all sorts of stones being found in the recently discovered lost dungeons scattered around Antonica.  The Wayfarer's Brotherhood has found a way to make items even more powerful by using the stones with existing items.'");
	quest::ding();
		quest::exp("1000000");

	# Red Scabbard ID-17859
	quest::summonitem("17859"); }
}



### The End of this script must contain 2 empty lines for the EQ Quest System
#END of FILE Zone:freporte  ID:10117 -- Kargek_Redblade

Last edited by attempt37; 05-03-2006 at 09:36 AM..
Reply With Quote
  #5  
Old 05-03-2006, 01:26 AM
attempt37
Fire Beetle
 
Join Date: Apr 2006
Posts: 29
Default

Continued from above:



Wenden_Blackhammer in freporte:

Code:
############################################
# ZONE: East Freeport (freporte)
# DATABASE: Cavedude + PEQ (from server release 3.52)
# LAST EDIT DATE: 5/1/06
# VERSION: 1.0
# BASE QUEST BY: PEQ Team
# DEVELOPER: MWMDRAGON
# EDITED BY: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Wenden_Blackhammer
# ID: 10116
# TYPE: Warrior
# RACE: Dwarf
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Unjeweled Dragon Head Hilt ID-20668
# Diamond ID-10037
# Black Sapphire ID-10036
# Jacinth ID-10053
# Jeweled Dragon Head Hilt ID-20671
# Severely Damaged Dragon Head Hilt ID- 20669
# Rejesiam Ore ID-20666
# Ball of Everliving Golem ID-20677
# Finely Crafted Dragon Head Hilt ID-20672
# 
#
# *** QUESTS INVOLVED IN ***
#
#1 - Repair of the Unjeweled Dragon Head Hilt
#2 - Repair of the Severely Damaged Dragon Head Hilt
#
# *** QUESTS AVAILABLE TO ***
#
#1 - Warrior
#
#
############################################


sub EVENT_SAY
{ 

if($class eq "Warrior") {

if($text=~/Hail/i)
{
quest::say("What do you need?  Be specific. I'm busy right now!");
}

if($text=~/what hilt/i)
{
quest::say("What is it you need to be knowing about hilts?  Do you need one made or [repaired]?");
}

if($text=~/repaired/i)
{
quest::say("Well. tell me the name of the hilt you need repaired and I'll see what I can do.");
}

if($text=~/unjeweled dragon head hilt/i)
{
quest::say("That just looks like it's missing some gems.  I'm not quite sure what type of gems either but I can tell you two things about them just by the settings.  They were all different. and they all were very. very expensive.  If I try to put the wrong kind of gems in these slots. it may be ruined forever.  I'll do whatever you want though. Just bring me the three gems you want me to try and put in the hilt.");
}

if($text=~/Severely Damaged Dragon Head Hilt/i)
{
quest::say("Unfotunatly this hilt can only be reforged with the propper components. You might have a rough time finding the correct ore types needed for this hilt. I'll do whatever you want though. Just bring me the two components you want me to use to try and reforge this hilt with and I'll do it.");
}

			}

}

sub EVENT_ITEM
{
   # Unjeweled Dragon Head Hilt ID-20668 - Diamond ID-10037 - Black Sapphire ID-10036 - Jacinth ID-10053
   if($itemcount{20668} == 1 && $itemcount{10037} == 1 && $itemcount{10036} == 1 && $itemcount{10053} == 1)
   {
   quest::emote("begins to fiddle with the hilt, gently pressing the gems into place. It seems to take forever as you watch in silence. Wenden slowly places the last gem in place and gently bends the settings to hold the gems before he hands it back to you. 'That's a very impressive looking hilt there. The material it is made out of seems strangely familiar,' Wenden says as he turns back to his forge and his other work.");
   quest::exp("100000");
   quest::ding();
   # Jeweled Dragon Head Hilt ID-20671
   quest::summonitem("20671");

   }

   # Severely Damaged Dragon Head Hilt ID- 20669 - Rejesiam Ore ID-20666 - Ball of Everliving Golem ID-20677
   elsif($itemcount{20669} == 1 && $itemcount{20666} == 1 && $itemcount{20677} == 1)
   {
   quest::emote("works his magic with his forge as you have never seen done quite like this. The bending and shaping to repair the hilt is only something a master of his art could even fathom to try. Once the hilt has been cooled in a near by bucket of ice cold water, he checks it for balance and resonance before handing it to you.");
   quest::exp("100000");
   quest::ding();
   # Finely Crafted Dragon Head Hilt ID-20672
   quest::summonitem("20672");

   }
}

#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:freporte  ID:10116 -- Wenden_Blackhammer


Mentrax_Mountainbone in frontiermtns:

Code:
############################################
# ZONE: Frontier Mountains (frontiermtns)
# DATABASE: Cavedude + PEQ (from server release 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Mentrax_Mountainbone
# ID: 92148
# TYPE: Warrior
# RACE: Giant
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Giant Sized Monocle ID-20678
# Rejesiam Ore ID-20666
#
# *** QUESTS INVOLVED IN ***
#
#1 - Jagged Blade of War - Warrior Epic
#
#
#
#
############################################

sub EVENT_SAY {
	if($text=~/Hail/i) {
		quest::say("What be it you want? Go away before I eat you for dinner!"); }
}

sub EVENT_ITEM {
	# Giant Sized Monocle ID-20678
	if($itemcount{20678} == 1) {
		quest::say("Eh, you actually found one! Thank you, $name. Here is a block of ore for you. Just don't let the other giants know.");
		quest::ding();
		quest::exp("1000");

		# Rejesiam Ore ID-20666
		quest::summonitem("20666"); }
}

#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:frontiermtns  ID:92148 -- Mentrax_Mountainbone


Denken_Strongpick in oot:

Code:
############################################
# ZONE: Ocean of Tears (oot)
# DATABASE: Cavedude + PEQ (from server release 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Denken_Strongpick
# ID: 69061
# TYPE: Warrior
# RACE: Dwarf
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Keg of Vox Tail Ale ID-20664
# Block of Permafrost ID-20665
# Rebreather ID-16889
# Ancient Sword Blade ID-20667
#
# *** QUESTS INVOLVED IN ***
#
#1 - Jagged Blade of War - Warrior Epic
#
# *** QUESTS AVAILABLE TO ***
#
#1 - Warrior
#
# *** NPC NOTES ***
#
#
#
############################################


sub EVENT_SAY {

	if($text=~/Hail/i) {
		quest::say("Hello, $name. I am Denken Strongpick. I wish I could get off this rock, silly clan honor. My boss broke our rebreathers and we can not go back to the mainland before we gather some goblin relics."); }

	if($text=~/goblin relics/i) {
		quest::say("There are supposedly goblin ruins around here somewhere. Fendlemend thinks we will find paydirt underwater. We did find one thing."); }

	if($text=~/what did you find/i) {
		quest::say("We found a very fine sword blade.");
		quest::emote("pulls open his pack and shows you a razor sharp sword covered with runes.");
		quest::say("I can't figure out what type of metal it is and I sure can't figure out what technique was used to forge it. Perhaps you would like to take it off my hands and [buy] it?"); }

	if($text=~/buy/i) {
		quest::say("Out here, money is fairly useless to me. You see, I can't leave Fendlemend out here alone. I signed on with a very detailed contract. I could sure [use] a few things from the mainland though."); }

	if($text=~/use/i) {
		quest::say("I would be willing to part with this very fine blade for; a keg of Vox tail ale, a block of permafrost to keep it cool, and two new rebreathers to get this operation back underway.");}

}

sub EVENT_ITEM {

	# Keg of Vox tail ale ID-20664 and Block of Permafrost ID-20665 and 2 Rebreather ID-16889
	if($itemcount{20664} == 1 && $itemcount{20665} == 1 && $itemcount{16889} == 2) {
		quest::say("Excellent! Here is your sword. I feel like I'm at home already!");
		quest::ding();
		quest::exp("100000");

		# Ancient Sword Blade ID-20667
		quest::summonitem("20667"); }
}


#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:oot  ID:69061 -- Denken_Strongpick

Last edited by attempt37; 05-03-2006 at 09:36 AM..
Reply With Quote
  #6  
Old 05-08-2006, 10:23 AM
attempt37
Fire Beetle
 
Join Date: Apr 2006
Posts: 29
Default

The following should add the recipe required to combine the four pieces in the red scabbard to get the blades of strategy and tactics.



INSERT INTO tradeskill_recipe (name,tradeskill,skillneeded,trivial,nofail,replac e_container,notes) VALUES('Jagged Blade of War (final combine)',75,0,0,1,1,'Created by attempt37');
INSERT INTO tradeskill_recipe_entries (recipe_id,item_id,successcount,failcount,componen tcount,iscontainer) VALUES(8759,17859,0,0,0,1);
INSERT INTO tradeskill_recipe_entries (recipe_id,item_id,successcount,failcount,componen tcount,iscontainer) VALUES(8759,20671,0,0,1,0);
INSERT INTO tradeskill_recipe_entries (recipe_id,item_id,successcount,failcount,componen tcount,iscontainer) VALUES(8759,20672,0,0,1,0);
INSERT INTO tradeskill_recipe_entries (recipe_id,item_id,successcount,failcount,componen tcount,iscontainer) VALUES(8759,20667,0,0,1,0);
INSERT INTO tradeskill_recipe_entries (recipe_id,item_id,successcount,failcount,componen tcount,iscontainer) VALUES(8759,20670,0,0,1,0);
INSERT INTO tradeskill_recipe_entries (recipe_id,item_id,successcount,failcount,componen tcount,iscontainer) VALUES(8759,10909,1,0,0,0);
INSERT INTO tradeskill_recipe_entries (recipe_id,item_id,successcount,failcount,componen tcount,iscontainer) VALUES(8759,10910,1,0,0,0);
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

   

All times are GMT -4. The time now is 04:46 PM.


 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3