anchor.diff:    (setf (player-msg p) "「回復薬を見つけた。」")
     (incf (player-heal p)))
   
  -    
  -
  -;;しょぼいものほど確率が高くなるように
  -(defun buki-get (p item-l)
  -  (let ((x (random 32)))
  -    (case x
  -      ((0 1 2 3 4 5)
  -       (equip? p (aref item-l 0)))
  -      ((6 7 8 9 10)
  -       (equip? p (aref item-l 1)))
  -      ((11 12 13 14)
  -       (equip? p (aref item-l 2)))
  -      ((15 16 17)
  -       (equip? p (aref item-l 3)))
  -      ((18 19 20)
  -       (equip? p (aref item-l 4)))
  -      ((21 22 23)
  -       (equip? p (aref item-l 5)))
  -      ((24 25 26)
  -       (equip? p (aref item-l 6)))
  -      ((27 28)
  -       (equip? p (aref item-l 7)))
  -      ((29 30)
  -       (equip? p (aref item-l 8)))
  -      (31
  -       (equip? p (aref item-l 9))))))
  -;;アイテムゲット
  -(defun item-get (p)
  -  (let ((x (random 4)))
  -    (case x
  -      ((0 2 3) ;;武器ゲット
  -       (cond
  -	 ((<= 1 (player-map p) 10)
  -	  (buki-get p *buki1-10*))
  -	 ((<= 11 (player-map p) 20)
  -	  (buki-get p *buki11-20*))
  -	 ((<= 21 (player-map p) 30)
  -	  (buki-get p *buki21-30*))
  -	 ((<= 31 (player-map p) 40)
  -	  (buki-get p *buki31-40*))
  -	 ((<= 41 (player-map p) 50)
  -	  (buki-get p *buki41-50*))
  -	 ((<= 51 (player-map p) 60)
  -	  (buki-get p *buki51-60*))
  -	 ((<= 61 (player-map p) 70)
  -	  (buki-get p *buki61-70*))
  -	 ((<= 71 (player-map p) 80)
  -	  (buki-get p *buki71-80*))
  -	 ((<= 81 (player-map p) 90)
  -	  (buki-get p *buki81-90*))
  -	 ((<= 91 (player-map p) 100)
  -	  (buki-get p *buki91-100*))))
  -      (1 ;;ハンマーゲット
  -       (hummer-get p)))))
   
   
   ;;アイテム
  
positive.code: 	*lv-exp* 100
  	*start-time* (get-internal-real-time)
  	*ha2ne2* nil
  	*omomin* (copy-tree +init-omomin+)))
  
  (defun game-over-message (p)
    (scr-format "Game Over.~%")
  
negative.code: ;;ボスバトル
  (defun boss-battle (p)
    (scr-format "~%もげぞうが現れた！！~%")
    (boss-monsters p 0)
    ;;(init-player)
    (game-loop p)
    (setf *battle?* nil)
  