anchor.diff:  	    (4 (scr-format " 暗:見えてない場所~%"))
   	    (otherwise (scr-fresh-line)))))))
   |#
  -
  +;;エンディング
  +(defun ending ()
  +  (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 "~%「あなたは見事もげぞうの迷宮を完全攻略した！」~%")
  +	(progn (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)))))
   ;;プレイヤーが死ぬか先頭に入るまでループ
   (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))))
  +	(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))))
  +       (ending))
         ((= *end* 0)
          (main-game-loop map p)))))
   ;;ゲーム開始
  
positive.code:     (car (nth (rnd-pick 0 rnd lst1 len) lst))))
  
        
  ;; '(4 3 2 1 1) → '(1 4 3 2 1)→'(1 1 4 3 2) '(1 1 1 4 3)
  (defun omomin-zurashi (lst)
    (let ((buki (mapcar #'car lst))
  	(omomi (mapcar #'cdr lst)))
  
negative.code: ;;
  (defun atack-p (p x)
    (let ((m (pick-monster p)))
      (monster-hit2 p m x)))
  ;;攻撃方法
  (defun player-attack (p)
  