(setf (keys moving-rectangle) (delete (dungeon standing-rectangle) (keys moving-rectangle) :count 1))
(setf (visible standing-rectangle) nil)
(setf (active standing-rectangle) nil)
(setf (keys moving-rectangle) (delete (dungeon standing-rectangle) (keys moving-rectangle) :count 1))
(setf (visible standing-rectangle) nil)
(setf (active standing-rectangle) nil)