Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (15 sloc) 372 Bytes
; Orc Battle
(load 'lib/environment)
(load 'lib/monsters)
(load 'lib/engine)
; Main function
(defun orc-battle ()
(init-monsters)
(init-player)
(game-loop)
(when (player-dead)
(fresh-line)
(princ "You have been killed. Game over."))
(when (monsters-dead)
(fresh-line)
(princ "Congratulations! You have vanquished all of your foes. You win!")))