anchor.diff:    (maxstr 30)
     (posy 0)
     (posx 0)
  -  (map 50) ;;マップ深度
  +  (map 1) ;;マップ深度
     (heal 2) ;;持ってる薬の数
     (hammer 5) ;;持ってるハンマーの数
     (level 1)
  
positive.code:   (setf (aref map (player-posy p) (player-posx p)) 0)
    (setf (player-posy p) (+ (player-posy p) y)
  	(player-posx p) (+ (player-posx p) x)))
  ;;bossマップセット
  (defun set-bossmap (map p boss-map)
    (set-map map boss-map)
    (setf (player-posx p) 5
  	(player-posy p) 9))
  ;;100階イベント
  (defun moge-event (p)
    (if (equal (car (player-buki p)) "もげぞーの剣")
        (progn
          (scr-format "~%「もげぞーの剣が輝き出し、もげぞうの剣に進化した！」~%")
          (equip-buki (assoc "もげぞうの剣" *buki* :test #'equal) p))
        (scr-format "「なにも起こらなかった。」~%")))
    ;;(scr-format "enterを押してください。~%")
    ;;(read-command-char))
  ;;移動後のマップ更新
  (defun update-map (map p y x)
    (case (aref (donjon-map map) (+ (player-posy p) y) (+ (player-posx p) x))
  
negative.code:   (setf (player-msg p) "「回復薬を見つけた。」")
    (incf (player-heal p)))
  
  
  
  ;;アイテム
  