                            \c          [identity               :close           false]
                            \.          [do-rest                :normal          true]
                            :numpad5    [do-rest                :normal          true]
-                           :left       [move-left              :normal          true]
-                           :down       [move-down              :normal          true]
-                           :up         [move-up                :normal          true]
-                           :right      [move-right             :normal          true]
-                           :up-left    [move-up-left           :normal          true]
-                           :up-right   [move-up-right          :normal          true]
-                           :down-left  [move-down-left         :normal          true]
-                           :down-right [move-down-right        :normal          true]
+                           :left       [move-left              :normal          false]
+                           :down       [move-down              :normal          false]
+                           :up         [move-up                :normal          false]
+                           :right      [move-right             :normal          false]
+                           :up-left    [move-up-left           :normal          false]
+                           :up-right   [move-up-right          :normal          false]
+                           :down-left  [move-down-left         :normal          false]
+                           :down-right [move-down-right        :normal          false]
                            :space      [action-select          :action-select   false]
                            \q          [quaff-select           identity         false]
                            \w          [identity               :wield           false]

              state)))
      ;; Hack down destroyable cells.
      (rw/type->destroyable? (get target-cell :type))
        (destroy-cell state target-x target-y)
      ;; collided with a wall or door, nothing to be done.
      :else
        state)))
  

(defn move-left
  "moves the player one space to the left provided he/she is able."

                    items (get cell :items)]
                (if (seq items)
                  (rdesc/search state)
                  state))))
          (inc-time state))
      (= (get (rw/npc-at-xy state target-x target-y) :in-party?) true)
        (-> state
          (assoc-in [:world :player :pos :x] target-x)
          (assoc-in [:world :player :pos :y] target-y)
          pick-up-gold
          inc-time
          (rc/map-in [:world :npcs]
                     (fn [npc] (if (and (= (-> npc :pos :x) target-x)
                                        (= (-> npc :pos :y) target-y))
