diff --git a/mapper.fnl b/mapper.fnl index 08441b8..c62b109 100644 --- a/mapper.fnl +++ b/mapper.fnl @@ -2,8 +2,8 @@ ; The "cell-num" is the number of cells across; it is then squared to make the ; grid. Each cell has a "cell-size" of walls ("wall-width") and hallways ; ("hall-width"). -(var cell-num 10) -(var (hall-width wall-width) (values 1 1)) +(var cell-num 20) +(var (hall-width wall-width) (values 2 4)) (var cell-size (+ hall-width wall-width)) ; Helper functions for dealing with the cell list (fn cell-row [i] (+ 1 (math.floor (/ (- i 1) cell-num)))) @@ -17,7 +17,7 @@ (var leave-cell (math.random (+ (* cell-num (- cell-num 1)) 1) (* cell-num cell-num))) (var spawn-spot {:x cell-size - :y (+ (- (* spawn-cell cell-size) (- cell-size 1)) (* 2 hall-width))}) + :y (+ (- (* spawn-cell cell-size) (- cell-size 1)) cell-size)}) (fn default-meta-cells [] (var meta-cells {}) (for [c 1 (* cell-num cell-num)]