     (let [cost-factor (+ 17 (* 100 (- laws/max-action-points (:cost option))))]
       (- (* (option :value) cost-factor)))
     0))
+
+(defn value-for-join
+  "Gets the value of the option, considering that the option will me merged
+  with another option."
+  [current-option]
+  (if (:dummy current-option)
+    0
+    (:value current-option)))
 
 (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 current-option))
              (assoc :cost (+ (master :cost) (current-option :cost))))
          master)))))

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