anchor.diff:  ;;
   (defun atack-p (p x)
     (let ((m (pick-monster p)))
  -    ;;(scr-fresh-line)
  -    ;;(scr-format "-------------あなたの攻撃--------------~%")
       (monster-hit2 p m x)))
   ;;攻撃方法
   (defun player-attack (p)
  
positive.code:   (incf (monster-damage m))
    (if (monster-dead m)
        (progn (incf (player-exp p) 100)
  	     (if (= 1 (random 100))
  		 (yote1-drop-flag p)))))
  
  ;;-------------------オーク------------------------------
  (defstruct (orc (:include monster))
  
negative.code:     (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)
    (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)
    (scr-format "~%~%")
    (when (player-dead p)
      (game-over-message p))
    (when (monsters-dead)
      (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))
    ;;バトルフラグとボスフラグを初期化
    (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)
  