worlds/haxima-1.002/tutorial_wilderness.scm

   1
   2
   3 (kern-mk-place
   4  'p_tutorial_wilderness
   5  "The Tutorial Wilderness"
   6  nil          ; sprite
   7  (kern-mk-map
   8   nil 19 19 pal_expanded
   9   (list
  10       "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ ^^ ^^ ^^ "
  11       "__ __ __ .. .. .. .. .. .. .. .. .. .. .. __ __ ^^ .. ^^ "
  12       "__ __ .. .. .. .. .. .. .. .. .. .. .. .. __ __ __ ee __ "
  13       "__ .. .. .. .. .. .. .. .. .. .. .. .. .. __ __ __ __ __ "
  14       "__ .. .. .. .. .. .. .. .. .. .. .. .. .. __ __ __ __ __ "
  15       "__ .. .. .. .. .. .. .. .. .. .. .. .. .. ee __ __ __ __ "
  16       "__ .. .. .. .. .. .. .. .. .. .. .. .. .. __ __ __ __ __ "
  17       "__ .. .. .. .. .. .. .. .. .. .. .. .. .. __ __ __ __ __ "
  18       "__ .. .. .. .. .. .. .. ^^ ^^ ^^ .. .. .. __ __ __ __ __ "
  19       "__ .. .. .. .. .. .. .. ^^ .. ^^ .. .. .. __ __ __ __ __ "
  20       "__ .. .. .. .. .. .. .. ^^ .. ^^ .. .. .. __ __ __ __ __ "
  21       "__ .. .. .. .. .. .. .. .. .. .. .. .. .. __ __ __ __ __ "
  22       "__ .. .. .. .. .. .. .. .. .. .. .. .. .. __ __ __ __ __ "
  23       "__ .. .. .. .. .. .. .. .. .. .. .. .. .. __ .. .. .. __ "
  24       "__ .. .. .. .. .. .. .. ^^ .. ^^ .. .. .. __ .. .. .. __ "
  25       "__ .. .. .. .. .. .. ^^ ^^ .. ^^ ^^ .. .. __ .. .. .. __ "
  26       "__ __ .. .. .. .. .. .. ^^ ^^ ^^ .. .. .. __ __ .. __ __ "
  27       "__ __ __ .. .. .. .. .. .. .. .. .. .. .. __ __ __ __ __ "
  28       "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ "
  29   )  )
  30  #f  ;; wraps
  31  #f  ;; underground
  32  #t  ;; wilderness
  33  #f  ;; tmp combat place
  34
  35  ;; subplaces:
  36  (list
  37   (list p_tutorial_town 9 9)
  38   )
  39
  40  nil ; neighborss
  41
  42  ;; objects:
  43  (list
  44
  45   (put (mk-step-clue "A)ttack the bandits to the south. "
  46                      "Combat will take place on a special map. "
  47                      "When combat is over press '<' or just walk off the edge of the map.")
  48        9 10)
  49   (put (mk-npc-party 'bandit-party-l1) 9 13)
  50   (put (mk-step-clue "You can K)amp in the wilderness to heal your party. Try it now.") 9 13)
  51
  52   (put (mk-step-clue "Enter the cave below by stepping onto it.")
  53        9 14)
  54   (put (mk-dungeon 'p_tutorial_cave 7 17) 9 15)
  55
  56   (put (mk-step-clue "B)oard the ship by stepping onto it and pressing 'b'. "
  57                      "Then sail to the dock in the northeast corner using the arrow keys.") 14 5)
  58   (put (mk-step-clue "F)ire your cannons at the bandits on the island by pressing 'f' and an arrow key. "
  59                      "A ship can only fire broadside, so you may have to maneuver a bit.")
  60        15 4)
  61   (put (mk-step-clue "F)ire your cannons at the bandits on the island by pressing 'f' and an arrow key. "
  62                      "A ship can only fire broadside, so you may have to maneuver a bit.")
  63        15 6)
  64   (put (mk-step-clue "F)ire your cannons at the bandits on the island by pressing 'f' and an arrow key. "
  65                      "A ship can only fire broadside, so you may have to maneuver a bit.")
  66        16 5)
  67
  68   (put (mk-ship) 15 5)
  69   (put (mk-npc-party 'bandit-party-l1) 16 14)
  70
  71   (put (mk-step-clue "That's it for the tutorial. There's lots more info in the USERS_GUIDE. "
  72                      "You'll find one in the doc directory where you installed the game, or "
  73                      "you can find one online at the project website. "
  74                      "You may exit the tutorial now by Q)uitting the game with the 'q' key. "
  75                      "Have fun!") 17 1)
  76
  77   ) ;; end of objects
  78
  79  nil ; hooks
  80  nil ; edge entrances
  81  )