[Sensu-Bean]

The road to the Celestial Fists (Monk Epic)

This is my attempt in scripting out the monk epic in perl. I am giving this to everyone to use as a rough draft. It is missing faction/xp hits, and some advanced perl needs to be inserted for this to work exactly as Eqlive.

Updates

* 08-16-04 Fixed spelling errors
* 08-23-04 Added Qeynos Headband Quests

Part 1 - Freeport White & Yellow Sash of Order

#Zone - West Freeport
#Type - Quest
#Class - Monk
#mob - Velan Torresk

sub EVENT_SAY
{
if($text=~/Hail,$mname/i)
 {
 quest::say("Greetings, $name ! I am Velan Torresk of the Ashen Order. I am in charge of training the newest members of our clan, and helping them advance their skills and rank. When members perform certain tasks on behalf of the Order, they advance to a higher rank in our clan, and are awarded a special [sash].");
 }
if($text=~/What sash?/i)
 {
 quest::say("The Sashes of Order are given out by the various trainers of our clan. I give out the [white training sash] and the [yellow sash of order], and [Reyia] is in charge of the orange and red sashes.");
 }
if($text=~/What white training sash?/i)
 { 
 quest::say("The white training sash of the Ashen Order is awarded to our new members for completing a few simple tasks to prove their devotion to our clan. As you know, Freeport is a very hostile place, under constant attack from orcs, wild beasts, and even the undead. To help keep this city and its citizens relatively safe, we mus help the Militia protect the main gates. Bring me two deathfist pawn scalps, a snake fang, and a bone chip. Good luck, $name , represent us well!");
 }
if($text=~/Who is Reyia?/i)
 {
 quest::say("Reyia is standing outside the Ashen Order. She will instruct you in completing the orange and red sashes");
 }
if($text=~/What yellow sash?/i)
 {
 quest::say("To earn the yellow sash, you must prove yourself to be very skilled in the art of fighting. The lands to the west and south of Freeport are filled with dangerous beasts that often prey upon innocent travelers. Help protect our merchant caravans and traveling citizens, while at the same time practicing your defensive skills, and eliminating these deadly creatures from the surrounding landscape. Bring me a giant snake rattle, a deathfist slashed belt, a desert tarantula chitin, and turn in your white training sash, and I shall reward your noble work with our yellow sash of order. Good luck, $name !");
 }
}

sub EVENT_ITEM
{
if($itemcount{13794} && $itemcount{13794} && $itemcount{13067} && $itemcount{13073} == 1)
 {
 quest::say("Good work, $name , you have worked hard and proven yourself a valuable addition to the Ashen Order. Here is your white training sash, wear it with pride");
 quest::summonitem(10130);
 }
}

sub EVENT_ITEM
{
if($itemcount{13916} && $itemcount{13058} && $itemcount{20901} && $itemcount{10130} == 1)
 {
 quest::say("Good work, $name , you have worked hard and proven yourself a valuable addition to the Ashen Order. Here is your yellow sash of order, wear it with pride");
 quest::summonitem(10131);
 }
}

Part 2 - Freeport Orange & Red Sash of Order

#Zone - West Freeport
#Type - Quest
#Class - Monk
#Mob - Reyia Beslin

sub EVENT_SAY
{
if($text=~/Hail,$mname/i)
 {
 quest::say("Greetings, $name . I am Reyia Beslin of the Ashen Order. I help train our members and I am in charge of handing out the orange and red sashes of order. Would you like to know [how you can get an orange sash]? Or maybe you think you are ready to earn the [red sash]?");
 }
if($text=~/How can I get an orange sash?/i)
 {
 quest::say("To prove your skills and earn the orange sash of order, you must bring me the following items, a greater lightstone, a cutthroat insignia ring, a legionnaires bracer, and of course, your yellow sash. I will leave it to you to figure out exactly where to get these items. Good luck, $name .");
 }
if($text=~/I am ready to earn the red sash/i)
 {
 quest::say("So, you think you are skilled enough to earn the red sash of order, $name ? I have just the [task] for you then. But be warned, this will be the toughest challenge you have faced yet. There are many legends and myths of great heroes and ancient evils from all over Norrath. Here in Freeport, we get travelers from all over the world, and we get their tales as well. The point is that most of these stories are just that, stories and fairy tales. Told to amuse people and frighten children. I also thought the tales I heard about the [Marnek Jaull] were only legends, but now I know better.");
 }
if($text=~/Who is Marnek Jaull?/i")
 {
 quest::say("Marnek Jaull led a cult of necromancers who followed the Burning Prince, Solusek Ro. He built an army, known as the Burniing Dead, and spread destruction and fire throughout Antonica. Over the years, the Burning Dead fought many fierce and bloody battles with the paladins of Prexus, the Oceanlord. Though Marnek achieved many victories over the paladins, ultimately they were able to defeat him and destroy the Burning Dead. Legends say that before his defeat, Marnek created many powerful weapons and items, and wrote many books on his findings in the areas of magic. Many of these items were hidden away from the paladin forcer, and remain untouched, waiting for Marneks return, as the legends go.");
 }
if($text=~/What task?/i)
 {
 quest::say("Ive heard a few legends of a powerful wand that Marnek himself used to wield. This was know as the wand of the Burning Dead, and was rumored to instill its owner in mystical energies. The legends I have heard all differed on the wands creation and powers, but the basic story was always the same. I will [tell you the legend] if you like. The task I have for you is to bring me the two parts that make up the wand of the Burning Dead, before they can be assembled and used for evil once again. Bring me Marneks wand and the Sapphire of Souls, along with your orange sash, and you will have proven yourself a loyal member of the Ashen Order, worthy of recieving the red sash.");
 }
if($text=~/I would like you to tell me the legend/i)
 {
 quest::say("The legend of the wand of the Burning Dead goes basically like this, though you may hear slighty different versions from others. Marnek did a lot of experiments and created an unknown number of diabolical artifacts and weapons. One of his creations was this wand. Marnek fashioned a charred wand from the scorched bone of a paladin of Prexus, and Solusek Ro himself created the wretched Sapphire of Souls. Then, Marnek and his priests combined these, with the Burning Prince's blessing, to create the wand of the Burning Dead. Marnek used this Wand and its powers in his evil and destructive reign over Antonica. Years later, as Marnek starting losing battles to the paladins of Prexus, one of his own followers, a necromancer named Kenox, was able to steal the wand. Sensing Marnek's defeat, Kenox made his way toward Odus, hoping to strike a deal with the paladins for the wand. Would you like me to [tell you about Kenox]?");
 }
if($text=~/I would like you to tell me about Kenox/i)
 {
 quest::say("Well, Kenox was not as sly as he liked to think he was. Marnek knew full well what he was up to, but let him continue with his plans. Kenox had arranged to meet with two paladins late one nght on a small island in Erud's Crossing, a place that would be considered neutral ground. Sir Toran Neshal, leader of the paladins, knowing the power of the wand, was certainly not going to make any deals with a servant of Solusek Ro, and definitely not foolish enough to take any chances with this mission. Imagine the look on Kenox's face when a ship carrying more than 25 paladins, including Sir Toran, arrived at the small island! The paladins immediately captured Kenox and the wand, and headed back to Erudin. Would like me to [tell you what happened to Toran]?");
 }
if($text=~/What happened to Toran?/i)
 {
 quest::say"Below the deck of the ship, Toran and his men questioned Kenox and carefully inspected the wand. Toran ordered one of his men to pick up the wand and try to identify its true powers. The man picked up the wand, but was unable to decipher its magic. He handed it to Toran, just as Marnek and Solusek had hoped, and the wand exploded, instantly incinerating the ship and everyone aboard, and lighting up the night sky with a giant fireball. Marnek's plan had succeeded. With the help and blessing of the Burning Prince, they had destroyed Sir Toran and an entire squad of Prexus' finest paladins. Years later, though, the paladins were able to regroup and ultimately defeat Marnek. The wand of the Burning Dead was destroyed and gone forever. Or least, that's what we thought. This wand must never be allowed to be made whole again.");
 }
}

sub EVENT_ITEM
{
if($itemcount{10400} && $itemcount{1903} && $itemcount{2299} && $itemcount{10131} == 1)
 {
 quest::say("You have proven yourself a mighty warrior. I am honored to present you, $name , with the orange sash of order");
 quest::summonitem(10132);
 }
}

sub EVENT_ITEM
{
if($itemcount{13237} && $itemcount{13238} && $itemcount{10132} == 1)
 {
 quest::say("Good job, $name ! Congratulations. With the destruction of these evil items, the wand of the Burning Dead will never bring harm to anyone in Norrath again. It is my honor to present to you, on behalf of Master Closk and the Ashen Order, the red sash. May Quellious be with you always");
 quest::summonitem(10133);
 }
}