123456789101112131415161718 |
- (load "~/Repos/clwars/ascii-assets.lisp")
- (load "~/Repos/clwars/structs.lisp")
- (load "~/Repos/clwars/game.lisp")
- (load "~/Repos/clwars/plumbing.lisp")
- ;;; TODO use quicklisp
- (load "~/quicklisp/local-projects/lazy/lazy.lisp") ; Not needed, using for fun/learning
- (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))))
|