anchor.diff:        (z (auto-pick-monster 0))
         (otherwise
          (let ((x (ascii->number key)))
  -	 (if (not (and (integerp x) (>= x 1) (<= x (player-monster-num p))))
  +	 (if (not (and (integerp x) (>= x 0) (<= x (player-monster-num p))))
   	     (progn (scr-princ "有効なモンスター番号ではありません。")
   		    (pick-monster p))
  -	     (let ((m (aref *monsters* (1- x))))
  +	     (let ((m (aref *monsters* x)))
   	       (if (monster-dead m)
   		   (progn (scr-princ "そのモンスターはすでに死んでます。")
   			  (pick-monster p))
  
positive.code:   (exp 0)
    (buki '("なし" 0 0 0))
    (msg nil)
    (drop nil) ;;敵からのドロップ品一時保管場所
    (auto-heal nil)
    (monster-num 0)) ;;戦闘時の敵の総数
  
negative.code: 	      (third (player-buki p)) (fourth (player-buki p)))
    (scr-format "発見した装備：~a 攻撃力:~d HP:~d 素早さ:~d~%"
  	      (first item) (second item) (third item) (fourth item))
    (scr-format "「装備しますか？」(z:装備 x:捨てる c:袋にしまう)~%")
    (case (read-command-char)
      (z
       (scr-format "「~aを装備した。」~%" (first item))
       (if (not (string= "なし" (first (player-buki p))))
  	 (push (player-buki p) (player-item p)))
       (equip-buki item p))
      (x
       (scr-format "「~aを見なかったことにした。」~%" (first item)))
      (c
       (push item (player-item p)))
      (otherwise
       (equip? p item))))
  
  