function Area_Teleport(pUnit, Event)
    pUnit:RegisterEvent("Portal_CheckGraveyard", 1000, 0)
end

function Portal_CheckGraveyard(pUnit, Event)
    local pPlayer = pUnit:GetClosestPlayer()
    if(pPlayer and pUnit:GetDistanceYards(pPlayer) <= 2) then
        pPlayer:Teleport(Map, X, Y, Z, O)
    end
end

RegisterUnitEvent(NPCENTRY, 18, Area_Teleport)