1(kern-load "gregor.scm")
2
3;;-----------------------------------------------------------------------------
4;; Make some chests containing items to get the player started.
5;; These will be placed on the map in the shrine room in the SW.
6;;-----------------------------------------------------------------------------
7(define supplies_chest
8  (mk-chest
9   nil ;; trap
10
11   '(
12
13    ;; Food
14    (10 t_food)
15
16    ;; Gold
17    (10 t_gold_coins)
18
19    ;; Reagents
20    (10 sulphorous_ash)
21    (10 ginseng)
22    (10 garlic)
23    (10 spider_silk)
24    (6 blood_moss)
25    (6 black_pearl)
26    (3 nightshade)
27    (3 mandrake)
28
29    ;; Items
30    (2 t_heal_potion)
31    (2 t_cure_potion)
32    (2 t_mana_potion)
33    (6 t_torch)
34    (3 t_picklock)
35
36    ;; Arms
37    (1  t_sword)
38    (1  t_shield)
39    (1  t_staff)
40
41    (1  t_sling)
42    (1  t_self_bow)
43    (20 t_arrow)
44
45    ;; Hints/instructions
46    (1 t_manual)
47    (1 t_letter_from_enchanter)
48    (1 t_spell_book_white_magick_1   )
49    (1 t_spell_book_force_magick_12 )
50    )
51   ))
52
53
54
55;;----------------------------------------------------------------------------
56;; Moongate Clearing
57;;
58;; This is where the player starts out.
59;;----------------------------------------------------------------------------
60(kern-mk-place 'p_moongate_clearing "Moongate Clearing"
61  s_shrine ;; sprite
62  (kern-mk-map 'm_moongate_clearing 23 28 pal_expanded
63    (list
64		"^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^d t3 tt tt tt td ^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^5 "
65		"^^ {{ {{ {{ ^^ ^^ ^^ ^c t3 tt tt || || ^b ^^ ^^ {{ {{ {{ ^^ {{ {{ ^^ "
66		"^^ {{ {{ {{ {{ ^^ t3 tt tt || tt tt || |% ^a ^^ {C t7 {{ ^^ ^^ {{ ^^ "
67		"^^ {{ {{ {{ {{ {C tt || || || || tt || || |% ^e t3 tt {A {{ ^^ {{ ^^ "
68		"^^ ^^ {{ {{ {C t3 || || || || tt tt tt || || tt tt tt t5 {A {{ {{ ^^ "
69		"^^ ^^ ^^ ^^ t3 tt || || || tt tt tt tt tt tt tt tt tt tt td {{ ^^ ^^ "
70		"^^ ^^ ^^ ^^ || || || || tt tt tc bb ta tt tt tt tt tt || ^b ^^ ^^ ^c "
71		"^^ ^^ ^^ ^^ || || || tt tt bb .. .. .. bb tt tt tt || || |% ^a ^c |& "
72		"^^ ^^ ^^ ^c || || tt tt tt td .. .. .. tb tt tt tt tt || || || || || "
73		"^^ ^c |# || || || tt tt bb .. .. .. .. .. bb tt tt tt tt tt tt tt tt "
74		"^^ |# || || || || tt tc .. .. .. .. .. .. .. ta tt tt tt tt tt tt tc "
75		"{{ |A || || || || tt bb .. .. .. .. .. .. .. bb tt tt tt tt tt tc {& "
76		"{{ {% |A || || tt tt t5 .. .. .. .. .. .. .. t3 tt tc {# {% te {# {{ "
77		"^^ {{ {{ {{ {% ta tt tt bb .. .. .. .. .. bb tt tc {# {{ {{ {{ {{ {{ "
78		"^^ ^^ ^^ {{ {{ {% ta tt tt td .. .. .. tb tt tt {# ^^ ^^ {{ {{ ^^ ^^ "
79		"^^ ^^ ^^ ^^ {{ {{ {% ta tt bb .. .. .. bb tt tt {A ^^ ^^ ^^ {{ {{ ^^ "
80		"^^ ^^ {7 ^^ ^^ ^^ {{ {% tt td .. .. .. tb tt tt td {{ ^^ ^^ {{ {{ ^^ "
81		"^^ {3 .. {1 {5 ^^ {{ {{ tt bb .. .. .. bb tt tt {B {{ {{ {{ {{ ^^ ^^ "
82		"^^ {2 .. .. {4 ^^ {{ {{ tt td .. .. .. tb tt tt tt tt t5 {A ^^ ^^ ^^ "
83		"^^ {a .. {8 {c ^^ {{ {{ tt bb .. .. .. bb te bb te bb tt t5 ^^ ^^ ^^ "
84		"^^ ^^ {e ^^ ^^ ^^ {{ {{ tt td .. .. .. .. .. .. .. .. ta tt ^^ ^^ ^^ "
85		"^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ tt bb .. .. .. .. .. .. .. .. bb tt ^^ ^^ ^^ "
86		"^^ ^^ ,H ,A ,I ,L ^^ ^^ tt t5 .. .. .. .. .. .. .. .. tb tt ^a ^^ ^^ "
87		"^^ {3 .. .. .. .. {5 ^^ ta tc bb .. bb t7 bb .. .. .. bb tt t5 ^a ^^ "
88		"^^ {2 .. .. .. .. .. {9 .. .. .. tC t3 tt td .. .. .. tb tt tt t5 ^e "
89		"^^ {2 .. .. .. .. {4 ^^ t3 || tt tt tt tt bb .. .. .. bb tt tt tt t5 "
90		"^^ ,S ,E ,E ,K ,E ,R ^^ || || || tt tt tc .. .. .. .. .. ta tt tt tt "
91		"^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ta || tt tt tc bb .. .. .. .. .. bb ta tt tc "
92     )
93    )
94  #f #f #f #f
95  ;; subplaces
96  nil
97  ;; neighbors
98  nil
99
100  ;; *** contents of the place ***
101  (list
102   (list (kern-tag 'black-gate (mk-moongate nil)) 11 11)
103   (list (mk-gregor) 1 23)
104   (list supplies_chest   1 24)
105   )
106
107  nil ;; hooks
108  (list  ;; edge entrances
109   (list north 16 27)
110   (list east   0 11)
111   (list west  22 10)
112   (list northeast 8 27)
113   (list southeast   9 0)
114   (list southwest  22 7)
115   )
116) ;; end of place p_moongate_clearing
117
118(mk-place-music p_moongate_clearing 'ml-small-town)
119