   "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

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

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

  (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)
