anchor.diff:  	*end* 0
   	*lv-exp* 100
   	*start-time* (get-internal-real-time)
  -	*ha2ne2* nil))
  +	*ha2ne2* nil
  +	*omomin* (copy-tree +init-omomin+)))
   
   (defun game-over-message (p)
     (scr-format "Game Over.~%")
  
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 hummer-get (p)
    (scr-format "「ハンマーを見つけた。」~%")
    (incf (player-hammer p)))
  
  
      
  
  ;;しょぼいものほど確率が高くなるように
  (defun buki-get (p item-l)
    (let ((x (random 32)))
  