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

parse tailed data with babashka script

Browse source
This commit is contained in:
Travis Shears 2026-04-10 12:26:59 +02:00
parent 62f2a44864
commit 97a9d0450c
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
5 changed files with 82 additions and 256 deletions
Download patch file Download diff file Expand all files Collapse all files

73
two_player_cleaning_game/assets/gen_levels.bb Executable file
View file

@ -0,0 +1,73 @@
#!/usr/bin/env bb
(ns gen-levels
(:require
[babashka.fs :as fs]
[clojure.pprint :as pprint]
[clojure.data.xml :as xml]
[clojure.string :as str]
[clojure.java.io :as io]))
(def walls-tsx (xml/parse (io/reader "./tiled/walls.tsx")))
(def wall-colliders
(->>
(:content walls-tsx)
(remove string?)
(filter #(= (:tag %) :tile))
(map (fn [tile] (hash-map
:id (get-in tile [:attrs :id])
:boxes
(->> (:content tile)
(remove string?)
(map :content)
(flatten)
(remove string?)
(map :attrs)
(map #(select-keys % [:x :y :height :width]))
(map #(update-vals % (fn [v] (Math/round (Double/parseDouble v)))))))))))
(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)
first
:content
second
:content
first
str/split-lines
(->>
(remove empty?)
(map #(str/split % #","))
(map (fn [row] (map Integer/parseInt row)))))
:spawns (reduce (fn [acc tag]
(if (= (:tag tag) :object)
(conj acc
(hash-map
:name (get-in tag [:attrs :name])
:x (Math/round (Double/parseDouble (get-in tag [:attrs :x])))
: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))
;; :wall-colliders wall-colliders})
;; (fs/write-lines "level_001.lua" (pr-str '(local name "travis")))
;; (pprint/pprint (pr-str level-001))
(fs/write-lines "../level-001.fnl" ["(local level-001"
(pr-str level-001)
")\n\n"
"{ :level-01 level-01 }"])
;; (str "return " (pr-str {:tile (ffirst (:tiles level-001))
;; :wall-colliders wall-colliders
;; :spawns (:spawns level-001)}))))
;; (defn get-config-files [] (map #(hash-map :file-name % :content (fs/read-all-lines %)) (fs/glob "." "**.hcl")))
;; (defn gen-cron [start] (format "%d * * * *" start))
;; (defn get-config-files [] (map #(hash-map :file-name % :content (fs/read-all-lines %)) (fs/glob "." "**.hcl")))
;; (defn remove-build-files [files]