anchor.diff:      (otherwise (game-over-message p))))
   ;;バトル開始
   (defun orc-battle (p)
  -  (scr-format "~%敵が現れた！！~%")
  +  ;;(scr-format "~%敵が現れた！！~%")
     (init-monsters p)
     ;;(init-player)
     (game-loop p)
  -  (scr-fresh-line)
  +  (gamen-clear)
  +  (show-monsters2)
     (setf *battle?* nil)
  +  (scr-format "~%~%")
     (when (player-dead p)
       (game-over-message p))
     (when (monsters-dead)
       (loop while (>= (player-exp p) *lv-exp*)
  -	  do (scr-format "     「レベルアップ！！」~%")
  +	  do (scr-format "「レ ベ ル ア ッ プ ！ ！」~%")
   	     (incf (player-level p))
   	     (incf (player-maxhp p) 3)
   	     (incf (player-maxagi p) 1)
  
positive.code: (defun number->a (x)
    (code-char (+ x 96)))
  ;;モンスター表示
  (defun show-monsters ()
    (scr-fresh-line)
    (scr-format "---------------------------------------~%")
    (scr-princ "敵:")
    (let ((x 0))
      (map 'list
  	 (lambda (m)
  	   (scr-fresh-line)
  	   (scr-princ "  ")
  	   (scr-princ (number->a (incf x)))
  	   (scr-princ ". ")
  	   (if (monster-dead m)
  	       (scr-princ "**死亡**")
  	       (progn (scr-princ "(体力=")
  		      (scr-princ (monster-health m))
  		      (scr-princ ") ")
  		      (monster-show m))))
  	 *monsters*)))
  
  (defstruct monster (health (randval (+ 10 *monster-level*))))
  
  (defmethod monster-hit (p m x)
    (decf (monster-health m) x)
    (scr-format "「~aに ~dのダメージを与えた！」~%" (type-of m) x)
    (if (monster-dead m)
        (case (type-of m)
          (boss (scr-format "もげぞうを倒した！~%"))
          (ha2ne2
            (incf (player-exp p) 99)
            (scr-format "「ハツネツエリアを倒した！」~%"))
  	(orc
  	 (incf (player-exp p) 2)
  	 (scr-princ "「オークを倒しました！」 "))
  	(slime-mold
  	 (incf (player-exp p) 3)
  	 (scr-princ "「スライムを倒しました！」 "))
  	(brigand
  	 (incf (player-exp p) 5)
  	 (scr-princ "「ブリガンドを倒しました！」 ")))))
  
  (defmethod monster-show (m)
    (scr-princ "凶暴な ")
    (scr-princ (type-of m)))
  
  (defmethod monster-attack (m p))
  ;;中ボス
  
negative.code: ;;バトル時、プレイヤーが死ぬかモンスターが全滅するまでループ
  (defun game-loop (p)
    (unless (or (player-dead p) (monsters-dead))
      
      (dotimes (k (1+ (truncate (/ (max 0 (player-agi p)) 15))))
        (unless (monsters-dead)
  	(gamen-clear)
  	(show-monsters2)
  	(show-player p)
          (player-attack p)))
      (cond 
        ((null (monsters-dead))
         (gamen-clear)
         (show-monsters2)
         (show-player p)
         (scr-format "~%-------------敵のターン----------------~%")
         (map 'list
              (lambda (m)
                (or (monster-dead m) (monster-attack m p)))
              *monsters*)
         (scr-format "~%次へ = z~%")
         (read-command-char)
         (game-loop p)))))
  
  ;;プレイヤーの生死判定
  