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