vagabond/lispjam-autumn-2024
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mapper: implemented alternative to table.move

Browse source
This commit is contained in:
Bill Niblock 2024-10-30 20:12:56 -04:00
parent b45b757cf1
commit 70dba7ea56
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mapper.fnl
View file

@ -145,10 +145,12 @@
(for [c 1 (* cell-num cell-size)] (for [c 1 (* cell-num cell-size)]
(var map-row []) (var map-row [])
(for [i 1 cell-size] (table.insert map-row 1)) (for [i 1 cell-size] (table.insert map-row 1))
(table.move cells ; (table.move cells
(+ (* (- c 1) (* cell-num cell-size)) 1) ; (+ (* (- c 1) (* cell-num cell-size)) 1)
(* c (* cell-num cell-size)) ; (* c (* cell-num cell-size))
(+ cell-size 1) map-row) ; (+ cell-size 1) map-row)
(for [i (+ (* (- c 1) (* cell-num cell-size)) 1) (* c (* cell-num cell-size))]
(table.insert map-row (. cells i)))
(for [i 1 (- cell-size hall-width)] (table.insert map-row 1)) (for [i 1 (- cell-size hall-width)] (table.insert map-row 1))
(table.insert map map-row)) (table.insert map map-row))
; Generate the northern feature - spawn point ; Generate the northern feature - spawn point