anchor.diff:    (use-heal p)
     (scr-format "HPが最大HPの~d%以下だったので回復薬を使いました。~%" (player-auto-heal p))
     (scr-format "次へ = z")
  -     (read-command-char))
  +  (read-command-char))
   ;;バトル時、プレイヤーが死ぬかモンスターが全滅するまでループ
   (defun game-loop (p)
     (unless (or (player-dead p) (monsters-dead))
  
positive.code:   (setf (player-msg p) nil))
  ;;オート回復薬メッセージ
  (defun show-auto-heal (p)
    (scr-format "オート回復薬 = ~a~%"
  	      (if (player-auto-heal p)
  		  "ON" "OFF")))
  ;;オート回復薬設定
  (defun auto-heal-config (p)
    (gamen-clear)
  
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)
  