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

work on tiles after inital extraction

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

13
two_player_cleaning_game/assets/gen_levels.bb
View file

@ -27,10 +27,8 @@
(def level-001-tmx (xml/parse (io/reader "./tiled/level_001.tmx")))
(def level-001
(let [tags (remove string? (:content level-001-tmx))]
(hash-map
:tiles
(-> (filter #(= (:tag %) :layer) tags)
(let [tags (remove string? (:content level-001-tmx))
tile-nums (-> (filter #(= (:tag %) :layer) tags)
first
:content
second
@ -40,7 +38,10 @@
(->>
(remove empty?)
(map #(str/split % #","))
(map (fn [row] (map Integer/parseInt row)))))
(map (fn [row] (map Integer/parseInt row)))))]
(hash-map
:tiles tile-nums
:spawns (reduce (fn [acc tag]
(if (= (:tag tag) :object)
@ -51,7 +52,7 @@
:y (Math/round (Double/parseDouble (get-in tag [:attrs :y])))))
acc)) '() (:content (first (filter #(= (get-in % [:attrs :name]) "spawns") tags)))))))
;; (pprint/pprint {:tile (ffirst (:tiles level-001))
(pprint/pprint :row (ffirst (:tiles level-001)))
;; :wall-colliders wall-colliders})
;; (fs/write-lines "level_001.lua" (pr-str '(local name "travis")))