ed3ee9df571a58e3a327943c896001ddc8d98c89
commit ed3ee9df571a58e3a327943c896001ddc8d98c89
Author: Simon Watson <simon.watson@ipc.com>
Date: Tue Aug 31 16:23:13 2021 -0400

Init commit

diff --git a/clwars.lisp b/clwars.lisp
new file mode 100644
index 0000000..1cd932e
--- /dev/null
+++ b/clwars.lisp
@@ -0,0 +1,37 @@
+(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))