anchor.diff:    (health (randval (+ 10 *monster-level*)))
     (damage  0))
   
  -(defun yote1-drop ()
  +(defun yote1-drop-flag (p)
  +  (setf (player-drop p) t))
  +
  +(defun yote1-drop (p)
     (let ((item (assoc "メタルヨテイチの剣" *event-buki* :test #'equal)))
       (scr-format "「~aを拾った！装備しますか？」(yes=z or no=x)~%" (first item))
       (scr-format "現在の装備品：~a 攻撃力:~d HP:~d 素早さ:~d~%"
  
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:   (exp 0)
    (buki '("なし" 0 0 0))
    (msg nil)
    (drop nil)
    (monster-num 0))
  
  (defstruct donjon
  