anchor.diff:      (cond ((= x *player-health*)
              (princ "A brigand hits you with his slingshot, taking off 2 health
   points! ")
  +           (fresh-line)
              (decf *player-health* 2))
             ((= x *player-agility*)
              (princ "A brigand catches your leg with his whip, taking off 2
   agility points! ")
  +           (fresh-line)
              (decf *player-agility* 2))
             ((= x *player-strength*)
              (princ "A brigand cuts your arm with his whip, taking off 2
  -strength points! ")
  +strength points!")
  +           (fresh-line)
              (decf *player-strength* 2)))))
   
   ;; turn function
   (defun player-attack ()
     (fresh-line)
  -  (princ "Attack style: [s]tab [d]ouble swing [r]oundhouse:")
  +  (princa :cyan :bold "Attack style: [s]tab [d]ouble swing [r]oundhouse: " :reset)
     (finish-output nil)
     (case (read-char)
       (#\s (monster-hit (pick-monster)
  
positive.code: by ")
      (princ x)
      (princ "! ")
      (decf *player-agility* x)
      (when (zerop (random 2))
        (princ "It also squirts in your face, taking away a health point! ")
        (decf *player-health*))))
  
  ;; brigand
  
negative.code:     (princ "An orc swings his club at you and knocks off ")
      (princ x)
      (princ " of your health points. ")
      (fresh-line)
      (decf *player-health* x)))
  
  ;; hydra
  