path: root/scratch/game.brev

(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))