clwars/clwars.lisp

(load "~/Repos/clwars/ascii-assets.lisp")
(load "~/Repos/clwars/structs.lisp")
(load "~/Repos/clwars/game.lisp")
(load "~/Repos/clwars/plumbing.lisp")

(defun reload()
  (load "~/Repos/clwars/clwars.lisp"))

(defun main ()
  (format t *menu-splash*)
  (format t "Press any key to start or q to quit: ")
  (if (string-not-equal (prompt-read "") "q")
      (progn
	(cls)
	(new-game))))