2023-06-26 20:25:02 -05:00
|
|
|
(ql:quickload '(alexandria cl-tiled assoc-utils str uiop))
|
2023-06-28 10:15:23 -05:00
|
|
|
(load "packages.lisp")
|
2023-06-26 20:25:02 -05:00
|
|
|
(load "util.lisp")
|
|
|
|
(load "overworld.util.lisp")
|
|
|
|
(load "overworld.tiled.lisp")
|
|
|
|
|
2023-06-26 21:49:34 -05:00
|
|
|
|
2023-06-26 20:25:02 -05:00
|
|
|
(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"
|
2023-07-13 23:52:04 -05:00
|
|
|
(format nil "*~A-map-plist*" map-name)))
|
2023-07-03 22:12:42 -05:00
|
|
|
'("casino" "outdoors" "flashback-casino" "flashback-school"))
|
2023-06-28 10:15:23 -05:00
|
|
|
|
|
|
|
(quit)
|