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 )
82