anchor.diff:      (1 (main))
       (2 nil)
       (otherwise (game-over-message p))))
  +;;戦闘終了後レベルアップ
  +(defun level-up (p)
  +  (loop while (>= (player-exp p) *lv-exp*) do
  +    (scr-format "「レ ベ ル ア ッ プ ！ ！」~%")
  +    (incf (player-level p))
  +    (incf (player-maxhp p) 3)
  +    (incf (player-maxagi p) 1)
  +    (incf (player-maxstr p) 1)
  +    (setf (player-hp p) (player-maxhp p)
  +	  (player-agi p) (player-maxagi p)
  +	  (player-str p) (player-maxstr p)
  +	  (player-exp p) (- (player-exp p) *lv-exp*))
  +    (incf *lv-exp* 10)))
  +;;戦闘終了後アイテム入手
  +(defun item-drop? (p)
  +  (dolist (item (player-drop p))
  +    (let ((buki (assoc item *event-buki* :test #'equal)))
  +      (cond
  +	(buki (equip? p buki))
  +	((string= item "ハンマー")
  +	 (scr-format "「ハンマーを拾った！」~%")
  +	 (incf (player-hammer p)))
  +	((string= item "回復薬")
  +	 (scr-format "「回復薬を拾った！」~%")
  +	 (incf (player-heal p))))))
  +  (setf (player-drop p) nil)) ;;ドロップ品を消す
   ;;バトル開始
   (defun orc-battle (p)
  -  ;;(scr-format "~%敵が現れた！！~%")
  -  (init-monsters p)
  -  ;;(init-player)
  +  (cond ;;モンスターズ作成
  +    ((= *boss?* 1) ;;ラスボス
  +     (boss-monsters p 0))
  +    ((= *boss?* 2) ;;中ボス
  +     (boss-monsters p 1))
  +    ((= *boss?* 0) ;;雑魚
  +     (init-monsters p)))
     (game-loop p)
     (gamen-clear)
     (show-monsters2)
  -  (setf *battle?* nil)
     (scr-format "~%~%")
     (when (player-dead p)
       (game-over-message p))
     (when (monsters-dead)
  -    (if (player-drop p)
  -	(yote1-drop p))
  -    (loop while (>= (player-exp p) *lv-exp*)
  -	  do (scr-format "「レ ベ ル ア ッ プ ！ ！」~%")
  -	     (incf (player-level p))
  -	     (incf (player-maxhp p) 3)
  -	     (incf (player-maxagi p) 1)
  -	     (incf (player-maxstr p) 1)
  -	     (setf (player-hp p) (player-maxhp p)
  -		   (player-agi p) (player-maxagi p)
  -		   (player-str p) (player-maxstr p)
  -		   (player-exp p) (- (player-exp p) *lv-exp*))
  -	     (incf *lv-exp* 10))
  +    (item-drop? p) ;;アイテム入手処理
  +    (level-up p) ;;レベルアップ処理
  +    (cond
  +      ((= *boss?* 1) (setf *end* 1))
  +      ((= *boss?* 2) (setf *ha2ne2* t)))
       (scr-format "「大 勝 利 ！」~%~%")
       (scr-format "次へ = z")
  -    (read-command-char)))
  -;;ボスバトル
  -(defun boss-battle (p)
  -  (scr-format "~%もげぞうが現れた！！~%")
  -  (boss-monsters p 0)
  -  ;;(init-player)
  -  (game-loop p)
  -  (setf *battle?* nil)
  -  (when (player-dead p)
  -    (game-over-message p))
  -  (when (monsters-dead)
  -    (scr-format "「大勝利！」~%~%")
  -    (setf *end* 1)))
  -;;ハツネツバトル
  -(defun ha2ne2-battle (p)
  -  (scr-format "~%ハツネツエリアが現れた！！~%")
  -  (boss-monsters p 1)
  -  ;;(init-player)
  -  (game-loop p)
  -  (setf *battle?* nil)
  -  (when (player-dead p)
  -    (game-over-message p))
  -  (when (monsters-dead)
  -    (setf *boss?* 0
  -	  *ha2ne2* t)
  -    (scr-format "「大勝利！」~%")
  -    (scr-format "「ハツネツの剣を拾った！装備しますか？」(yes=z or no=x)~%")
  -    (let ((item (assoc "ハツネツの剣" *event-buki* :test #'equal)))
  -      (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 "ハツネツの剣を捨てた。~%"))))))
  +    (read-command-char))
  +  ;;バトルフラグとボスフラグを初期化
  +  (setf *battle?* nil
  +	*boss?* 0))
   
   ;;バトル時、プレイヤーが死ぬかモンスターが全滅するまでループ
   (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)
  
positive.code: ;;
  (defun atack-p (p x)
    (let ((m (pick-monster p)))
      ;;(scr-fresh-line)
      ;;(scr-format "-------------あなたの攻撃--------------~%")
      (monster-hit2 p m x)))
  ;;攻撃方法
  (defun player-attack (p)
  
negative.code: 
  
  ;;見つけた武器を装備するか
  (defun equip? (p item)
    (scr-format "「~aを見つけた」~%" (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))
    (scr-format "「装備しますか？」(yes=z or no=x)~%")
    (case (read-command-char)
      (z
       (scr-format "「~aを装備した。」~%" (first item))
       (equip-buki item p))
      (x
       (scr-format "「~aを見なかったことにした。」~%" (first item)))
      (otherwise
       (equip? p item))))
  
  (defun hummer-get (p)
    (setf (player-msg p) "「ハンマーを見つけた。」")
  