| 12345678910111213141516171819202122232425262728293031323334353637 |
- (defvar *menu-splash* "
- ▄████████ ▄█ ▄█ █▄ ▄████████ ▄████████ ▄████████
- ███ ███ ███ ███ ███ ███ ███ ███ ███ ███ ███
- ███ █▀ ███ ███ ███ ███ ███ ███ ███ ███ █▀
- ███ ███ ███ ███ ███ ███ ▄███▄▄▄▄██▀ ███
- ███ ███ ███ ███ ▀███████████ ▀▀███▀▀▀▀▀ ▀███████████
- ███ █▄ ███ ███ ███ ███ ███ ▀███████████ ███
- ███ ███ ███▌ ▄ ███ ▄█▄ ███ ███ ███ ███ ███ ▄█ ███
- ████████▀ █████▄▄██ ▀███▀███▀ ███ █▀ ███ ███ ▄████████▀
- ▀ ███ ███
- ")
- ;; Actor in the game,
- ;; eg the player, an npc, etc
- (defstruct *actor*
- inventory ; Something representing goods held
- health
- mana)
- ;; This represents the goods market
- ;; as a whole
- (defstruct *market*)
- ;; 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")
- (prompt-read "")
- (cls))
|
