anchor.diff:  (defstruct monster
     (health (randval (+ 10 *monster-level*)))
     (damage  0))
  +
  +(defun yote1-drop ()
  +  (let ((item (assoc "メタルヨテイチの剣" *event-buki* :test #'equal)))
  +    (scr-format "「~aを拾った！装備しますか？」(yes=z or no=x)~%" (first item))
  +    (scr-format "現在の装備品：~a 攻撃力:~d HP:~d 素早さ:~d~%"
  +		(first (player-buki p)) (second (player-buki p))
  +		(third (player-buki p)) (fourth (player-buki p)))
  +    (scr-format "発見した装備：~a 攻撃力:~d HP:~d 素早さ:~d~%"
  +		(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)
  
positive.code:        (gamen-clear)
         (show-monsters2)
         (show-player p)
         (scr-format "~%-------------敵のターン----------------~%")
         (map 'list
              (lambda (m)
                (or (monster-dead m) (monster-attack m p)))
  
negative.code: ;;モンスター表示
  (defun show-monsters2 ()
    (scr-fresh-line)
    (scr-format "-----------------------敵が現れた！-------------------------~%")
    (scr-format "敵:~%")
    (let ((x 0))
      (map 'list
  