let isfloor cave x y =
       get cave x y = FLOOR