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

clean up gen_levels script

Browse source 
"
This commit is contained in:
Travis Shears 2026-04-10 15:57:54 +02:00
parent 9fc3881247
commit d6f68bb3ba
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
1 changed files with 2 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

17
two_player_cleaning_game/assets/gen_levels.bb
View file

@ -57,23 +57,10 @@
:y (Math/round (Double/parseDouble (get-in tag [:attrs :y])))))
acc)) '() (:content (first (filter #(= (get-in % [:attrs :name]) "spawns") tags))))))))
(pprint/pprint {:row (first (:tiles level-001))})
;; :wall-colliders wall-colliders})
;; (fs/write-lines "level_001.lua" (pr-str '(local name "travis")))
;; (pprint/pprint {:row (first (:tiles level-001))})
;; (pprint/pprint (pr-str level-001))
(fs/write-lines "../levels.fnl" ["(local levels"
(str/replace (pr-str {:level01 level-001}) #",+" "")
")\n\n"
"{ :levels levels }"])
;; (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]