anchor.diff:    (<= (player-hp p) 0))
   ;;プレイヤーのステータス表示(バトル時)
   (defun show-player (p)
  -  (scr-format "~%あなたのステータス:HP ~d, 素早さ ~d, 力 ~d,~%"
  -          (player-hp p) (player-agi p) (player-str 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個~%" (player-heal p)))
   ;;
   (defun atack-p (p x)
  
positive.code:        (gamen-clear)
         (show-monsters2)
         (show-player p)
         (scr-format "~%-------------敵のターン----------------~%")
         (map 'list
              (lambda (m)
                (or (monster-dead m) (monster-attack m p)))
  
negative.code: 	(brigand
  	 (incf (player-exp p) 5))
  	(yote1
  	 (if (= 1 (random 100))
  	     (yote1-drop))
  	 (incf (player-exp p) 100)))))
  
  
  