anchor.diff:  ;;モンスター選択
   (defun pick-monster (p)
     (scr-fresh-line)
  -  (scr-princ "攻撃したいモンスター番号を選択 #:")
  +  (scr-princ "攻撃したいモンスター番号を選択(z=自動) #:")
     (scr-fresh-line)
     (let ((key (read-command-char)))
       (case key
  
positive.code: ;;モンスター表示
  (defun show-monsters2 ()
    (scr-fresh-line)
    (scr-format "---------------------------------------~%")
    (scr-format "敵:~%")
    (let ((x 0))
      (map 'list
  
negative.code: (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)
  