[Kingly_Krab]

sub EVENT_SAY
{
	my $saylink1 = quest::saylink("Experienced");
	if ($text =~/Hail/i)
	{
		$client->Message(315, "Greetings $class, I have been waiting for someone [$saylink1] such as yourself");
	}
	elsif ($text=~ /Experienced/i)
	{
		$client->Message(315, "To prove your experience I require a Tooth from Trakanon in Sebelis, a Robe of the Kedge from Phingegl Autropos in Kedge Keep and an Incarnadine Helm from Overking Bathezid in Chardok");
	}
}
 
sub EVENT_ITEM
{
	if($ulevel == 65)
	{
		if(plugin::check_handin(\%itemcount, 7276 => 1, 1253 => 1, 4132 => 1))
		{
			$client->Message(315, "Shado Feralis will be quite impressed with your progress you should speak to him.");
			quest::level(66);
		}
		else
		{
			$client->Message(315, "I have no need for this item $name, you can have it back.");
			plugin::return_items(\%itemcount);
		}
	}
	else
	{
		$client->Message(315, "I have no need for this item $name, and you're far too low level to trade with me.");
		plugin::return_items(\%itemcount);
	}
 }