travisshears/robot_cleaning_game
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add x,y tile location to lvevl-01 caculation

Browse source
This commit is contained in:
Travis Shears 2026-04-10 15:00:03 +02:00
parent 402aa9051c
commit b183853f77
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
two_player_cleaning_game/assets/gen_levels.bb
View file

@ -38,11 +38,16 @@
(->> (->>
(remove empty?) (remove empty?)
(map #(str/split % #",")) (map #(str/split % #","))
(map (fn [row] (map Integer/parseInt row)))))] (map (fn [row] (map Integer/parseInt row)))))
tiles (map-indexed
(fn [y row]
(map-indexed
(fn [x tile-id] {:x (* x 25) :y (* y 25) :tile-id tile-id})
row)) tile-nums)]
(hash-map (hash-map
:tiles tile-nums :tiles tiles
:spawns (reduce (fn [acc tag] :spawns (reduce (fn [acc tag]
(if (= (:tag tag) :object) (if (= (:tag tag) :object)
(conj acc (conj acc
@ -52,7 +57,7 @@
:y (Math/round (Double/parseDouble (get-in tag [:attrs :y]))))) :y (Math/round (Double/parseDouble (get-in tag [:attrs :y])))))
acc)) '() (:content (first (filter #(= (get-in % [:attrs :name]) "spawns") tags))))))) acc)) '() (:content (first (filter #(= (get-in % [:attrs :name]) "spawns") tags)))))))
(pprint/pprint :row (ffirst (:tiles level-001))) (pprint/pprint {:row (first (:tiles level-001))})
;; :wall-colliders wall-colliders}) ;; :wall-colliders wall-colliders})
;; (fs/write-lines "level_001.lua" (pr-str '(local name "travis"))) ;; (fs/write-lines "level_001.lua" (pr-str '(local name "travis")))

2
two_player_cleaning_game/level-001.fnl
View file

File diff suppressed because one or more lines are too long