   (cond
     (goto? game-data game coord elem)
       (process-goto game-data game coord elem)
+    (move? game-data game coord elem)
+      (process-move game-data game coord elem)
     (attack? game-data game coord elem)
       (process-attack game-data game coord elem)
     (selected-coord? game-data game coord elem)

                                (with-selected-element coord)))
      (println result))))

(defn- process-goto
  "Processes a goto action"
  [game-data game coord elem]

  "Checks if click is goto"
  [game-data game coord elem]
  (and (nil? elem)
       (= (:selected-quantity game-data) (element/element-quantity (:selected-element game-data)))
       (get (:possible-destinations game-data) coord)))

(defn- move?
  "Checks if click is move"
  [game-data game coord elem]
  (and (nil? elem)
       (not= (:selected-quantity game-data) (element/element-quantity (:selected-element game-data)))
       (get (:possible-destinations game-data) coord)))

(defn register-action
