anchor.diff:  	(hydra
   	 (incf (player-exp p) 4))
   	(brigand
  -	 (incf (player-exp p) 5))
  -	(yote1
  -	 (if (= 1 (random 100))
  -	     (yote1-drop))
  -	 (incf (player-exp p) 100)))))
  +	 (incf (player-exp p) 5)))))
   
   
   (defmethod monster-attack (m p))
  
positive.code:   (when (player-dead p)
      (game-over-message p))
    (when (monsters-dead)
      (loop while (>= (player-exp p) *lv-exp*)
  	  do (scr-format "「レ ベ ル ア ッ プ ！ ！」~%")
  	     (incf (player-level p))
  
negative.code:   (decf (monster-health m))
    (incf (monster-damage m))
    (if (monster-dead m)
        (progn (incf (player-exp p) 100)
  	     (if (= 1 (random 100))
  		 (yote1-drop-flag p)))))
  
  ;;-------------------オーク------------------------------
  (defstruct (orc (:include monster))
  