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: (defparameter *yoko* 11)
  (defparameter *monsters* nil)
  (defparameter *monster-builders* nil)
  ;;宝箱から出る武器の確率 *buki*に対応
  (defparameter *battle?* nil)
  (defparameter *monster-num* 6)
  (defparameter *monster-level* 1) ;;階数によるモンスターのレベル
  
negative.code: ;;モンスターグループが全滅したか判定
  (defun monsters-dead ()
    (every #'monster-dead *monsters*))
  ;; 1->a 2->b 3->c ...
  (defun number->a (x)
    (code-char (+ x 96)))
  ;;モンスター表示
  