anchor.diff:  ;;ボスバトル
   (defun boss-battle (p)
     (scr-format "~%もげぞうが現れた！！~%")
  -  (boss-monsters p)
  +  (boss-monsters p 0)
     ;;(init-player)
     (game-loop p)
     (setf *battle?* nil)
  
positive.code:      (if (= (mod (player-map p) 2) 0)
  	 (incf (player-hammer p)))
       (if (= (mod (player-map p) 5) 0)
  	 (setf *omomin* (omomin-zurashi *omomin*)))
       (if (= (mod (player-map p) 10) 0)
  	 (incf *monster-level*)))
      (3 ;;宝箱
       (item-get2 p)
  
negative.code: ;;ハツネツバトル
  (defun ha2ne2-battle (p)
    (scr-format "~%ハツネツエリアが現れた！！~%")
    (boss-monsters p 1)
    ;;(init-player)
    (game-loop p)
    (setf *battle?* nil)
  