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: 	(brigand
  	 (incf (player-exp p) 5))
  	(yote1
  	 (incf (player-exp p) 100)))))
  
  
  
negative.code: ;;モンスター選択
  (defun pick-monster (p)
    (scr-fresh-line)
    (scr-princ "攻撃したいモンスター番号を選択(z=自動) #:")
    (scr-fresh-line)
    (let ((key (read-command-char)))
      (case key
  