Use state return-values for overworld loop

flora-search-aurora.lisp

@@ -96,8 +96,11 @@ or something ¯\_(ツ)_/¯"
 (defun make-main-overworld-state ()
   "Return a state-function for the game’s overworld (the majority of the game), for use with
 #'state-loop."
-  (lambda (matrix)
-    (overworld-state matrix "/home/jaidyn/.local/src/games/flora search aurora/res/map.tmx")))
+  (lambda (matrix &rest args)
+    (apply #'overworld-state
+           (append (list matrix)
+                   '(:map-path #p"/home/jaidyn/.local/src/games/flora search aurora/res/map.tmx")
+                   args))))
 
 
 (defun main ()

overworld.lisp

@@ -30,27 +30,25 @@
 ;;; ———————————————————————————————————
 ;;; Overworld loop
 ;;; ———————————————————————————————————
-(defun overworld-state (matrix map)
+(defun overworld-state (matrix &key (map-path nil) (map nil) (entity-data nil))
   "Render the given map to the matrix and take user-input — for one frame.
 A state-function for use with #'state-loop."
-  (let ((map (if (or (stringp map) (pathnamep map))
-                 (cl-tiled:load-map map)
-                 map)))
-    (sleep .02)
-    (overworld-state-draw matrix map)
-    (overworld-state-update map)))
+  (sleep .02)
+  (let ((map (if (not map) (cl-tiled:load-map map-path) map)))
+    (overworld-state-draw matrix map entity-data)
+    (overworld-state-update map entity-data)))
 
 
-(defun overworld-state-draw (matrix map)
+(defun overworld-state-draw (matrix map entity-data)
   "Draw the overworld map to the given matrix.
 A core part of #'overworld-state."
   (matrix-write-tiled-map matrix map))
 
 
-(defun overworld-state-update (map)
-  "Do nothing, lol.
-Core part of #'overworld-state."
-  't)
+(defun overworld-state-update (map entity-data)
+  "Do nothing, lol. Core part of #'overworld-state.
+Returns parameters to be used in the next invocation of #'overworld-state."
+  (list :map map :entity-data entity-data))