anchor.diff:    (setf (player-msg p) nil))
   ;;オート回復薬メッセージ
   (defun show-auto-heal (p)
  -  (scr-format "オート回復薬 = ~a~%"
  -	      (if (player-auto-heal p)
  -		  "ON" "OFF")))
  +  (if (null (player-auto-heal p))
  +      (scr-format "オート回復薬 = OFF~%")
  +      (scr-format "オート回復薬 = HPが~d%以下で回復~%" (player-auto-heal p))))
   ;;オート回復薬設定
   (defun auto-heal-config (p)
     (gamen-clear)
  
positive.code:        (gamen-clear)
         (show-monsters2)
         (show-player p)
         (scr-format "~%-------------------敵のターン--------------------~%")
         (map 'list
              (lambda (m)
                (or (monster-dead m) (monster-attack m p)))
  
negative.code: 
  ;;壁破壊
  (defun kabe-break (map p y x)
    (scr-format "「ハンマーで壁を壊しますか？」[yes=z or no=anykey]:~%")
    (case (read-command-char)
      (z
        (if (>= (random 10) 3)
  