[Lillu]

This works (ignore the saylink part if you use older rev):

sub EVENT_SAY {
my $veeshan = quest::saylink("Temple of Veeshan");
my $NPCName = $npc->GetCleanName();

if ($text =~/Hail/i && !quest::has_zone_flag(124)){
	$client->Message(315, "$NPCName whispers to you, 'Hello $name. You have to kill Emperor Sshraeshza to gain access to the Temple of Veeshan.'");
	}
if ($text =~/Hail/i && quest::has_zone_flag(124)) {
		$client->Message(315, "$NPCName whispers to you, 'Good day to you, $name. If you would like to go to the $veeshan, please say so.'");
	$client->Message(6, "$NPCName nods at you.");
	}			
if ($text =~/Veeshan/i && quest::has_zone_flag(124)) {
	quest::say ("Enjoy your adventure!");
	$client->Message(6, "$NPCName casts a spell to translocate you to another place.");
	quest::doanim(42);
	quest::movepc(124, -500,-2100,-36);
	}
}