worlds/haxima-1.002/tutorial_cave.scm

   1 ;;----------------------------------------------------------------------------
   2 ;; Map
   3 ;;----------------------------------------------------------------------------
   4 (mk-dungeon-room
   5  'p_tutorial_cave "Tutorial Cave"
   6  (list
   7       "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
   8       "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
   9       "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  10       "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  11       "rr %% %% rr rr tt .. .. .. tt rr rr rr {{ rr rr rr rr rr "
  12       "rr %% rr rr || .. .. .. .. .. || rr rr tt {{ rr rr rr rr "
  13       "rr %% rr tt %% bb .. .. .. bb %% || rr .. tt rr rr rr rr "
  14       "rr %% rr %% %% %% %% .. .. %% %% tt rr .. tt rr rr rr rr "
  15       "rr rr rr tt %% bb %% .. .. bb %% %% rr .. {{ rr rr rr rr "
  16       "rr .. || || %% %% .. .. .. %% %% %% rr {{ {{ rr rr rr rr "
  17       "rr .. rr || %% bb .. %% %% bb %% %% rr {{ {{ rr rr rr rr "
  18       "rr tt rr tt %% .. .. .. %% %% tt tt rr .. {{ rr rr rr rr "
  19       "rr tt rr %% %% bb .. .. .. bb || || rr .. {{ rr rr rr rr "
  20       "rr tt rr rr tt %% .. .. .. tt || rr rr .. tt rr rr rr rr "
  21       "rr .. tt rr rr rr .. .. .. rr rr rr .. .. tt rr rr rr rr "
  22       "rr .. .. .. && rr .. .. .. rr .. .. .. tt || rr rr rr rr "
  23       "rr .. .. .. .. rr .. .. .. rr .. .. tt || rr rr rr rr rr "
  24       "rr rr tt .. .. rr rr .. rr rr tt tt || rr rr rr rr rr rr "
  25       "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  26   )
  27  (put (spawn-pt 'bat) 7 7)
  28  (put (mk-step-clue "Now would be a good time to U)se a torch!") 7 15)
  29  (put (mk-step-clue "Kill the bat, then enter F)ollow mode and look around. "
  30                     "When you're done, go back to the ladder and press E)nter to climb back up.")
  31       7 14)
  32  (put (mk-ladder-up 'p_tutorial_wilderness 9 15) 7 17)
  33  )