anchor.diff:    (<= (player-hp p) 0))
   ;;プレイヤーのステータス表示(バトル時)
   (defun show-player (p)
  -  (scr-format "Lv ~d, HP ~d, 素早さ ~d, 力 ~d, exp ~d~%"
  -	      (player-level p) (player-hp p) (player-agi p) (player-str p) (player-exp p))
  -  (scr-format "持ち物:ハンマー ~d個 回復薬 ~d個~%" (player-hammer p) (player-heal p)))
  +  (scr-format "Lv ~d, HP ~d/~d 力 ~d/~d 素早さ ~d/~d ~%"
  +	      (player-level p) (player-hp p) (player-maxhp p)  (player-str p) (player-maxstr p)
  +	      (player-agi p) (player-maxagi p)))
   ;;cursorより前に生きてるモンスターおるか？
   (defun mae-monster-alive? (cursor)
     (if (> 0 cursor)
  
positive.code: ;;マップ表示
  (defun show-map (map p)
    (gamen-clear)
    (scr-format "地下~d階~%" (player-map p))
    (show-player p)
    (scr-format "現在の武器:~a~%" (first (player-buki p)))
    (show-auto-heal p)
    (loop for i from 0 below (donjon-tate map) do
      (loop for j from 0 below (donjon-yoko map) do
        (scr-format (map-type (aref (donjon-map map) i j)))
        (if (= j (- (donjon-yoko map) 1))
  	  (case i
  	    (0 (scr-format " 主:プレイヤーの位置~%"))
  	    (2 (scr-format " 宝:宝箱~%"))
  	    (1 (scr-format " 下:下り階段~%"))
  	    (3 (scr-format " 薬:回復薬~%"))
  	    (4 (scr-format " ボ:ボス~%"))
              (5 (scr-format " イ:イベント~%"))
              (6 (scr-format " ハ:中ボス~%"))
  	    (otherwise (scr-fresh-line))))))
    (show-msg p)
    (show-map-key))
  #|
  ;;マップ表示 視界制限ver
  (defun show-fog-map (map p)
  
negative.code: ;;オート回復薬メッセージ
  (defun show-auto-heal (p)
    (if (null (player-auto-heal p))
        (scr-format "オート回復薬[f] OFF~%")
        (scr-format "オート回復薬[f] HPが~d%以下で回復~%" (player-auto-heal p))))
  
  ;;文字幅取得
  (defun moge-char-width (char)
  