anchor.diff:      (q         (quit-game))
       (t (progn
            (format t "What?")
  -         (main-menu)))))
  +         (main-menu))))
  +  (when (on-monsters?)
  +        (FIGHT! *player* (get-monsters))))
            
   (defun user-commands ()
     '("Movement:" " up down left right" "Items:" " inventory (View and manage items)" " pickup (Pick up the item at current location)" "Game:" " quit (Exit game)"))         
  
positive.code: (load "colors")
  (load "map")
  (load "items")
  (load "monsters")
  
  (defstruct player health position)
  
  (defun view-inventory ()
    (loop for item across *inventory*
  
negative.code:   (defparameter *player* (make-player :health 30 :position (cons 3 3)))
    (make-map 25 25)
    (loop for i upto 40 do (set-contents (random-node *width* *height*) (random-item)))
    (loop for i upto 40 do (set-contents (random-node *width* *height*) (list (new-hydra))))
    (game-loop))
  
  (new-game)