                                       :corridor)]
              [x y {:type cell-type}]))
          points)))
+
+(defn make-chest-items
+  []
+  [])
 
 (defn add-room-features
   [cells-xy]

                                                 [:vine vine-probability]
                                                 [[:shallow-water water-probability]
                                                  [:grass grass-probability]])]
                   (if (or (and (= max-type :vine) (> max-p 0.85))
                           (> max-p 0.8))
                     [x y (assoc cell :type max-type)]
                     [x y cell]))
               (cond
                 (> moss-probability 0.7)
                   [x y (assoc cell :type (case (get cell :type)

                                 (apply merge-with-canvas cells (points-to-corridor points))))
                             cells
                             g)
        [[upstairs-x upstairs-y]] (shuffle (clojure.set/difference (set room-centers) junction-rooms))
        [[downstairs-x downstairs-y]] (shuffle (filter (fn [[x y]]
                                                         (rc/farther-than?
                                                           (rc/xy->pos x y)
                                                           (rc/xy->pos upstairs-x upstairs-y)
                                                           (/ (min width height) 2.0)))
                                                       (clojure.set/difference (set room-centers) junction-rooms)))
        cells        (-> cells
                       (assoc-in [upstairs-y upstairs-x :type] :up-stairs)
                       (assoc-in [downstairs-y downstairs-x :type] :down-stairs))]
    ;(println "fcg" fcg)
    (println "g" g)
    (println "more-edges" more-edges)
