anchor.diff:  	(gamen-clear)
   	(show-monsters2)
   	(show-player p)
  +	;;オート回復がONになっていて回復薬を一つ以上持っていてオート回復薬の条件にあっていれば
   	(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)
  
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:     ((player-dead p) ;;プレイヤーが死んだとき
       (game-over-message p)
       (setf *end* 2))
      (t ;;(monsters-dead) 敵を倒したとき
       (item-drop? p) ;;アイテム入手処理
       (level-up p) ;;レベルアップ処理
       (cond
         ((= *boss?* 1) (setf *end* 1)) ;;ラスボスならエンディングへ
         ((= *boss?* 2) (setf *ha2ne2* t))) ;;中ボス倒したフラグ
       (scr-format "「大 勝 利 ！」~%~%")
       (scr-format "次へ = z")
       (read-command-char)
  