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: 		(first item) (second item) (third item) (fourth item))
      (case (read-command-char)
        (z (equip-buki item p))
        (otherwise (scr-format "~aを捨てた。~%" (first item))))))
  
  (defmethod monster-hit2 (p m x)
    (decf (monster-health m) x)
  
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))
  