anchor.diff:  		   (player-str p) (player-maxstr p)
   		   (player-exp p) (- (player-exp p) *lv-exp*))
   	     (incf *lv-exp* 10))
  -    (scr-format "     「大勝利！」~%~%")))
  +    (scr-format "「大 勝 利 ！」~%~%")
  +    (scr-format "次へ = z")
  +    (read-command-char)))
   ;;ボスバトル
   (defun boss-battle (p)
     (scr-format "~%もげぞうが現れた！！~%")
  
positive.code:       (if (>= (random 10) 3)
  	(setf (aref map (+ (player-posy p) y) (+ (player-posx p) x)) 0)
  	(setf (aref map (+ (player-posy p) y) (+ (player-posx p) x)) 3))
       (decf (player-hammer p))
       (scr-format "「壁を壊しました。」~%"))))
  
  ;;武器装備してステータス更新
  (defun equip-buki (item p)
  
negative.code:             (5 (scr-format " イ:イベント~%"))
              (6 (scr-format " ハ:中ボス~%"))
  	    (otherwise (scr-fresh-line))))))
    (show-msg p)
    (show-map-key))
  #|
  ;;マップ表示 視界制限ver
  