sub EVENT_ENTERZONE { my @noncombatzones = ("freeportn", "runnyeye", "nexus"); if ($zonesn = @noncombatzones) { ## do nothing } else { quest::movepc(152,0,0,-31); } }