let new_map s =
       s.cave <- get_map_type s.map_type s.cave_y s.cave_x;
       s.cursor <- Cave.getvalidxy s.cave;
       s.src <- s.cursor;
       s.dst <- s.cursor;
       s.path <- []