From b45b757cf11a39c28c681a1df8973153e1cb4d63 Mon Sep 17 00:00:00 2001 From: Bill Niblock Date: Wed, 30 Oct 2024 19:37:45 -0400 Subject: [PATCH] Fix bug with mapper spawn location --- mapper.fnl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)]