sub EVENT_SAY 
{
	my $enlightenment = quest::saylink("enlightenment");
	if($text=~/hail/i) 
	{
		quest::say("Greetings. Do you seek [$enlightenment]?"); 
	}
    my $shaman = quest::saylink("shaman");
my $cleric = quest::saylink("cleric");
my $beastlord = quest::saylink("beastlord");
my $druid = quest::saylink("druid");	
my $monk = quest::saylink("monk");
my $join = quest::saylink("join");
	if($text=~/enlightenment/i)
	{
		quest::say("All who would consider themselves a priest must first become enlightened and transcend beyond mortal affairs. If you are a [$shaman], [$cleric], [$beastlord], [$druid], or [$monk] then we can begin this spiritual transformation. If you are something else, then you should speak with someone more like yourself.");
	}
	
	if($text=~/join/i)
	{
		quest::say("Fantastic! Class is about ready to begin, but don't worry, you can come with me. Say, are you a [$wizard], [$magician], [$necromancer], [$enchanter], or some [$other] life choice?");
	}

		if($text=~/monk/i)
	{
	if ($class=~/Monk/i) {
		quest::say("A monk. A respectful path to choose in life. Very well. Prepare to become enlightened.");
		$client->Message(315, "You enter a trance and awaken in a strange room.");
		quest::movepc(202,125,693,-156, 27);
	}
	}

	{
	if($text=~/druid/i)
	if ($class=~/Druid/i) {
		quest::say("A druid. A respectful path to choose in life. Very well. Prepare to become enlightened.");
		$client->Message(315, "You enter a trance and awaken in a strange room.");
		quest::movepc(202,125,693,-156, 27);
	}
	}
	

		if($text=~/shaman/i)
		if ($class=~/Shaman/i) {
		quest::say("A shaman. A respectful path to choose in life. Very well. Prepare to become enlightened.");
		$client->Message(315, "You enter a trance and awaken in a strange room.");
		quest::movepc(202,125,693,-156, 27);
	}
	    if($text=~/cleric/i)
		if ($class=~/Cleric/i) {
	{
		quest::say("A cleric. A respectful path to choose in life. Very well. Prepare to become enlightened.");
		$client->Message(315, "You enter a trance and awaken in a strange room.");
		quest::movepc(202,125,693,-156, 27);
	}
		if($text=~/beastlord/i)
        if ($class=~/Beastlord/i) {
	{
		quest::say("A beastlord. A respectful path to choose in life. Very well. Prepare to become enlightened.");
		$client->Message(315, "You enter a trance and awaken in a strange room.");
		quest::movepc(202,125,693,-156, 27);
	}
	if($text=~/other/i)
	{
		quest::say("Well, if you aren't a pureblooded magic user, I suggest you go waste someone else's time. My workshop only deals with primary magic.");
	}
}