Browse code

(dungeon.tal) Starting a little dungeon exploration demo

neauoire authored on 08/12/2021 02:07:09
Showing 1 changed files
1 1
new file mode 100644
... ...
@@ -0,0 +1,543 @@
1
+( art by @ritualdust )
2
+
3
+%+  { ADD } %-   { SUB }              %/   { DIV }  
4
+%<  { LTH } %>   { GTH }  %=  { EQU } %!   { NEQ } 
5
+%++ { ADD2 } %-- { SUB2 }              %// { DIV2 } 
6
+%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }  
7
+
8
+%8** { #30 SFT2 }
9
+%10** { #40 SFT2 }
10
+
11
+%DEBUG  { ;print-hex JSR2 #0a .Console/write DEO }
12
+%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
13
+
14
+%RTN { JMP2r }
15
+%TOS { #00 SWP }
16
+%DEC { #01 - }
17
+
18
+%MOUSE { #82 }
19
+
20
+( devices )
21
+
22
+|00 @System     [ &vector $2 &wst      $1 &rst    $1 &pad   $4 &r      $2 &g      $2 &b    $2 &debug  $1 &halt $1 ]
23
+|10 @Console    [ &vector $2 &read     $1 &pad    $5 &write $1 &error  $1 ]
24
+|20 @Screen     [ &vector $2 &width    $2 &height $2 &pad   $2 &x      $2 &y      $2 &addr $2 &pixel  $1 &sprite $1 ]
25
+|30 @Audio0     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
26
+|40 @Audio1     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
27
+|50 @Audio2     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
28
+|60 @Audio3     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
29
+|80 @Controller [ &vector $2 &button   $1 &key    $1 ]
30
+|90 @Mouse      [ &vector $2 &x        $2 &y      $2 &state $1 &wheel  $1 ]
31
+|a0 @File       [ &vector $2 &success  $2 &stat   $2 &delete $1 &append $1 &name  $2 &length $2 &read $2 &write $2 ]
32
+|b0 @DateTime   [ &year   $2 &month    $1 &day    $1 &hour  $1 &minute $1 &second $1 &dotw $1 &doty   $2 &isdst $1 ]
33
+
34
+
35
+|0000
36
+	@room
37
+		&x $2 &y $2
38
+	@player
39
+		&x $1 &y $1 &d $1
40
+
41
+|0100
42
+
43
+	( theme ) 
44
+	#067f .System/r DEO2 
45
+	#036f .System/g DEO2 
46
+	#003f .System/b DEO2
47
+
48
+	.Screen/width DEI2 #01 SFT2 #0040 -- .room/x STZ2
49
+	.Screen/height DEI2 #01 SFT2 #0040 -- .room/y STZ2
50
+
51
+	( vectors )
52
+	;on-frame .Screen/vector DEO2
53
+	;on-button .Controller/vector DEO2
54
+
55
+	;entrance ;draw-dungeon JSR2
56
+
57
+	#05 .player/x STZ
58
+	#06 .player/y STZ
59
+	
60
+	MOUSE ;draw-mouse JSR2
61
+
62
+BRK
63
+
64
+@on-button ( -> )
65
+
66
+	.Controller/button DEI
67
+	DUP #00 ! ,&no-null JCN
68
+		POP BRK
69
+		&no-null
70
+	DUP #10 ! ,&no-up JCN
71
+		#00 .player/d STZ
72
+		#00 ;draw-mouse JSR2
73
+		.player/y LDZk DEC SWP STZ
74
+		MOUSE ;draw-mouse JSR2
75
+		&no-up
76
+	DUP #20 ! ,&no-down JCN
77
+		#01 .player/d STZ
78
+		#00 ;draw-mouse JSR2
79
+		.player/y LDZk INC SWP STZ
80
+		MOUSE ;draw-mouse JSR2
81
+		&no-down
82
+	DUP #40 ! ,&no-left JCN
83
+		#02 .player/d STZ
84
+		#00 ;draw-mouse JSR2
85
+		.player/x LDZk DEC SWP STZ
86
+		MOUSE ;draw-mouse JSR2
87
+		&no-left
88
+	DUP #80 ! ,&no-right JCN
89
+		#03 .player/d STZ
90
+		#00 ;draw-mouse JSR2
91
+		.player/x LDZk INC SWP STZ
92
+		MOUSE ;draw-mouse JSR2
93
+		&no-right
94
+	POP
95
+
96
+BRK
97
+
98
+@on-frame ( -> )
99
+
100
+	
101
+
102
+BRK
103
+
104
+@draw-mouse ( color -- )
105
+
106
+	;spritesheet #29 .player/d LDZ + TOS DUP2 DEBUG2 10** ++ .Screen/addr DEO2
107
+	.player/x LDZ TOS 8** .room/x LDZ2 ++ .Screen/x DEO2
108
+	.player/y LDZ TOS 8** .room/y LDZ2 ++ .Screen/y DEO2
109
+	#40 + .Screen/sprite DEO
110
+
111
+RTN
112
+
113
+@draw-dungeon ( stage* -- )
114
+
115
+	STH2
116
+	#1000
117
+	&ver
118
+		DUP TOS 8** .room/y LDZ2 ++ .Screen/y DEO2
119
+		#1000
120
+		&hor
121
+			DUP TOS 8** .room/x LDZ2 ++ .Screen/x DEO2
122
+			( get id ) STH2 DUP STH2r ROT OVR SWP #40 SFT + TOS
123
+				( tile ) DUP2 STH2kr ++ LDA TOS 10** ;spritesheet ++ .Screen/addr DEO2
124
+				( color ) STH2kr #0100 ++ ++ LDA .Screen/sprite DEO
125
+			INC GTHk ,&hor JCN
126
+		POP2
127
+		INC GTHk ,&ver JCN
128
+	POP2
129
+	POP2r
130
+
131
+RTN
132
+
133
+@print-hex ( value -- )
134
+	
135
+	STHk #04 SFT ,&parse JSR .Console/write DEO
136
+	STHr #0f AND ,&parse JSR .Console/write DEO
137
+	RTN
138
+	&parse ( value -- char )
139
+		DUP #09 GTH ,&above JCN #30 ADD RTN &above #09 SUB #60 ADD RTN
140
+
141
+RTN
142
+
143
+@mouse-icn
144
+	ffff ffff ffff ffff 0000 0000 0000 0000
145
+
146
+@spritesheet
147
+	1111 11f1 1111 111f eeee ee0e eeee eee0
148
+	f5bb 55bb 51b1 51ff 0a44 aa44 ae4e ae00
149
+	55bb 55bb 1111 1111 aa44 aa44 eeee eeee
150
+	ff11 11f1 1111 111f 00ee ee0e eeee eee0
151
+	1111 1111 1111 1111 eeee eeee eeee eeee
152
+	ff80 8080 80ff 8080 00ff ffff ffff ffff
153
+	ff01 0101 01ff 0101 00fe fefe fefe fefe
154
+	ffff 11ff 0ffd 71ff 00ee ee00 fa02 ee00
155
+	ffff 11ff cffd f9ff 00ee ee00 7a02 6600
156
+	ff8c 8f9f 9f8e ff00 0cff fcfe fefd ffff
157
+	ff82 820a 390a ff00 007d 7df5 c6f5 ffff
158
+	ff7d 7f6f 3d01 ff01 38fe d4fc fafe fefe
159
+	0000 0000 0007 0808 0000 0000 0007 0f0f
160
+	0000 0000 00ff 9191 0000 0000 006e 6e6e
161
+	0000 0000 00ff 1111 0000 0000 00ee eeee
162
+	0000 0000 00c0 0000 0000 0000 00c0 e0e0
163
+	1111 1111 1111 111f eeee eeee eeee eee0
164
+	51b1 51bf 51b1 51f1 ae4e ae40 ae4e ae0e
165
+	bb55 3b15 111f 1111 44aa c4ea eee0 eeee
166
+	bf55 bb55 1111 1111 40aa 44aa eeee eeee
167
+	51b1 51b1 51b1 51f1 ae4e ae4e ae4e ae0e
168
+	dfba afbf bfbf 9f80 a0c5 d5d5 d5c0 ffff
169
+	f5fd cdfd 8dfd f901 0a06 7606 7606 fefe
170
+	ffff 11ff f785 87ff 00ee ee00 7a7a 7800
171
+	ffff 11ff cffd fdff 00ee ee00 7a02 6200
172
+	381f 0520 2038 7000 0020 3a38 3800 7c00
173
+	00ff 0000 0000 0000 0000 ff00 0000 0000
174
+	1cec 2010 101c 3800 0010 dc1c 1c00 3e00
175
+	0808 0000 0000 0000 0f0f 0700 0000 0000
176
+	ff91 9100 0000 0000 6e6e 6e00 0000 0000
177
+	ff11 1100 0000 0000 eeee ee00 0000 0000
178
+	8000 0000 0000 0000 e0e0 c000 0000 0000
179
+	1111 11f1 1111 11ff eeee ee0e eeee ee00
180
+	51b1 51b1 1111 1111 ae4e ae4e eeee eeee
181
+	aa55 ab95 8181 817f 55aa d4ea fefe fe80
182
+	ffab 55ab 51a1 51ff 0054 aa54 ae5e ae00
183
+	d5ab d5ab d1a1 d1ff 2a54 2a54 2e5e 2e00
184
+	ffbe aaaa bf9f 80bf 80d5 d5d5 c0ff ffc0
185
+	fdfd 6d2d fdf9 01f9 0216 96d6 06fe fe06
186
+	ffff 817e ffff ffff 007e ff81 0000 0000
187
+	ffff 91ff cffd f9ff 006e 6e00 7a02 6600
188
+	0000 1c04 1830 303a 0a0e 1f0e 1e2e 2e55
189
+	2838 3878 004c 4c00 283a 297d 3e7a 32ff
190
+	1070 7878 0123 1200 1172 5375 1c3c 0c7e
191
+	080e 1e1e 98c4 4800 884e caae 203c 307e
192
+	80e0 8080 80e7 8888 e000 e0e0 e007 efef
193
+	0000 0000 00c7 0808 0000 0000 00c7 efef
194
+	080e 0808 08ce 0808 0e00 0e0e 0ec0 eeee
195
+	55ab 55ab 51a1 51ff aa54 aa54 ae5e ae00
196
+	ab55 ab55 8181 817f 54aa 54aa fefe fe80
197
+	ab55 ab55 8181 817f 54aa 54aa fefe fe80
198
+	bf7f bf77 9f81 817f 5cbe 6abe fcfe fe80
199
+	ab55 ab95 8181 817f 54aa d4ea fefe fe80
200
+	ffc0 8083 80c0 ffff ffff ffff ffff ff00
201
+	ff00 80ff 8000 ffff ffff ffff ffff ff00
202
+	ff07 03c3 0307 ffff fefe fefe fefe fe00
203
+	ffff 91ff f785 ffd9 006e 6e00 7a7a 006e
204
+	0000 0000 0000 0000 0000 0000 0000 0000
205
+	0000 0000 0000 0000 0000 0000 0000 0000
206
+	0000 0000 0000 0000 0000 0000 0000 0000
207
+	080e 0808 080e 0808 0e00 0e0e 0e00 0e0e
208
+	80e0 8080 80e0 8080 e000 e0e0 e000 e0e0
209
+	ee88 88ee 8890 8000 00ee ee00 eefe fe7c
210
+	0000 0000 0000 0000 0000 0000 0000 0000
211
+	5ea1 51a1 51a1 51ae af5e ae5e ae5e ae5f
212
+	7e81 8181 8181 817f fffe fefe fefe fe80
213
+	7e81 41a1 51a1 51ff ff7e be5e ae5e ae00
214
+	7e81 8185 8783 817f fffe fefa fcfe fefe
215
+	7e81 8185 8783 817f fffe fefa fcfe fe80
216
+	eaea eaea ffea ffaa 5555 5555 00ff 0055
217
+	aaaa aaaa ff00 ffaa 5555 5555 00ff 0055
218
+	afaf afaf ff17 ffab 5454 5454 00fe 0054
219
+	ffff 11ff cffd c5ff 00ee ee00 7a02 7a00
220
+	0000 0000 0000 0000 0000 0000 0000 0000
221
+	0000 0000 0000 0000 0000 0000 0000 0000
222
+	0000 0000 0000 0000 0000 0000 0000 0000
223
+	0e0e 040a 040e 0808 0000 0a04 0a00 0e0e
224
+	e0e0 40a0 40e0 8080 0000 a040 a000 e0e0
225
+	80e0 8080 e09f 9191 e000 e0e0 00ee ee6e
226
+	080e 0808 0ef0 1012 0e00 0e0e 00ee eeec
227
+	5ea1 51a1 51a1 51fe af5e ae5e ae5e ae01
228
+	7f80 8080 8080 807f ffff ffff ffff ffff
229
+	7e8d 8f9f f1e1 817f f7f6 f0ee 1efe fe80
230
+	5ea1 51a1 51a1 51ff af5e ae5e ae5e ae00
231
+	7e81 41a1 51a9 51fe ff7e be5e ae56 ae07
232
+	ffff 18ff 7873 7474 00e7 e700 c7cc cbcb
233
+	ffff 14ff 00ff 0000 00eb eb00 ff00 ffff
234
+	ffff 18ff 1ece 2e2e 00e7 e700 e333 d3d3
235
+	ffff 11ff ff85 ffd9 00ee ee00 7a7a 006e
236
+	0000 0000 0000 0000 0000 0000 0000 0000
237
+	0000 0000 0000 0000 0000 0000 0000 0000
238
+	0000 0000 0000 0000 0000 0000 0000 0000
239
+	0000 0000 0000 0000 0000 0000 0000 0000
240
+	0000 0000 0000 0000 0000 0000 0000 0000
241
+	ff91 91e0 8080 e080 6eee ee00 e0e0 00e0
242
+	fe10 100e 0808 0e08 ecee ee00 0e0e 000e
243
+	0000 0000 0000 55aa 0000 0000 0000 aa55
244
+	552a ff80 efff 80ff aad5 00ff ff00 ffff
245
+	55aa ff00 ffff 00ff aa55 00ff ff00 ffff
246
+	55ab ff01 dfff 01ff aa54 00fe fe00 fefe
247
+	ffff d700 00ff ffff 0000 ffff ff00 7ce2
248
+	7474 7474 7000 00ff cbcb cbcb cfff ff00
249
+	0000 0000 0000 00ff ffff ffff ffff ff00
250
+	2e2e 2e2e 2e0e 0cff d3d3 d3d3 d3f3 f300
251
+	ffff 817e ffff fbeb 007e ff81 0004 1414
252
+	0000 0000 0000 0000 0000 0000 0000 0000
253
+	0000 0000 0000 0000 0000 0000 0000 0000
254
+	0000 0000 0000 0000 0000 0000 0000 0000
255
+	0000 0000 0000 0000 0000 0000 0000 0000
256
+	0000 0000 0000 0000 0000 0000 0000 0000
257
+	00ff 4444 00ff 4444 00bb bbbb 00bb bbbb
258
+	00fc 4848 00fc 4848 00b4 b6b6 02b6 b6b4
259
+	ff01 1fff 011f ff01 00fe fe00 fefe 00fe
260
+	ff80 ffff 80ff ffff 00ff ff00 ffff 0000
261
+	ff00 afff 00fd ffff 00ff ff00 ffff 0000
262
+	ff01 ffff 01ff ffff 00fe fe00 fefe 0000
263
+	ffff ffff ffff ffff 3e2e ab3d efff d8f7
264
+	ffa0 ffa8 58ff a8ff 005f 0057 a700 5700
265
+	ff81 ff09 09ff 81ff 007e 00f6 f600 7e00
266
+	ff57 5617 270c 0cff 00a9 a9e8 d9f3 f300
267
+	ffff b9ef e9ef ffe7 0046 5610 5610 3c18
268
+	0000 0000 0000 0000 0000 0000 0000 0000
269
+	0000 0000 0000 0000 0000 0000 0000 0000
270
+	0000 0000 0000 0000 0000 0000 0000 0000
271
+	0000 0000 0000 0000 0000 0000 0000 0000
272
+	007f 8484 e080 8080 007b fbfb 00e0 e0e0
273
+	00ff 4444 0003 0404 00bb bbbb 0003 0707
274
+	0000 0000 0000 0000 0000 0000 0000 0000
275
+	1fff 011f ff01 1dff fe00 fefe 00fe fe00
276
+	5ea3 55ab 55ab 55ff af5c aa54 aa54 aa00
277
+	7e81 55ab 55ab 55ff fffe aa54 aa54 aa00
278
+	0101 ffff ffff ffff fefe 00ff c7b9 ff67
279
+	81c1 ffff ffff ffff 7e3e 00ff 1de7 fff9
280
+	ffff 8080 8080 ff55 00ff ffff ffff 00aa
281
+	fffe 0101 0101 ff55 00ff fefe fefe 00aa
282
+	3f18 181f 4e4e 26ff c7e7 e7e0 b3b1 d900
283
+	efef adef efed fdff 185a 5a18 5a1a 5200
284
+	0000 0000 0000 0000 0000 0000 0000 0000
285
+	0000 0000 0000 0000 0000 0000 0000 0000
286
+	0000 0000 0000 0000 0000 0000 0000 0000
287
+	0000 0000 0000 0000 0000 0000 0000 0000
288
+	0000 0000 0000 0000 0000 0000 0000 0000
289
+	0000 0000 0000 0000 0000 0000 0000 0000
290
+	0000 0000 0000 0000 0000 0000 0000 0000
291
+	0000 0000 0000 0000 8080 00e0 8000 8101
292
+	0000 0000 0000 0000 0000 0606 3636 b6b6
293
+	1e01 0181 8181 817f fffe fefe fefe fe80
294
+	ffff ffff ffff ffff ffff ae71 ffff c7fb
295
+	ffff ffff ffff ffff fefe fe1c eefe c2be
296
+	0000 0000 0000 0000 0000 0000 0000 0000
297
+	0000 0000 0000 0000 0000 0000 0000 0000
298
+	0000 0000 0000 0000 0000 0000 0000 0000
299
+	ffff 817e ffff ffff 007e ff81 0008 347e
300
+	0000 0000 0000 0000 0000 0000 0000 0000
301
+	0000 0000 0000 0000 0000 0000 0000 0000
302
+	0000 0000 0000 0000 0000 0000 0000 0000
303
+	0000 0000 0000 0000 0000 0000 0000 0000
304
+	0000 0000 0000 0000 0000 0000 0000 0000
305
+	0000 0000 0000 0000 0000 0000 0000 0000
306
+	0000 0000 0000 0000 0000 0000 0000 0000
307
+	817e ff00 ff18 0081 7eff ffff 00e7 ffff
308
+	fe81 c1a1 c1a1 c1ff 7f7e 3e5e 3e5e 3e00
309
+	aa55 ab55 01c3 7d01 55aa 54aa febe 82fe
310
+	0101 ffff ffff ffff fefe 00fe 78a6 fefa
311
+	55ab f51b 11e1 817f aa54 eae4 ee1e fe80
312
+	0000 0000 0000 0000 0000 0000 0000 0000
313
+	0000 0000 0000 0000 0000 0000 0000 0000
314
+	0000 0000 0000 0000 0000 0000 0000 0000
315
+	0000 0000 0000 0000 0000 0000 0000 0000
316
+	0000 0000 0000 0000 0000 0000 0000 0000
317
+	0000 0000 0000 0000 0000 0000 0000 0000
318
+	0000 0000 0000 0000 0000 0000 0000 0000
319
+	0000 0000 0000 0000 0000 0000 0000 0000
320
+	0000 0000 0000 0000 0000 0000 0000 0000
321
+	0000 0000 0000 0000 0000 0000 0000 0000
322
+	0000 0000 0000 0000 0000 0000 0000 0000
323
+	ff55 ab81 8181 817f 00aa d4fe fefe fe80
324
+	be41 a181 8181 817f 5fbe 5efe fefe fe80
325
+	7d7d 017d 7d01 7dff 8282 fe82 82fe 8200
326
+	7d7d 017d 7d01 7d7d 8282 fe82 82fe 8282
327
+	d5ab 5db0 908f 837f 2a54 af4f eff0 fc80
328
+	0000 0000 0000 0000 0000 0000 0000 0000
329
+	0000 0000 0000 0000 0000 0000 0000 0000
330
+	0000 0000 0000 0000 0000 0000 0000 0000
331
+	0000 0000 0000 0000 0000 0000 0000 0000
332
+	0000 0000 0000 0000 0000 0000 0000 0000
333
+	0000 0000 0000 0000 0000 0000 0000 0000
334
+	0000 0000 0000 0000 0000 0000 0000 0000
335
+	0000 0000 0000 0000 0000 0000 0000 0000
336
+	0000 0000 0000 0000 0000 0000 0000 0000
337
+	0000 0000 0000 0000 0000 0000 0000 0000
338
+	0000 0000 0000 0000 0000 0000 0000 0000
339
+	ff88 ce96 f4f0 f695 fff8 def7 fdf1 f7b5
340
+	ff0e a634 8270 32c1 ff4f ffff 9ff9 fff7
341
+	898d 38fd 4f53 44d1 9fff fdff 7fff dffd
342
+	017d 7d01 7d7d 017d fe82 82fe 8282 fe82
343
+	ffff ffff ffff ffff ffaa ff55 ffaa 55aa
344
+	0000 0000 0000 0000 0000 0000 0000 0000
345
+	0000 0000 0000 0000 0000 0000 0000 0000
346
+	0000 0000 0000 0000 0000 0000 0000 0000
347
+	0000 0000 0000 0000 0000 0000 0000 0000
348
+	0000 0000 0000 0000 0000 0000 0000 0000
349
+	0000 0000 0000 0000 0000 0000 0000 0000
350
+	0000 0000 0000 0000 0000 0000 0000 0000
351
+	0000 0000 0000 0000 0000 0000 0000 0000
352
+	0000 0000 0000 0000 0000 0000 0000 0000
353
+	0000 0000 0000 0000 0000 0000 0000 0000
354
+	0000 0000 0000 0000 0000 0000 0000 0000
355
+	8d85 90b8 f2b7 848d bfc7 91f8 f6ff 9fef
356
+	ffff ffff ffff ffff 5fbf 5fa7 59bf 47b8
357
+	ffff ffff ffff ffff 55aa 55ff fff9 cfff
358
+	ffff ffff ffff ffff 55aa 55bf 53bc 5fbf
359
+	ffff ffff ffff ffff feaa fe54 feaa 54aa
360
+	0000 0000 0000 0000 0000 0000 0000 0000
361
+	0000 0000 0000 0000 0000 0000 0000 0000
362
+	0000 0000 0000 0000 0000 0000 0000 0000
363
+	0000 0000 0000 0000 0000 0000 0000 0000
364
+	0000 0000 0000 0000 0000 0000 0000 0000
365
+	0000 0000 0000 0000 0000 0000 0000 0000
366
+	0000 0000 0000 0000 0000 0000 0000 0000
367
+	0000 0000 0000 0000 0000 0000 0000 0000
368
+	0000 0000 0000 0000 0000 0000 0000 0000
369
+	0000 0000 0000 0000 0000 0000 0000 0000
370
+	0000 0000 0000 0000 0000 0000 0000 0000
371
+	ffff ffff ffff ffff 5faa 5fb5 5faa 55aa
372
+	0000 0000 0000 0000 0000 0000 0000 0000
373
+	0000 0000 0000 0000 0000 0000 0000 0000
374
+	0000 0000 0000 0000 0000 0000 0000 0000
375
+	0000 0000 0000 0000 0000 0000 0000 0000
376
+	0000 0000 0000 0000 0000 0000 0000 0000
377
+	0000 0000 0000 0000 0000 0000 0000 0000
378
+	0000 0000 0000 0000 0000 0000 0000 0000
379
+	0000 0000 0000 0000 0000 0000 0000 0000
380
+	0000 0000 0000 0000 0000 0000 0000 0000
381
+	0000 0000 0000 0000 0000 0000 0000 0000
382
+	0000 0000 0000 0000 0000 0000 0000 0000
383
+	0000 0000 0000 0000 0000 0000 0000 0000
384
+	0000 0000 0000 0000 0000 0000 0000 0000
385
+	0000 0000 0000 0000 0000 0000 0000 0000
386
+	0000 0000 0000 0000 0000 0000 0000 0000
387
+	0000 0000 0000 0000 0000 0000 0000 0000
388
+	0000 0000 0000 0000 0000 0000 0000 0000
389
+	0000 0000 0000 0000 0000 0000 0000 0000
390
+	0000 0000 0000 0000 0000 0000 0000 0000
391
+	0000 0000 0000 0000 0000 0000 0000 0000
392
+	0000 0000 0000 0000 0000 0000 0000 0000
393
+	0000 0000 0000 0000 0000 0000 0000 0000
394
+	0000 0000 0000 0000 0000 0000 0000 0000
395
+	0000 0000 0000 0000 0000 0000 0000 0000
396
+	0000 0000 0000 0000 0000 0000 0000 0000
397
+	0000 0000 0000 0000 0000 0000 0000 0000
398
+	0000 0000 0000 0000 0000 0000 0000 0000
399
+	0000 0000 0000 0000 0000 0000 0000 0000
400
+	0000 0000 0000 0000 0000 0000 0000 0000
401
+	0000 0000 0000 0000 0000 0000 0000 0000
402
+	42ff 7d41 82fa 6100 7cfc 027e fcfc 7e00
403
+
404
+
405
+@sewers
406
+	0c0d 0ea2 0e0e 0f00 0000 0000 0000 0000
407
+	3c07 58b3 3858 3d00 0000 0000 0000 0000
408
+	3c17 18c3 3828 3d00 0000 0000 0000 0000
409
+	3c30 3132 3231 4e0e 0e0e 0e0e 0e0e 0f00
410
+	3c50 8483 a344 2858 1858 6838 6828 3d00
411
+	1c1d 1e5f 9441 0718 2718 5818 1858 3d00
412
+	0000 003c 9441 22b4 64a4 3232 3232 3d00
413
+	0000 003c 93a3 4183 9383 8383 8341 3d00
414
+	0000 001c 5f94 5294 7d7e 6e6e 6f41 3d00
415
+	000c 0e0e 4f94 4194 3d3c 5858 1841 3d00
416
+	003c 1758 1894 4194 3d3c 1818 1850 3d00
417
+	003c 1898 1894 4194 3d3c a024 33b1 3d00
418
+	003c d374 d294 4494 3d3c 23b1 4144 3d00
419
+	003c d193 9394 4194 3d3c 5052 4141 3d00
420
+	004c e0c4 c4d4 82d4 4d1c 1d1e 1e1e 1f00
421
+	00bc 0000 0000 00ca 0000 0000 0000 0000
422
+	&colors
423
+	8080 8080 8080 8000 0000 0000 0000 0000
424
+	8080 8080 8080 8000 0000 0000 0000 0000
425
+	8080 8080 8080 8000 0000 0000 0000 0000
426
+	8080 8080 8080 8080 8080 8080 8080 8000
427
+	8080 8080 8080 8080 8080 8080 8080 8000
428
+	8080 8080 8080 8080 8080 8080 8080 8000
429
+	0000 0080 8080 8080 8080 8080 8080 8000
430
+	0000 0080 8080 8080 8080 8080 8080 8000
431
+	0000 0080 8080 80a0 8080 8080 8080 8000
432
+	0080 8080 8080 80a0 8080 8080 8080 8000
433
+	0080 8080 8080 80a0 8080 8080 8080 8000
434
+	0080 8080 8080 80a0 8080 8080 8080 8000
435
+	0080 8080 8080 80a0 8080 8080 8080 8000
436
+	0080 8080 8080 80a0 8080 8080 8080 8000
437
+	00a0 8080 8080 8080 a080 8080 8080 8000
438
+	00a0 0000 0000 0080 0000 0000 0000 0000
439
+
440
+@crypt
441
+	0000 0c0d 0e0e 0f00 0000 0000 0000 0000
442
+	0c0d 4f55 5657 4e0e 0f00 0000 0000 0000
443
+	3c55 5765 6667 5557 3d00 0000 0000 0000
444
+	3c65 6732 3232 6567 3d00 0000 0000 0000
445
+	3c30 3235 3637 3233 3d00 0000 0000 0000
446
+	3c40 4345 4647 5451 3d00 0000 0000 0000
447
+	3c75 7661 6263 7576 3d4c 604d 0000 0000
448
+	3c30 3171 7273 3232 3d3c 703d 0000 0000
449
+	3c50 4441 4141 4141 4e4f 803d 0000 0000
450
+	3c50 ff41 4152 4141 9091 923d 0000 0000
451
+	3c50 4141 4141 4141 5e1e 1e1f 0000 0000
452
+	3c50 5241 4141 4441 3d00 0000 0000 0000
453
+	1c1d 1e5f 415e 1e1e 1f00 0000 0000 0000
454
+	0000 004c 824d 0000 0000 0000 0000 0000
455
+	0000 0000 0000 0000 0000 0000 0000 0000
456
+	0000 0000 0000 0000 0000 0000 0000 0000
457
+	&colors
458
+	0000 8080 8080 8000 0000 0000 0000 0000
459
+	8080 8080 8080 8080 8000 0000 0000 0000
460
+	8080 8080 8080 8080 8000 0000 0000 0000
461
+	8080 8080 8080 8080 8000 0000 0000 0000
462
+	8080 8080 8080 8080 8000 0000 0000 0000
463
+	8080 8080 8080 8080 8000 0000 0000 0000
464
+	8080 8080 8080 8080 8080 8080 0000 0000
465
+	8080 8080 8080 8080 8080 8080 0000 0000
466
+	8080 8080 8080 8080 8080 8080 0000 0000
467
+	8080 8080 8080 8080 8080 8080 0000 0000
468
+	8080 8080 8080 8080 8080 8080 0000 0000
469
+	8080 8080 8080 8080 8000 0000 0000 0000
470
+	8080 8080 8080 8080 8000 0000 0000 0000
471
+	0000 00a0 80a0 0000 0000 0000 0000 0000
472
+	0000 0000 0000 0000 0000 0000 0000 0000
473
+	0000 0000 0000 0000 0000 0000 0000 0000
474
+
475
+@entrance
476
+	0c0d 0e0e 0e0e 0e0e 0f0c 0d0e 0e0f 0000
477
+	3c07 0727 2807 0506 3d3c 1717 173d 0000
478
+	3c17 287b 0728 1516 4e4f 1717 173d 0000
479
+	3c30 3131 3131 2526 1717 31a2 313d 0000
480
+	3c50 a0a1 4141 3432 1717 41b2 443d 0000
481
+	3c50 b0b1 5241 4144 3431 4141 413d 0000
482
+	3c50 4141 4141 4141 4141 5241 413d 0000
483
+	1c1d 1e1e 5f41 5e1e 1e1e 1e1e 1e1f 0000
484
+	0000 0000 4c81 4d00 0000 0000 0000 0000
485
+	0000 0000 0000 0000 0000 0000 0000 0000
486
+	0000 0000 0000 9d00 0000 0000 0000 0000
487
+	0000 0000 0000 0000 0000 0000 0000 0000
488
+	0000 0000 0000 0000 0000 0000 0000 0000
489
+	0000 0000 0000 0000 0000 0000 0000 0000
490
+	0000 0000 0000 0000 0000 0000 0000 0000
491
+	0000 0000 0000 0000 0000 0000 0000 0000
492
+	&colors
493
+	8080 8080 8080 8080 8080 8080 8080 0000
494
+	8080 8080 8080 8080 8080 8080 8080 0000
495
+	8080 8081 8080 8080 8080 8080 8080 0000
496
+	8080 8080 8080 8080 8080 8080 8080 0000
497
+	8080 8080 8080 8080 8080 8080 8080 0000
498
+	8080 8080 8080 8080 8080 8080 8080 0000
499
+	8080 8080 8080 8080 8080 8080 8080 0000
500
+	8080 8080 8080 8080 8080 8080 8080 0000
501
+	0000 0000 a080 a000 0000 0000 0000 0000
502
+	0000 0000 0000 0000 0000 0000 0000 0000
503
+	0000 0000 0000 8000 0000 0000 0000 0000
504
+	0000 0000 0000 0000 0000 0000 0000 0000
505
+	0000 0000 0000 0000 0000 0000 0000 0000
506
+	0000 0000 0000 0000 0000 0000 0000 0000
507
+	0000 0000 0000 0000 0000 0000 0000 0000
508
+	0000 0000 0000 0000 0000 0000 0000 0000
509
+
510
+@upper
511
+	007b 7b7b 7b7b 7b7b 7b0c 0e0e 0e0e 0f7b
512
+	cfcf cfcf cfcf cfcf 7b3c 7758 7858 3d00
513
+	0c0d 0e2e 0d0e 0e0e 0e2f 8707 8808 3d00
514
+	3c05 063e 3868 3807 283e 0102 0202 3d00
515
+	3c15 1628 090a 0b17 2828 1100 0010 3d00
516
+	3c25 2628 191a 1b01 a028 1100 0020 3d00
517
+	3c01 1313 1213 1321 1312 2100 5e1e 1f00
518
+	3c14 c0c1 c1c1 c000 1010 1004 3dcf 7e00
519
+	3c14 d0c2 c2c2 d010 1000 1041 3d00 0000
520
+	3c11 c0c1 c1c1 c004 1010 0419 3d00 0000
521
+	3c11 0404 0400 1004 0004 0412 3d00 0000
522
+	3c85 8685 865e 5f70 5e5f 8586 3d00 0000
523
+	1c1d 1e1e 1e1f 3c80 3d1c 1d1e 1f00 0000
524
+	8e8e 8e8e 8e8e 4c60 4d00 0000 0000 0000
525
+	0000 0000 00ef efef 0000 0000 0000 0000
526
+	&colors
527
+	0000 0000 0000 0000 0000 0000 0000 0000
528
+	0080 8080 8080 8080 8080 8080 8080 8080
529
+	8080 8080 8080 8080 8080 8080 8080 8000
530
+	8080 8080 8080 8080 8080 8080 8080 8000
531
+	8080 8080 8080 8080 8080 8080 8080 8000
532
+	8080 8080 8080 8080 8080 8080 8080 8000
533
+	8080 8080 8080 8080 8080 8080 8080 8000
534
+	8080 8080 8080 8080 8080 8080 8080 8000
535
+	8080 8080 8080 9080 8080 8080 8080 8000
536
+	8080 80a0 80a0 9080 8080 8080 8000 0000
537
+	8080 a0a0 a0a0 b080 8080 8080 8000 0000
538
+	8080 8080 8080 8080 8080 8080 8000 0000
539
+	8080 8080 8080 8080 8080 8080 8000 0000
540
+	8080 8080 8080 8080 8080 8080 8000 0000
541
+	8080 8080 8080 a0b0 a000 0000 0000 0000
542
+	0000 0000 0080 8080 0000 0000 0000 0000
543
+	0000 0000 0000 0000 0000 0000 0000 0000