anchor.diff:  (defun hummer-get (p)
     (scr-format "「ハンマーを見つけた。」~%")
     (incf (player-hammer p)))
  +
  +
  +    
  +
   ;;しょぼいものほど確率が高くなるように
   (defun buki-get (p item-l)
     (let ((x (random 32)))
  
positive.code:      (incf (player-map p))
       (if (= (mod (player-map p) 2) 0)
  	 (incf (player-hammer p)))
       (if (= (mod (player-map p) 10) 0)
  	 (incf *monster-level*)))
      (3 ;;宝箱
       (item-get p)
       (update-player-pos p x y map))
      (5 ;;ボス
       (update-player-pos p x y map)
  
negative.code: 
  ;;見つけた武器を装備するか
  (defun equip? (p item-a)
    (let ((item item-a));;(assoc item-a *buki* :test #'equal)))
      (scr-format "「~aを見つけた」~%" (first item))
      (scr-format "現在の装備品：~a 攻撃力:~d HP:~d 素早さ:~d~%"
  		(first (player-buki p)) (second (player-buki p))
  