anchor.diff:  (defun hummer-get (p)
     (scr-format "「ハンマーを見つけた。」~%")
     (incf (player-hammer p)))
  +
  +
  +    
  +
   ;;しょぼいものほど確率が高くなるように
   (defun buki-get (p item-l)
     (let ((x (random 32)))
  
positive.code: (defparameter *yoko* 11)
  (defparameter *monsters* nil)
  (defparameter *monster-builders* nil)
  
  (defparameter *battle?* nil)
  (defparameter *monster-num* 6)
  (defparameter *monster-level* 0) ;;階数によるモンスターのレベル
  
negative.code: (defparameter *lv-exp* 100)
  (defparameter *start-time* 0)
  (defparameter *ha2ne2* nil)
  (defparameter *omomin* (copy-tree +init-omomin+))
  
  (defstruct player
    (hp 30)
  