                       num-harvestable (get @harvestable-counts place-id 0)]
                   (if (< (rr/uniform-int 0 10000)
                          (/ (case cell-type
-                              :palm-tree 20
+                              :palm-tree 10
                               :tree 25
                               :tall-grass 2
                               :gravel 20

          (log/debug (rw/get-cell state target-x target-y))
          (-> state
            (rc/append-log "The door creaks open")
            (rw/assoc-cell target-x target-y :type :open-door)))
        state))))

(defn open-left

(defn direction->unicode-char
  [direction]
  (case direction
    :center     \·
    :up         \↑ 
    :down       \↓
    :left       \←
