anchor.diff:  	    (4 (scr-format " 暗:見えてない場所~%"))
   	    (otherwise (scr-fresh-line)))))))
   |#
  -;;マップ設定
  -(defun set-map (map moto)
  -  (loop for i from 0 below *tate* do
  -    (loop for j from 0 below *yoko* do
  -      (setf (aref map i j) (aref moto i j)))))
  +
   ;;プレイヤーが死ぬか先頭に入るまでループ
   (defun main-game-loop (map p)
     (unless (player-dead p)
  
positive.code: 	*lv-exp* 100
  	*start-time* (get-internal-real-time)
  	*ha2ne2* nil
  	*omomin* (copy-tree +init-omomin+)))
  
  (defun game-over-message (p)
    (scr-format "Game Over.~%")
  
negative.code:   (maxstr 30)
    (posy 0)
    (posx 0)
    (map 1) ;;マップ深度
    (heal 2) ;;持ってる薬の数
    (hammer 5) ;;持ってるハンマーの数
    (level 1)
  