*

1 files changed, 25 insertions, 0 deletions

diff --git a/scratch/game.brev b/scratch/game.brev
new file mode 100644
index 0000000..cc62149
--- /dev/null
+++ b/scratch/game.brev
@@ -0,0 +1,25 @@
+(import brev mdg)
+
+(define true #t)
+(define false #f)
+(define game-running true)
+
+(define (menu msg)
+	(print msg))
+
+(define start-game "start game")
+(define game-over "game over")
+
+(define (listner game-running)
+	(display " > ")
+	(define user-input (read))
+	(if (eq? user-input "quit")
+        ((set! game-running false) (print game-running))
+		(print "continue"))
+	game-running)
+
+(let loop ()
+	(if (eq? game-running true)
+		(listner game-running)
+		(print "game isn't running"))
+	(loop))
\ No newline at end of file