ShadowKnight Epic - Complete

FaerinTelDanor · #1 07-29-2005, 02:12 AM

Code:

://EQEMU/Quests/kerraridge/marl_kastane.pl

############################################
# Developer: Faerin
# Modified: July 28, 2005
# Database: PEQ-Kunark
############################################
# *** NPC INFORMATION ***
#
# NAME: marl_kastane
# ID: 74089
# Class: Warrior
# Level: 50
# Zone: Kerra Isle
############################################
# *** Quest Info ***
# Class: ShadowKnight
# Level Range: 50-60
# Quest Name: SK Epic
############################################
# *** Items Needed ***
#
# 1) #14376 - Note to Marl
# 2) #14381 - Blood of Kyrenna
# 3) #14379 - Glohnor Wrappings
############################################
# *** Rewards **
#
# 1) #14375 - Seal of Kastane
# 2) #14377 - Dark Shroud
# 3) #14370 - Will of Innoruuk
############################################ 
sub EVENT_SAY
{
  if($text=~/Hail/i)
  {
    quest::say("Begone!! You do not have the will to do the things I require!");
  }

  if($text=~/will of innoruuk/i)
  {
    quest::say("You speak of a myth, friend. Such an object does not exist in this age and the secret of its creation lies locked in my mind, where it shall stay. It has been passed down through generations in my line, not to be revealed to a soul until certain events have come to pass.");
  }

  if($text=~/events/i)
  {
    quest::say("My apologies, $name, I have said too much already. Instead, I have an errand to occupy your thoughts. Take this as proof that you are sent from me and find my brother in Paineel. I haven't spoken with him in some time now and his well being is essential to our family's destiny.");
    quest::summonitem("14375");
  }

  if($text=~/prophecy/i)
  {
    quest::say("I suppose it is time for the secret to be shared. Ages ago, two brothers were born. Glohnor was highly favored by the pompous Lightbringer, whose name we do not utter. Lhranc was chosen by the Prince of Hate to bring destruction and turmoil to the sons of men. The one thing they shared in common was their love of the fair priestess, Kyrenna. Kyrenna fell deeply in love with Glohnor. When Lhranc discovered this, he was overcome with rage and unwisely attacked his brother, who happened to be far more adept in combat. The fight cost Lhranc dearly. He lost his dignity as well as an eye in the struggle. He was ordered to leave Freeport and live his life in exile from the only home he had ever known.");
  }

  if($text=~/lhranc/i)
  {
    quest::say("Lhranc wandered the deserts of Ro for weeks, sinking deeper into depression and giving in to rage. Reports from the local merchants and caravans had him roaming the dunes muttering to himself incoherently. Eventually, he was forgotten, blending in with the hermits and madmen common to that region, forgotten by all save one.");
  }

  if($text=~/who is the one/i)
  {
    quest::say("Innoruuk had not forsaken Lhranc. Once his rage and hate had matured and sufficiently altered his soul, the dark prince summoned him and gave him dominion over the demons that had enslaved his mind. He was given a weapon that made him powerful enough to slay any enemy that stood in his way. He was to become the first human to harness the power of the almighty shadowknight. After years of traveling and teaching mankind his newfound abilities, Lhranc sneaked back into Freeport through a series of sewers in search of revenge against his brother and in hopes of kidnapping Kyrenna, the source of his obsession. Waiting until Glohnor was alone, Lhranc sprang from the shadows and slew his brother. This was the act that brought about his curse.");
  }

  if($text=~/curse/i)
  {
    quest::say("As I said, Glohnor was highly favored by the Lightbringer. When the contemptible god of honor discovered what had been done, he transformed Lhranc into a deformed spectral knight and placed him in the ruined city. Lhranc then used what remained of his power to summon Kyrenna to his side and bind her there in a timeless, seamless sphere. He struggled for centuries to break her will and convince her to serve Innoruuk, certain that together they could remove his curse. But then, there was the prediction.");
  }

  if($text=~/secret plan/i)
  {
    quest::say("The plan is a last resort only to be tried if Kyrenna indeed escapes and the remains are discovered. Judging by my brother's words that time is now. It will take the most powerful hero all the courage and dedication he can muster to complete the ritual.");
  }

  if($text=~/I will complete the ritual/i)
  {
    quest::say("It would seem we have no choice, and this is our only hope. I must first make a dark shroud. To do this I must stain it with the blood of an innocent. Go find me this rare blood so I can start the creating of the shroud.");
  }

}

sub EVENT_ITEM
{
  if($itemcount{14376} == 1)
  {
    quest::emote("reads the note, eyes widening in panic. He raises his eyes to you and says,");
    quest::say("This is grave news, friend. If the prophecy is allowed to be fulfilled, our strength will vanish into obscurity. Goodness and purity will spread like a plague across the land and the servants of Hate will be powerless to stop it!");
    quest::ding();
  }

  if($itemcount{14381} == 1)
  {
    quest::say("Here, you take this shroud. You must now find the spirit of glohnor and place this item on him. This should force him back into his mummified body and then you must destroy this newly raised form and return to me its wrappings.");
    quest::summonitem("14377");
    quest::ding();
  }

  if($itemcount{14379} == 1)
  {
    quest::say("You've done it! Your efforts will stand as a tribute to our kind for time eternal, my friend. Although nothing could possibly serve as a just reward for your accomplishments, please accept this as well as my eternal gratitude. It has been fashioned from the wraps of the mummy and shall protect you well.");
    quest::summonitem("14370");
    quest::ding();
  }
}

FaerinTelDanor · #2 07-29-2005, 02:13 AM

Code:

://EQEMU/Quests/neriaka/smaka.pl

############################################
# Developer: Faerin
# Modified: July 28, 2005
# Database: PEQ-Kunark
############################################
# *** NPC INFORMATION ***
#
# NAME: smaka
# ID: 40034
# Class: Shopkeeper
# Level: 40
# Zone: neriaka
############################################
# *** Quest Info ***
# Class: ShadowKnight
# Level Range: 50-60
# Quest Name: SK Epic
############################################
# *** Items Needed ***
#
# 1) 1000 Platinum
############################################
# *** Rewards **
#
# 1) #14365 - Cough Elixir
############################################ 
sub EVENT_SAY
{
  if($text=~/Hail/i)
  {
    quest::say("You want stuff? Or mebby you looks for a cure?");
  }

  if($text=~/cough elixer/i)
  {
    quest::say("Ahh, you want me cure?! It cost lots of money, big big secret it is. Only us ogres know how to make. You wants? Only 1000 platinum! Make you feels bedder in no times!");
  }
}

sub EVENT_ITEM
{
  if ($platinum == 1000)
  {
    quest::say("Okay, enjoy me drink!");
    quest::summonitem("14365");
    quest::ding();
    quest::faction(69,30);
    quest::faction(87,30);
    quest::faction(88,30);
  }
}

FaerinTelDanor · #3 07-29-2005, 02:13 AM

Code:

://EQEMU/Quests/paineel/duriek_bloodpool.pl

############################################
# Developer: Faerin
# Modified: July 28, 2005
# Database: PEQ-Kunark
############################################
# *** NPC INFORMATION ***
#
# NAME: duriek_bloodpool
# ID: 75006
# Class: Warrior
# Level: 55
# Zone: Paineel
############################################
# *** Quest Info ***
# Class: ShadowKnight
# Level Range: 50-60
# Quest Name: SK Epic
############################################
# *** Items Needed ***
#
# 1) #18099 - Letter to Duriek
# 2) #14365 - Cough Elixir
# 3) #14382 - Dusty Tome
# 4) #5403 - Ghoulbane
# 5) #11609 - Soul Leech, Dark Sword of Blood
# 6) #5430 - Blade of Abrogation
# 7) #14366 - Decrepit Sheath
############################################
# *** Rewards **
#
# 1) Loot - #14367 - Corrupted Ghoulbane
############################################ 
sub EVENT_SAY
{
  if($text=~/apprentice/i)
  {
    quest::say("As stubborn and foolish as he sometimes was, he was full of potential. Had he managed to achieve my age he doubtless would have surpassed my abilities. Though I am not surprised at his passing, he will be sorely missed. Well, I thank you for your efforts. Feel free to meet me in the tavern for a drink sometime. I must now get to the task of replacing my associate.");
  }

  if($text=~/I will replace/i)
  {
    quest::say("Hmm, you seem a bit green and I hesitate to trust you with such an important work, but time is of the essence as my days in this world are running out. Bring me back a bottle of cough elixir and, if you are still interested, I will instruct you further.");
  }

  if($text=~/searching/i)
  {
    quest::say("I possess a key that will open a sealed tome to be found somewhere in the ruins uncovered here not long ago. Recover that tome for me and I am certain I will be able to corrupt the Ghoulbane. My name will be etched in history and you will wield a legend! You must hurry now, and I must return to my studies. Do not return to me, $name, without the tome.");
  }

  if($text=~/what items/i)
  {
    quest::say("I will need the Ghoulbane, the Soul Leech, the Blade of Abrogation, and the Decrepit Sheath. Alas, I am far too ill to travel and collect these pieces. I must call upon your youth and ability again, $name. Return to me with these items and I shall be known throughout history as the greatest grave lord to have walked Norrath and you shall be among the most powerful in our art.");
  }
}

sub EVENT_ITEM
{
  if ($itemcount{18099} == 1)
  {
    quest::say("Yes, most unfortunate. I was informed last week of the death of my most recent apprentice. A few months ago, I paid a substantial sum to a group of rogues sent from Neriak to collect on a gambling debt. He swore to me that was the end of it, but I suspected otherwise. My warnings of gambling with the rogues fell on deaf ears. Please accept this for your troubles.");
    quest::ding();
  }

  if ($itemcount{14365} == 1)
  {
    quest::say("Thank you. Now, quickly, there is not much time for me. What I tell you here now must never be shared with another soul. I have spent the better part of my life piecing together clues for the creation of a legendary dark blade, a corrupted Ghoulbane. I am very close to understanding the method used in manipulating the enchantments of the Ghoulbane, but in my current condition, I cannot finish collecting the research. My previous apprentice was searching for this last clue when he met his untimely demise.");
    quest::ding();
  }

  if ($itemcount{14382} == 1)
  {
    quest::emote("gasps at you in astonishment, eyes beaming with pride.");
    quest::say("You've found it! It seems I underestimated you. You have succeeded where others failed. I feared it would never come to pass.");
    quest::emote("takes the key from his neck, softly muttering some words, and places it in a previously unseen keyhole. The book's hinges creak as Duriek pulls it open. After reading for a few moments, he says,");
    quest::say("It is even better than I had hoped! It will take me weeks to uncover a portion of what this book has to offer. But this is what I have been searching for, so many years! At last I know the items required to corrupt that accursed blade!");
    quest::ding();
  }

  if ($itemcount{5403} == 1 && $itemcount{11609} == 1 && $itemcount{5430} == 1 && $itemcount{14366} == 1)
  {
    quest::emote("takes the Ghoulbane and places the other swords on either side of it. The sheath begins to gleam so intensely, you can see the bones inside Duriek's hands. After several minutes, there is a final, blinding flash. Duriek collapses to the ground. After a few moments, Duriek motions you closer and whispers,");
    quest::say("You have done well. I wish fate had been kinder to me and allowed me your aid years ago, I might have lived long enough to enjoy the fame our combined efforts. I studied much of the tome you retrieved and have stumbled upon something that may be the key to unleashing darkness upon the face of Norrath forever. You must seek out a powerful lich by the name of Lhranc. Farewell, $name.");
    quest::emote("places the corrupted Ghoulbane in your hands with his last bit of energy.");
    quest::ding();
    quest::summonitem("14367");
    quest::emote("vanishes.");
    quest::depop();
  }
}

FaerinTelDanor · #4 07-29-2005, 02:14 AM

Code:

://EQEMU/Quests/overthere/gerot_castane.pl

############################################
# Developer: Faerin
# Modified: July 28, 2005
# Database: PEQ-Kunark
############################################
# *** NPC INFORMATION ***
#
# NAME: gerot_kastane
# ID: 75012
# Class: Warrior
# Level: 50
# Zone: Paineel
############################################
# *** Quest Info ***
# Class: ShadowKnight
# Level Range: 50-60
# Quest Name: SK Epic
############################################
# *** Items Needed ***
#
# 1) #14375 - Seal of Kastane
# 2) #14378 - Head of Glohnor
############################################
# *** Rewards **
#
# 1) #14376 - Note to Marl
# 2) #14369 - Head of the Valiant
############################################ 
sub EVENT_ITEM
{
  if($itemcount{14375} == 1)
  {
    quest::say("At last! I have been waiting for my brother for weeks! We are doomed! Innoruuk will taint our seed into some perverse, twisted, maddened breed. The prophecy has begun to unfold and there are none capable of stopping it. Quickly, return this note to Marl, we must hide! We have failed the master! We must escape the hateful one's wrath!");
    quest::say("$name! My hero! I am at your service. I have been told to tell you all I know of the Head of the Valiant. Its construction is a mockery to the gods of Light, an abomination above all others. The method of creation of the Head of the Valiant was passed down through my family for centuries. All I require of you is the physical head of a valiant warrior. I have the rest of the materials right here to fashion this item for you.");
    quest::summonitem("14376");
    quest::ding();
  }
  
  if($itemcount{14378} == 1)
  {
    quest::say("Good travels, dark one! May Innoruuk curse your enemies!");
    quest::summonitem("14369");
    quest::ding();
  }
}

FaerinTelDanor · #5 07-29-2005, 02:15 AM

Code:

://EQEMU/Quests/qcat/teydar.pl

############################################
# Developer: Faerin
# Modified: July 28, 2005
# Database: PEQ-Kunark
############################################
# *** NPC INFORMATION ***
#
# NAME: teydar
# ID: 45044
# Class: Warrior
# Level: 60
# Zone: Qeynos Aqueducts
############################################
# *** Quest Info ***
# Class: ShadowKnight
# Level Range: 50-60
# Quest Name: SK Epic
############################################
# *** Items Needed ***
#
# 1) #14372 - Drake Spine
# 2) #14371 - Decrepit Hide
# 3) #16507 - Bar of Enchanted Platinum
############################################
# *** Rewards **
#
# 1) #14366 - Decrepit Sheath
############################################ 
sub EVENT_SAY
{
  if($text=~/Hail/i)
  {
    quest::say("Hello $name, It's good to see another shadowknight. I'm Teydar, I've made it my life to fashion suitable scabbard and sheaths for our order.");
  }

  if($text=~/decrepit sheath/i)
  {
    quest::say("The object you desire is very difficult to fashion, nearly impossible, really. All I can offer to do is try. The real difficulty is the contents that give the sheath its power. They have to be of an almost equal evil. I think some kind of decrepit hide, a drake spine along with a bar of enchanted platinum should prove enough to make this item.");
  }
}

sub EVENT_ITEM
{
  if ($itemcount{14372} == 1 && $itemcount{14371} == 1 && $itemcount{16507} == 1)
  {
    quest::say("I did it! The pieces you got me were perfect! It took a huge effort on my part to craft this, of course. it saddens me that I'm unable to keep one of my best works. A deal is a deal. There is honor among shadowknights.");
    quest::ding();
    quest::exp(250);
    quest::summonitem("14366");
  }
}

FaerinTelDanor · #6 07-29-2005, 02:15 AM

Code:

://EQEMU/Quests/tox/knarlthenne_skurl.pl

############################################
# Developer: Faerin
# Modified: July 28, 2005
# Database: PEQ-Kunark
############################################
# *** NPC INFORMATION ***
#
# NAME: knarthenne_skurl
# ID: 38058
# Class: Warrior
# Level: 50
# Zone: Toxxulia Forest
############################################
# *** Quest Info ***
# Class: ShadowKnight
# Level Range: 50-60
# Quest Name: SK Epic
############################################
# *** Items Needed ***
#
############################################
# *** Rewards **
#
# 1) #17051 - Soul Case
############################################ 
sub EVENT_SAY
{
  if($text=~/Hail/i)
  {
    quest::say("Ah, you do not possess the heart of an innocent. Be gone with you!");
  }

  if($text=~/heart of an innocent/i)
  {
    quest::say("What's that? Heart of the Innocent, you say?! Ages, it has been, since I was last asked that. The Heart of the Innocent is an item of great power. Few are they who have ever commanded the dark magic of such an object. It is the bound soul of a pure mortal, rare indeed. Take this hollow gem, and combine with it the heart of one who is pure. If your hand is steady and your mind is clear, you shall have what you seek.");
    quest::summonitem("17051");
  }
}

Traul · #7 07-29-2005, 07:26 AM

Woot, Shadowknight Epic is sweet!