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: 	    (4 (scr-format " 暗:見えてない場所~%"))
  	    (otherwise (scr-fresh-line)))))))
  |#
  
  ;;プレイヤーが死ぬか先頭に入るまでループ
  (defun main-game-loop (map p)
    (unless (player-dead p)
      (map-move map p)
      (if *battle?*
          (cond
            ((= *boss?* 1)
              (boss-battle p))
            ((= *boss?* 2)
             (ha2ne2-battle p))
            ((= *boss?* 0)
              (orc-battle p))))
      (cond
        ((= *end* 1)
         (let* ((ss (floor (- (get-internal-real-time) *start-time*) 1000))
  	      (h (floor ss 3600))
  	      (m (floor (mod ss 3600) 60))
  	      (s (mod ss 60)))
  	 (if *ha2ne2*
  	     (scr-format "~%「あなたは見事もげぞうの迷宮を完全攻略した！」~%")
  	     (scr-format "~%「もげぞうを倒したが、逃したハツネツエリアが新たな迷宮を作り出した・・・」~%
  「が、それはまた別のお話。」~%"))
  	 (scr-format "クリアタイムは~2,'0d:~2,'0d:~2,'0d でした！~%" h m s)
  	 (ranking-dialog ss)
  	 (scr-format "もう一度挑戦しますか？(yes=1 or no=2)~%"))
         (case (read-command-char)
           (1 (main))))
        ((= *end* 0)
         (main-game-loop map 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) "「ハンマーを見つけた。」")
  