anchor.diff:    (health (randval (+ 10 *monster-level*)))
     (damage  0))
   
  -
  +;;-----------------敵からのアイテムドロップ-------------------------
   (defun yote1-drop (p)
  - (if (= 1 (random 100))
  +  (if (= 1 (random 100))
         (push "メタルヨテイチの剣" (player-drop p))))
   (defun ha2ne2-drop (p)
     (if (= 0 (random 10))
  
positive.code:     hoge))
  (defun test-hoge ()
    (let ((x 1))
  	   (loop for hoge from 0 to 53
  		 collect x
  		 do (incf x 1))))
  |#
  ;;---------------------------------------------
  ;;武器ゲット２ 全アイテムからランダム
  (defun item-get2 (p)
    (case (random 5)
      ((0 1 2)
       (equip? p (weightpick *copy-buki*)))
      (3 (hummer-get p))
      (4 (kusuri-get p))))
  
  ;;プレイヤーの場所更新
  (defun update-player-pos (p x y map)
  
negative.code: 	 (scr-princ x)
  	 (scr-fresh-line)
  	 (atack-p p x)
  	 (unless (monsters-dead)
  	   (atack-p p x))))
      (c
  