   cellsxy)
 
 (defn add-trap
-  [cellsxy]
+  [min-x min-y max-x max-y cellsxy]
   (case (rr/rand-nth [:crushing-wall :wall-darts :spike-pit :rolling-boulder :snake-trap :gas-trap])
     :crushing-wall
       (add-crushing-wall cellsxy)

         cells-xy)))

(defn add-crushing-wall
  [cellsxy]
  cellsxy)

(defn add-wall-darts
  [cellsxy]

                      cellsxy)
        cellsxy (add-room-features level cellsxy)
        cellsxy (if trap-room?
                  (add-trap min-x min-y max-x max-y cellsxy)
                  cellsxy)]
   cellsxy))

