anchor.diff:  	   (if (monster-dead m)
   	       (if (> (monster-damage m) 0)
   		   (scr-format "**死亡**   ~d のダメージを与え倒した！~%" (monster-damage m))
  -		   (scr-format "**死亡**~%")) 
  -	       (progn (monster-show m)
  +		   (scr-format "**死亡**~%"))
  +	       (progn (scr-format "(HP=~d) " (monster-health m))
  +		      (monster-show m)
   		      (if (> (monster-damage m) 0)
   			  (scr-format "   ~d のダメージを与えた！~%" (monster-damage m))
   			  (scr-fresh-line))))
  
positive.code:                    (t (make-yote1 :health 3)))))
  	     (make-array (setf (player-monster-num p)
  			       (randval (+ *monster-num* (floor (player-level p) 4))))))))
  ;;配列の０番目にボス、あとはランダムなモンスター
  (defun boss-monsters (p m)
    (let ((hoge 0))
      (setf *monsters*
  
negative.code: (defun ascii->number (x)
    (if (null (numberp x))
        (- (char-code (char (symbol-name x) 0)) 64)))
  ;;生きている一番上の敵を選択
  (defun auto-pick-monster (num)
    (let ((m (aref *monsters* num)))
      (if (null (monster-dead m))
  