anchor.diff:         (cond
   	 ((= (player-map p) 50)
   	  (set-boss-kaidan map 7))
  -	 ((= (player-map p) 100)
  -	  (set-boss-kaidan map 5))
   	 (t (set-boss-kaidan map 0)))))))
       ;;(d-map-map mapn)))
       ;;(test-show-map (d-map-map mapn))))
  
positive.code: 	 (startx 0)
  	 (y 0) 
  	 (starty 0))
      (if (= (player-map p) 50);;ボスマップは広くする
  	   (setf (donjon-yoko map) (+ *yoko* 8)
  		 (donjon-tate map) (+ *tate* 2))
  	   (setf (donjon-yoko map) *yoko*
  
negative.code:     (init-map (donjon-map map) (donjon-tate map) (donjon-yoko map)) ;;マップ初期化
      (setf (donjon-stop-list map) nil)
      (cond
        ((= (player-map p) 100) ;; 100階は固定マップ
         (set-map map p *map100*))
        (t
         ;;奇数座標を初期位置にする
         (setf x (random (floor (donjon-yoko map) 2))
  	     y (random (floor (donjon-tate map) 2))
  	     startx (+ (* x 2) 1)
  