From 402aa9051cbd472f6852934025812823d8aae4f9 Mon Sep 17 00:00:00 2001 From: Travis Shears Date: Fri, 10 Apr 2026 14:59:26 +0200 Subject: [PATCH] work on tiles after inital extraction --- two_player_cleaning_game/assets/gen_levels.bb | 29 ++++++++++--------- 1 file changed, 15 insertions(+), 14 deletions(-) diff --git a/two_player_cleaning_game/assets/gen_levels.bb b/two_player_cleaning_game/assets/gen_levels.bb index 9e0c21f..6efbd1e 100755 --- a/two_player_cleaning_game/assets/gen_levels.bb +++ b/two_player_cleaning_game/assets/gen_levels.bb @@ -27,20 +27,21 @@ (def level-001-tmx (xml/parse (io/reader "./tiled/level_001.tmx"))) (def level-001 - (let [tags (remove string? (:content level-001-tmx))] + (let [tags (remove string? (:content level-001-tmx)) + tile-nums (-> (filter #(= (:tag %) :layer) tags) + first + :content + second + :content + first + str/split-lines + (->> + (remove empty?) + (map #(str/split % #",")) + (map (fn [row] (map Integer/parseInt row)))))] + (hash-map - :tiles - (-> (filter #(= (:tag %) :layer) tags) - first - :content - second - :content - first - str/split-lines - (->> - (remove empty?) - (map #(str/split % #",")) - (map (fn [row] (map Integer/parseInt row))))) + :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")))