flora-search-aurora/res/maps/tmx→lisp.lisp

23 lines
622 B
Common Lisp
Raw Permalink Normal View History

(ql:quickload '(alexandria cl-tiled assoc-utils str uiop))
(load "packages.lisp")
(load "util.lisp")
(load "overworld.util.lisp")
(load "overworld.tiled.lisp")
(defun local-path (subpath)
(format nil "~A~A" (uiop:getcwd) subpath))
(mapcar
(lambda (map-name)
(🌍.::save-map-to-file
(local-path (format nil "res/maps/~A.tmx.lisp" map-name))
(overworld.tiled:load-map (local-path (format nil "res/maps/~A.tmx" map-name)))
":FLORA-SEARCH-AURORA"
(format nil "*~A-map-plist*" map-name)))
2023-07-15 01:50:46 -05:00
'("base" "casino" "factory" "flashback-base" "flashback-casino"
"flashback-school" "outdoors"))
(quit)