View Single Post
  #8  
Old 09-11-2009, 04:14 AM
Lillu
Hill Giant
 
Join Date: Sep 2008
Posts: 204
Default

Rather try this, I was sleepy :p
Code:
my $globalname = rin_quest;

sub EVENT_SAY {
if($text=~/Hail/i) {
 	quest::emote("jumps at your voice, and begins breathing heavily...");
 	$client->Message(5, "Oh, it's just you. I bet [you think I'm crazy] too, huh? Everyone thinks I'm crazy!");
 	}
 if($text=~/Hail/i && $qglobals{$globalname} == 1) {
	$client->Message(5, ("Rin Distlmore whispers - I am so sorry! I should never have sent you to that place! Can you ever [forgive me]?");
	}
 if($text=~/you're not crazy/i) {
 	quest::emote("nods while looking at you...");
 	$client->Message(5, "Rin Distlmore whispers - Before I hit rock bottom I was a successful merchant right here in Freeport. I made my living crafting marvelous gems. One night, while I was closing up shop, I was approached by a strange [man].");
 	}
 if($text=~/what man?/i) {
 	$client->Message(5, "Rin Distlmore whispers - He never gave me a name. He handed me a list of [instructions], written in a strange language. They described in extraordinary detail how to gather materials for and craft the most remarkable of gems.");
 	}
 
 if($text=~/What instructions?/i) {
 	$client->Message(5, "Rin Distlmore whispers - I told him it would take countless platinum to make what he asked, and he walked away in a scuff. He told me where he got them, though. If you can [bring me the instructions], I can tell you where to get the required materials, and will craft this gem for you, free of charge.");
 	}

 if($text=~/i will bring you the instructions/i) {
 	quest::emote("cackles, almost.. crazily...");
 	$client->Message(5, "Rin Distlmore whispers - Very good sir! There.. there is a slight [problem] though...");
 	}
 
 if($text=~/what problem?/i) {
 	$client->Message(5, "Rin Distlmore whispers - I overheard people talking. The man was eaten by none other than [Untel'Dak]. You must slay this beast and bring me the instructions he will surely have in... most unpleasant places.");
 	}
 
 if($text=~/untel'dak?/i) {
 	quest::emote("shrugs");
 	$client->Message(5, "Rin Distlmore whispers - I wish I could tell you more, but I have never laid eyes on him. He is not of this world; he resides in a place where only nightmares dwell.");
	}
 if($text=~/i forgive you/i && $qglobals{$globalname} == 1) {
 	$client->Message(5, "Rin Distlmore whispers - You must be exceptionally strong. As promised, I will craft you the gem. You just have to bring me the [items] on the list.");
 	}
 if($text=~/what items?/i && $qglobals{$globalname} == 1) {
 	$client->Message(5, "Rin Distlmore whispers - To craft this item for you, I will need [three items] of extremely rare quality.");
 	}
 if($text=~/three items?/i && $qglobals{$globalname} == 1) {
 	$client->Message(5, "Rin Distlmore whispers - Yes. The [first] and [second] should come with only slight difficulty. The [third] you may have some trouble with.");
	} 
 if($text=~/the first/i && $qglobals{$globalname} == 1) {
 	$client->Message(5, "Rin Distlmore whispers - The first gem is held by Overking Bathezid. He will not part with it willingly. It is his most prized possesion. If power is what you seek, you will have to take it from him.");
 	}
 if($text=~/the second/i && $qglobals{$globalname} == 1) {
	$client->Message(5, "Rin Distlmore whispers - The second gem is held by The Junk Beast in the Plane of Innovation. The [clockwork] some how got a hold of it, and now are refusing to give it up.");
	} 
 if($text=~/what clockwork?/i && $qglobals{$globalname} == 1) {
	$client->Message(5, "Rin Distlmore whispers - The clockwork are mechanical beings that reside in the Plane of Innovation. They are ruthless, as they have no souls. Be careful in there.");
	}
 if($text=~/the third/i && $qglobals{$globalname} == 1) {
	$client->Message(5, "Rin Distlmore whispers - The third gem is held by none other than Aerin'Dar. His lair lies in the Plane of Valor. Thousands have died before his claws. Be careful.");
	}
}

sub EVENT_ITEM {
	if (plugin::check_handin(\%itemcount, 1037 => 1)) {
		quest::setglobal("$globalname",1,5,"F");
		$client->Message(5, "Rin Distlmore whispers - I am so sorry! I should never have sent you to that place! Can you ever [forgive me]?");
		}
	else {
		$client->Message(6, "Rin Distlemore looks confused" );
		plugin::return_items(\%itemcount);
		}
}
__________________
Reply With Quote