anchor.diff:  	(gamen-clear)
   	(show-monsters2)
   	(show-player p)
  -        (player-attack p)))
  +	(if (and (player-auto-heal p) (> (player-heal p) 0)
  +		 (>= (* (player-maxhp p) (/ (player-auto-heal p) 100)) (player-hp p)))
  +	    (use-auto-heal p)
  +	    (player-attack p))))
       (cond 
         ((null (monsters-dead))
          (gamen-clear)
  
positive.code:        (scr-format "「ハツネツが料理してご飯を食べている。ハツネツのHPが~d回復した！」~%" x)
         (incf (monster-health m) x)))))
  
  ;;ボス
  (defstruct (boss (:include monster)) (boss-atk 10))
  (defmethod monster-show ((m boss))
    (scr-princ "ボス：もげぞう"))
  
negative.code: 	*ha2ne2* nil
  	*copy-buki* (copy-tree *buki-d*)))
  
  
  (defun continue-message ()
    (scr-format "もう一度挑戦しますか？(yes=1 or no=2)~%")
    (case (read-command-char)
      (1 (main))
      (2 nil)
      (otherwise (continue-message))))
  
  (defun game-over-message (p)
    (scr-format "Game Over.~%")
    (scr-format "あなたは地下~d階で力尽きた。~%" (player-map p))
    (continue-message))
   
    
  ;;戦闘終了後レベルアップ
  (defun level-up (p)
    (loop while (>= (player-exp p) *lv-exp*) do
  