fixed super buggy perlin script