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