anchor.diff:  	 (rnd (random total-weight)))
       (rnd-pick 0 rnd lst len)))
   
  -;;(←しょぼい　レア→)         
  -;; '(4 3 2 1 1) → '(1 4 3 2 1)→'(2 1 4 3)
  +      
  +;; '(4 3 2 1 1) → '(1 4 3 2 1)→'(1 1 4 3 2) '(1 1 1 4 3)
   (defun omomin-zurashi (lst)
  -  (let ((x (car (last lst))))
  -    (setf lst (remove x lst :count 1 :from-end t))
  -    (push x lst)
  -    lst))
  +  (setf lst (butlast lst))
  +  (push 1 lst)
  +  lst)
   ;;テスト用------------------------------------
   #|
   (defun test-pick ()
  
positive.code:             (5 (scr-format " イ:イベント~%"))
              (6 (scr-format " ハ:中ボス~%"))
  	    (otherwise (scr-fresh-line))))))
    (show-map-key))
  #|
  ;;マップ表示 視界制限ver
  
negative.code: (push #'make-slime-mold *monster-builders*)
  
  (defmethod monster-show ((m slime-mold))
    (let ((x (slime-mold-sliminess m)))
      (cond
        ((<= 1 x 3) (scr-format "ベタベタなスライム"))
        ((<= 4 x 6) (scr-format "ベトベトなスライム"))
        ((<= 7 x 9) (scr-format "ベチョベチョなスライム"))
        (t (scr-format "ヌルヌルなスライム")))))
  
  (defmethod monster-attack ((m slime-mold) (p player))
    (let ((x (randval (slime-mold-sliminess m))))
  