NPC gives 30 seconds then chases you Quest

[GeorgeS]

Npc will give you 30 seconds after you hail him then chases you down.
GeorgeS

sub EVENT_SAY
{
my $x;
my $y;
my $z;
my $h;
$x = $npc->GetX();
$y = $npc->GetY();
$z = $npc->GetZ();
$h = $npc->GetHeading();
if ($text = ~/Hail/i)
{
quest::shout("It is YOU that $race that pillages our village! I am giving you 30 seconds to run before I hunt thee down with my axe!");
quest::settimer("attck",30);
}
}

sub EVENT_TIMER
{
if ($timer eq "attck")
{
quest::shout("The sound of my Axe on your Skull will be heard for miles!");
quest::stoptimer("attck");
quest::attack($name);
}
}