sub delay {
   $delayOver = (time + @_[0]);
   while (time < $delayOver){}
   1;
}

sub EVENT_SPAWN {
	delay(10);
	quest::attacknpc(80)
}