add dev level and get info pads working

This commit is contained in:
Travis Shears 2026-04-26 12:21:34 +02:00
parent 7e75b665f5
commit 276c7c562b
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
10 changed files with 246 additions and 13 deletions

View file

@ -46,6 +46,7 @@
(def tutorial-map-tmx (load-tiled-xml-file "./tiled/tutorial.tmx"))
(def level-001-map-tmx (load-tiled-xml-file "./tiled/level_001.tmx"))
(def dev-map-tmx (load-tiled-xml-file "./tiled/dev.tmx"))
(defn parse-gid [gid]
(let [gid-long (Long/parseLong (str gid))
@ -91,7 +92,9 @@
{:player-1 (extract-pos player-1)
:player-2 (extract-pos player-2)})}))
(def levels {:levels {:level-001 (parse-map level-001-map-tmx)
:tutorial (parse-map tutorial-map-tmx)}
:tutorial (parse-map tutorial-map-tmx)
:dev (parse-map dev-map-tmx)}
:colliders colliders})
(pprint (get-in levels [:levels :tutorial :objects]))