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"))

;; https://stackoverflow.com/questions/4882361/which-command-could-be-used-to-clear-screen-in-clisp
(defun cls()
  (format t "~A[H~@*~A[J" #\escape))

(defun prompt-read (prompt)
  (format *query-io* "~a" prompt)
  (force-output *query-io*)
  (read-line *query-io*))

(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))))