anchor.diff:  (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個~%" (player-heal p)))
  +  (scr-format "持ち物:回復薬 ~d個,ハンマー~d個~%" (player-heal p) (player-hammer p)))
   ;;
   (defun atack-p (p x)
     (let ((m (pick-monster p)))
  
positive.code:                    (t (make-yote1 :health 3)))))
  	     (make-array (setf (player-monster-num p)
  			       (randval (+ *monster-num* (floor (player-level p) 4))))))))
  ;;配列の０番目にボス、あとはランダムなモンスター
  (defun boss-monsters (p m)
    (let ((hoge 0))
      (setf *monsters*
  
negative.code:      (scr-format "z,x,c,v,qの中から選んでください！~%")
       (player-attack p))))
  
  ;;n内の１以上の乱数
  (defun randval (n)
    (1+ (random (max 1 n))))
  
  