1;;----------------------------------------------------------------------------
2;; Sprites
3;;----------------------------------------------------------------------------
4;; 's_some_sprite ss_some_sprite_set num_tiles tile_number wave_sprite facing_value
5;;
6;; facing_value is the sum of all facings provided by this sprite.
7;; The value is determined by adding:
8;;    1 NorthWest
9;;    2 North
10;;    4 NorthEast
11;;    8 West
12;;   16 Here
13;;   32 East
14;;   64 SouthWest
15;;  128 South
16;;  256 SouthEast
17;;  512 Up
18;; 1024 Down
19;;
20;; Common values include:
21;;   0 Default facing (only 1 facing, used for all directions)
22;;  40 WE facing
23;; 170 NSEW facing
24;;----------------------------------------------------------------------------
25
26;(kern-mk-sprite 's_deep          ss_u4_shapes 1  0 #t 0 )
27;(kern-mk-sprite 's_shallow       ss_u4_shapes 1  1 #t 0 )
28;(kern-mk-sprite 's_shoals        ss_u4_shapes 1  2 #t 0 )
29(kern-mk-sprite 's_bog           ss_u4_shapes 1  3 #f 0 )
30(kern-mk-sprite 's_grass         ss_u4_shapes 1  4 #f 0 )
31
32;(kern-mk-sprite 's_trees         ss_u4_shapes 1  5 #f 0 )
33;(kern-mk-sprite 's_forest        ss_u4_shapes 1  6 #f 0 )
34;(kern-mk-sprite 's_hills         ss_u4_shapes 1  7 #f 0 )
35;(kern-mk-sprite 's_mountains     ss_u4_shapes 1  8 #f 0 )
36;(kern-mk-sprite 's_dungeon       ss_u4_shapes 1  9 #f 0 )
37(kern-mk-sprite 's_town          ss_u4_shapes 1 10 #f 0 )
38(kern-mk-sprite 's_keep          ss_u4_shapes 1 11 #f 0 )
39(kern-mk-sprite 's_hamlet        ss_u4_shapes 1 12 #f 0 )
40(kern-mk-sprite 's_leftwing      ss_u4_shapes 1 13 #f 0 )
41(kern-mk-sprite 's_castle        ss_u4_shapes 1 14 #f 0 )
42(kern-mk-sprite 's_rightwing     ss_u4_shapes 1 15 #f 0 )
43(kern-mk-sprite 's_cobblestone   ss_u4_shapes 1 22 #f 0 )
44(kern-mk-sprite 's_ew_bridge     ss_u4_shapes 1 23 #f 0 )
45(kern-mk-sprite 's_ballon        ss_u4_shapes 1 24 #f 0 )
46(kern-mk-sprite 's_bridge_top    ss_u4_shapes 1 25 #f 0 )
47(kern-mk-sprite 's_bridge_bottom ss_u4_shapes 1 26 #f 0 )
48(kern-mk-sprite 's_ladder_up     ss_u4_shapes 1 27 #f 0 )
49(kern-mk-sprite 's_ladder_down   ss_u4_shapes 1 28 #f 0 )
50(kern-mk-sprite 's_ruin          ss_u4_shapes 1 29 #f 0 )
51(kern-mk-sprite 's_shrine        ss_u4_shapes 1 30 #f 0 )
52
53(kern-mk-sprite 's_pillar      ss_u4_shapes 1 48 #f 0 )
54(kern-mk-sprite 's_wall_b      ss_u4_shapes 1 49 #f 0 )
55(kern-mk-sprite 's_wall_a      ss_u4_shapes 1 50 #f 0 )
56(kern-mk-sprite 's_wall_c      ss_u4_shapes 1 51 #f 0 )
57(kern-mk-sprite 's_wall_d      ss_u4_shapes 1 52 #f 0 )
58(kern-mk-sprite 's_mast        ss_u4_shapes 1 53 #f 0 )
59(kern-mk-sprite 's_ships_wheel ss_u4_shapes 1 54 #f 0 )
60;(kern-mk-sprite 's_boulder     ss_u4_shapes 1 55 #f 0 )
61;(kern-mk-sprite 's_asleep      ss_u4_shapes 1 56 #f 0 )
62;(kern-mk-sprite 's_wall_rock   ss_u4_shapes 1 57 #f 0 )
63(kern-mk-sprite 's_door_locked ss_u4_shapes 1 58 #f 0 )
64(kern-mk-sprite 's_door        ss_u4_shapes 1 59 #f 0 )
65;(kern-mk-sprite 's_chest       ss_u4_shapes 1 60 #f 0 )
66(kern-mk-sprite 's_ankh        ss_u4_shapes 1 61 #f 0 )
67(kern-mk-sprite 's_flagstone   ss_u4_shapes 1 62 #f 0 )
68(kern-mk-sprite 's_deck        ss_u4_shapes 1 63 #f 0 )
69
70(kern-mk-sprite 's_moongate_quarter        ss_u4_shapes 1 64 #f 0 )
71(kern-mk-sprite 's_moongate_half           ss_u4_shapes 1 65 #f 0 )
72(kern-mk-sprite 's_moongate_three_quarters ss_u4_shapes 1 66 #f 0 )
73(kern-mk-sprite 's_moongate_full           ss_u4_shapes 1 67 #f 0 )
74
75(kern-mk-sprite 's_field_poison ss_u4_shapes 1 68 #t 0 )
76(kern-mk-sprite 's_field_energy ss_u4_shapes 1 69 #t 0 )
77(kern-mk-sprite 's_field_fire   ss_u4_shapes 1 70 #t 0 )
78(kern-mk-sprite 's_field_sleep  ss_u4_shapes 1 71 #t 0 )
79(kern-mk-sprite 's_wall         ss_u4_shapes 1 72 #f 0 )
80(kern-mk-sprite 's_secret_door  ss_u4_shapes 1 73 #f 0 )
81(kern-mk-sprite 's_altar_obj        ss_u4_shapes 1 74 #f 0 )
82(kern-mk-sprite 's_lava         ss_u4_shapes 1 76 #t 0 )
83(kern-mk-sprite 's_projectile   ss_u4_shapes 1 77 #f 0 )
84(kern-mk-sprite 's_magic        ss_u4_shapes 1 78 #f 0 )
85;;(kern-mk-sprite 's_hit          ss_u4_shapes 1 79 #f 0 )
86;;(kern-mk-sprite 's_guard        ss_u4_shapes 2 80 #f 0 )
87;;(kern-mk-sprite 's_townsman     ss_u4_shapes 2 82 #f 0 )
88;;(kern-mk-sprite 's_bard         ss_u4_shapes 2 84 #f 0 )
89;;(kern-mk-sprite 's_jester       ss_u4_shapes 2 86 #f 0 )
90;;(kern-mk-sprite 's_beggar       ss_u4_shapes 2 88 #f 0 )
91;;(kern-mk-sprite 's_child        ss_u4_shapes 2 90 #f 0 )
92(kern-mk-sprite 's_bull         ss_u4_shapes 2 92 #f 0 )
93(kern-mk-sprite 's_lord         ss_u4_shapes 2 94 #f 0 )
94
95(kern-mk-sprite 's_A ss_u4_shapes 1  96 #f 0 )
96(kern-mk-sprite 's_B ss_u4_shapes 1  97 #f 0 )
97(kern-mk-sprite 's_C ss_u4_shapes 1  98 #f 0 )
98(kern-mk-sprite 's_D ss_u4_shapes 1  99 #f 0 )
99(kern-mk-sprite 's_E ss_u4_shapes 1 100 #f 0 )
100(kern-mk-sprite 's_F ss_u4_shapes 1 101 #f 0 )
101(kern-mk-sprite 's_G ss_u4_shapes 1 102 #f 0 )
102(kern-mk-sprite 's_H ss_u4_shapes 1 103 #f 0 )
103(kern-mk-sprite 's_I ss_u4_shapes 1 104 #f 0 )
104(kern-mk-sprite 's_J ss_u4_shapes 1 105 #f 0 )
105(kern-mk-sprite 's_K ss_u4_shapes 1 106 #f 0 )
106(kern-mk-sprite 's_L ss_u4_shapes 1 107 #f 0 )
107(kern-mk-sprite 's_M ss_u4_shapes 1 108 #f 0 )
108(kern-mk-sprite 's_N ss_u4_shapes 1 109 #f 0 )
109(kern-mk-sprite 's_O ss_u4_shapes 1 110 #f 0 )
110(kern-mk-sprite 's_P ss_u4_shapes 1 111 #f 0 )
111(kern-mk-sprite 's_Q ss_u4_shapes 1 112 #f 0 )
112(kern-mk-sprite 's_R ss_u4_shapes 1 113 #f 0 )
113(kern-mk-sprite 's_S ss_u4_shapes 1 114 #f 0 )
114(kern-mk-sprite 's_T ss_u4_shapes 1 115 #f 0 )
115(kern-mk-sprite 's_U ss_u4_shapes 1 116 #f 0 )
116(kern-mk-sprite 's_V ss_u4_shapes 1 117 #f 0 )
117(kern-mk-sprite 's_W ss_u4_shapes 1 118 #f 0 )
118(kern-mk-sprite 's_X ss_u4_shapes 1 119 #f 0 )
119(kern-mk-sprite 's_Y ss_u4_shapes 1 120 #f 0 )
120(kern-mk-sprite 's_Z ss_u4_shapes 1 121 #f 0 )
121
122(kern-mk-sprite 's_counter_2x1_c ss_u4_shapes 1 122 #f 0 )
123(kern-mk-sprite 's_counter_2x1_e ss_u4_shapes 1 123 #f 0 )
124(kern-mk-sprite 's_counter_2x1_w ss_u4_shapes 1 124 #f 0 )
125(kern-mk-sprite 's_counter_1x1   ss_u4_shapes 1 125 #f 0 )
126
127(kern-mk-sprite 's_blank          ss_u4_shapes 1 126 #f 0 )
128(kern-mk-sprite 's_null           ss_u4_shapes 1 126 #f 0 )
129(kern-mk-sprite 's_wall_stone     ss_u4_shapes 1 127 #f 0 )
130
131(kern-mk-sprite 's_pirate_left    ss_u4_shapes 1 128 #f 0 )
132(kern-mk-sprite 's_pirate_front   ss_u4_shapes 1 129 #f 0 )
133(kern-mk-sprite 's_pirate_right   ss_u4_shapes 1 130 #f 0 )
134(kern-mk-sprite 's_pirate_back    ss_u4_shapes 1 131 #f 0 )
135
136;;(kern-mk-sprite 's_nixie          ss_u4_shapes 2 132 #f 0 )
137(kern-mk-sprite 's_kraken         ss_u4_shapes 2 134 #f 0 )
138(kern-mk-sprite 's_sea_serpent    ss_u4_shapes 2 136 #f 0 )
139(kern-mk-sprite 's_sea_horse      ss_u4_shapes 2 138 #f 0 )
140(kern-mk-sprite 's_whirlpool      ss_u4_shapes 2 140 #f 0 )
141(kern-mk-sprite 's_tornado        ss_u4_shapes 2 142 #f 0 )
142
143(kern-mk-sprite 's_rat            ss_u4_shapes 4 144 #f 0 )
144(kern-mk-sprite 's_bat            ss_u4_shapes 4 148 #f 0 )
145(kern-mk-sprite 's_spider         ss_u4_shapes 4 152 #f 0 )
146(kern-mk-sprite 's_ghost          ss_u4_shapes 4 156 #f 0 )
147(kern-mk-sprite 's_slime          ss_u4_shapes 4 160 #f 0 )
148(kern-mk-sprite 's_slime_asleep   ss_u4_shapes 1 160 #f 0 )
149;;(kern-mk-sprite 's_troll          ss_u4_shapes 4 164 #f 0 )
150(kern-mk-sprite 's_gremlin        ss_u4_shapes 4 168 #f 0 )
151(kern-mk-sprite 's_mimic          ss_u4_shapes 4 172 #f 0 )
152(kern-mk-sprite 's_reaper         ss_u4_shapes 4 176 #f 0 )
153(kern-mk-sprite 's_insects        ss_u4_shapes 4 180 #f 0 )
154;;(kern-mk-sprite 's_gazer          ss_u4_shapes 4 184 #f 0 )
155(kern-mk-sprite 's_deathknight         ss_u4_shapes 4 188 #f 0 )
156(kern-mk-sprite 's_orc            ss_u4_shapes 4 192 #f 0 )
157;;(kern-mk-sprite 's_skeleton       ss_u4_shapes 4 196 #f 0 )
158;;(kern-mk-sprite 's_brigand        ss_u4_shapes 4 200 #f 0 )
159(kern-mk-sprite 's_snake          ss_u4_shapes 4 204 #f 0 )
160;;(kern-mk-sprite 's_ettin          ss_u4_shapes 4 208 #f 0 )
161;;(kern-mk-sprite 's_headless       ss_u4_shapes 4 212 #f 0 )
162(kern-mk-sprite 's_cyclops        ss_u4_shapes 4 216 #f 0 )
163(kern-mk-sprite 's_wisp           ss_u4_shapes 4 220 #f 0 )
164;;(kern-mk-sprite 's_wizard         ss_u4_shapes 4 224 #f 0 )
165;;(kern-mk-sprite 's_lich           ss_u4_shapes 4 228 #f 0 )
166(kern-mk-sprite 's_drake          ss_u4_shapes 4 232 #f 0 )
167(kern-mk-sprite 's_zorn           ss_u4_shapes 4 236 #f 0 )
168;;(kern-mk-sprite 's_demon          ss_u4_shapes 4 240 #f 0 )
169(kern-mk-sprite 's_hydra          ss_u4_shapes 4 244 #f 0 )
170;;(kern-mk-sprite 's_dragon         ss_u4_shapes 4 248 #f 0 )
171;;(kern-mk-sprite 's_balron         ss_u4_shapes 4 252 #f 0 )
172
173(kern-mk-sprite 's_frame_ulc   ss_frame 1  0 #f 0 )
174(kern-mk-sprite 's_frame_td    ss_frame 1  1 #f 0 )
175(kern-mk-sprite 's_frame_urc   ss_frame 1  2 #f 0 )
176(kern-mk-sprite 's_frame_endu  ss_frame 1  3 #f 0 )  ; top of vertical bar, currently unused
177(kern-mk-sprite 's_frame_tr    ss_frame 1  4 #f 0 )
178(kern-mk-sprite 's_frame_plus  ss_frame 1  5 #f 0 )  ; center crosspiece, currently unused
179(kern-mk-sprite 's_frame_tl    ss_frame 1  6 #f 0 )
180(kern-mk-sprite 's_frame_vert  ss_frame 1  7 #f 0 )
181(kern-mk-sprite 's_frame_llc   ss_frame 1  8 #f 0 )
182(kern-mk-sprite 's_frame_tu    ss_frame 1  9 #f 0 )
183(kern-mk-sprite 's_frame_lrc   ss_frame 1 10 #f 0 )
184(kern-mk-sprite 's_frame_endb  ss_frame 1 11 #f 0 )  ; bottom of vertical bar, currently unused
185(kern-mk-sprite 's_frame_endl  ss_frame 1 12 #f 0 )
186(kern-mk-sprite 's_frame_horz  ss_frame 1 13 #f 0 )
187(kern-mk-sprite 's_frame_endr  ss_frame 1 14 #f 0 )
188(kern-mk-sprite 's_frame_dot   ss_frame 1 15 #f 0 )  ; disconnected disk, currently unused
189
190(kern-mk-sprite 'ls_ankh          ss_u4_charset 1  0 #f 0 )
191(kern-mk-sprite 'ls_shield        ss_u4_charset 1  1 #f 0 )
192(kern-mk-sprite 'ls_holey_wall    ss_u4_charset 1  2 #f 0 )
193(kern-mk-sprite 'ls_wall          ss_u4_charset 1  3 #f 0 )
194(kern-mk-sprite 'ls_updown_arrow  ss_u4_charset 1  4 #f 0 )
195(kern-mk-sprite 'ls_down_arrow    ss_u4_charset 1  5 #f 0 )
196(kern-mk-sprite 'ls_up_arrow      ss_u4_charset 1  6 #f 0 )
197(kern-mk-sprite 'ls_holey_ankh    ss_u4_charset 1  7 #f 0 )
198(kern-mk-sprite 'ls_white_ball    ss_u4_charset 1  8 #f 0 )
199(kern-mk-sprite 'ls_copyright     ss_u4_charset 1  9 #f 0 )
200(kern-mk-sprite 'ls_trademark     ss_u4_charset 1 10 #f 0 )
201(kern-mk-sprite 'ls_male          ss_u4_charset 1 11 #f 0 )
202(kern-mk-sprite 'ls_female        ss_u4_charset 1 12 #f 0 )
203(kern-mk-sprite 'ls_hbar          ss_u4_charset 1 13 #f 0 )
204(kern-mk-sprite 'ls_vbar          ss_u4_charset 1 13 #f 0 )
205(kern-mk-sprite 'ls_square        ss_u4_charset 1 14 #f 0 )
206(kern-mk-sprite 'ls_blue_ball     ss_u4_charset 1 15 #f 0 )
207(kern-mk-sprite 'ls_hbar_right    ss_u4_charset 1 16 #f 0 )
208(kern-mk-sprite 'ls_hbar_left     ss_u4_charset 1 17 #f 0 )
209(kern-mk-sprite 'ls_vbar_top      ss_u4_charset 1 16 #f 0 )
210(kern-mk-sprite 'ls_vbar_bottom   ss_u4_charset 1 17 #f 0 )
211(kern-mk-sprite 'ls_blank_one     ss_u4_charset 1 18 #f 0 )
212(kern-mk-sprite 'ls_dot_dot_dot   ss_u4_charset 1 19 #f 0 )
213(kern-mk-sprite 'ls_whirlpool     ss_u4_charset 4 28 #f 0 )
214(kern-mk-sprite 'ls_blank_three   ss_u4_charset 1 32 #f 0 )
215
216(kern-mk-sprite 's_rune_A      ss_rune 1  0 #f 0 )
217(kern-mk-sprite 's_rune_B      ss_rune 1  1 #f 0 )
218(kern-mk-sprite 's_rune_C      ss_rune 1  2 #f 0 )
219(kern-mk-sprite 's_rune_D      ss_rune 1  3 #f 0 )
220(kern-mk-sprite 's_rune_E      ss_rune 1  4 #f 0 )
221(kern-mk-sprite 's_rune_F      ss_rune 1  5 #f 0 )
222(kern-mk-sprite 's_rune_G      ss_rune 1  6 #f 0 )
223(kern-mk-sprite 's_rune_H      ss_rune 1  7 #f 0 )
224(kern-mk-sprite 's_rune_I      ss_rune 1  8 #f 0 )
225(kern-mk-sprite 's_rune_J      ss_rune 1  9 #f 0 )
226(kern-mk-sprite 's_rune_K      ss_rune 1 10 #f 0 )
227(kern-mk-sprite 's_rune_L      ss_rune 1 11 #f 0 )
228(kern-mk-sprite 's_rune_M      ss_rune 1 12 #f 0 )
229(kern-mk-sprite 's_rune_N      ss_rune 1 13 #f 0 )
230(kern-mk-sprite 's_rune_O      ss_rune 1 14 #f 0 )
231(kern-mk-sprite 's_rune_P      ss_rune 1 15 #f 0 )
232(kern-mk-sprite 's_rune_Q      ss_rune 1 16 #f 0 )
233(kern-mk-sprite 's_rune_R      ss_rune 1 17 #f 0 )
234(kern-mk-sprite 's_rune_S      ss_rune 1 18 #f 0 )
235(kern-mk-sprite 's_rune_T      ss_rune 1 19 #f 0 )
236(kern-mk-sprite 's_rune_U      ss_rune 1 20 #f 0 )
237(kern-mk-sprite 's_rune_V      ss_rune 1 21 #f 0 )
238(kern-mk-sprite 's_rune_W      ss_rune 1 22 #f 0 )
239(kern-mk-sprite 's_rune_X      ss_rune 1 23 #f 0 )
240(kern-mk-sprite 's_rune_Y      ss_rune 1 24 #f 0 )
241(kern-mk-sprite 's_rune_Z      ss_rune 1 25 #f 0 )
242(kern-mk-sprite 's_rune_TH     ss_rune 1 26 #f 0 )
243(kern-mk-sprite 's_rune_EE     ss_rune 1 27 #f 0 )
244(kern-mk-sprite 's_rune_NG     ss_rune 1 28 #f 0 )
245(kern-mk-sprite 's_rune_EA     ss_rune 1 29 #f 0 )
246(kern-mk-sprite 's_rune_ST     ss_rune 1 30 #f 0 )
247(kern-mk-sprite 's_rune_DOTSEP ss_rune 1 31 #f 0 )
248
249(kern-mk-sprite 's_crosshair            ss_addon 1  0 #f   0 )
250(kern-mk-sprite 's_blackgate_quarter        ss_addon 1 1 #f 0 )
251(kern-mk-sprite 's_blackgate_half           ss_addon 1 2 #f 0 )
252(kern-mk-sprite 's_blackgate_three_quarters ss_addon 1 3 #f 0 )
253(kern-mk-sprite 's_blackgate_full           ss_addon 1 4 #f 0 )
254(kern-mk-sprite 's_horse                ss_addon 1  5 #f  40 )
255(kern-mk-sprite 's_happy_monster_face   ss_addon 1  7 #f   0 )
256(kern-mk-sprite 's_ship                 ss_addon 1  8 #f 170 )
257(kern-mk-sprite 's_queen_spider         ss_addon 4 12 #f 0 )
258(kern-mk-sprite 's_hdoor                ss_addon 1 19 #f 0 )
259(kern-mk-sprite 's_hdoor_locked         ss_addon 1 20 #f 0 )
260(kern-mk-sprite 's_portcullis_down      ss_addon 1 21 #f 0 )
261(kern-mk-sprite 's_portcullis_up        ss_addon 1 22 #f 0 )
262(kern-mk-sprite 's_forest_yellow        ss_addon 1 23 #f 0 )
263(kern-mk-sprite 's_L_lever_up           ss_addon 1 24 #f 0 )
264(kern-mk-sprite 's_L_lever_down         ss_addon 1 25 #f 0 )
265(kern-mk-sprite 's_R_lever_up           ss_addon 1 26 #f 0 )
266(kern-mk-sprite 's_R_lever_down         ss_addon 1 27 #f 0 )
267(kern-mk-sprite 's_floor_plate          ss_addon 1 28 #f 0 )
268(kern-mk-sprite 's_ns_bridge            ss_addon 1 29 #f 0 )
269(kern-mk-sprite 's_forest_purple        ss_addon 1 30 #f 0 )
270(kern-mk-sprite 's_forest_red           ss_addon 1 31 #f 0 )
271(kern-mk-sprite 's_trees_orange         ss_addon 1 32 #f 0 )
272(kern-mk-sprite 's_trees_yellow         ss_addon 1 33 #f 0 )
273(kern-mk-sprite 's_trees_purple         ss_addon 1 34 #f 0 )
274(kern-mk-sprite 's_trees_red            ss_addon 1 35 #f 0 )
275(kern-mk-sprite 's_bed                  ss_addon 1 36 #f 0 )
276(kern-mk-sprite 's_fireplace            ss_addon 2 37 #f 0 )
277;;(kern-mk-sprite 's_gwen                 ss_addon 2 40 #f 0 )
278(kern-mk-sprite 's_yellow_slime         ss_addon 4 42 #f 0 )
279(kern-mk-sprite 's_yellow_slime_asleep  ss_addon 1 42 #f 0 )
280(kern-mk-sprite 's_wall_torch           ss_addon 2 46 #f 0 )
281(kern-mk-sprite 's_water_elemental      ss_addon 1 48 #t 0 )
282(kern-mk-sprite 's_toy_horse                                  ss_addon 1 55 #f 0 )
283;;(kern-mk-sprite 's_closed_solid_wood_door_in_stone            ss_addon 1 49 #f 0 )
284;;(kern-mk-sprite 's_open_door_in_stone                         ss_addon 1 50 #f 0 )
285;;(kern-mk-sprite 's_locked_solid_wood_door_in_stone            ss_addon 1 51 #f 0 )
286;;(kern-mk-sprite 's_magically_locked_solid_wood_door_in_stone  ss_addon 3 52 #f 0 )
287(kern-mk-sprite 's_rock_arch                                    ss_addon 1 49 #f 0 )
288(kern-mk-sprite 's_stone_arch                                   ss_addon 1 50 #f 0 )
289(kern-mk-sprite 's_door_wood                                    ss_addon 1 51 #f 0 )
290(kern-mk-sprite 's_door_lock                                    ss_addon 1 52 #f 0 )
291(kern-mk-sprite 's_door_windowed                                ss_addon 1 53 #f 0 )
292(kern-mk-sprite 's_door_magiclock                               ss_addon 3 59 #f 0 )
293;;(kern-mk-sprite 's_closed_solid_wood_door_in_rock             ss_addon 1 56 #f 0 )
294;;(kern-mk-sprite 's_open_door_in_rock                          ss_addon 1 57 #f 0 )
295;;(kern-mk-sprite 's_locked_solid_wood_door_in_rock             ss_addon 1 58 #f 0 )
296;;(kern-mk-sprite 's_magically_locked_solid_wood_door_in_rock   ss_addon 3 59 #f 0 )
297;;(kern-mk-sprite 's_closed_windowed_wood_door_in_rock          ss_addon 1 68 #f 0 )
298;;(kern-mk-sprite 's_locked_windowed_wood_door_in_rock          ss_addon 1 69 #f 0 )
299(kern-mk-sprite 's_smoke                                      ss_addon 2 68 #f 0)
300(kern-mk-sprite 's_spider_web                                 ss_addon 1 70 #f 0)
301(kern-mk-sprite 's_corpse                                     ss_addon 1 71 #f 0)
302;;(kern-mk-sprite 's_magically_locked_windowed_wood_door_in_rock ss_addon 3 76 #f 0 )
303(kern-mk-sprite 's_deep_lava                                   ss_addon 1 79 #t 0)
304(kern-mk-sprite 's_golden_skeleton_key  ss_addon 1 77 #f 0)
305(kern-mk-sprite 's_arrow_slit       ss_addon 1 62 #f 0 )
306(kern-mk-sprite 's_window_in_stone  ss_addon 1 63 #f 0 )
307(kern-mk-sprite 's_trail_0  ss_addon 1 64 #f 0 )
308(kern-mk-sprite 's_trail_1  ss_addon 1 65 #f 0 )
309(kern-mk-sprite 's_trail_2  ss_addon 1 66 #f 0 )
310(kern-mk-sprite 's_trail_3  ss_addon 1 67 #f 0 )
311(kern-mk-sprite 's_trail_4  ss_addon 1 72 #f 0 )
312(kern-mk-sprite 's_trail_5  ss_addon 1 73 #f 0 )
313(kern-mk-sprite 's_trail_6  ss_addon 1 74 #f 0 )
314(kern-mk-sprite 's_trail_7  ss_addon 1 75 #f 0 )
315(kern-mk-sprite 's_trail_8  ss_addon 1 80 #f 0 )
316(kern-mk-sprite 's_trail_9  ss_addon 1 81 #f 0 )
317(kern-mk-sprite 's_trail_a  ss_addon 1 82 #f 0 )
318(kern-mk-sprite 's_trail_b  ss_addon 1 83 #f 0 )
319;;(kern-mk-sprite 's_chanticleer ss_addon 2 84 #f 0)
320(kern-mk-sprite 's_stars       ss_addon 2 86 #f 0)
321(kern-mk-sprite 's_trail_c  ss_addon 1 88 #f 0 )
322(kern-mk-sprite 's_trail_d  ss_addon 1 89 #f 0 )
323(kern-mk-sprite 's_trail_e  ss_addon 1 90 #f 0 )
324(kern-mk-sprite 's_trail_f  ss_addon 1 91 #f 0 )
325(kern-mk-sprite 's_townswoman ss_addon 2 92 #f 0)
326;;(kern-mk-sprite 's_fat_townswoman ss_addon 2 97 #f 0)
327;;(kern-mk-sprite 's_lady ss_addon 2 99 #f 0)
328;;(kern-mk-sprite 's_doorway ss_addon 1 101 #f 0)
329(kern-mk-sprite 's_goblin_child ss_addon 2 102 #f 0)
330(kern-mk-sprite 's_purple_spider ss_addon 4 104 #f 0)
331;;(kern-mk-sprite 's_brigandess ss_addon 4 108 #f 0)
332(kern-mk-sprite 's_wolf ss_addon 4 112 #f 0)
333(kern-mk-sprite 's_void_ship ss_addon 1 116 #f 170)
334;;(kern-mk-sprite 's_human_knight ss_addon 4 120 #f 0 )
335(kern-mk-sprite 's_red_slime ss_addon 4 124 #f 0)
336(kern-mk-sprite 's_red_slime_asleep ss_addon 1 124 #f 0)
337(kern-mk-sprite 's_active_altar_obj ss_addon 4 128 #f 0)
338(kern-mk-sprite 's_tentacle ss_addon 4 132 #f 0)
339(kern-mk-sprite 's_sludge ss_addon 1 136 #t 0)
340(kern-mk-sprite 's_dirt ss_addon 1 137 #f 0)
341(kern-mk-sprite 's_gravel ss_addon 1 138 #f 0)
342(kern-mk-sprite 's_great_kraken ss_addon 2 139 #f 0)
343(kern-mk-sprite 's_shallow_sludge ss_addon 1 143 #t 0)
344(kern-mk-sprite 's_weather_vane ss_addon 1 144 #f 170)
345(kern-mk-sprite 's_mouse        ss_addon 2 148 #f 0)
346(kern-mk-sprite 's_eye_closed   ss_addon 1 150 #f 0)
347(kern-mk-sprite 's_eye_open     ss_addon 1 151 #f 0)
348
349(kern-mk-sprite 's_full_moon                ss_moons 1 0 #f 0 )
350(kern-mk-sprite 's_wane_three_quarter_moon  ss_moons 1 1 #f 0 )
351(kern-mk-sprite 's_wane_half_moon           ss_moons 1 2 #f 0 )
352(kern-mk-sprite 's_wane_quarter_moon        ss_moons 1 3 #f 0 )
353(kern-mk-sprite 's_new_moon                 ss_moons 1 4 #f 0 )
354(kern-mk-sprite 's_wax_quarter_moon         ss_moons 1 5 #f 0 )
355(kern-mk-sprite 's_wax_half_moon            ss_moons 1 6 #f 0 )
356(kern-mk-sprite 's_wax_three_quarter_moon   ss_moons 1 7 #f 0 )
357
358(kern-mk-sprite 's_yellow_full_moon                ss_moons 1 8 #f 0 )
359(kern-mk-sprite 's_yellow_wane_three_quarter_moon  ss_moons 1 9 #f 0 )
360(kern-mk-sprite 's_yellow_wane_half_moon           ss_moons 1 10 #f 0 )
361(kern-mk-sprite 's_yellow_wane_quarter_moon        ss_moons 1 11 #f 0 )
362(kern-mk-sprite 's_yellow_new_moon                 ss_moons 1 12 #f 0 )
363(kern-mk-sprite 's_yellow_wax_quarter_moon         ss_moons 1 13 #f 0 )
364(kern-mk-sprite 's_yellow_wax_half_moon            ss_moons 1 14 #f 0 )
365(kern-mk-sprite 's_yellow_wax_three_quarter_moon   ss_moons 1 15 #f 0 )
366
367(kern-mk-sprite 's_blue_full_moon                ss_moons 1 16 #f 0 )
368(kern-mk-sprite 's_blue_wane_three_quarter_moon  ss_moons 1 17 #f 0 )
369(kern-mk-sprite 's_blue_wane_half_moon           ss_moons 1 18 #f 0 )
370(kern-mk-sprite 's_blue_wane_quarter_moon        ss_moons 1 19 #f 0 )
371(kern-mk-sprite 's_blue_new_moon                 ss_moons 1 20 #f 0 )
372(kern-mk-sprite 's_blue_wax_quarter_moon         ss_moons 1 21 #f 0 )
373(kern-mk-sprite 's_blue_wax_half_moon            ss_moons 1 22 #f 0 )
374(kern-mk-sprite 's_blue_wax_three_quarter_moon   ss_moons 1 23 #f 0 )
375
376(kern-mk-sprite 's_sun                      ss_moons 1 24 #f 0 )
377
378(kern-mk-sprite 's_torch_sign ss_signs     1 0 #f 0)
379(kern-mk-sprite 's_shield_sign ss_signs    1 1 #f 0)
380(kern-mk-sprite 's_ankh_sign ss_signs      1 2 #f 0)
381(kern-mk-sprite 's_beer_sign ss_signs      1 3 #f 0)
382(kern-mk-sprite 's_bed_sign ss_signs       1 4 #f 0)
383(kern-mk-sprite 's_potion_sign ss_signs    1 5 #f 0)
384(kern-mk-sprite 's_mushroom_sign ss_signs  1 6 #f 0)
385(kern-mk-sprite 's_axe_sign ss_signs  1 8 #f 0)
386(kern-mk-sprite 's_key_sign ss_signs  1 9 #f 0)
387(kern-mk-sprite 's_book_sign ss_signs  1 10 #f 0)
388
389(define (mk-sprite tag offset)
390  (kern-mk-sprite tag ss_runestones 1 offset #f 0))
391(mk-sprite 's_runestone_a 0)
392(mk-sprite 's_runestone_b 1)
393(mk-sprite 's_runestone_c 2)
394(mk-sprite 's_runestone_d 3)
395(mk-sprite 's_runestone_e 4)
396(mk-sprite 's_runestone_f 5)
397(mk-sprite 's_runestone_g 6)
398(mk-sprite 's_runestone_h 7)
399(mk-sprite 's_runestone_i 8)
400(mk-sprite 's_runestone_j 9)
401(mk-sprite 's_runestone_k 10)
402(mk-sprite 's_runestone_l 11)
403(mk-sprite 's_runestone_m 12)
404(mk-sprite 's_runestone_n 13)
405(mk-sprite 's_runestone_o 14)
406(mk-sprite 's_runestone_p 15)
407(mk-sprite 's_runestone_q 16)
408(mk-sprite 's_runestone_r 17)
409(mk-sprite 's_runestone_s 18)
410(mk-sprite 's_runestone_t 19)
411(mk-sprite 's_runestone_u 20)
412(mk-sprite 's_runestone_v 21)
413(mk-sprite 's_runestone_w 22)
414(mk-sprite 's_runestone_x 23)
415(mk-sprite 's_runestone_y 24)
416(mk-sprite 's_runestone_z 25)
417(mk-sprite 's_runestone_group 26)
418(mk-sprite 's_runestone_ankh 31)
419
420(kern-mk-sprite 's_fgob_stalker ss_humanoids  4 0 #f 0 )
421(kern-mk-sprite 's_fgob_archer ss_humanoids   4 8 #f 0 )
422(kern-mk-sprite 's_fgob_civilian ss_humanoids 4 16 #f 0 )
423(kern-mk-sprite 's_fgob_shaman ss_humanoids   4 24 #f 0 )
424(kern-mk-sprite 's_cgob_berserk ss_humanoids  4 4 #f 0 )
425(kern-mk-sprite 's_cgob_slinger ss_humanoids  4 12 #f 0 )
426(kern-mk-sprite 's_cgob_civilian ss_humanoids 4 20 #f 0 )
427(kern-mk-sprite 's_cgob_shaman ss_humanoids   4 28 #f 0 )
428(kern-mk-sprite 's_gint_party ss_humanoids 4 32 #f 0 )
429(kern-mk-sprite 's_deathknight ss_humanoids 4 36 #f 0 )
430(kern-mk-sprite 's_gint_mage_party ss_humanoids 4 40 #f 0 )
431(kern-mk-sprite 's_troll ss_humanoids 4 48 #f 0 )
432(kern-mk-sprite 's_troll_geomancer ss_humanoids 4 44 #f 0 )
433(kern-mk-sprite 's_headless ss_humanoids 4 52 #f 0 )
434(kern-mk-sprite 's_demon ss_humanoids 4 56 #f 0 )
435(kern-mk-sprite 's_ratling ss_humanoids 4 64 #f 0)
436(kern-mk-sprite 's_ratling_sorcerer ss_humanoids 4 68 #f 0)
437(kern-mk-sprite 's_deatharcher ss_humanoids 4 72 #f 0 )
438(kern-mk-sprite 's_skeleton       ss_humanoids 4 76 #f 0 )
439(kern-mk-sprite 's_spearskeleton     ss_humanoids 4 80 #f 0 )
440(kern-mk-sprite 's_skeletonarcher    ss_humanoids 4 84 #f 0 )
441(kern-mk-sprite 's_lich           ss_humanoids 4 88 #f 0 )
442(kern-mk-sprite 's_nixie_civilian    ss_humanoids 4 92 #f 0 )
443(kern-mk-sprite 's_nixie_spear          ss_humanoids 4 96 #f 0 )
444(kern-mk-sprite 's_nixie_sword          ss_humanoids 4 100 #f 0 )
445
446(kern-mk-sprite 's_gint ss_bigobjects 4 0 #f 0 )
447(kern-mk-sprite 's_gint_mage ss_bigobjects 4 4 #f 0 )
448(kern-mk-sprite 's_balron   ss_bigobjects 4 8 #f 0 )
449(kern-mk-sprite 's_dex_statue   ss_bigobjects 1 12 #f 0 )
450(kern-mk-sprite 's_str_statue   ss_bigobjects 1 13 #f 0 )
451(kern-mk-sprite 's_int_statue   ss_bigobjects 1 14 #f 0 )
452(kern-mk-sprite 's_towertown_ruin   ss_bigobjects 1 15 #f 0 )
453(kern-mk-sprite 's_dragon   ss_bigobjects 4 16 #f 0 )
454(kern-mk-sprite 's_dragon_asleep   ss_bigobjects 1 20 #f 0 )
455(kern-mk-sprite 's_tower   ss_bigobjects 2 22 #f 0 )
456(kern-mk-sprite 's_towertown   ss_bigobjects 2 24 #f 0 )
457
458
459;;----------------------------------------------------------------------------
460;;;; (kern-mk-sprite 's_wanderer ss_addon 2 94 #f 0)
461;;;; (kern-mk-sprite 's_avatar             ss_u4_shapes 1 31 #f 0 )
462;;;; (kern-mk-sprite 's_companion_wizard   ss_u4_shapes 2 32 #f 0 )
463;;;; (kern-mk-sprite 's_companion_bard     ss_u4_shapes 2 34 #f 0 )
464;;;; (kern-mk-sprite 's_companion_fighter  ss_u4_shapes 2 36 #f 0 )
465;;;; (kern-mk-sprite 's_companion_druid    ss_u4_shapes 2 38 #f 0 )
466;;;; (kern-mk-sprite 's_companion_tinker   ss_u4_shapes 2 40 #f 0 )
467;;;; (kern-mk-sprite 's_companion_paladin  ss_u4_shapes 2 42 #f 0 )
468;;;; (kern-mk-sprite 's_companion_ranger   ss_u4_shapes 2 44 #f 0 )
469;;;; (kern-mk-sprite 's_companion_shepherd ss_u4_shapes 2 46 #f 0 )
470
471(kern-mk-sprite 's_wanderer ss_people 4 0 #f 0 )
472(kern-mk-sprite 's_avatar   ss_people 4 4 #f 0 )
473(kern-mk-sprite 's_companion_wizard ss_people 4 8 #f 0 )
474(kern-mk-sprite 's_companion_bard ss_people 4 12 #f 0 )
475(kern-mk-sprite 's_companion_fighter ss_people 4 16 #f 0 )
476(kern-mk-sprite 's_companion_druid ss_people 4 20 #f 0 )
477(kern-mk-sprite 's_companion_tinker ss_people 4 24 #f 0 )
478(kern-mk-sprite 's_companion_paladin ss_people 4 28 #f 0 )
479(kern-mk-sprite 's_companion_ranger ss_people 4 32 #f 0 )
480(kern-mk-sprite 's_companion_shepherd ss_people 4 36 #f 0 )
481(kern-mk-sprite 's_old_mage ss_people 4 40 #f 0 )
482(kern-mk-sprite 's_black_mage ss_people 4 44 #f 0 )
483(kern-mk-sprite 's_guard ss_people 4 48 #f 0 )
484(kern-mk-sprite 's_plain_mage ss_people 4 52 #f 0 )
485(kern-mk-sprite 's_townsman ss_people 2 56 #f 0 )
486(kern-mk-sprite 's_townswoman ss_people 2 58 #f 0 )
487(kern-mk-sprite 's_brigand ss_people 4 60 #f 0 )
488(kern-mk-sprite 's_red_wizard ss_people 4 64 #f 0 )
489(kern-mk-sprite 's_xbowguard ss_people 2 68 #f 0 )
490(kern-mk-sprite 's_lady ss_people 2 70 #f 0 )
491(kern-mk-sprite 's_cloaked_female ss_people 4 72 #f 0 )
492(kern-mk-sprite 's_brigandess ss_people 4 76 #f 0 )
493(kern-mk-sprite 's_fat_townswoman ss_people 4 80 #f 0 )
494(kern-mk-sprite 's_knight ss_people 4 84 #f 0 )
495(kern-mk-sprite 's_minstrel ss_people 2 88 #f 0 )
496(kern-mk-sprite 's_beggar ss_people 2 90 #f 0 )
497(kern-mk-sprite 's_jester ss_people 4 92 #f 0 )
498(kern-mk-sprite 's_child ss_people 2 96 #f 0 )
499(kern-mk-sprite 's_asleep      ss_people 1 98 #f 0 )
500(kern-mk-sprite 's_ranger_captain ss_people 4 104 #f 0)
501(kern-mk-sprite 's_old_ranger ss_people 4 108 #f 0)
502(kern-mk-sprite 's_old_townsman ss_people 4 112 #f 0)
503(kern-mk-sprite 's_fallen_paladin ss_people 4 116 #f 0)
504
505(kern-mk-sprite 's_carabid ss_monsters 4 0 #f 0)
506(kern-mk-sprite 's_carabid_asleep ss_monsters 1 0 #f 0)
507(kern-mk-sprite 's_griffin ss_monsters 4 4 #f 0)
508(kern-mk-sprite 's_griffin_asleep ss_monsters 1 4 #f 0)
509(kern-mk-sprite 's_griffin_chick ss_monsters 4 12 #f 0)
510(kern-mk-sprite 's_griffin_chick_asleep ss_monsters 1 12 #f 0)
511(kern-mk-sprite 's_gazer          ss_monsters 4 8 #f 0 )
512(kern-mk-sprite 's_gazer_asleep   ss_monsters 1 16 #f 0 )
513(kern-mk-sprite 's_dragon_party   ss_monsters 4 20 #f 0 )
514
515(kern-mk-sprite 's_deer ss_creatures 4 0 #f 0)
516(kern-mk-sprite 's_chicken ss_creatures 2 4 #f 0)
517
518;;(kern-mk-sprite 's_tower ss_buildings 2 0 #f 0)
519
520(kern-mk-sprite 's_trees         ss_overlays 1  20 #f 0 )
521(kern-mk-sprite 's_forest        ss_overlays 1  21 #f 0 )
522(kern-mk-sprite 's_hills         ss_overlays 1  22 #f 0 )
523(kern-mk-sprite 's_mountains     ss_overlays 1  23 #f 0 )
524(kern-mk-sprite 's_dungeon       ss_overlays 1  24 #f 0 )
525(kern-mk-sprite 's_statue        ss_overlays 1  25 #f 0 )
526;(kern-mk-sprite 's_secret_rock   ss_overlays 1  26 #f 0 )
527(kern-mk-sprite 's_blank   		 ss_overlays 1  27 #f 0 )
528(kern-mk-sprite 's_boulder_over  ss_overlays 1  68 #f 0 )
529(kern-mk-sprite 's_boulder       ss_overlays 1  69 #f 0 )
530(kern-mk-sprite 's_wall_rock     ss_overlays 1  72 #f 0 )
531(kern-mk-sprite 's_secret_rock     ss_overlays 1  73 #f 0 )
532(kern-mk-sprite 's_window_in_rock     ss_overlays 1  74 #f 0 )
533(kern-mk-sprite 's_nat_rock           ss_overlays 1  75 #f 0 )
534(kern-mk-sprite 's_nat_rock_s         ss_overlays 1  76 #f 0 )
535(kern-mk-sprite 's_nat_rock_n         ss_overlays 1  77 #f 0 )
536(kern-mk-sprite 's_nat_rock_w         ss_overlays 1  78 #f 0 )
537(kern-mk-sprite 's_nat_rock_e         ss_overlays 1  79 #f 0 )
538(kern-mk-sprite 's_secret_nrock       ss_overlays 1  83 #f 0 )
539(kern-mk-sprite 's_headless_w_sword_statue ss_overlays 1 104 #f 0)
540
541(kern-mk-sprite 's_gold_cobble  ss_overlays 1 105 #f 0)
542(kern-mk-sprite 's_cyan_cobble  ss_overlays 1 106 #f 0)
543(kern-mk-sprite 's_gray_cobble  ss_overlays 1 107 #f 0)
544(kern-mk-sprite 's_blue_cobble  ss_overlays 1 108 #f 0)
545(kern-mk-sprite 's_olive_cobble ss_overlays 1 109 #f 0)
546(kern-mk-sprite 's_white_cobble ss_overlays 1 110 #f 0)
547(kern-mk-sprite 's_black_tile   ss_overlays 1 111 #f 0)
548(kern-mk-sprite 's_gold_spiral_tile   ss_overlays 1 112 #f 0)
549(kern-mk-sprite 's_blue_spiral_tile   ss_overlays 1 113 #f 0)
550(kern-mk-sprite 's_tombstone          ss_overlays 1 114 #f 0)
551(kern-mk-sprite 's_tombstone2         ss_overlays 1 115 #f 0)
552
553(kern-mk-sprite 's_bulwark_ew     ss_ship 1  0 #f 0 )
554(kern-mk-sprite 's_bulwark_ns     ss_ship 1  1 #f 0 )
555(kern-mk-sprite 's_deck_w         ss_ship 1  2 #f 0 )
556(kern-mk-sprite 's_deck_e         ss_ship 1  3 #f 0 )
557(kern-mk-sprite 's_deck_n         ss_ship 1  4 #f 0 )
558(kern-mk-sprite 's_deck_s         ss_ship 1  5 #f 0 )
559(kern-mk-sprite 's_stair_n         ss_ship 1  6 #f 0 )
560(kern-mk-sprite 's_stair_s         ss_ship 1  7 #f 0 )
561(kern-mk-sprite 's_bulwark_ne         ss_ship 1 8 #f 0 )
562(kern-mk-sprite 's_bulwark_se         ss_ship 1 9 #f 0 )
563(kern-mk-sprite 's_bulwark_nw         ss_ship 1 10 #f 0 )
564(kern-mk-sprite 's_bulwark_sw         ss_ship 1 11 #f 0 )
565(kern-mk-sprite 's_stair_w         ss_ship 1  12 #f 0 )
566(kern-mk-sprite 's_stair_e         ss_ship 1  13 #f 0 )
567(kern-mk-sprite 's_tank_d         ss_ship 1  14 #f 0 )
568(kern-mk-sprite 's_tank_l         ss_ship 1  15 #f 0 )
569(kern-mk-sprite 's_tank_nw         ss_ship 1  16 #f 0 )
570(kern-mk-sprite 's_tank_ne         ss_ship 1  17 #f 0 )
571(kern-mk-sprite 's_tank_sw         ss_ship 1  24 #f 0 )
572(kern-mk-sprite 's_tank_se         ss_ship 1  25 #f 0 )
573(kern-mk-sprite 's_shipswheel      ss_ship 1  18 #f 170 )
574(kern-mk-sprite 's_cannon          ss_ship 1  26 #f 170 )
575
576;(define s_altar (mk-composite-sprite (list s_cobblestone s_altar_obj)))
577;(define s_active_altar (mk-composite-sprite (list s_cobblestone s_active_altar_obj)))
578
579(define s_altar (mk-composite-sprite (list s_grass s_altar_obj)))
580(define s_active_altar (mk-composite-sprite (list s_grass s_active_altar_obj)))
581(define s_overgrown_altar (mk-composite-sprite (list s_trees s_altar_obj)))
582
583
584;;----------------------------------------------------------------------------
585;; Terrain overlay pieces
586(define (mk-sprite tag offset)
587  (kern-mk-sprite tag ss_overlays 1 offset #f 0))
588(mk-sprite 's_grass_nw 0)
589(mk-sprite 's_grass_ne 1)
590(mk-sprite 's_grass_se 2)
591(mk-sprite 's_grass_sw 3)
592(mk-sprite 's_grass_n  8)
593(mk-sprite 's_grass_e  9)
594(mk-sprite 's_grass_s  10)
595(mk-sprite 's_grass_w  11)
596
597;;----------------------------------------------------------------------------
598;; Hill overlay pieces
599(define (mk-sprite tag offset)
600  (kern-mk-sprite tag ss_overlays 1 offset #f 0))
601(mk-sprite 's_hill_e  12)
602(mk-sprite 's_hill_s  13)
603(mk-sprite 's_hill_w  14)
604(mk-sprite 's_hill_n  15)
605
606;;----------------------------------------------------------------------------
607;; Trees overlay pieces
608(mk-sprite 's_treesi_nw 28)
609(mk-sprite 's_treesi_ne 29)
610(mk-sprite 's_treesi_se 30)
611(mk-sprite 's_treesi_sw 31)
612(mk-sprite 's_treeso_nw 32)
613(mk-sprite 's_treeso_ne 33)
614(mk-sprite 's_treeso_se 34)
615(mk-sprite 's_treeso_sw 35)
616(mk-sprite 's_grasso_nw 36)
617(mk-sprite 's_grasso_ne 37)
618(mk-sprite 's_grasso_se 38)
619(mk-sprite 's_grasso_sw 39)
620(mk-sprite 's_grassi_c  7)
621(mk-sprite 's_trees_nw 48)
622(mk-sprite 's_trees_ne 49)
623(mk-sprite 's_trees_se 50)
624(mk-sprite 's_trees_sw 51)
625(mk-sprite 's_trees_c 52)
626(mk-sprite 's_hills_c 53)
627(mk-sprite 's_hills_nw 56)
628(mk-sprite 's_hills_ne 57)
629(mk-sprite 's_hills_se 58)
630(mk-sprite 's_hills_sw 59)
631(mk-sprite 's_mount_c 54)
632(mk-sprite 's_mount_nw 60)
633(mk-sprite 's_mount_ne 61)
634(mk-sprite 's_mount_se 62)
635(mk-sprite 's_mount_sw 63)
636(mk-sprite 's_forest_c 55)
637(mk-sprite 's_forest_nw 64)
638(mk-sprite 's_forest_ne 65)
639(mk-sprite 's_forest_se 66)
640(mk-sprite 's_forest_sw 67)
641
642(kern-mk-sprite 's_deep          ss_overlays 1  4 #t 0 )
643(kern-mk-sprite 's_shallow       ss_overlays 1  5 #t 0 )
644(kern-mk-sprite 's_shoals        ss_overlays 1  6 #t 0 )
645
646;; Character effect icons shown in the ztats window
647(kern-mk-sprite 's_torchlight	ss_effects 1  0 #f 0 )
648(kern-mk-sprite 's_light	ss_effects 1  1 #f 0 )
649(kern-mk-sprite 's_poison	ss_effects 1 2 #f 0 )
650(kern-mk-sprite 's_disease	ss_effects 1 3 #f 0 )
651(kern-mk-sprite 's_im_poison	ss_effects 1 4 #f 0 )
652(kern-mk-sprite 's_sleep	ss_effects 1 5 #f 0 )
653(kern-mk-sprite 's_protect	ss_effects 1 6 #f 0 )
654(kern-mk-sprite 's_charm	ss_effects 1 7 #f 0 )
655(kern-mk-sprite 's_invis	ss_effects 1 8 #f 0 )
656(kern-mk-sprite 's_spider_calm	ss_effects 1 9 #f 0 )
657(kern-mk-sprite 's_drunk	ss_effects 1 10 #f 0 )
658(kern-mk-sprite 's_im_disease	ss_effects 1 11 #f 0 )
659(kern-mk-sprite 's_tangle	ss_effects 1 12 #f 0 )
660(kern-mk-sprite 's_im_paralyse	ss_effects 1 13 #f 0 )
661(kern-mk-sprite 's_im_fire	ss_effects 1 14 #f 0 )
662(kern-mk-sprite 's_im_death	ss_effects 1 15 #f 0 )
663(kern-mk-sprite 's_im_charm	ss_effects 1 16 #f 0 )
664(kern-mk-sprite 's_im_sleep	ss_effects 1 17 #f 0 )
665(kern-mk-sprite 's_paralyse	ss_effects 1 18 #f 0 )
666(kern-mk-sprite 's_unrest       ss_effects 1 24 #f 0 )
667
668;; Global effect icons shown in the foogod window
669(kern-mk-sprite 's_time_stop    ss_effects 1 19 #f 0)
670(kern-mk-sprite 's_quicken      ss_effects 1 20 #f 0)
671(kern-mk-sprite 's_magic_negated ss_effects 1 21 #f 0)
672(kern-mk-sprite 's_reveal        ss_effects 1 22 #f 0)
673(kern-mk-sprite 's_xray_vision   ss_effects 1 23 #f 0)
674
675
676;; convenient alia
677(define s_shepherd s_companion_shepherd)
678(define s_ranger s_companion_ranger)
679(define s_blue_wizard s_companion_wizard)
680(define s_wizard s_red_wizard)
681(define s_fighter s_companion_fighter)
682(define s_gwen s_cloaked_female)
683(define s_silas s_plain_mage)
684(define s_enchanter s_old_mage)
685(define s_necromancer s_black_mage)
686(define s_chanticleer s_minstrel)
687
688;; Humanoid paper-doll-ready sprites
689(define (mk-sprite tag sprite-set offset n-frames)
690  (kern-mk-sprite tag sprite-set n-frames offset #f 0))
691(mk-sprite 's_hum_body   ss_bodies     0 4)
692
693(mk-sprite 's_hum_beard          ss_adornments 0 1)
694(mk-sprite 's_hum_med_hair_gold  ss_adornments 4 1)
695(mk-sprite 's_hum_long_hair_gold ss_adornments 5 1)
696
697(mk-sprite 's_hum_pants  ss_clothes    0 1)
698(mk-sprite 's_hum_shirt  ss_clothes    4 1)
699(mk-sprite 's_hum_robe   ss_clothes    8 4)
700(mk-sprite 's_hum_belt   ss_clothes    12 1)
701(mk-sprite 's_hum_mantle ss_clothes    16 1)
702
703;;----------------------------------------------------------------------------
704;; Color conversion matrices - used as parms to the
705;; kern-sprite-apply-matrix. By convention, names are mat_<color>, where
706;; <color> is the target color and the source is assumed to be gray. To
707;; translate other colors, eg from red to blue, use a name like mat_red_blue.
708;;
709(define mat_red '((0 0 2)
710                  (0 0 0)
711                  (0 0 0)
712                  (0 0 0)))
713
714(define mat_green '((0 0 0)
715                    (0 2 0)
716                    (0 0 0)
717                    (0 0 0)))
718
719(define mat_blue '((0 0 0)
720                   (0 0 0)
721                   (0 0 2)
722                   (0 0 0)))
723
724(define mat_white '((3 0 0)
725                    (0 3 0)
726                    (0 0 3)
727                    (0 0 0)))
728
729(define mat_yellow '((3 0 0)
730                     (0 3 0)
731                     (0 0 0)
732                     (0 0 0)))
733
734(define mat_gold_to_midnight '((0 0 0.25)
735                               (0 0.25 0)
736                               (0.25 0 0)
737                               (0 0 0)))
738
739(define mat_blue_to_green '((1 0 0)
740                            (0 0 1)
741                            (0 1 0)
742                            (0 0 0)))
743
744;;----------------------------------------------------------------------------
745;; Sprites derived from other sprites via color conversion
746(define (mk-sprite tag matrix)
747  (kern-sprite-apply-matrix (kern-sprite-clone s_hum_robe tag) matrix))
748
749(mk-sprite 's_hum_robe_red    mat_red)
750(mk-sprite 's_hum_robe_green  mat_green)
751(mk-sprite 's_hum_robe_blue   mat_blue)
752(mk-sprite 's_hum_robe_white  mat_white)
753(mk-sprite 's_hum_robe_yellow mat_yellow)
754
755(define (mk-sprite tag matrix)
756  (kern-sprite-apply-matrix (kern-sprite-clone s_hum_mantle tag) matrix))
757
758(mk-sprite 's_hum_mantle_red    mat_red)
759(mk-sprite 's_hum_mantle_green  mat_green)
760(mk-sprite 's_hum_mantle_blue   mat_blue)
761(mk-sprite 's_hum_mantle_white  mat_white)
762(mk-sprite 's_hum_mantle_yellow mat_yellow)
763
764(define (mk-sprite tag matrix base)
765  (kern-sprite-apply-matrix (kern-sprite-clone base tag) matrix))
766
767(mk-sprite 's_hum_med_hair_midnight  mat_gold_to_midnight s_hum_med_hair_gold)
768(mk-sprite 's_hum_long_hair_midnight mat_gold_to_midnight s_hum_long_hair_gold)
769
770
771;;--------------------------------------------------------------------------
772;; 'special effects'
773
774(kern-mk-sprite 's_heart	     ss_sfx   1  0 #f 0 )
775(kern-mk-sprite 's_hit	        ss_sfx   1  1 #f 0 )
776(kern-mk-sprite 's_magicflash	  ss_sfx   1  2 #f 0 )
777(kern-mk-sprite 's_lightning	  ss_sfx   3  3 #f 495 )
778(kern-mk-sprite 's_field_energy ss_sfx   1  27 #t 0 )
779(kern-mk-sprite 's_field_fire   ss_sfx   1  28 #t 0 )
780(kern-mk-sprite 's_field_poison ss_sfx   1  29 #t 0 )
781(kern-mk-sprite 's_field_sleep  ss_sfx   1  30 #t 0 )
782(kern-mk-sprite 's_field_acid   ss_sfx   1  31 #t 0 )
783
784;;----------------------------------------------------------------------------
785;; Tools
786(kern-mk-sprite 's_torch    ss_tools 1 0 #f 0)
787(kern-mk-sprite 's_picklock ss_tools 1 1 #f 0)
788(kern-mk-sprite 's_gem      ss_tools 1 2 #f 0)
789(kern-mk-sprite 's_shovel   ss_tools 1 3 #f 0)
790(kern-mk-sprite 's_pick     ss_tools 1 4 #f 0)
791(kern-mk-sprite 's_sextant  ss_tools 1 5 #f 0)
792(kern-mk-sprite 's_chrono   ss_tools 1 6 #f 0)
793(kern-mk-sprite 's_clock_stopped    ss_tools 1 7 #f 0)
794(kern-mk-sprite 's_clock_body    ss_tools 2 8 #f 0)
795(kern-mk-sprite 's_clock_hand_n    ss_tools 1 10 #f 0)
796(kern-mk-sprite 's_clock_hand_ne    ss_tools 1 11 #f 0)
797(kern-mk-sprite 's_clock_hand_se    ss_tools 1 12 #f 0)
798(kern-mk-sprite 's_clock_hand_s    ss_tools 1 13 #f 0)
799(kern-mk-sprite 's_clock_hand_sw    ss_tools 1 14 #f 0)
800(kern-mk-sprite 's_clock_hand_nw    ss_tools 1 15 #f 0)
801(kern-mk-sprite 's_clock_spin            ss_tools 6 10 #f 0)
802(kern-mk-sprite 's_mirror_fg             ss_tools 1 16 #f 0)
803(kern-mk-sprite 's_mirror_bg_flagstones   ss_tools 1 17 #f 0)
804(kern-mk-sprite 's_mirror_bg   ss_tools 1 18 #f 0)
805(kern-mk-sprite 's_bookshelf   ss_tools 1 23 #f 0)
806(kern-mk-sprite 's_grease      ss_tools 1 24 #f 0)
807(kern-mk-sprite 's_rope_hook   ss_tools 1 25 #f 0)
808
809(kern-mk-sprite 's_chest              ss_tools 1 32 #f 0)
810(kern-mk-sprite 's_locked_chest       ss_tools 1 33 #f 0)
811(kern-mk-sprite 's_magic_chest        ss_tools 4 34 #f 0)
812(kern-mk-sprite 's_magic_locked_chest ss_tools 4 38 #f 0)
813
814;;------------------------------------------------
815;; Quest icons (well, many quests will use stuff already in the game, but whatever)
816
817(kern-mk-sprite 's_quest_start ss_quests 1 0 #f 0 )
818(kern-mk-sprite 's_quest_wise ss_quests 1 1 #f 0 )
819