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