clwars.lisp 384 B

123456789101112131415
  1. (load "~/Repos/clwars/ascii-assets.lisp")
  2. (load "~/Repos/clwars/structs.lisp")
  3. (load "~/Repos/clwars/game.lisp")
  4. (load "~/Repos/clwars/plumbing.lisp")
  5. (defun reload()
  6. (load "~/Repos/clwars/clwars.lisp"))
  7. (defun main ()
  8. (format t *menu-splash*)
  9. (format t "Press any key to start or q to quit: ")
  10. (if (string-not-equal (prompt-read "") "q")
  11. (progn
  12. (cls)
  13. (new-game))))