a little something i been working on.

[Akkadius]

sub EVENT_SAY {
	my $wizard = quest::saylink("Wizard",1);
	$MobName = $npc->GetCleanName();
    if ($text =~/Hail/i) { 
		$client->Message(10,"$MobName says, Greetings, $name.  I am Cancelius, I watch the gates of this citadel.  If you are a [$wizard], I can let you pass.");
		$client->Message(13,"A voice from the fourth-wall whispers, The Citadel of Magic server only supports the use of wizards, you will be able to tank in melee combat, deal damage in both melee and ranged, or heal depending on your specialization choices.");
	}
    if ($class eq "Wizard" && $text =~/wizard/i) {
		$client->Message(10,"$MobName says, Seek out the Grand Wizard.");
		quest::assigntask(21);
		quest::movepc(185, 489.0, 3.0, -981.9, 102.6)
	}
    elsif ($text =~/wizard/i) {
		$client->Message(10,"$MobName says, You shall not pass unless you follow the path of the wizard!");
		$client->Message(13,"A voice from the fourth-wall whispers, The Citadel of Magic server only supports the use of wizards, you will be able to tank in melee combat, deal damage in both melee and ranged, or heal depending on your specialization choices.");
	}
}