let get_map_type_name n = match n with
       | 0 -> "Cave"
       | _ -> "Connected cave (SLOW)"