anchor.diff:    (when (player-dead p)
       (game-over-message p))
     (when (monsters-dead)
  +    (if (player-drop p)
  +	(yote1-drop p))
       (loop while (>= (player-exp p) *lv-exp*)
   	  do (scr-format "「レ ベ ル ア ッ プ ！ ！」~%")
   	     (incf (player-level p))
  
positive.code: 	(hydra
  	 (incf (player-exp p) 4))
  	(brigand
  	 (incf (player-exp p) 5))
  	(yote1
  	 (if (= 1 (random 100))
  	     (yote1-drop))
  	 (incf (player-exp p) 100)))))
  
  
  (defmethod monster-attack (m p))
  
negative.code:   (exp 0)
    (buki '("なし" 0 0 0))
    (msg nil)
    (drop nil)
    (monster-num 0))
  
  (defstruct donjon
  