                  (assoc :distance 1)
                  (assoc :actions [action])
                  (assoc :value value)
+                 (assoc :dummy true)
                  (assoc :element-coord target-coord)
                  (assoc :cost mov-cost)))
           actions-and-results))))

    (let [cost-factor (+ 17 (* 100 (- laws/max-action-points (:cost option))))]
      (- (* (option :value) cost-factor)))
    0))

(defn join-options
  "Joins the given options on the given board, until the cost is possible"

          (-> master
              (assoc :board (result/result-board result))
              (assoc :actions (into (master :actions) actions))
              (update :value + (value-for-join current-option))
              (assoc :cost (+ (master :cost) (current-option :cost))))
          master)))))
