ț "<ElfK$chaindir>.elflib"
�lib_initialise
(�initialise
2�premap
<5�L%=1040:�map:showkey%=0:�:�preparemap:showkey%=2
F
P�maploop
Z
dW%=(mx%<<16)�my%
n
x � "<ElfK$chaindir>.ONE.LINK"
�
��
�
���chainnext
�W%=(mx%<<16)�my%
� � "<ElfK$chaindir>.ONE.LINK"
��
�
���preparemap
�]see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:�makemap(-1,-1,-1):�mergescr21(6)
�#�words_read(5,"00,00,00,00,00")
��
�

!��maketunnel(x%,trap%,lever%)

� j%,k%

!k%=�(x%/120)+1:k%=x%-(120*k%)

"M�j%=k%�(x%-120)�120:ș"OS_SpriteOp",&134,sparea%,"vert",j%,0,8,scale%,0:�

,�(x%+600)<=1280 �

6P �j%=(x%+600)�1280�120:ș"OS_SpriteOp",&134,sparea%,"vert",j%,0,8,scale%,0:�

@�

J��j%=0�1:ș"OS_SpriteOp",&134,sparea%,"top"+�(j%),x%+(568*j%),764+(4*j%),8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"bot"+�(j%),x%+(546*j%),0,8,scale%,0:�

T�x%<=1280 �

^D �trap%=0:ș"OS_SpriteOp",&134,sparea%,"trap0",x%,296,8,scale%,0

h� �trap%=1:ș"OS_SpriteOp",&134,sparea%,"trap1",x%+16,180,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"trap2",x%+352,180,8,scale%,0

r� �trap%=3:ș"OS_SpriteOp",&134,sparea%,"trap3",x%+44,112,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"trap4",x%+504,112,8,scale%,0

|�

�d�(x%+766)<=1280:ș"OS_SpriteOp",&134,sparea%,"lever"+�(lever%),x%+leverx%(lever%),376,8,scale%,0

��

�

���makemap(dot%,buts%,key%)

�/posx%=316+(54*gridx%):posy%=860-(48*gridy%)

�;ș "OS_Byte",112,2:�18,0,1:�25,4,0;0;:�25,101,1278;958;

�9ș"OS_SpriteOp",&134,sparea%,"map",264,188,8,scale%,0

́�savebgrd(posx%-20,posy%-20,44,44,"dotbg1"):�savebgrd(posx%-20,posy%-20,44,44,"dotbg2"):dotx%()=(posx%-20):doty%()=(posy%-20)

��dot%:�plotdot(0)

�'�buts%:changedbut%()=2:�plotmapbuts

��key%:ș"OS_SpriteOp",&134,sparea%,"key",42,100,8,scale%,0:�words_read(5,"04,05,06,07,08"):�words(146,116,-1,3,0,0,on$+"rocks         trees         water         paths         tunnels")

��

�
��premap
� j%,k%
siz%=76*1024
&bbutcol%()=0:flip%=0:butwalk%(0)=9:butwalk%(1)=8:butwalk%(2)=8:butwalk%(3)=21:dirn%=-1:walk%=-1
0�L%=1040:gridx%=7:gridy%=1
:0�loadmapbuts(siz%):�loadmap(spareasiz%-siz%)
D�
N
X	��map
b�makemap(0,0,0)
l^ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1)
vFusualpos%=-1:�words_read(0,"00"):�words_say("This is the map.","")
�/�mergescr21(4):�bookgoon(1080,12,&01,-1,-1)
�jș "OS_Byte",112,2:�words_read(1,"00"):�words_say("Jek has put a "+on$+"spell "+off$+"on the map.","")
�.�mergescr21(4):�bookgoon(1080,12,&01,-1,0)
�Jș "OS_Byte",112,2:�18,0,1:�25,4,0;0;:�25,101,1278;168;:�mergescr21(4)
�
�mapspell
�ș "OS_Byte",112,2
�S�18,0,3:�25,4,622;544;:�25,101,768;734;:�18,0,0:�25,4,626;548;:�25,101,764;730;
�:ș"OS_SpriteOp",&134,sparea%,"arro",662,732,8,scale%,0
�j�words(622,672,-1,3,-1,148,"You"):�words(622,620,-1,3,-1,148,"are"):�words(622,568,-1,3,-1,148,"here")
�/�mergescr21(10):�bookgoon(1080,12,&01,-1,0)
�6ș "OS_Byte",112,2:�makemap(-1,0,0):�mergescr21(4)
�3ș "OS_Byte",112,2:changedbut%()=2:�plotmapbuts
�^ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1)
@�words_read(0,"00"):�words_say("Click on these buttons.","")
�mergescr21(4)
�
 
*��cave(siz%)
4� j%,k%
>�sparea3%=sparea%+spareasiz%-siz%:!sparea3%=siz%:sparea3%!8=16:ș "OS_SpriteOp",&109,sparea3%:�loadunsquash(sparea3%,siz%,"ONE.spfiles.map1")
H:masksp%(0)=4:masksp$(0)="map1":�masksprite(sparea3%,1)
R;ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;
\;ș"OS_SpriteOp",&134,sparea3%,"map1",278,200,8,scale%,0
fbș"OS_SpriteOp",&134,butarea%,"elfhead0",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1)
pQusualpos%=-1:�words_read(1,"03"):�words_say(on$+"Shall "+off$+"we go in?","")
z*�mergescr21(4):�bmyn(1080,12,&08,-1,0)
��chosen%=0 �
� gridx%=4:gridy%=2
�c butcol%()=0:flip%=0:butwalk%(0)=9:butwalk%(1)=8:butwalk%(2)=8:butwalk%(3)=21:dirn%=-1:walk%=-1
�D �loadmapbuts(siz%):�makemap(-1,-1,-1):�mergescr21(4):�sortouth0
��
�K ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;196;:�mergescr21(4)
� �incave
��
��
�
���incave
�%�loadelf:�loadelfs:�loadtunnel(0)
�;ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;
�maketunnel(1280,0,0)
�mergescr21(6)
nsee%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:l%=-1:k%=-1:j%=-546:lasttime%=�-30:driptime%=�+200
$� walk across screen
.�
8 �checkkeyevent
B# k%=(k%+1)�4:l%=(l%+1)�8:j%+=26
L+ �18,0,3:�25,4,0;376;:�25,101,1278;752;
V �elf(j%+130,372,k%)
`' �elfs(j%,376,l%,j%+182+182,376,l%)
j �:� �>lasttime%+20
t �k%=1 �
~*  �cachesound("fxstep",1):� 1,&17F,1,1
� �
�V  �cachesound("fxdrip"+�(�(3)),1):�>driptime%:� 1,&17F,1,1:driptime%=�+100+�(200)
� �
�^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
�� j%>=1280
��scrcopy(see%,do%)
�siz%=76*1024
�Zdirn%=3:gridx%=4:gridy%=5:walk%=3:step%=12:movex%=0:movey%=0:�loadmap(spareasiz%-siz%)
�-�makemap(0,0,-1):�mergescr21(4):�wait(50)
�lasttime%=�-30
�� map move pointer
�0mpos%=604:anim%=&200000:�buttonloop(anim%,0)
%�loadelf:�loadelfs:�loadtunnel(0)

;ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;
�maketunnel(360,0,0)
�mergescr21(6)
(^see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:l%=-1:k%=-1:j%=-546:lasttime%=�-30
2� walk onto trapdoor
<�
F �checkkeyevent
P# k%=(k%+1)�4:l%=(l%+1)�8:j%+=26
Z+ �18,0,3:�25,4,0;376;:�25,101,1000;752;
d �elf(j%+130,372,k%)
n' �elfs(j%,376,l%,j%+182+182,376,l%)
x �:� �>lasttime%+20
� �k%=1 �
�*  �cachesound("fxstep",1):� 1,&17F,1,1
� �
�V  �cachesound("fxdrip"+�(�(3)),1):�>driptime%:� 1,&17F,1,1:driptime%=�+100+�(200)
� �
�^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
�� j%>=(438-26)
�*�18,0,3:�25,4,0;376;:�25,101,1000;752;
��maketunnel(360,0,0)
��elf(438+130,372,3)
�&�elfs(438,376,8,438+182+182,376,8)
��:� �>lasttime%+20
�]see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
(�scrcopy(see%,do%):ș"OS_Byte",112,2
Husualpos%=0:�words_box(0,"00","","What is that?","",768,756,2,0,888)
.�mergescr21(4):�bookgoon(1080,12,&01,-1,0)
"tș "OS_Byte",112,2:ș"OS_SpriteOp",&122,sparea%,"boxbg",768,756,8:ș"OS_SpriteOp",&122,sparea%,"arrbg",888,648,8
,Z�mergescr21(4):see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�-250
6fally%=352:haty%=660:j%=0
@� lever and fall
J�
T �checkkeyevent
^
 �j%<=4 �
hJ  �26:�18,0,3:�25,4,1000;376;:�25,101,1278;752;:�24,1000;376;1278;752;
r�  �j%=4:ș"OS_SpriteOp",&134,sparea%,"lever3",360+leverx%(3),376,8,scale%,0:�:ș"OS_SpriteOp",&134,sparea%,"lever"+�(j%),360+leverx%(j%),376,8,scale%,0
| �
� �j%=2 �
�=  �24,360;0;960;958;:�18,0,3:�25,4,0;0;:�25,101,1278;780;
�Q  �maketunnel(360,1,2):ș"OS_SpriteOp",&134,sparea%,"fall",448,352,8,scale%,0
�s  ș"OS_SpriteOp",&134,sparea%,"hat0",462,660,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"hat0",728,656,8,scale%,0
�q  ș"OS_SpriteOp",&134,sparea%,"ear",492,660,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"ear",758,656,8,scale%,0
� �
� �(j%=3)�(j%=4) �
�'  fally%-=(12*j%):haty%-=(8*(j%-2))
�=  �24,360;0;960;958;:�18,0,3:�25,4,0;0;:�25,101,1278;956;
�T  �maketunnel(360,3,3):ș"OS_SpriteOp",&134,sparea%,"fall",448,fally%,8,scale%,0
�  ș"OS_SpriteOp",&134,sparea%,"hat"+�(1+(j%�2)),462,haty%,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"hat"+�(1+(j%�2)),728,haty%-4,8,scale%,0
� �
�
 �j%>=5 �
'  fally%-=(12*j%):haty%-=(8*(j%-2))
/  �26:�18,0,3:�25,4,444;0;:�25,101,866;780;
@  ș"OS_SpriteOp",&134,sparea%,"trap3",360+44,112,8,scale%,0
&?  ș"OS_SpriteOp",&134,sparea%,"fall",448,fally%,8,scale%,0
0�  ș"OS_SpriteOp",&134,sparea%,"hat"+�(1+(j%�2)),462,haty%,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"hat"+�(1+(j%�2)),728,haty%-4,8,scale%,0
: �
D �j%=2 �
N  �:� �>lasttime%+150
X �
b  �:� �>lasttime%+30
l �
v Ȏ j% �
�/  � 2:�cachesound("fxlever",1):� 1,&17F,1,1
�0  � 3:�cachesound("fxtrapop",1):� 1,&17F,1,1
�.  � 5:�cachesound("fxslip",1):� 1,&17F,1,1
� �
�^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
�
 j%+=1
�� haty%<=-140
�]�scrcopy(see%,do%):see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�-30
�4�wait(50):�cachesound("fxsplash",1):� 1,&17F,1,1
�� hairy appears
��j%=1280�1188�-4
� �checkkeyevent
�. �18,0,3:�25,4,1188;524;:�25,101,1278;752;
: ș"OS_SpriteOp",&134,sparea%,"head",j%,524,8,scale%,0
 �:� �>lasttime%+20
^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
 �
*�scrcopy(see%,do%)
4L%=1050:I%=1:�chainnext
>�
H
R"��makemine(trap%,door%,lever%)
\�ș"OS_SpriteOp",&134,sparea5%,"track0",0,0,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"track1",360,0,8,scale%,0:ș"OS_SpriteOp",&134,sparea5%,"track2",960,0,8,scale%,0
fD�trap%=0:ș"OS_SpriteOp",&134,sparea%,"trap0",360,296,8,scale%,0
p��trap%=1:ș"OS_SpriteOp",&134,sparea%,"trap1",360+16,180,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"trap2",360+352,180,8,scale%,0
z��trap%=3:ș"OS_SpriteOp",&134,sparea%,"trap3",360+44,112,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"trap4",360+504,112,8,scale%,0
�Sș"OS_SpriteOp",&134,sparea%,"studoor"+�(door%),1090+(104*door%),440,8,scale%,0
���(lever%=0)�(lever%=3):ș"OS_SpriteOp",&134,sparea%,"stlev"+�(lever%),1014,520-(44*�(lever%/2)),8,scale%,0:�:ș"OS_SpriteOp",&134,sparea%,"stlev"+�(lever%),1004,520-(44*�(lever%/2)),8,scale%,0
��
�
�
�
��mine
�&�loadelf:�loadelfs:�loadtunnel(-1)
�ș "OS_Byte",112,2
��makemine(0,0,0)
��mergescr21(6):�wait(200)
�^see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:l%=-1:k%=-1:j%=-546:lasttime%=�-30
��cachesound("fxstep",1)
�� walk onto trapdoor
	�
	 �checkkeyevent
	# k%=(k%+1)�4:l%=(l%+1)�8:j%+=26
	$I �(j%-80)>=0 �:�24,j%-80;372;j%+364+168;752;:�:�24,0;372;364+168;752;
	. �makemine(0,0,0)
	8 �elf(j%+130,372,k%)
	B' �elfs(j%,376,l%,j%+182+182,376,l%)
	L �:� �>lasttime%+20
	V �k%=1:� 1,&17F,1,1
	`^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
	j� j%>=(438-26)
	t�makemine(0,0,0)
	~�elf(438+130,372,4)
	�&�elfs(438,376,8,438+182+182,376,8)
	��:� �>lasttime%+20
	�]see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
	�(�scrcopy(see%,do%):ș"OS_Byte",112,2
	�Husualpos%=0:�words_box(0,"00","","What is that?","",768,756,2,0,888)
	�.�mergescr21(4):�bookgoon(1080,12,&01,-1,0)
	�tș "OS_Byte",112,2:ș"OS_SpriteOp",&122,sparea%,"boxbg",768,756,8:ș"OS_SpriteOp",&122,sparea%,"arrbg",888,648,8
	�Y�mergescr21(4):see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�-30
	�fally%=352:haty%=660:j%=0
	�� lever and fall
	��
	� �checkkeyevent

 �j%<=4 �

T  �24,1000;476;1066;586;:ș"OS_SpriteOp",&134,sparea5%,"track2",960,0,8,scale%,0
   �j%=4:lever%=3:�:lever%=j%
�  �(lever%=0)�(lever%=3):ș"OS_SpriteOp",&134,sparea%,"stlev"+�(lever%),1014,520-(44*�(lever%/2)),8,scale%,0:�:ș"OS_SpriteOp",&134,sparea%,"stlev"+�(lever%),1004,520-(44*�(lever%/2)),8,scale%,0
( �
2 �j%=2 �
<  �24,360;0;960;958;
FM  �makemine(1,0,2):ș"OS_SpriteOp",&134,sparea%,"fall",448,352,8,scale%,0
Ps  ș"OS_SpriteOp",&134,sparea%,"hat0",462,660,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"hat0",728,656,8,scale%,0
Zq  ș"OS_SpriteOp",&134,sparea%,"ear",492,660,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"ear",758,656,8,scale%,0
d �
n �(j%=3)�(j%=4) �
x'  fally%-=(12*j%):haty%-=(8*(j%-2))
�  �24,360;0;960;958;
�P  �makemine(3,0,3):ș"OS_SpriteOp",&134,sparea%,"fall",448,fally%,8,scale%,0
��  ș"OS_SpriteOp",&134,sparea%,"hat"+�(1+(j%�2)),462,haty%,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"hat"+�(1+(j%�2)),728,haty%-4,8,scale%,0
� �
�
 �j%>=5 �
�'  fally%-=(12*j%):haty%-=(8*(j%-2))
�  �24,444;0;866;780;
�P  �makemine(3,0,3):ș"OS_SpriteOp",&134,sparea%,"fall",448,fally%,8,scale%,0
ҏ  ș"OS_SpriteOp",&134,sparea%,"hat"+�(1+(j%�2)),462,haty%,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"hat"+�(1+(j%�2)),728,haty%-4,8,scale%,0
� �
� �(j%>0)�(j%<=2) �
�  �:� �>lasttime%+200
� �
  �:� �>lasttime%+30
 �
 Ȏ j% �
"/  � 2:�cachesound("fxlever",1):� 1,&17F,1,1
,0  � 3:�cachesound("fxtrapop",1):� 1,&17F,1,1
6.  � 5:�cachesound("fxslip",1):� 1,&17F,1,1
@ �
J^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
T
 j%+=1
^� haty%<=-140
h� hairy appears
r>�wait(50):�cachesound("fxsplash",1):� 1,&17F,1,1:�wait(50)
|I�26:�scrcopy(see%,do%):ș "OS_Byte",112,2:�makemine(3,1,3):�scrcopy21
�L%=1050:I%=0:�chainnext
��
�
���checkhotkeys
�Qș"OS_Byte",121,57�&80 � ,r1%:�r1%=&FF:mbut%=4:mx%=128:my%=808:ȗ � mx%,my%:�
�Rș"OS_Byte",121,121�&80 � ,r1%:�r1%=&FF:mbut%=4:mx%=128:my%=612:ȗ � mx%,my%:�
�Qș"OS_Byte",121,25�&80 � ,r1%:�r1%=&FF:mbut%=4:mx%=128:my%=416:ȗ � mx%,my%:�
�Qș"OS_Byte",121,41�&80 � ,r1%:�r1%=&FF:mbut%=4:mx%=128:my%=220:ȗ � mx%,my%:�
��
�
�
��maploop
�� p%
�Lsee%=1:do%=2:clicktime%=�-100:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%
[�savebgrd(248,460,118,112,"h0bg1"):�savebgrd(248,460,118,112,"h0bg2"):x%()=248:y%()=460
6ș"OS_Byte",21,9:ȗ ȓ 0,100,1264,848:ȗ � 256,564
	*FX15
&Clasttime%=�-10:mbut%=0:�L%>1040:�words_read(5,"04,05,06,07,08")
0�
: �checkkeyevent
D3 ombut%=mbut%:ș"OS_Byte",21,9:ȗ mx%,my%,mbut%
N) �changemouse:�checkmap:�checkhotkeys
XE ș"OS_SpriteOp",&122,sparea%,"h0bg"+�(do%),x%(do%-1),y%(do%-1),8
b& x%(do%-1)=mx%-8:y%(do%-1)=my%-104
l �p%=0�3
v*  �changedbut%(p%)=2:changedbut%(p%)=0
�&  �onlywalk%(p%)=2:onlywalk%(p%)=0
�*  �changedbut%(p%)=1:changedbut%(p%)=2
�&  �onlywalk%(p%)=1:onlywalk%(p%)=2
� �
� �my%<172 �
�  �walk%=-1 �
�7   �dirn%<>-1:changedbut%(dirn%)=1:butcol%(dirn%)=0
�   dirn%=-1
�  �
�  �mbut%=4 �
�(   �bluewords%>0 �:�elffade(�onblue)
�  �
� �

-  �(my%>=764)�(my%<=952)�(�mx%,my%)<>1) �

   �walk%=-1 �

    �dirn%<>0 �

 9     �dirn%<>-1:changedbut%(dirn%)=1:butcol%(dirn%)=0

*.     dirn%=0:changedbut%(0)=1:butcol%(0)=1

4	    �

>5     �butcol%(0)<>1:changedbut%(0)=1:butcol%(0)=1

H	    �

R    �mbut%=4�

\I     �cangoup%:step%=12:changedbut%(0)=1:butcol%(0)=2:walk%=0:�:�beep

f	    �

p     �still:onlywalk%(0)=1

z	    �

�   �

�    onlywalk%(walk%)=1

�   �

�  �

�.   �(my%>=568)�(my%<=756)�(�mx%,my%)<>1) �

�    �walk%=-1 �

�     �dirn%<>1 �

�:      �dirn%<>-1:changedbut%(dirn%)=1:butcol%(dirn%)=0

�/      dirn%=1:changedbut%(1)=1:butcol%(1)=1

�
     �

�6      �butcol%(1)<>1:changedbut%(1)=1:butcol%(1)=1

�
     �

�     �mbut%=4�
L      �cangoright%:step%=8:changedbut%(1)=1:butcol%(1)=2:walk%=1:�:�beep

     �
      �still:onlywalk%(1)=1
$
     �
.	    �
8     onlywalk%(walk%)=1
B	    �
L   �
V/    �(my%>=372)�(my%<=560)�(�mx%,my%)<>1) �
`     �walk%=-1 �
j      �dirn%<>2 �
t;       �dirn%<>-1:changedbut%(dirn%)=1:butcol%(dirn%)=0
~0       dirn%=2:changedbut%(2)=1:butcol%(2)=1
�      �
�7       �butcol%(2)<>1:changedbut%(2)=1:butcol%(2)=1
�      �
�      �mbut%=4�
�L       �cangoleft%:step%=8:changedbut%(2)=1:butcol%(2)=2:walk%=2:�:�beep
�      �
�        �still:onlywalk%(2)=1
�      �
�
     �
�      onlywalk%(walk%)=1
�
     �
�	    �
0     �(my%>=176)�(my%<=364)�(�mx%,my%)<>1) �

      �walk%=-1 �
       �dirn%<>3 �
<        �dirn%<>-1:changedbut%(dirn%)=1:butcol%(dirn%)=0
(1        dirn%=3:changedbut%(3)=1:butcol%(3)=1
2       �
<8        �butcol%(3)<>1:changedbut%(3)=1:butcol%(3)=1
F       �
P       �mbut%=4�
ZN        �cangodown%:step%=12:changedbut%(3)=1:butcol%(3)=2:walk%=3:�:�beep
d       �
n!        �still:onlywalk%(3)=1
x       �
�      �
�       onlywalk%(walk%)=1
�      �
�
     �
�      �walk%=-1 �
�;       �dirn%<>-1:changedbut%(dirn%)=1:butcol%(dirn%)=0
�       dirn%=-1
�      �
�
     �
�	    �
�   �
�  �
� �
 �walk:�plotmapbuts
 �(showkey%<2)�(walk%>=0) �
`  �18,0,1:�25,4,0;0;:�25,101,1278;168;:ș "OS_SpriteOp",&134,sparea%,"key",42,100,8,scale%,0
"�  �words_read(5,"04,05,06,07,08"):�words(146,116,-1,3,0,0,on$+"rocks         trees         water         paths         tunnels")
,  showkey%+=1
6 �
@ �plotdot(0)
J9 �savebgrd(x%(do%-1),y%(do%-1),118,112,"h0bg"+�(do%))
TF ș"OS_SpriteOp",&134,butarea%,"h0",x%(do%-1),y%(do%-1),8,scale%,0
^ �:� �>lasttime%+10
h Ȏ walk% �
r;  � -1:�soundstep%:�cachesound("fxstep",1):� 1,&17F,1,1
|>  � 0:�butwalk%(0)=15:�cachesound("fxstep",1):� 1,&17F,1,1
�O  � 1:�(butwalk%(1)=1)�(butwalk%(1)=5):�cachesound("fxstep",1):� 1,&17F,1,1
�O  � 2:�(butwalk%(2)=1)�(butwalk%(2)=5):�cachesound("fxstep",1):� 1,&17F,1,1
�>  � 3:�butwalk%(3)=27:�cachesound("fxstep",1):� 1,&17F,1,1
� �
�^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
��mbut%=1
�]ș "OS_Byte",112,see%:ș"OS_SpriteOp",&122,sparea%,"h0bg"+�(see%),x%(see%-1),y%(see%-1),8
�.�scrcopy(see%,do%):�mousefull:bluewords%=0
��
�
�
��beep
�*CHANNELVOICE 1 1
��7
�


��walk
&� j%
0�j%=0�3
: �j%=walk% �
D!  butwalk%(walk%)+=1:step%-=1
N  �j%=0�
X%   �butwalk%(0)>=21:butwalk%(0)=9
b  �
l  �(j%=1)�(j%=2) �
v&   �butwalk%(j%)>=8:butwalk%(j%)=0
�  �
�  �j%=3�
�&   �butwalk%(3)>=33:butwalk%(3)=21
�  �
� �
�  �j%=0:butwalk%(0)=9
�  �j%=1:butwalk%(1)=8
�  �j%=2:butwalk%(2)=8
�  �j%=3:butwalk%(3)=21
� �
��
��
�
��still
<butwalk%(0)=9:butwalk%(1)=8:butwalk%(2)=8:butwalk%(3)=21
�
 
*��changemouse
4� difx%,dify%
>�mx%<=256:�
H�my%<=180:�
R?difx%=mx%-256:dify%=my%-180:�difx%<=dify%:mx%=256:�:my%=180
\ȗ � mx%,my%
f�
p
z��mapspell
�� j%,k%
�>see%=1:do%=2:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%
�F�savebgrd(588,748,212,148,"mapbg"):�scrcopy21:ș "OS_Byte",112,do%
�sayx%=604:sayy%=756
��cachesound("fxjing3",1)
��l%=0�20
�4 ș "OS_SpriteOp",&122,sparea%,"mapbg",588,748,8
�K �l%>10:ș"OS_SpriteOp",&134,sparea%,"dot",posx%-20,posy%-20,8,scale%,0
� �plotstars
� �wait(10)
� �l%=3:� 1,&17F,1,1
�R see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%
��
�scrcopy(see%,do%)
�

$��plotdot(bug%)
.Kș"OS_SpriteOp",&122,sparea%,"dotbg"+�(do%),dotx%(do%-1),doty%(do%-1),8
8>�bug%:�18,0,15:�25,4,bugx0%;bugy0%;:�25,101,bugx1%;bugy1%;
Bsoundstep%=0
L�walk%=-1 �
V movex%=0:movey%=0
`j dotx%(do%-1)=posx%-20:doty%(do%-1)=posy%-20:�savebgrd(dotx%(do%-1),doty%(do%-1),44,44,"dotbg"+�(do%))
j� �dirn%>=0:ș"OS_SpriteOp",&134,sparea%,"arr"+�(dirn%)+"1",dotx%(do%-1),doty%(do%-1),8,scale%,0:�:ș"OS_SpriteOp",&134,sparea%,"dot",dotx%(do%-1),doty%(do%-1),8,scale%,0
t�
~ Ȏ walk% �
�1  � 0:movex%=0:�step%=0:movey%=48:�:movey%+=4
�1  � 1:movey%=0:�step%=0:movex%=54:�:movex%+=6
�2  � 2:movey%=0:�step%=0:movex%=-54:�:movex%-=6
�2  � 3:movex%=0:�step%=0:movey%=-48:�:movey%-=4
� �
�x dotx%(do%-1)=posx%-20+movex%:doty%(do%-1)=posy%-20+movey%:�savebgrd(dotx%(do%-1),doty%(do%-1),44,44,"dotbg"+�(do%))
�Y ș"OS_SpriteOp",&134,sparea%,"arr"+�(walk%)+"2",dotx%(do%-1),doty%(do%-1),8,scale%,0
� �step%=0 �
�3  posx%+=movex%:posy%+=movey%:movex%=0:movey%=0
�  Ȏ walk% �
�"   � 0:gridy%-=1:soundstep%=-1
�   � 1:gridx%+=1
   � 2:gridx%-=1

"   � 3:gridy%+=1:soundstep%=-1
  �
  walk%=-1
( �
2�
<�
F
P��plotmapbuts
Z� j%
d�j%=0�3
n' �changedbut%(j%)>0:�plotmapbut(j%)
x< �(changedbut%(j%)>0)�(onlywalk%(j%)>0):�plotbutelfs(j%)
��
��
�
���plotmapbut(b%)
�� k%
�Pș"OS_SpriteOp",&134,sparea%,"but"+�(butcol%(b%)),10,764-(196*b%),8,scale%,0
�u�k%=0�3:ș"OS_SpriteOp",&134,sparea%,"arr"+�(b%)+�(butcol%(b%)),butarr%(k%,0),butarr%(k%,1)-(196*b%),8,scale%,0:�
��
�
���plotbutelfs(b%)
�� k%
�<�18,0,3:�25,4,72;824-(196*b%);:�25,101,192;892-(196*b%);
�Ȏ b% �
 � 0,3:
x  �k%=0�2:ș"OS_SpriteOp",&134,sparea3%,"e"+�(k%)+�(butwalk%(b%)),92+(40*k%)-14-(6*(k%�2)),828-(196*b%),8,scale%,0:�
2 � 1,2: �flip%=(b%�2):�flipelfs:flip%=1-(b%�2)
"�  �k%=0�2:ș"OS_SpriteOp",&134,sparea3%,"e"+�(k%)+�(butwalk%(b%)),92+(40*k%)+disp%(k%�2,flip%,butwalk%(b%)),828-(196*b%),8,scale%,0:�
,�
6�
@
J��flipelfs
T� j%,k%
^;�j%=0�2:�k%=0�8:�flip(sparea3%,"y","e"+�(j%)+�(k%)):�:�
h�
r
|��checkmap
�� p%
�p%=mapdefn%(gridy%,gridx%)
�.�(p%�%0001)=%0001:cangoup%=-1:�:cangoup%=0
�4�(p%�%0010)=%0010:cangoright%=-1:�:cangoright%=0
�2�(p%�%0100)=%0100:cangoleft%=-1:�:cangoleft%=0
�2�(p%�%1000)=%1000:cangodown%=-1:�:cangodown%=0
��(p%�&10)=&10:�specialmap
��
�
���specialmap
��scrcopy(see%,do%)
�*�(gridx%=7)�(gridy%=0):�castlekq(siz%)
�/�(gridx%=2)�(gridy%=1):�baddies(siz%,3,3,1)
&�(gridx%=4)�(gridy%=3):�cave(siz%)
!�(gridx%=10)�(gridy%=1):�mine
�
&
0 ��baddies(siz%,bad%,gx%,gy%)
:� j%,k%,l%
D�load5hairys
N;ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;
X;ș"OS_SpriteOp",&134,sparea3%,"map5",238,220,8,scale%,0
bIș"OS_SpriteOp",&134,sparea4%,"hairy"+�(hairy%(0)),336,252,8,scale%,0
lIș"OS_SpriteOp",&134,sparea4%,"hairy"+�(hairy%(1)),556,252,8,scale%,0
vIș"OS_SpriteOp",&134,sparea4%,"hairy"+�(hairy%(2)),776,252,8,scale%,0
�bș"OS_SpriteOp",&134,butarea%,"elfhead0",20,56,8,scale%,0:�speechbox(240,8,820,160,1,-1,48,-1)
�nusualpos%=-1:�words_read(2,"13,14"):�words_say("Oh no! The "+on$+"Hairy Gang"+off$+".","We must go back.")
�.�mergescr21(6):�bookgoon(1080,12,&01,-1,0)
�$gridx%=gx%:gridy%=gy%:�backtomap
��
�
���backtomap
�bbutcol%()=0:flip%=0:butwalk%(0)=9:butwalk%(1)=8:butwalk%(2)=8:butwalk%(3)=21:dirn%=-1:walk%=-1
�C�loadmapbuts(siz%):�makemap(-1,-1,-1):�mergescr21(4):�sortouth0
�#�words_read(5,"04,05,06,07,08")
��
�
���castlekq(siz%)
�sparea3%=sparea%+spareasiz%-siz%:!sparea3%=siz%:sparea3%!8=16:ș "OS_SpriteOp",&109,sparea3%:�loadunsquash(sparea3%,siz%,"ONE.spfiles.map0")
:masksp%(0)=4:masksp$(0)="map0":�masksprite(sparea3%,1)
;ș "OS_Byte",112,2:�18,0,1:�25,4,0;0;:�25,101,1278;958;
 ;ș"OS_SpriteOp",&134,sparea3%,"map0",278,200,8,scale%,0
*_ș"OS_SpriteOp",&134,sparea3%,"qhead",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1)
4fusualpos%=-1:�words_read(2,"01,02"):�words_say("The king is in "+on$+"another castle"+off$+".","")
>.�mergescr21(6):�bookgoon(1080,12,&01,-1,0)
H gridx%=7:gridy%=1:�backtomap
R�
\
f��sortouth0
pLsee%=1:do%=2:clicktime%=�-100:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%
z[�savebgrd(248,460,118,112,"h0bg1"):�savebgrd(248,460,118,112,"h0bg2"):x%()=248:y%()=460
�Fș"OS_Byte",21,9:ȗ ȓ 0,100,1264,848:ȗ � 256,564:mx%=256:my%=564
��
�
���loopexit
�Ȏ loopexit% �
�  � 1:�doneablue%:animend%=-1
�K � 2:�(mx%>=340)�(mx%<=936)�(my%>=208)�(my%<=800)�(mbut%=4):animend%=-1
� � 3:�movemaparrow
��
��
�
�
��movearr
�animpause%(21)=20:mpos%-=4
�mpos%=512:animend%=-1
�24,512;508;560;652;
9ș"OS_SpriteOp",&134,sparea%,"map",264,188,8,scale%,0
$�26
.=ș"OS_SpriteOp",&134,sparea%,"arr32",512,mpos%,8,scale%,0
83achange%=-1:donechange%(21)=-1:animtime%(21)=-1
B�
L
V��copymovearr
`0�scrcopyblockpix(504,488,64,200,see%,do%,-1)
j�
t
~��elf(x%,y%,type%)
��type%=4 �
�O ș"OS_SpriteOp",&134,sparea3%,"elfside",x%+ew%(3,0),y%+ew%(3,1),8,scale%,0
�B ș"OS_SpriteOp",&134,sparea3%,"ew3",x%+ew%(3,0),y%,8,scale%,0
��
�Z ș"OS_SpriteOp",&134,sparea3%,"elfside",x%+ew%(type%,0)+24,y%+ew%(type%,1),8,scale%,0
�N ș"OS_SpriteOp",&134,sparea3%,"ew"+�(type%),x%+ew%(type%,0),y%,8,scale%,0
��
��
�
�)��elfs(bx%,by%,btype%,gx%,gy%,gtype%)
��btype%>=0�
�P ș"OS_SpriteOp",&134,sparea4%,"bw"+�(btype%),bx%+bw%(btype%),by%,8,scale%,0
f ș"OS_SpriteOp",&134,sparea4%,"bhead1",bx%+bw%(btype%)+bh%(btype%,0),by%+bh%(btype%,1),8,scale%,0

�
�gtype%>=0�
P ș"OS_SpriteOp",&134,sparea4%,"bw"+�(gtype%),gx%+bw%(gtype%),gy%,8,scale%,0
(f ș"OS_SpriteOp",&134,sparea4%,"gw"+�(gtype%),gx%+bw%(gtype%)+2-(18*�(gtype%/8)),gy%+84,8,scale%,0
2l ș"OS_SpriteOp",&134,sparea4%,"ghead1",gx%+bw%(gtype%)+bh%(gtype%,0)-16,gy%+bh%(gtype%,1)-12,8,scale%,0
<�
F�
P
Z
��loadelf
dIsparea3%=sparea%+spareasiz%-(11*1024):!sparea3%=11*1024:sparea3%!8=16
n"ș "OS_SpriteOp",&109,sparea3%
x5�loadunsquash(sparea3%,11*1024,"ONE.spfiles.elf")
�`masksp%()=12:masksp$(0)="elfside":�j%=0�3:masksp$(j%+1)="ew"+�(j%):�:�masksprite(sparea3%,5)
��
�
���loadelfs
�Ssparea4%=sparea%+spareasiz%-(11*1024)-(54*1024):!sparea4%=54*1024:sparea4%!8=16
�"ș "OS_SpriteOp",&109,sparea4%
�:�loadunsquash(sparea4%,54*1024,"ONE.spfiles.elveside")
�Hmasksp%()=4:�j%=0�8:masksp$(j%)="bw"+�(j%):�:�masksprite(sparea4%,9)
�<�j%=0�8:masksp$(j%)="gw"+�(j%):�:�masksprite(sparea4%,9)
�Cmasksp$(0)="bhead1":masksp$(1)="ghead1":�masksprite(sparea4%,2)
��
�
���load5hairys
�sparea3%=sparea%+spareasiz%-siz%:!sparea3%=siz%-(37*1024):sparea3%!8=16:ș "OS_SpriteOp",&109,sparea3%:�loadunsquash(sparea3%,siz%-(37*1024),"ONE.spfiles.map5")
�sparea4%=sparea%+spareasiz%-(37*1024):!sparea4%=37*1024:sparea4%!8=16:ș "OS_SpriteOp",&109,sparea4%:�loadunsquash(sparea4%,37*1024,"ONE.spfiles.hairy")
l%=0
"�j%=2�4
,L masksp$(l%)="hairy"+�(j%):masksp%(l%)=9-(5*�(j%/3)):hairy%(l%)=j%:l%+=1
6�
@�masksprite(sparea4%,3)
J�
T
^��loadtunnel(track%)
h� j%
r�track%�
|^ sparea5%=sparea%+spareasiz%-(11*1024)-(54*1024)-(42*1024):!sparea5%=42*1024:sparea5%!8=16
�# ș "OS_SpriteOp",&109,sparea5%
�8 �loadunsquash(sparea5%,42*1024,"ONE.spfiles.track")
��
�B!sparea%=spareasiz%-(11*1024)-(54*1024)-(42*1024):sparea%!8=16
�!ș "OS_SpriteOp",&109,sparea%
�X�loadunsquash(sparea%,spareasiz%-(11*1024)-(54*1024)-(42*1024),"ONE.spfiles.tunnel")
��track%�
�8 �j%=0�1:�delete("top"+�(j%)):�delete("bot"+�(j%)):�
�% �j%=0�3:�delete("lever"+�(j%)):�
�$ �delete("head"):�delete("vert")
�c masksp%()=4:masksp$(0)="studoor1":�j%=0�3:masksp$(j%+1)="stlev"+�(j%):�:�masksprite(sparea%,5)
��
�' �j%=0�1:�delete("studoor"+�(j%)):�
7 �delete("track1"):�j%=0�3:�delete("stlev"+�(j%)):�
�
�masksp%()=4:masksp%(0)=10:masksp$(0)="fall":masksp$(1)="ear":�j%=0�2:masksp$(j%+2)="hat"+�(j%):�:�j%=0�4:masksp$(j%+5)="trap"+�(j%):�:�masksprite(sparea%,10)
&�
0
:��loadmap(msiz%)
D!sparea%=msiz%:sparea%!8=16
N!ș "OS_SpriteOp",&109,sparea%
X2�loadunsquash(sparea%,msiz%,"ONE.spfiles.map")
b�masksp%()=4:�j%=0�3:�k%=0�2:masksp$(k%+(3*j%))="arr"+�(j%)+�(k%):�:�:masksp$(12)="dot":masksp$(13)="arro":�masksprite(sparea%,14)
l�
v
���loadmapbuts(siz%)
�Asparea3%=sparea%+spareasiz%-siz%:!sparea3%=siz%:sparea3%!8=16
�"ș "OS_SpriteOp",&109,sparea3%
�3�loadunsquash(sparea3%,siz%,"ONE.spfiles.walk")
�Kmasksp%()=12:�k%=0�32:masksp$(k%)="e0"+�(k%):�:�masksprite(sparea3%,33)
�>�k%=0�32:masksp$(k%)="e1"+�(k%):�:�masksprite(sparea3%,33)
�>�k%=0�32:masksp$(k%)="e2"+�(k%):�:�masksprite(sparea3%,33)
��
�
���gblink
�
geyes%+=1
�G�geyes%=2:geyes%=0:animpause%(19)=200+(50*�(6)):�:animpause%(19)=10
�Sș"OS_SpriteOp",&134,sparea%,"geyes"+�(geyes%),eyes%(2,0),eyes%(2,1),8,scale%,0
3achange%=-1:donechange%(19)=-1:animtime%(19)=-1
�

 ��copygblink
*=�scrcopyblockpix(eyes%(2,0),eyes%(2,1),74,28,see%,do%,-1)
4�
>
H��bblink
R
beyes%+=1
\G�beyes%=2:beyes%=0:animpause%(18)=200+(50*�(6)):�:animpause%(18)=10
fSș"OS_SpriteOp",&134,sparea%,"beyes"+�(beyes%),eyes%(1,0),eyes%(1,1),8,scale%,0
p3achange%=-1:donechange%(18)=-1:animtime%(18)=-1
z�
�
���copybblink
�=�scrcopyblockpix(eyes%(1,0),eyes%(1,1),74,20,see%,do%,-1)
��
�
���elfblink
�
eeyes%+=1
�G�eeyes%=2:eeyes%=0:animpause%(17)=200+(50*�(6)):�:animpause%(17)=10
�Uș"OS_SpriteOp",&134,sparea%,"elfeyes"+�(eeyes%),eyes%(0,0),eyes%(0,1),8,scale%,0
�3achange%=-1:donechange%(17)=-1:animtime%(17)=-1
��
�
���copyelfblink
=�scrcopyblockpix(eyes%(0,0),eyes%(0,1),74,16,see%,do%,-1)
�

$��elfblink2
.
eeyes%+=1
8G�eeyes%=2:eeyes%=0:animpause%(20)=200+(50*�(6)):�:animpause%(20)=10
BSș"OS_SpriteOp",&134,sparea3%,"jeye"+�(eeyes%),eyes%(0,0),eyes%(0,1),8,scale%,0
L3achange%=-1:donechange%(20)=-1:animtime%(20)=-1
V�
`
j��copyelfblink2
t=�scrcopyblockpix(eyes%(0,0),eyes%(0,1),18,20,see%,do%,-1)
~�
�
�ݤreadsysvar(a$)
�� p%
�Nș "OS_ReadVarVal",a$,blk%,80,0,0 � ,,a%:a$="":�p%=0�a%-1:a$+=�(blk%?p%):�
�=a$
�
���specificcopy(j%)
�Ȏ j% �
�) � 9:�L%=1010:�bwcopytail:�:�copybook
� � 10:�copywaves
� � 12:�copyqueenbl
� � 13:�copyqtear
 � 17:�copyelfblink

 � 18:�copybblink
 � 19:�copygblink
 � 20:�copyelfblink2
( � 21:�copymovearr
2�
<�
F
P��water
Z�nosound:� 1,&17F,1,1
d�
n
x��specificanim(j%)
�Ȏ j% �
� � 8: �water
� � 9: �bwtail
� � 10:�waves
� � 12:�queenblink
� � 13:�qtear
� � 17:�elfblink
� � 18:�bblink
� � 19:�gblink
� � 20:�elfblink2
� � 21:�movearr
��
��

��initialise
3ș &46181,R%,"<ElfK$chaindir>.ONE.SPackFile",32
"#Z%=�(�readsysvar("ElfK$task1"))
,�� eyes%(2,1),ew%(3,1),bw%(8),bh%(8,1),trapy%(3),leverx%(3),mapdefn%(13,16),butcol%(3),butwalk%(3),disp%(1,1,8),butarr%(3,1),dotx%(1),doty%(1),changedbut%(3),onlywalk%(3),hairy%(4)
6� sppalet% 128
@� +0
J� 0,52,6,48,2,52,0,56
T$�j%=0�3:�k%=0�1:� ew%(j%,k%):�:�
^� +0
h$� 0,-26,-26,-10,0,-24,-22,-8,-16
r�j%=0�8:� bw%(j%):�
|� +0
�E� -14,244,18,240,12,244,0,248,-14,244,18,240,12,244,0,248,-18,248
�$�j%=0�8:�k%=0�1:� bh%(j%,k%):�:�
�� +0
�� 296,180,112,112
��j%=0�3:� trapy%(j%):�
�� +0
�� 778,766,840,840
��j%=0�3:� leverx%(j%):�
�� define map
�� +0
�)� 0,0,0,0,0,0,0,&18,0,0,0,0,0,0,0,0,0
�3� &12,6,&12,6,14,6,6,7,6,6,&16,6,&16,14,6,&16,0
�'� 0,0,9,0,9,0,0,0,0,0,0,0,0,9,0,0,0
 )� 0,0,9,0,&11,0,0,0,0,0,0,0,0,9,0,0,0
 ,� 10,6,5,0,0,0,0,0,0,0,0,0,0,11,&16,6,12
 '� 9,0,0,0,0,0,0,0,0,0,0,0,0,9,0,0,9
 &'� 9,0,0,0,0,0,0,0,0,0,0,0,0,9,0,0,9
 0)� 9,0,0,0,0,0,0,0,0,0,0,0,0,9,0,0,&11
 :,� 9,0,0,0,&18,0,0,0,0,0,0,&12,6,13,0,0,0
 D'� 9,0,0,0,9,0,0,0,0,0,0,0,0,9,0,0,0
 N+� 3,14,6,6,7,6,6,6,6,&16,14,6,6,5,0,0,0
 X'� 0,9,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0
 b.� &12,13,0,0,0,0,0,&12,6,&16,5,0,0,0,0,0,0
 l)� 0,&11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 v+�j%=0�13:�k%=0�16:� mapdefn%(j%,k%):�:�
 �� +0
 �� elfs right
 �)� -10,-14,-10,-10,-10,-14,-10,-10,-10
 �� elfs left
 �)� -12,-16,-10,-10,-12,-16,-10,-10,-10
 �� jek right
 �)� -18,-18,-18,-18,-18,-18,-18,-18,-18
 �� jek left
 �)� -18,-20,-18,-18,-18,-20,-18,-18,-18
 �3�j%=0�1:�k%=0�1:�l%=0�8:� disp%(j%,k%,l%):�:�:�
 �� +0
 �$� 28,836,112,896,112,780,194,836
 �(�j%=0�3:�k%=0�1:� butarr%(j%,k%):�:�
!� say blue words
!� +0
!� 0
! � spell,spell,"20,120"
!*� another,another,"20,2120"
!4� castle,castle,"20,120"
!>� Shall,shall,"30,10"
!H� rocks,rocks,"30,20"
!R� trees,trees,"28,240"
!\� water,water,"16,520"
!f� paths,paths,"26,10"
!p� tunnels,tunnels,"20,120"
!z� castles,castles,"20,120"
!�� 10
!�� path,path,"20,10"
!�� blocked,blocked,"18,3120"
!�� Hairy,hairy,"16,140"
!�� Gang,gang,"20,10"
!�� nothing,nothing,"20,240"
!�� else,else,"14,120"
!�� locked,locked,"20,120"
!� � dungeons,dungeons,"28,120"
!�� "Gang's",gangs,"24,120"
!�� find,find,"20,20"
!��j%=0�19
!� �k%=0�2:� say$(j%,k%):�
"�
"� +0
"� 0
"$� 608,40,0
".� 634,40,1
"8� 816,40,2
"B� 486,40,3
"L� 146,116,4
"V� 5
"`� 378,116,5
"j� 594,116,6
"t� 832,116,7
"~� 1064,116,8
"�� 580,40,9
"�� 10
"�� 814,36,2
"�� 528,96,10
"�� 684,96,11
"�� 644,96,12
"�� 774,96,13
"�� 15
"�� 456,36,14
"�� 632,36,15
"�� 614,96,16
"�� 586,96,19
#� 752,96,17
#
� 20
#� 550,40,12
#� 680,40,18
#(� 836,40,2
#2� 400,36,2
#<
#F�j%=0�23
#P) �k%=0�1:� say%(j%,k%):�:� say%(j%,4)
#Z�
#d�j%=0�23
#ng say%(j%,1)-=16:say%(j%,2)=say%(j%,0)+2+�stringsize(say$(say%(j%,4),0)):say%(j%,3)=say%(j%,1)+16+52
#x�
#�� +0
#��� &FFFFFF00,&FFFFFF00,&AAAAAA00,&AAAAAA00,&77777700,&77777700,&0,&0,&AA00,&AA00,&66FF00,&66FF00,&CCFF00,&CCFF00,&FF880000,&FF880000
#��� &EE000000,&EE000000,&FFFF0000,&FFFF0000,&99550000,&99550000,&FFCC9900,&FFCC9900,&881100,&881100,&BB0000,&BB0000,&EE2200,&EE2200,&BB770000,&BB770000
#��k%=0�31
#�� a%
#�sppalet%!(4*k%)=a%
#��
#�
#� firstexplore%=-1:firetime%=�
#��
#�
#�
#�
�

00000000  0d 00 0a 04 0d 00 14 1f  c8 9b 20 22 3c 45 6c 66  |.......... "<Elf|
00000010  4b 24 63 68 61 69 6e 64  69 72 3e 2e 65 6c 66 6c  |K$chaindir>.elfl|
00000020  69 62 22 0d 00 1e 13 f2  6c 69 62 5f 69 6e 69 74  |ib".....lib_init|
00000030  69 61 6c 69 73 65 0d 00  28 0f f2 69 6e 69 74 69  |ialise..(..initi|
00000040  61 6c 69 73 65 0d 00 32  0b f2 70 72 65 6d 61 70  |alise..2..premap|
00000050  0d 00 3c 35 e7 4c 25 3d  31 30 34 30 3a f2 6d 61  |..<5.L%=1040:.ma|
00000060  70 3a 73 68 6f 77 6b 65  79 25 3d 30 3a 8b 3a f2  |p:showkey%=0:.:.|
00000070  70 72 65 70 61 72 65 6d  61 70 3a 73 68 6f 77 6b  |preparemap:showk|
00000080  65 79 25 3d 32 0d 00 46  04 0d 00 50 0c f2 6d 61  |ey%=2..F...P..ma|
00000090  70 6c 6f 6f 70 0d 00 5a  04 0d 00 64 14 57 25 3d  |ploop..Z...d.W%=|
000000a0  28 6d 78 25 3c 3c 31 36  29 84 6d 79 25 0d 00 6e  |(mx%<<16).my%..n|
000000b0  04 0d 00 78 20 d7 20 22  3c 45 6c 66 4b 24 63 68  |...x . "<ElfK$ch|
000000c0  61 69 6e 64 69 72 3e 2e  4f 4e 45 2e 4c 49 4e 4b  |aindir>.ONE.LINK|
000000d0  22 0d 00 82 04 0d 00 8c  05 e0 0d 00 96 04 0d 00  |"...............|
000000e0  a0 0f dd f2 63 68 61 69  6e 6e 65 78 74 0d 00 aa  |....chainnext...|
000000f0  14 57 25 3d 28 6d 78 25  3c 3c 31 36 29 84 6d 79  |.W%=(mx%<<16).my|
00000100  25 0d 00 b4 20 d7 20 22  3c 45 6c 66 4b 24 63 68  |%... . "<ElfK$ch|
00000110  61 69 6e 64 69 72 3e 2e  4f 4e 45 2e 4c 49 4e 4b  |aindir>.ONE.LINK|
00000120  22 0d 00 be 05 e1 0d 00  c8 04 0d 00 d2 10 dd f2  |"...............|
00000130  70 72 65 70 61 72 65 6d  61 70 0d 00 dc 5d 73 65  |preparemap...]se|
00000140  65 25 3d 31 3a 64 6f 25  3d 32 3a c8 99 20 22 4f  |e%=1:do%=2:.. "O|
00000150  53 5f 42 79 74 65 22 2c  31 31 33 2c 73 65 65 25  |S_Byte",113,see%|
00000160  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
00000170  32 2c 64 6f 25 3a f2 6d  61 6b 65 6d 61 70 28 2d  |2,do%:.makemap(-|
00000180  31 2c 2d 31 2c 2d 31 29  3a f2 6d 65 72 67 65 73  |1,-1,-1):.merges|
00000190  63 72 32 31 28 36 29 0d  00 e6 23 f2 77 6f 72 64  |cr21(6)...#.word|
000001a0  73 5f 72 65 61 64 28 35  2c 22 30 30 2c 30 30 2c  |s_read(5,"00,00,|
000001b0  30 30 2c 30 30 2c 30 30  22 29 0d 00 f0 05 e1 0d  |00,00,00")......|
000001c0  00 fa 04 0d 01 04 21 dd  f2 6d 61 6b 65 74 75 6e  |......!..maketun|
000001d0  6e 65 6c 28 78 25 2c 74  72 61 70 25 2c 6c 65 76  |nel(x%,trap%,lev|
000001e0  65 72 25 29 0d 01 0e 0b  ea 20 6a 25 2c 6b 25 0d  |er%)..... j%,k%.|
000001f0  01 18 21 6b 25 3d a8 28  78 25 2f 31 32 30 29 2b  |..!k%=.(x%/120)+|
00000200  31 3a 6b 25 3d 78 25 2d  28 31 32 30 2a 6b 25 29  |1:k%=x%-(120*k%)|
00000210  0d 01 22 4d e3 6a 25 3d  6b 25 b8 28 78 25 2d 31  |.."M.j%=k%.(x%-1|
00000220  32 30 29 88 31 32 30 3a  c8 99 22 4f 53 5f 53 70  |20).120:.."OS_Sp|
00000230  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 73 70 61  |riteOp",&134,spa|
00000240  72 65 61 25 2c 22 76 65  72 74 22 2c 6a 25 2c 30  |rea%,"vert",j%,0|
00000250  2c 38 2c 73 63 61 6c 65  25 2c 30 3a ed 0d 01 2c  |,8,scale%,0:...,|
00000260  15 e7 28 78 25 2b 36 30  30 29 3c 3d 31 32 38 30  |..(x%+600)<=1280|
00000270  20 8c 0d 01 36 50 20 e3  6a 25 3d 28 78 25 2b 36  | ...6P .j%=(x%+6|
00000280  30 30 29 b8 31 32 38 30  88 31 32 30 3a c8 99 22  |00).1280.120:.."|
00000290  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
000002a0  34 2c 73 70 61 72 65 61  25 2c 22 76 65 72 74 22  |4,sparea%,"vert"|
000002b0  2c 6a 25 2c 30 2c 38 2c  73 63 61 6c 65 25 2c 30  |,j%,0,8,scale%,0|
000002c0  3a ed 0d 01 40 05 cd 0d  01 4a 9a e3 6a 25 3d 30  |:...@....J..j%=0|
000002d0  b8 31 3a c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.1:.."OS_SpriteO|
000002e0  70 22 2c 26 31 33 34 2c  73 70 61 72 65 61 25 2c  |p",&134,sparea%,|
000002f0  22 74 6f 70 22 2b c3 28  6a 25 29 2c 78 25 2b 28  |"top"+.(j%),x%+(|
00000300  35 36 38 2a 6a 25 29 2c  37 36 34 2b 28 34 2a 6a  |568*j%),764+(4*j|
00000310  25 29 2c 38 2c 73 63 61  6c 65 25 2c 30 3a c8 99  |%),8,scale%,0:..|
00000320  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000330  33 34 2c 73 70 61 72 65  61 25 2c 22 62 6f 74 22  |34,sparea%,"bot"|
00000340  2b c3 28 6a 25 29 2c 78  25 2b 28 35 34 36 2a 6a  |+.(j%),x%+(546*j|
00000350  25 29 2c 30 2c 38 2c 73  63 61 6c 65 25 2c 30 3a  |%),0,8,scale%,0:|
00000360  ed 0d 01 54 0f e7 78 25  3c 3d 31 32 38 30 20 8c  |...T..x%<=1280 .|
00000370  0d 01 5e 44 20 e7 74 72  61 70 25 3d 30 3a c8 99  |..^D .trap%=0:..|
00000380  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000390  33 34 2c 73 70 61 72 65  61 25 2c 22 74 72 61 70  |34,sparea%,"trap|
000003a0  30 22 2c 78 25 2c 32 39  36 2c 38 2c 73 63 61 6c  |0",x%,296,8,scal|
000003b0  65 25 2c 30 0d 01 68 82  20 e7 74 72 61 70 25 3d  |e%,0..h. .trap%=|
000003c0  31 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |1:.."OS_SpriteOp|
000003d0  22 2c 26 31 33 34 2c 73  70 61 72 65 61 25 2c 22  |",&134,sparea%,"|
000003e0  74 72 61 70 31 22 2c 78  25 2b 31 36 2c 31 38 30  |trap1",x%+16,180|
000003f0  2c 38 2c 73 63 61 6c 65  25 2c 30 3a c8 99 22 4f  |,8,scale%,0:.."O|
00000400  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
00000410  2c 73 70 61 72 65 61 25  2c 22 74 72 61 70 32 22  |,sparea%,"trap2"|
00000420  2c 78 25 2b 33 35 32 2c  31 38 30 2c 38 2c 73 63  |,x%+352,180,8,sc|
00000430  61 6c 65 25 2c 30 0d 01  72 82 20 e7 74 72 61 70  |ale%,0..r. .trap|
00000440  25 3d 33 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |%=3:.."OS_Sprite|
00000450  4f 70 22 2c 26 31 33 34  2c 73 70 61 72 65 61 25  |Op",&134,sparea%|
00000460  2c 22 74 72 61 70 33 22  2c 78 25 2b 34 34 2c 31  |,"trap3",x%+44,1|
00000470  31 32 2c 38 2c 73 63 61  6c 65 25 2c 30 3a c8 99  |12,8,scale%,0:..|
00000480  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000490  33 34 2c 73 70 61 72 65  61 25 2c 22 74 72 61 70  |34,sparea%,"trap|
000004a0  34 22 2c 78 25 2b 35 30  34 2c 31 31 32 2c 38 2c  |4",x%+504,112,8,|
000004b0  73 63 61 6c 65 25 2c 30  0d 01 7c 05 cd 0d 01 86  |scale%,0..|.....|
000004c0  64 e7 28 78 25 2b 37 36  36 29 3c 3d 31 32 38 30  |d.(x%+766)<=1280|
000004d0  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
000004e0  2c 26 31 33 34 2c 73 70  61 72 65 61 25 2c 22 6c  |,&134,sparea%,"l|
000004f0  65 76 65 72 22 2b c3 28  6c 65 76 65 72 25 29 2c  |ever"+.(lever%),|
00000500  78 25 2b 6c 65 76 65 72  78 25 28 6c 65 76 65 72  |x%+leverx%(lever|
00000510  25 29 2c 33 37 36 2c 38  2c 73 63 61 6c 65 25 2c  |%),376,8,scale%,|
00000520  30 0d 01 90 05 e1 0d 01  9a 04 0d 01 a4 1e dd f2  |0...............|
00000530  6d 61 6b 65 6d 61 70 28  64 6f 74 25 2c 62 75 74  |makemap(dot%,but|
00000540  73 25 2c 6b 65 79 25 29  0d 01 ae 2f 70 6f 73 78  |s%,key%).../posx|
00000550  25 3d 33 31 36 2b 28 35  34 2a 67 72 69 64 78 25  |%=316+(54*gridx%|
00000560  29 3a 70 6f 73 79 25 3d  38 36 30 2d 28 34 38 2a  |):posy%=860-(48*|
00000570  67 72 69 64 79 25 29 0d  01 b8 3b c8 99 20 22 4f  |gridy%)...;.. "O|
00000580  53 5f 42 79 74 65 22 2c  31 31 32 2c 32 3a ef 31  |S_Byte",112,2:.1|
00000590  38 2c 30 2c 31 3a ef 32  35 2c 34 2c 30 3b 30 3b  |8,0,1:.25,4,0;0;|
000005a0  3a ef 32 35 2c 31 30 31  2c 31 32 37 38 3b 39 35  |:.25,101,1278;95|
000005b0  38 3b 0d 01 c2 39 c8 99  22 4f 53 5f 53 70 72 69  |8;...9.."OS_Spri|
000005c0  74 65 4f 70 22 2c 26 31  33 34 2c 73 70 61 72 65  |teOp",&134,spare|
000005d0  61 25 2c 22 6d 61 70 22  2c 32 36 34 2c 31 38 38  |a%,"map",264,188|
000005e0  2c 38 2c 73 63 61 6c 65  25 2c 30 0d 01 cc 81 f2  |,8,scale%,0.....|
000005f0  73 61 76 65 62 67 72 64  28 70 6f 73 78 25 2d 32  |savebgrd(posx%-2|
00000600  30 2c 70 6f 73 79 25 2d  32 30 2c 34 34 2c 34 34  |0,posy%-20,44,44|
00000610  2c 22 64 6f 74 62 67 31  22 29 3a f2 73 61 76 65  |,"dotbg1"):.save|
00000620  62 67 72 64 28 70 6f 73  78 25 2d 32 30 2c 70 6f  |bgrd(posx%-20,po|
00000630  73 79 25 2d 32 30 2c 34  34 2c 34 34 2c 22 64 6f  |sy%-20,44,44,"do|
00000640  74 62 67 32 22 29 3a 64  6f 74 78 25 28 29 3d 28  |tbg2"):dotx%()=(|
00000650  70 6f 73 78 25 2d 32 30  29 3a 64 6f 74 79 25 28  |posx%-20):doty%(|
00000660  29 3d 28 70 6f 73 79 25  2d 32 30 29 0d 01 d6 15  |)=(posy%-20)....|
00000670  e7 64 6f 74 25 3a f2 70  6c 6f 74 64 6f 74 28 30  |.dot%:.plotdot(0|
00000680  29 0d 01 e0 27 e7 62 75  74 73 25 3a 63 68 61 6e  |)...'.buts%:chan|
00000690  67 65 64 62 75 74 25 28  29 3d 32 3a f2 70 6c 6f  |gedbut%()=2:.plo|
000006a0  74 6d 61 70 62 75 74 73  0d 01 ea bd e7 6b 65 79  |tmapbuts.....key|
000006b0  25 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |%:.."OS_SpriteOp|
000006c0  22 2c 26 31 33 34 2c 73  70 61 72 65 61 25 2c 22  |",&134,sparea%,"|
000006d0  6b 65 79 22 2c 34 32 2c  31 30 30 2c 38 2c 73 63  |key",42,100,8,sc|
000006e0  61 6c 65 25 2c 30 3a f2  77 6f 72 64 73 5f 72 65  |ale%,0:.words_re|
000006f0  61 64 28 35 2c 22 30 34  2c 30 35 2c 30 36 2c 30  |ad(5,"04,05,06,0|
00000700  37 2c 30 38 22 29 3a f2  77 6f 72 64 73 28 31 34  |7,08"):.words(14|
00000710  36 2c 31 31 36 2c 2d 31  2c 33 2c 30 2c 30 2c 6f  |6,116,-1,3,0,0,o|
00000720  6e 24 2b 22 72 6f 63 6b  73 20 20 20 20 20 20 20  |n$+"rocks       |
00000730  20 20 74 72 65 65 73 20  20 20 20 20 20 20 20 20  |  trees         |
00000740  77 61 74 65 72 20 20 20  20 20 20 20 20 20 70 61  |water         pa|
00000750  74 68 73 20 20 20 20 20  20 20 20 20 74 75 6e 6e  |ths         tunn|
00000760  65 6c 73 22 29 0d 01 f4  05 e1 0d 01 fe 04 0d 02  |els")...........|
00000770  08 0c dd f2 70 72 65 6d  61 70 0d 02 12 0b ea 20  |....premap..... |
00000780  6a 25 2c 6b 25 0d 02 1c  10 73 69 7a 25 3d 37 36  |j%,k%....siz%=76|
00000790  2a 31 30 32 34 0d 02 26  62 62 75 74 63 6f 6c 25  |*1024..&bbutcol%|
000007a0  28 29 3d 30 3a 66 6c 69  70 25 3d 30 3a 62 75 74  |()=0:flip%=0:but|
000007b0  77 61 6c 6b 25 28 30 29  3d 39 3a 62 75 74 77 61  |walk%(0)=9:butwa|
000007c0  6c 6b 25 28 31 29 3d 38  3a 62 75 74 77 61 6c 6b  |lk%(1)=8:butwalk|
000007d0  25 28 32 29 3d 38 3a 62  75 74 77 61 6c 6b 25 28  |%(2)=8:butwalk%(|
000007e0  33 29 3d 32 31 3a 64 69  72 6e 25 3d 2d 31 3a 77  |3)=21:dirn%=-1:w|
000007f0  61 6c 6b 25 3d 2d 31 0d  02 30 1e e7 4c 25 3d 31  |alk%=-1..0..L%=1|
00000800  30 34 30 3a 67 72 69 64  78 25 3d 37 3a 67 72 69  |040:gridx%=7:gri|
00000810  64 79 25 3d 31 0d 02 3a  30 f2 6c 6f 61 64 6d 61  |dy%=1..:0.loadma|
00000820  70 62 75 74 73 28 73 69  7a 25 29 3a f2 6c 6f 61  |pbuts(siz%):.loa|
00000830  64 6d 61 70 28 73 70 61  72 65 61 73 69 7a 25 2d  |dmap(spareasiz%-|
00000840  73 69 7a 25 29 0d 02 44  05 e1 0d 02 4e 04 0d 02  |siz%)..D....N...|
00000850  58 09 dd f2 6d 61 70 0d  02 62 13 f2 6d 61 6b 65  |X...map..b..make|
00000860  6d 61 70 28 30 2c 30 2c  30 29 0d 02 6c 5e c8 99  |map(0,0,0)..l^..|
00000870  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000880  33 34 2c 62 75 74 61 72  65 61 25 2c 22 77 6f 72  |34,butarea%,"wor|
00000890  6d 22 2c 32 30 2c 35 36  2c 38 2c 73 63 61 6c 65  |m",20,56,8,scale|
000008a0  25 2c 30 3a f2 73 70 65  65 63 68 62 6f 78 28 32  |%,0:.speechbox(2|
000008b0  34 30 2c 38 2c 38 32 30  2c 31 30 38 2c 31 2c 2d  |40,8,820,108,1,-|
000008c0  31 2c 34 38 2c 2d 31 29  0d 02 76 46 75 73 75 61  |1,48,-1)..vFusua|
000008d0  6c 70 6f 73 25 3d 2d 31  3a f2 77 6f 72 64 73 5f  |lpos%=-1:.words_|
000008e0  72 65 61 64 28 30 2c 22  30 30 22 29 3a f2 77 6f  |read(0,"00"):.wo|
000008f0  72 64 73 5f 73 61 79 28  22 54 68 69 73 20 69 73  |rds_say("This is|
00000900  20 74 68 65 20 6d 61 70  2e 22 2c 22 22 29 0d 02  | the map.","")..|
00000910  80 2f f2 6d 65 72 67 65  73 63 72 32 31 28 34 29  |./.mergescr21(4)|
00000920  3a f2 62 6f 6f 6b 67 6f  6f 6e 28 31 30 38 30 2c  |:.bookgoon(1080,|
00000930  31 32 2c 26 30 31 2c 2d  31 2c 2d 31 29 0d 02 8a  |12,&01,-1,-1)...|
00000940  6a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |j.. "OS_Byte",11|
00000950  32 2c 32 3a f2 77 6f 72  64 73 5f 72 65 61 64 28  |2,2:.words_read(|
00000960  31 2c 22 30 30 22 29 3a  f2 77 6f 72 64 73 5f 73  |1,"00"):.words_s|
00000970  61 79 28 22 4a 65 6b 20  68 61 73 20 70 75 74 20  |ay("Jek has put |
00000980  61 20 22 2b 6f 6e 24 2b  22 73 70 65 6c 6c 20 22  |a "+on$+"spell "|
00000990  2b 6f 66 66 24 2b 22 6f  6e 20 74 68 65 20 6d 61  |+off$+"on the ma|
000009a0  70 2e 22 2c 22 22 29 0d  02 94 2e f2 6d 65 72 67  |p.","").....merg|
000009b0  65 73 63 72 32 31 28 34  29 3a f2 62 6f 6f 6b 67  |escr21(4):.bookg|
000009c0  6f 6f 6e 28 31 30 38 30  2c 31 32 2c 26 30 31 2c  |oon(1080,12,&01,|
000009d0  2d 31 2c 30 29 0d 02 9e  4a c8 99 20 22 4f 53 5f  |-1,0)...J.. "OS_|
000009e0  42 79 74 65 22 2c 31 31  32 2c 32 3a ef 31 38 2c  |Byte",112,2:.18,|
000009f0  30 2c 31 3a ef 32 35 2c  34 2c 30 3b 30 3b 3a ef  |0,1:.25,4,0;0;:.|
00000a00  32 35 2c 31 30 31 2c 31  32 37 38 3b 31 36 38 3b  |25,101,1278;168;|
00000a10  3a f2 6d 65 72 67 65 73  63 72 32 31 28 34 29 0d  |:.mergescr21(4).|
00000a20  02 a8 0d f2 6d 61 70 73  70 65 6c 6c 0d 02 b2 16  |....mapspell....|
00000a30  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 31 32  |.. "OS_Byte",112|
00000a40  2c 32 0d 02 bc 53 ef 31  38 2c 30 2c 33 3a ef 32  |,2...S.18,0,3:.2|
00000a50  35 2c 34 2c 36 32 32 3b  35 34 34 3b 3a ef 32 35  |5,4,622;544;:.25|
00000a60  2c 31 30 31 2c 37 36 38  3b 37 33 34 3b 3a ef 31  |,101,768;734;:.1|
00000a70  38 2c 30 2c 30 3a ef 32  35 2c 34 2c 36 32 36 3b  |8,0,0:.25,4,626;|
00000a80  35 34 38 3b 3a ef 32 35  2c 31 30 31 2c 37 36 34  |548;:.25,101,764|
00000a90  3b 37 33 30 3b 0d 02 c6  3a c8 99 22 4f 53 5f 53  |;730;...:.."OS_S|
00000aa0  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
00000ab0  61 72 65 61 25 2c 22 61  72 72 6f 22 2c 36 36 32  |area%,"arro",662|
00000ac0  2c 37 33 32 2c 38 2c 73  63 61 6c 65 25 2c 30 0d  |,732,8,scale%,0.|
00000ad0  02 d0 6a f2 77 6f 72 64  73 28 36 32 32 2c 36 37  |..j.words(622,67|
00000ae0  32 2c 2d 31 2c 33 2c 2d  31 2c 31 34 38 2c 22 59  |2,-1,3,-1,148,"Y|
00000af0  6f 75 22 29 3a f2 77 6f  72 64 73 28 36 32 32 2c  |ou"):.words(622,|
00000b00  36 32 30 2c 2d 31 2c 33  2c 2d 31 2c 31 34 38 2c  |620,-1,3,-1,148,|
00000b10  22 61 72 65 22 29 3a f2  77 6f 72 64 73 28 36 32  |"are"):.words(62|
00000b20  32 2c 35 36 38 2c 2d 31  2c 33 2c 2d 31 2c 31 34  |2,568,-1,3,-1,14|
00000b30  38 2c 22 68 65 72 65 22  29 0d 02 da 2f f2 6d 65  |8,"here").../.me|
00000b40  72 67 65 73 63 72 32 31  28 31 30 29 3a f2 62 6f  |rgescr21(10):.bo|
00000b50  6f 6b 67 6f 6f 6e 28 31  30 38 30 2c 31 32 2c 26  |okgoon(1080,12,&|
00000b60  30 31 2c 2d 31 2c 30 29  0d 02 e4 36 c8 99 20 22  |01,-1,0)...6.. "|
00000b70  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 32 3a f2  |OS_Byte",112,2:.|
00000b80  6d 61 6b 65 6d 61 70 28  2d 31 2c 30 2c 30 29 3a  |makemap(-1,0,0):|
00000b90  f2 6d 65 72 67 65 73 63  72 32 31 28 34 29 0d 02  |.mergescr21(4)..|
00000ba0  ee 33 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |.3.. "OS_Byte",1|
00000bb0  31 32 2c 32 3a 63 68 61  6e 67 65 64 62 75 74 25  |12,2:changedbut%|
00000bc0  28 29 3d 32 3a f2 70 6c  6f 74 6d 61 70 62 75 74  |()=2:.plotmapbut|
00000bd0  73 0d 02 f8 5e c8 99 22  4f 53 5f 53 70 72 69 74  |s...^.."OS_Sprit|
00000be0  65 4f 70 22 2c 26 31 33  34 2c 62 75 74 61 72 65  |eOp",&134,butare|
00000bf0  61 25 2c 22 77 6f 72 6d  22 2c 32 30 2c 35 36 2c  |a%,"worm",20,56,|
00000c00  38 2c 73 63 61 6c 65 25  2c 30 3a f2 73 70 65 65  |8,scale%,0:.spee|
00000c10  63 68 62 6f 78 28 32 34  30 2c 38 2c 38 32 30 2c  |chbox(240,8,820,|
00000c20  31 30 38 2c 31 2c 2d 31  2c 34 38 2c 2d 31 29 0d  |108,1,-1,48,-1).|
00000c30  03 02 40 f2 77 6f 72 64  73 5f 72 65 61 64 28 30  |..@.words_read(0|
00000c40  2c 22 30 30 22 29 3a f2  77 6f 72 64 73 5f 73 61  |,"00"):.words_sa|
00000c50  79 28 22 43 6c 69 63 6b  20 6f 6e 20 74 68 65 73  |y("Click on thes|
00000c60  65 20 62 75 74 74 6f 6e  73 2e 22 2c 22 22 29 0d  |e buttons.","").|
00000c70  03 0c 12 f2 6d 65 72 67  65 73 63 72 32 31 28 34  |....mergescr21(4|
00000c80  29 0d 03 16 05 e1 0d 03  20 04 0d 03 2a 10 dd f2  |)....... ...*...|
00000c90  63 61 76 65 28 73 69 7a  25 29 0d 03 34 0b ea 20  |cave(siz%)..4.. |
00000ca0  6a 25 2c 6b 25 0d 03 3e  90 73 70 61 72 65 61 33  |j%,k%..>.sparea3|
00000cb0  25 3d 73 70 61 72 65 61  25 2b 73 70 61 72 65 61  |%=sparea%+sparea|
00000cc0  73 69 7a 25 2d 73 69 7a  25 3a 21 73 70 61 72 65  |siz%-siz%:!spare|
00000cd0  61 33 25 3d 73 69 7a 25  3a 73 70 61 72 65 61 33  |a3%=siz%:sparea3|
00000ce0  25 21 38 3d 31 36 3a c8  99 20 22 4f 53 5f 53 70  |%!8=16:.. "OS_Sp|
00000cf0  72 69 74 65 4f 70 22 2c  26 31 30 39 2c 73 70 61  |riteOp",&109,spa|
00000d00  72 65 61 33 25 3a f2 6c  6f 61 64 75 6e 73 71 75  |rea3%:.loadunsqu|
00000d10  61 73 68 28 73 70 61 72  65 61 33 25 2c 73 69 7a  |ash(sparea3%,siz|
00000d20  25 2c 22 4f 4e 45 2e 73  70 66 69 6c 65 73 2e 6d  |%,"ONE.spfiles.m|
00000d30  61 70 31 22 29 0d 03 48  3a 6d 61 73 6b 73 70 25  |ap1")..H:masksp%|
00000d40  28 30 29 3d 34 3a 6d 61  73 6b 73 70 24 28 30 29  |(0)=4:masksp$(0)|
00000d50  3d 22 6d 61 70 31 22 3a  f2 6d 61 73 6b 73 70 72  |="map1":.maskspr|
00000d60  69 74 65 28 73 70 61 72  65 61 33 25 2c 31 29 0d  |ite(sparea3%,1).|
00000d70  03 52 3b c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |.R;.. "OS_Byte",|
00000d80  31 31 32 2c 32 3a ef 31  38 2c 30 2c 33 3a ef 32  |112,2:.18,0,3:.2|
00000d90  35 2c 34 2c 30 3b 30 3b  3a ef 32 35 2c 31 30 31  |5,4,0;0;:.25,101|
00000da0  2c 31 32 37 38 3b 39 35  38 3b 0d 03 5c 3b c8 99  |,1278;958;..\;..|
00000db0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000dc0  33 34 2c 73 70 61 72 65  61 33 25 2c 22 6d 61 70  |34,sparea3%,"map|
00000dd0  31 22 2c 32 37 38 2c 32  30 30 2c 38 2c 73 63 61  |1",278,200,8,sca|
00000de0  6c 65 25 2c 30 0d 03 66  62 c8 99 22 4f 53 5f 53  |le%,0..fb.."OS_S|
00000df0  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 62 75  |priteOp",&134,bu|
00000e00  74 61 72 65 61 25 2c 22  65 6c 66 68 65 61 64 30  |tarea%,"elfhead0|
00000e10  22 2c 32 30 2c 35 36 2c  38 2c 73 63 61 6c 65 25  |",20,56,8,scale%|
00000e20  2c 30 3a f2 73 70 65 65  63 68 62 6f 78 28 32 34  |,0:.speechbox(24|
00000e30  30 2c 38 2c 38 32 30 2c  31 30 38 2c 31 2c 2d 31  |0,8,820,108,1,-1|
00000e40  2c 34 38 2c 2d 31 29 0d  03 70 51 75 73 75 61 6c  |,48,-1)..pQusual|
00000e50  70 6f 73 25 3d 2d 31 3a  f2 77 6f 72 64 73 5f 72  |pos%=-1:.words_r|
00000e60  65 61 64 28 31 2c 22 30  33 22 29 3a f2 77 6f 72  |ead(1,"03"):.wor|
00000e70  64 73 5f 73 61 79 28 6f  6e 24 2b 22 53 68 61 6c  |ds_say(on$+"Shal|
00000e80  6c 20 22 2b 6f 66 66 24  2b 22 77 65 20 67 6f 20  |l "+off$+"we go |
00000e90  69 6e 3f 22 2c 22 22 29  0d 03 7a 2a f2 6d 65 72  |in?","")..z*.mer|
00000ea0  67 65 73 63 72 32 31 28  34 29 3a f2 62 6d 79 6e  |gescr21(4):.bmyn|
00000eb0  28 31 30 38 30 2c 31 32  2c 26 30 38 2c 2d 31 2c  |(1080,12,&08,-1,|
00000ec0  30 29 0d 03 84 10 e7 63  68 6f 73 65 6e 25 3d 30  |0).....chosen%=0|
00000ed0  20 8c 0d 03 8e 16 20 67  72 69 64 78 25 3d 34 3a  | ..... gridx%=4:|
00000ee0  67 72 69 64 79 25 3d 32  0d 03 98 63 20 62 75 74  |gridy%=2...c but|
00000ef0  63 6f 6c 25 28 29 3d 30  3a 66 6c 69 70 25 3d 30  |col%()=0:flip%=0|
00000f00  3a 62 75 74 77 61 6c 6b  25 28 30 29 3d 39 3a 62  |:butwalk%(0)=9:b|
00000f10  75 74 77 61 6c 6b 25 28  31 29 3d 38 3a 62 75 74  |utwalk%(1)=8:but|
00000f20  77 61 6c 6b 25 28 32 29  3d 38 3a 62 75 74 77 61  |walk%(2)=8:butwa|
00000f30  6c 6b 25 28 33 29 3d 32  31 3a 64 69 72 6e 25 3d  |lk%(3)=21:dirn%=|
00000f40  2d 31 3a 77 61 6c 6b 25  3d 2d 31 0d 03 a2 44 20  |-1:walk%=-1...D |
00000f50  f2 6c 6f 61 64 6d 61 70  62 75 74 73 28 73 69 7a  |.loadmapbuts(siz|
00000f60  25 29 3a f2 6d 61 6b 65  6d 61 70 28 2d 31 2c 2d  |%):.makemap(-1,-|
00000f70  31 2c 2d 31 29 3a f2 6d  65 72 67 65 73 63 72 32  |1,-1):.mergescr2|
00000f80  31 28 34 29 3a f2 73 6f  72 74 6f 75 74 68 30 0d  |1(4):.sortouth0.|
00000f90  03 ac 05 cc 0d 03 b6 4b  20 c8 99 20 22 4f 53 5f  |.......K .. "OS_|
00000fa0  42 79 74 65 22 2c 31 31  32 2c 32 3a ef 31 38 2c  |Byte",112,2:.18,|
00000fb0  30 2c 33 3a ef 32 35 2c  34 2c 30 3b 30 3b 3a ef  |0,3:.25,4,0;0;:.|
00000fc0  32 35 2c 31 30 31 2c 31  32 37 38 3b 31 39 36 3b  |25,101,1278;196;|
00000fd0  3a f2 6d 65 72 67 65 73  63 72 32 31 28 34 29 0d  |:.mergescr21(4).|
00000fe0  03 c0 0c 20 f2 69 6e 63  61 76 65 0d 03 ca 05 cd  |... .incave.....|
00000ff0  0d 03 d4 05 e1 0d 03 de  04 0d 03 e8 0c dd f2 69  |...............i|
00001000  6e 63 61 76 65 0d 03 f2  25 f2 6c 6f 61 64 65 6c  |ncave...%.loadel|
00001010  66 3a f2 6c 6f 61 64 65  6c 66 73 3a f2 6c 6f 61  |f:.loadelfs:.loa|
00001020  64 74 75 6e 6e 65 6c 28  30 29 0d 03 fc 3b c8 99  |dtunnel(0)...;..|
00001030  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 32 2c 32  | "OS_Byte",112,2|
00001040  3a ef 31 38 2c 30 2c 33  3a ef 32 35 2c 34 2c 30  |:.18,0,3:.25,4,0|
00001050  3b 30 3b 3a ef 32 35 2c  31 30 31 2c 31 32 37 38  |;0;:.25,101,1278|
00001060  3b 39 35 38 3b 0d 04 06  19 f2 6d 61 6b 65 74 75  |;958;.....maketu|
00001070  6e 6e 65 6c 28 31 32 38  30 2c 30 2c 30 29 0d 04  |nnel(1280,0,0)..|
00001080  10 12 f2 6d 65 72 67 65  73 63 72 32 31 28 36 29  |...mergescr21(6)|
00001090  0d 04 1a 6e 73 65 65 25  3d 31 3a 64 6f 25 3d 32  |...nsee%=1:do%=2|
000010a0  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
000010b0  33 2c 73 65 65 25 3a c8  99 20 22 4f 53 5f 42 79  |3,see%:.. "OS_By|
000010c0  74 65 22 2c 31 31 32 2c  64 6f 25 3a 6c 25 3d 2d  |te",112,do%:l%=-|
000010d0  31 3a 6b 25 3d 2d 31 3a  6a 25 3d 2d 35 34 36 3a  |1:k%=-1:j%=-546:|
000010e0  6c 61 73 74 74 69 6d 65  25 3d 91 2d 33 30 3a 64  |lasttime%=.-30:d|
000010f0  72 69 70 74 69 6d 65 25  3d 91 2b 32 30 30 0d 04  |riptime%=.+200..|
00001100  24 18 f4 20 77 61 6c 6b  20 61 63 72 6f 73 73 20  |$.. walk across |
00001110  73 63 72 65 65 6e 0d 04  2e 05 f5 0d 04 38 13 20  |screen.......8. |
00001120  f2 63 68 65 63 6b 6b 65  79 65 76 65 6e 74 0d 04  |.checkkeyevent..|
00001130  42 23 20 6b 25 3d 28 6b  25 2b 31 29 83 34 3a 6c  |B# k%=(k%+1).4:l|
00001140  25 3d 28 6c 25 2b 31 29  83 38 3a 6a 25 2b 3d 32  |%=(l%+1).8:j%+=2|
00001150  36 0d 04 4c 2b 20 ef 31  38 2c 30 2c 33 3a ef 32  |6..L+ .18,0,3:.2|
00001160  35 2c 34 2c 30 3b 33 37  36 3b 3a ef 32 35 2c 31  |5,4,0;376;:.25,1|
00001170  30 31 2c 31 32 37 38 3b  37 35 32 3b 0d 04 56 18  |01,1278;752;..V.|
00001180  20 f2 65 6c 66 28 6a 25  2b 31 33 30 2c 33 37 32  | .elf(j%+130,372|
00001190  2c 6b 25 29 0d 04 60 27  20 f2 65 6c 66 73 28 6a  |,k%)..`' .elfs(j|
000011a0  25 2c 33 37 36 2c 6c 25  2c 6a 25 2b 31 38 32 2b  |%,376,l%,j%+182+|
000011b0  31 38 32 2c 33 37 36 2c  6c 25 29 0d 04 6a 17 20  |182,376,l%)..j. |
000011c0  f5 3a fd 20 91 3e 6c 61  73 74 74 69 6d 65 25 2b  |.:. .>lasttime%+|
000011d0  32 30 0d 04 74 0c 20 e7  6b 25 3d 31 20 8c 0d 04  |20..t. .k%=1 ...|
000011e0  7e 2a 20 20 f2 63 61 63  68 65 73 6f 75 6e 64 28  |~*  .cachesound(|
000011f0  22 66 78 73 74 65 70 22  2c 31 29 3a d4 20 31 2c  |"fxstep",1):. 1,|
00001200  26 31 37 46 2c 31 2c 31  0d 04 88 06 20 cc 0d 04  |&17F,1,1.... ...|
00001210  92 56 20 20 f2 63 61 63  68 65 73 6f 75 6e 64 28  |.V  .cachesound(|
00001220  22 66 78 64 72 69 70 22  2b c3 28 b3 28 33 29 29  |"fxdrip"+.(.(3))|
00001230  2c 31 29 3a e7 91 3e 64  72 69 70 74 69 6d 65 25  |,1):..>driptime%|
00001240  3a d4 20 31 2c 26 31 37  46 2c 31 2c 31 3a 64 72  |:. 1,&17F,1,1:dr|
00001250  69 70 74 69 6d 65 25 3d  91 2b 31 30 30 2b b3 28  |iptime%=.+100+.(|
00001260  32 30 30 29 0d 04 9c 06  20 cd 0d 04 a6 5e 20 73  |200).... ....^ s|
00001270  65 65 25 3d 25 31 30 30  3e 3e 3e 73 65 65 25 3a  |ee%=%100>>>see%:|
00001280  64 6f 25 3d 25 31 30 30  3e 3e 3e 64 6f 25 3a c8  |do%=%100>>>do%:.|
00001290  96 3a c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |.:.. "OS_Byte",1|
000012a0  31 33 2c 73 65 65 25 3a  c8 99 20 22 4f 53 5f 42  |13,see%:.. "OS_B|
000012b0  79 74 65 22 2c 31 31 32  2c 64 6f 25 3a 6c 61 73  |yte",112,do%:las|
000012c0  74 74 69 6d 65 25 3d 91  0d 04 b0 0e fd 20 6a 25  |ttime%=...... j%|
000012d0  3e 3d 31 32 38 30 0d 04  ba 16 f2 73 63 72 63 6f  |>=1280.....scrco|
000012e0  70 79 28 73 65 65 25 2c  64 6f 25 29 0d 04 c4 10  |py(see%,do%)....|
000012f0  73 69 7a 25 3d 37 36 2a  31 30 32 34 0d 04 ce 5a  |siz%=76*1024...Z|
00001300  64 69 72 6e 25 3d 33 3a  67 72 69 64 78 25 3d 34  |dirn%=3:gridx%=4|
00001310  3a 67 72 69 64 79 25 3d  35 3a 77 61 6c 6b 25 3d  |:gridy%=5:walk%=|
00001320  33 3a 73 74 65 70 25 3d  31 32 3a 6d 6f 76 65 78  |3:step%=12:movex|
00001330  25 3d 30 3a 6d 6f 76 65  79 25 3d 30 3a f2 6c 6f  |%=0:movey%=0:.lo|
00001340  61 64 6d 61 70 28 73 70  61 72 65 61 73 69 7a 25  |admap(spareasiz%|
00001350  2d 73 69 7a 25 29 0d 04  d8 2d f2 6d 61 6b 65 6d  |-siz%)...-.makem|
00001360  61 70 28 30 2c 30 2c 2d  31 29 3a f2 6d 65 72 67  |ap(0,0,-1):.merg|
00001370  65 73 63 72 32 31 28 34  29 3a f2 77 61 69 74 28  |escr21(4):.wait(|
00001380  35 30 29 0d 04 e2 12 6c  61 73 74 74 69 6d 65 25  |50)....lasttime%|
00001390  3d 91 2d 33 30 0d 04 ec  16 f4 20 6d 61 70 20 6d  |=.-30..... map m|
000013a0  6f 76 65 20 70 6f 69 6e  74 65 72 0d 04 f6 30 6d  |ove pointer...0m|
000013b0  70 6f 73 25 3d 36 30 34  3a 61 6e 69 6d 25 3d 26  |pos%=604:anim%=&|
000013c0  32 30 30 30 30 30 3a f2  62 75 74 74 6f 6e 6c 6f  |200000:.buttonlo|
000013d0  6f 70 28 61 6e 69 6d 25  2c 30 29 0d 05 00 25 f2  |op(anim%,0)...%.|
000013e0  6c 6f 61 64 65 6c 66 3a  f2 6c 6f 61 64 65 6c 66  |loadelf:.loadelf|
000013f0  73 3a f2 6c 6f 61 64 74  75 6e 6e 65 6c 28 30 29  |s:.loadtunnel(0)|
00001400  0d 05 0a 3b c8 99 20 22  4f 53 5f 42 79 74 65 22  |...;.. "OS_Byte"|
00001410  2c 31 31 32 2c 32 3a ef  31 38 2c 30 2c 33 3a ef  |,112,2:.18,0,3:.|
00001420  32 35 2c 34 2c 30 3b 30  3b 3a ef 32 35 2c 31 30  |25,4,0;0;:.25,10|
00001430  31 2c 31 32 37 38 3b 39  35 38 3b 0d 05 14 18 f2  |1,1278;958;.....|
00001440  6d 61 6b 65 74 75 6e 6e  65 6c 28 33 36 30 2c 30  |maketunnel(360,0|
00001450  2c 30 29 0d 05 1e 12 f2  6d 65 72 67 65 73 63 72  |,0).....mergescr|
00001460  32 31 28 36 29 0d 05 28  5e 73 65 65 25 3d 31 3a  |21(6)..(^see%=1:|
00001470  64 6f 25 3d 32 3a c8 99  20 22 4f 53 5f 42 79 74  |do%=2:.. "OS_Byt|
00001480  65 22 2c 31 31 33 2c 73  65 65 25 3a c8 99 20 22  |e",113,see%:.. "|
00001490  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 64 6f 25  |OS_Byte",112,do%|
000014a0  3a 6c 25 3d 2d 31 3a 6b  25 3d 2d 31 3a 6a 25 3d  |:l%=-1:k%=-1:j%=|
000014b0  2d 35 34 36 3a 6c 61 73  74 74 69 6d 65 25 3d 91  |-546:lasttime%=.|
000014c0  2d 33 30 0d 05 32 18 f4  20 77 61 6c 6b 20 6f 6e  |-30..2.. walk on|
000014d0  74 6f 20 74 72 61 70 64  6f 6f 72 0d 05 3c 05 f5  |to trapdoor..<..|
000014e0  0d 05 46 13 20 f2 63 68  65 63 6b 6b 65 79 65 76  |..F. .checkkeyev|
000014f0  65 6e 74 0d 05 50 23 20  6b 25 3d 28 6b 25 2b 31  |ent..P# k%=(k%+1|
00001500  29 83 34 3a 6c 25 3d 28  6c 25 2b 31 29 83 38 3a  |).4:l%=(l%+1).8:|
00001510  6a 25 2b 3d 32 36 0d 05  5a 2b 20 ef 31 38 2c 30  |j%+=26..Z+ .18,0|
00001520  2c 33 3a ef 32 35 2c 34  2c 30 3b 33 37 36 3b 3a  |,3:.25,4,0;376;:|
00001530  ef 32 35 2c 31 30 31 2c  31 30 30 30 3b 37 35 32  |.25,101,1000;752|
00001540  3b 0d 05 64 18 20 f2 65  6c 66 28 6a 25 2b 31 33  |;..d. .elf(j%+13|
00001550  30 2c 33 37 32 2c 6b 25  29 0d 05 6e 27 20 f2 65  |0,372,k%)..n' .e|
00001560  6c 66 73 28 6a 25 2c 33  37 36 2c 6c 25 2c 6a 25  |lfs(j%,376,l%,j%|
00001570  2b 31 38 32 2b 31 38 32  2c 33 37 36 2c 6c 25 29  |+182+182,376,l%)|
00001580  0d 05 78 17 20 f5 3a fd  20 91 3e 6c 61 73 74 74  |..x. .:. .>lastt|
00001590  69 6d 65 25 2b 32 30 0d  05 82 0c 20 e7 6b 25 3d  |ime%+20.... .k%=|
000015a0  31 20 8c 0d 05 8c 2a 20  20 f2 63 61 63 68 65 73  |1 ....*  .caches|
000015b0  6f 75 6e 64 28 22 66 78  73 74 65 70 22 2c 31 29  |ound("fxstep",1)|
000015c0  3a d4 20 31 2c 26 31 37  46 2c 31 2c 31 0d 05 96  |:. 1,&17F,1,1...|
000015d0  06 20 cc 0d 05 a0 56 20  20 f2 63 61 63 68 65 73  |. ....V  .caches|
000015e0  6f 75 6e 64 28 22 66 78  64 72 69 70 22 2b c3 28  |ound("fxdrip"+.(|
000015f0  b3 28 33 29 29 2c 31 29  3a e7 91 3e 64 72 69 70  |.(3)),1):..>drip|
00001600  74 69 6d 65 25 3a d4 20  31 2c 26 31 37 46 2c 31  |time%:. 1,&17F,1|
00001610  2c 31 3a 64 72 69 70 74  69 6d 65 25 3d 91 2b 31  |,1:driptime%=.+1|
00001620  30 30 2b b3 28 32 30 30  29 0d 05 aa 06 20 cd 0d  |00+.(200).... ..|
00001630  05 b4 5e 20 73 65 65 25  3d 25 31 30 30 3e 3e 3e  |..^ see%=%100>>>|
00001640  73 65 65 25 3a 64 6f 25  3d 25 31 30 30 3e 3e 3e  |see%:do%=%100>>>|
00001650  64 6f 25 3a c8 96 3a c8  99 20 22 4f 53 5f 42 79  |do%:..:.. "OS_By|
00001660  74 65 22 2c 31 31 33 2c  73 65 65 25 3a c8 99 20  |te",113,see%:.. |
00001670  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c 64 6f  |"OS_Byte",112,do|
00001680  25 3a 6c 61 73 74 74 69  6d 65 25 3d 91 0d 05 be  |%:lasttime%=....|
00001690  12 fd 20 6a 25 3e 3d 28  34 33 38 2d 32 36 29 0d  |.. j%>=(438-26).|
000016a0  05 c8 2a ef 31 38 2c 30  2c 33 3a ef 32 35 2c 34  |..*.18,0,3:.25,4|
000016b0  2c 30 3b 33 37 36 3b 3a  ef 32 35 2c 31 30 31 2c  |,0;376;:.25,101,|
000016c0  31 30 30 30 3b 37 35 32  3b 0d 05 d2 18 f2 6d 61  |1000;752;.....ma|
000016d0  6b 65 74 75 6e 6e 65 6c  28 33 36 30 2c 30 2c 30  |ketunnel(360,0,0|
000016e0  29 0d 05 dc 17 f2 65 6c  66 28 34 33 38 2b 31 33  |).....elf(438+13|
000016f0  30 2c 33 37 32 2c 33 29  0d 05 e6 26 f2 65 6c 66  |0,372,3)...&.elf|
00001700  73 28 34 33 38 2c 33 37  36 2c 38 2c 34 33 38 2b  |s(438,376,8,438+|
00001710  31 38 32 2b 31 38 32 2c  33 37 36 2c 38 29 0d 05  |182+182,376,8)..|
00001720  f0 16 f5 3a fd 20 91 3e  6c 61 73 74 74 69 6d 65  |...:. .>lasttime|
00001730  25 2b 32 30 0d 05 fa 5d  73 65 65 25 3d 25 31 30  |%+20...]see%=%10|
00001740  30 3e 3e 3e 73 65 65 25  3a 64 6f 25 3d 25 31 30  |0>>>see%:do%=%10|
00001750  30 3e 3e 3e 64 6f 25 3a  c8 96 3a c8 99 20 22 4f  |0>>>do%:..:.. "O|
00001760  53 5f 42 79 74 65 22 2c  31 31 33 2c 73 65 65 25  |S_Byte",113,see%|
00001770  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
00001780  32 2c 64 6f 25 3a 6c 61  73 74 74 69 6d 65 25 3d  |2,do%:lasttime%=|
00001790  91 0d 06 04 28 f2 73 63  72 63 6f 70 79 28 73 65  |....(.scrcopy(se|
000017a0  65 25 2c 64 6f 25 29 3a  c8 99 22 4f 53 5f 42 79  |e%,do%):.."OS_By|
000017b0  74 65 22 2c 31 31 32 2c  32 0d 06 0e 48 75 73 75  |te",112,2...Husu|
000017c0  61 6c 70 6f 73 25 3d 30  3a f2 77 6f 72 64 73 5f  |alpos%=0:.words_|
000017d0  62 6f 78 28 30 2c 22 30  30 22 2c 22 22 2c 22 57  |box(0,"00","","W|
000017e0  68 61 74 20 69 73 20 74  68 61 74 3f 22 2c 22 22  |hat is that?",""|
000017f0  2c 37 36 38 2c 37 35 36  2c 32 2c 30 2c 38 38 38  |,768,756,2,0,888|
00001800  29 0d 06 18 2e f2 6d 65  72 67 65 73 63 72 32 31  |).....mergescr21|
00001810  28 34 29 3a f2 62 6f 6f  6b 67 6f 6f 6e 28 31 30  |(4):.bookgoon(10|
00001820  38 30 2c 31 32 2c 26 30  31 2c 2d 31 2c 30 29 0d  |80,12,&01,-1,0).|
00001830  06 22 74 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |."t.. "OS_Byte",|
00001840  31 31 32 2c 32 3a c8 99  22 4f 53 5f 53 70 72 69  |112,2:.."OS_Spri|
00001850  74 65 4f 70 22 2c 26 31  32 32 2c 73 70 61 72 65  |teOp",&122,spare|
00001860  61 25 2c 22 62 6f 78 62  67 22 2c 37 36 38 2c 37  |a%,"boxbg",768,7|
00001870  35 36 2c 38 3a c8 99 22  4f 53 5f 53 70 72 69 74  |56,8:.."OS_Sprit|
00001880  65 4f 70 22 2c 26 31 32  32 2c 73 70 61 72 65 61  |eOp",&122,sparea|
00001890  25 2c 22 61 72 72 62 67  22 2c 38 38 38 2c 36 34  |%,"arrbg",888,64|
000018a0  38 2c 38 0d 06 2c 5a f2  6d 65 72 67 65 73 63 72  |8,8..,Z.mergescr|
000018b0  32 31 28 34 29 3a 73 65  65 25 3d 31 3a 64 6f 25  |21(4):see%=1:do%|
000018c0  3d 32 3a c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |=2:.. "OS_Byte",|
000018d0  31 31 33 2c 73 65 65 25  3a c8 99 20 22 4f 53 5f  |113,see%:.. "OS_|
000018e0  42 79 74 65 22 2c 31 31  32 2c 64 6f 25 3a 6c 61  |Byte",112,do%:la|
000018f0  73 74 74 69 6d 65 25 3d  91 2d 32 35 30 0d 06 36  |sttime%=.-250..6|
00001900  1d 66 61 6c 6c 79 25 3d  33 35 32 3a 68 61 74 79  |.fally%=352:haty|
00001910  25 3d 36 36 30 3a 6a 25  3d 30 0d 06 40 14 f4 20  |%=660:j%=0..@.. |
00001920  6c 65 76 65 72 20 61 6e  64 20 66 61 6c 6c 0d 06  |lever and fall..|
00001930  4a 05 f5 0d 06 54 13 20  f2 63 68 65 63 6b 6b 65  |J....T. .checkke|
00001940  79 65 76 65 6e 74 0d 06  5e 0d 20 e7 6a 25 3c 3d  |yevent..^. .j%<=|
00001950  34 20 8c 0d 06 68 4a 20  20 ef 32 36 3a ef 31 38  |4 ...hJ  .26:.18|
00001960  2c 30 2c 33 3a ef 32 35  2c 34 2c 31 30 30 30 3b  |,0,3:.25,4,1000;|
00001970  33 37 36 3b 3a ef 32 35  2c 31 30 31 2c 31 32 37  |376;:.25,101,127|
00001980  38 3b 37 35 32 3b 3a ef  32 34 2c 31 30 30 30 3b  |8;752;:.24,1000;|
00001990  33 37 36 3b 31 32 37 38  3b 37 35 32 3b 0d 06 72  |376;1278;752;..r|
000019a0  9b 20 20 e7 6a 25 3d 34  3a c8 99 22 4f 53 5f 53  |.  .j%=4:.."OS_S|
000019b0  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
000019c0  61 72 65 61 25 2c 22 6c  65 76 65 72 33 22 2c 33  |area%,"lever3",3|
000019d0  36 30 2b 6c 65 76 65 72  78 25 28 33 29 2c 33 37  |60+leverx%(3),37|
000019e0  36 2c 38 2c 73 63 61 6c  65 25 2c 30 3a 8b 3a c8  |6,8,scale%,0:.:.|
000019f0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00001a00  31 33 34 2c 73 70 61 72  65 61 25 2c 22 6c 65 76  |134,sparea%,"lev|
00001a10  65 72 22 2b c3 28 6a 25  29 2c 33 36 30 2b 6c 65  |er"+.(j%),360+le|
00001a20  76 65 72 78 25 28 6a 25  29 2c 33 37 36 2c 38 2c  |verx%(j%),376,8,|
00001a30  73 63 61 6c 65 25 2c 30  0d 06 7c 06 20 cd 0d 06  |scale%,0..|. ...|
00001a40  86 0c 20 e7 6a 25 3d 32  20 8c 0d 06 90 3d 20 20  |.. .j%=2 ....=  |
00001a50  ef 32 34 2c 33 36 30 3b  30 3b 39 36 30 3b 39 35  |.24,360;0;960;95|
00001a60  38 3b 3a ef 31 38 2c 30  2c 33 3a ef 32 35 2c 34  |8;:.18,0,3:.25,4|
00001a70  2c 30 3b 30 3b 3a ef 32  35 2c 31 30 31 2c 31 32  |,0;0;:.25,101,12|
00001a80  37 38 3b 37 38 30 3b 0d  06 9a 51 20 20 f2 6d 61  |78;780;...Q  .ma|
00001a90  6b 65 74 75 6e 6e 65 6c  28 33 36 30 2c 31 2c 32  |ketunnel(360,1,2|
00001aa0  29 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |):.."OS_SpriteOp|
00001ab0  22 2c 26 31 33 34 2c 73  70 61 72 65 61 25 2c 22  |",&134,sparea%,"|
00001ac0  66 61 6c 6c 22 2c 34 34  38 2c 33 35 32 2c 38 2c  |fall",448,352,8,|
00001ad0  73 63 61 6c 65 25 2c 30  0d 06 a4 73 20 20 c8 99  |scale%,0...s  ..|
00001ae0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00001af0  33 34 2c 73 70 61 72 65  61 25 2c 22 68 61 74 30  |34,sparea%,"hat0|
00001b00  22 2c 34 36 32 2c 36 36  30 2c 38 2c 73 63 61 6c  |",462,660,8,scal|
00001b10  65 25 2c 30 3a c8 99 22  4f 53 5f 53 70 72 69 74  |e%,0:.."OS_Sprit|
00001b20  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
00001b30  25 2c 22 68 61 74 30 22  2c 37 32 38 2c 36 35 36  |%,"hat0",728,656|
00001b40  2c 38 2c 73 63 61 6c 65  25 2c 30 0d 06 ae 71 20  |,8,scale%,0...q |
00001b50  20 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  | .."OS_SpriteOp"|
00001b60  2c 26 31 33 34 2c 73 70  61 72 65 61 25 2c 22 65  |,&134,sparea%,"e|
00001b70  61 72 22 2c 34 39 32 2c  36 36 30 2c 38 2c 73 63  |ar",492,660,8,sc|
00001b80  61 6c 65 25 2c 30 3a c8  99 22 4f 53 5f 53 70 72  |ale%,0:.."OS_Spr|
00001b90  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
00001ba0  65 61 25 2c 22 65 61 72  22 2c 37 35 38 2c 36 35  |ea%,"ear",758,65|
00001bb0  36 2c 38 2c 73 63 61 6c  65 25 2c 30 0d 06 b8 06  |6,8,scale%,0....|
00001bc0  20 cd 0d 06 c2 15 20 e7  28 6a 25 3d 33 29 84 28  | ..... .(j%=3).(|
00001bd0  6a 25 3d 34 29 20 8c 0d  06 cc 27 20 20 66 61 6c  |j%=4) ....'  fal|
00001be0  6c 79 25 2d 3d 28 31 32  2a 6a 25 29 3a 68 61 74  |ly%-=(12*j%):hat|
00001bf0  79 25 2d 3d 28 38 2a 28  6a 25 2d 32 29 29 0d 06  |y%-=(8*(j%-2))..|
00001c00  d6 3d 20 20 ef 32 34 2c  33 36 30 3b 30 3b 39 36  |.=  .24,360;0;96|
00001c10  30 3b 39 35 38 3b 3a ef  31 38 2c 30 2c 33 3a ef  |0;958;:.18,0,3:.|
00001c20  32 35 2c 34 2c 30 3b 30  3b 3a ef 32 35 2c 31 30  |25,4,0;0;:.25,10|
00001c30  31 2c 31 32 37 38 3b 39  35 36 3b 0d 06 e0 54 20  |1,1278;956;...T |
00001c40  20 f2 6d 61 6b 65 74 75  6e 6e 65 6c 28 33 36 30  | .maketunnel(360|
00001c50  2c 33 2c 33 29 3a c8 99  22 4f 53 5f 53 70 72 69  |,3,3):.."OS_Spri|
00001c60  74 65 4f 70 22 2c 26 31  33 34 2c 73 70 61 72 65  |teOp",&134,spare|
00001c70  61 25 2c 22 66 61 6c 6c  22 2c 34 34 38 2c 66 61  |a%,"fall",448,fa|
00001c80  6c 6c 79 25 2c 38 2c 73  63 61 6c 65 25 2c 30 0d  |lly%,8,scale%,0.|
00001c90  06 ea 8f 20 20 c8 99 22  4f 53 5f 53 70 72 69 74  |...  .."OS_Sprit|
00001ca0  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
00001cb0  25 2c 22 68 61 74 22 2b  c3 28 31 2b 28 6a 25 83  |%,"hat"+.(1+(j%.|
00001cc0  32 29 29 2c 34 36 32 2c  68 61 74 79 25 2c 38 2c  |2)),462,haty%,8,|
00001cd0  73 63 61 6c 65 25 2c 30  3a c8 99 22 4f 53 5f 53  |scale%,0:.."OS_S|
00001ce0  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
00001cf0  61 72 65 61 25 2c 22 68  61 74 22 2b c3 28 31 2b  |area%,"hat"+.(1+|
00001d00  28 6a 25 83 32 29 29 2c  37 32 38 2c 68 61 74 79  |(j%.2)),728,haty|
00001d10  25 2d 34 2c 38 2c 73 63  61 6c 65 25 2c 30 0d 06  |%-4,8,scale%,0..|
00001d20  f4 06 20 cd 0d 06 fe 0d  20 e7 6a 25 3e 3d 35 20  |.. ..... .j%>=5 |
00001d30  8c 0d 07 08 27 20 20 66  61 6c 6c 79 25 2d 3d 28  |....'  fally%-=(|
00001d40  31 32 2a 6a 25 29 3a 68  61 74 79 25 2d 3d 28 38  |12*j%):haty%-=(8|
00001d50  2a 28 6a 25 2d 32 29 29  0d 07 12 2f 20 20 ef 32  |*(j%-2)).../  .2|
00001d60  36 3a ef 31 38 2c 30 2c  33 3a ef 32 35 2c 34 2c  |6:.18,0,3:.25,4,|
00001d70  34 34 34 3b 30 3b 3a ef  32 35 2c 31 30 31 2c 38  |444;0;:.25,101,8|
00001d80  36 36 3b 37 38 30 3b 0d  07 1c 40 20 20 c8 99 22  |66;780;...@  .."|
00001d90  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00001da0  34 2c 73 70 61 72 65 61  25 2c 22 74 72 61 70 33  |4,sparea%,"trap3|
00001db0  22 2c 33 36 30 2b 34 34  2c 31 31 32 2c 38 2c 73  |",360+44,112,8,s|
00001dc0  63 61 6c 65 25 2c 30 0d  07 26 3f 20 20 c8 99 22  |cale%,0..&?  .."|
00001dd0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00001de0  34 2c 73 70 61 72 65 61  25 2c 22 66 61 6c 6c 22  |4,sparea%,"fall"|
00001df0  2c 34 34 38 2c 66 61 6c  6c 79 25 2c 38 2c 73 63  |,448,fally%,8,sc|
00001e00  61 6c 65 25 2c 30 0d 07  30 8f 20 20 c8 99 22 4f  |ale%,0..0.  .."O|
00001e10  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
00001e20  2c 73 70 61 72 65 61 25  2c 22 68 61 74 22 2b c3  |,sparea%,"hat"+.|
00001e30  28 31 2b 28 6a 25 83 32  29 29 2c 34 36 32 2c 68  |(1+(j%.2)),462,h|
00001e40  61 74 79 25 2c 38 2c 73  63 61 6c 65 25 2c 30 3a  |aty%,8,scale%,0:|
00001e50  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00001e60  26 31 33 34 2c 73 70 61  72 65 61 25 2c 22 68 61  |&134,sparea%,"ha|
00001e70  74 22 2b c3 28 31 2b 28  6a 25 83 32 29 29 2c 37  |t"+.(1+(j%.2)),7|
00001e80  32 38 2c 68 61 74 79 25  2d 34 2c 38 2c 73 63 61  |28,haty%-4,8,sca|
00001e90  6c 65 25 2c 30 0d 07 3a  06 20 cd 0d 07 44 0c 20  |le%,0..:. ...D. |
00001ea0  e7 6a 25 3d 32 20 8c 0d  07 4e 19 20 20 f5 3a fd  |.j%=2 ...N.  .:.|
00001eb0  20 91 3e 6c 61 73 74 74  69 6d 65 25 2b 31 35 30  | .>lasttime%+150|
00001ec0  0d 07 58 06 20 cc 0d 07  62 18 20 20 f5 3a fd 20  |..X. ...b.  .:. |
00001ed0  91 3e 6c 61 73 74 74 69  6d 65 25 2b 33 30 0d 07  |.>lasttime%+30..|
00001ee0  6c 06 20 cd 0d 07 76 0c  20 c8 8e 20 6a 25 20 ca  |l. ...v. .. j% .|
00001ef0  0d 07 80 2f 20 20 c9 20  32 3a f2 63 61 63 68 65  |.../  . 2:.cache|
00001f00  73 6f 75 6e 64 28 22 66  78 6c 65 76 65 72 22 2c  |sound("fxlever",|
00001f10  31 29 3a d4 20 31 2c 26  31 37 46 2c 31 2c 31 0d  |1):. 1,&17F,1,1.|
00001f20  07 8a 30 20 20 c9 20 33  3a f2 63 61 63 68 65 73  |..0  . 3:.caches|
00001f30  6f 75 6e 64 28 22 66 78  74 72 61 70 6f 70 22 2c  |ound("fxtrapop",|
00001f40  31 29 3a d4 20 31 2c 26  31 37 46 2c 31 2c 31 0d  |1):. 1,&17F,1,1.|
00001f50  07 94 2e 20 20 c9 20 35  3a f2 63 61 63 68 65 73  |...  . 5:.caches|
00001f60  6f 75 6e 64 28 22 66 78  73 6c 69 70 22 2c 31 29  |ound("fxslip",1)|
00001f70  3a d4 20 31 2c 26 31 37  46 2c 31 2c 31 0d 07 9e  |:. 1,&17F,1,1...|
00001f80  06 20 cb 0d 07 a8 5e 20  73 65 65 25 3d 25 31 30  |. ....^ see%=%10|
00001f90  30 3e 3e 3e 73 65 65 25  3a 64 6f 25 3d 25 31 30  |0>>>see%:do%=%10|
00001fa0  30 3e 3e 3e 64 6f 25 3a  c8 96 3a c8 99 20 22 4f  |0>>>do%:..:.. "O|
00001fb0  53 5f 42 79 74 65 22 2c  31 31 33 2c 73 65 65 25  |S_Byte",113,see%|
00001fc0  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
00001fd0  32 2c 64 6f 25 3a 6c 61  73 74 74 69 6d 65 25 3d  |2,do%:lasttime%=|
00001fe0  91 0d 07 b2 0a 20 6a 25  2b 3d 31 0d 07 bc 11 fd  |..... j%+=1.....|
00001ff0  20 68 61 74 79 25 3c 3d  2d 31 34 30 0d 07 c6 5d  | haty%<=-140...]|
00002000  f2 73 63 72 63 6f 70 79  28 73 65 65 25 2c 64 6f  |.scrcopy(see%,do|
00002010  25 29 3a 73 65 65 25 3d  31 3a 64 6f 25 3d 32 3a  |%):see%=1:do%=2:|
00002020  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 31 33  |.. "OS_Byte",113|
00002030  2c 73 65 65 25 3a c8 99  20 22 4f 53 5f 42 79 74  |,see%:.. "OS_Byt|
00002040  65 22 2c 31 31 32 2c 64  6f 25 3a 6c 61 73 74 74  |e",112,do%:lastt|
00002050  69 6d 65 25 3d 91 2d 33  30 0d 07 d0 34 f2 77 61  |ime%=.-30...4.wa|
00002060  69 74 28 35 30 29 3a f2  63 61 63 68 65 73 6f 75  |it(50):.cachesou|
00002070  6e 64 28 22 66 78 73 70  6c 61 73 68 22 2c 31 29  |nd("fxsplash",1)|
00002080  3a d4 20 31 2c 26 31 37  46 2c 31 2c 31 0d 07 da  |:. 1,&17F,1,1...|
00002090  13 f4 20 68 61 69 72 79  20 61 70 70 65 61 72 73  |.. hairy appears|
000020a0  0d 07 e4 14 e3 6a 25 3d  31 32 38 30 b8 31 31 38  |.....j%=1280.118|
000020b0  38 88 2d 34 0d 07 ee 13  20 f2 63 68 65 63 6b 6b  |8.-4.... .checkk|
000020c0  65 79 65 76 65 6e 74 0d  07 f8 2e 20 ef 31 38 2c  |eyevent.... .18,|
000020d0  30 2c 33 3a ef 32 35 2c  34 2c 31 31 38 38 3b 35  |0,3:.25,4,1188;5|
000020e0  32 34 3b 3a ef 32 35 2c  31 30 31 2c 31 32 37 38  |24;:.25,101,1278|
000020f0  3b 37 35 32 3b 0d 08 02  3a 20 c8 99 22 4f 53 5f  |;752;...: .."OS_|
00002100  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |SpriteOp",&134,s|
00002110  70 61 72 65 61 25 2c 22  68 65 61 64 22 2c 6a 25  |parea%,"head",j%|
00002120  2c 35 32 34 2c 38 2c 73  63 61 6c 65 25 2c 30 0d  |,524,8,scale%,0.|
00002130  08 0c 17 20 f5 3a fd 20  91 3e 6c 61 73 74 74 69  |... .:. .>lastti|
00002140  6d 65 25 2b 32 30 0d 08  16 5e 20 73 65 65 25 3d  |me%+20...^ see%=|
00002150  25 31 30 30 3e 3e 3e 73  65 65 25 3a 64 6f 25 3d  |%100>>>see%:do%=|
00002160  25 31 30 30 3e 3e 3e 64  6f 25 3a c8 96 3a c8 99  |%100>>>do%:..:..|
00002170  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 33 2c 73  | "OS_Byte",113,s|
00002180  65 65 25 3a c8 99 20 22  4f 53 5f 42 79 74 65 22  |ee%:.. "OS_Byte"|
00002190  2c 31 31 32 2c 64 6f 25  3a 6c 61 73 74 74 69 6d  |,112,do%:lasttim|
000021a0  65 25 3d 91 0d 08 20 05  ed 0d 08 2a 16 f2 73 63  |e%=... ....*..sc|
000021b0  72 63 6f 70 79 28 73 65  65 25 2c 64 6f 25 29 0d  |rcopy(see%,do%).|
000021c0  08 34 1b 4c 25 3d 31 30  35 30 3a 49 25 3d 31 3a  |.4.L%=1050:I%=1:|
000021d0  f2 63 68 61 69 6e 6e 65  78 74 0d 08 3e 05 e1 0d  |.chainnext..>...|
000021e0  08 48 04 0d 08 52 22 dd  f2 6d 61 6b 65 6d 69 6e  |.H...R"..makemin|
000021f0  65 28 74 72 61 70 25 2c  64 6f 6f 72 25 2c 6c 65  |e(trap%,door%,le|
00002200  76 65 72 25 29 0d 08 5c  a8 c8 99 22 4f 53 5f 53  |ver%)..\..."OS_S|
00002210  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
00002220  61 72 65 61 35 25 2c 22  74 72 61 63 6b 30 22 2c  |area5%,"track0",|
00002230  30 2c 30 2c 38 2c 73 63  61 6c 65 25 2c 30 3a c8  |0,0,8,scale%,0:.|
00002240  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00002250  31 33 34 2c 73 70 61 72  65 61 25 2c 22 74 72 61  |134,sparea%,"tra|
00002260  63 6b 31 22 2c 33 36 30  2c 30 2c 38 2c 73 63 61  |ck1",360,0,8,sca|
00002270  6c 65 25 2c 30 3a c8 99  22 4f 53 5f 53 70 72 69  |le%,0:.."OS_Spri|
00002280  74 65 4f 70 22 2c 26 31  33 34 2c 73 70 61 72 65  |teOp",&134,spare|
00002290  61 35 25 2c 22 74 72 61  63 6b 32 22 2c 39 36 30  |a5%,"track2",960|
000022a0  2c 30 2c 38 2c 73 63 61  6c 65 25 2c 30 0d 08 66  |,0,8,scale%,0..f|
000022b0  44 e7 74 72 61 70 25 3d  30 3a c8 99 22 4f 53 5f  |D.trap%=0:.."OS_|
000022c0  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |SpriteOp",&134,s|
000022d0  70 61 72 65 61 25 2c 22  74 72 61 70 30 22 2c 33  |parea%,"trap0",3|
000022e0  36 30 2c 32 39 36 2c 38  2c 73 63 61 6c 65 25 2c  |60,296,8,scale%,|
000022f0  30 0d 08 70 83 e7 74 72  61 70 25 3d 31 3a c8 99  |0..p..trap%=1:..|
00002300  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00002310  33 34 2c 73 70 61 72 65  61 25 2c 22 74 72 61 70  |34,sparea%,"trap|
00002320  31 22 2c 33 36 30 2b 31  36 2c 31 38 30 2c 38 2c  |1",360+16,180,8,|
00002330  73 63 61 6c 65 25 2c 30  3a c8 99 22 4f 53 5f 53  |scale%,0:.."OS_S|
00002340  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
00002350  61 72 65 61 25 2c 22 74  72 61 70 32 22 2c 33 36  |area%,"trap2",36|
00002360  30 2b 33 35 32 2c 31 38  30 2c 38 2c 73 63 61 6c  |0+352,180,8,scal|
00002370  65 25 2c 30 0d 08 7a 83  e7 74 72 61 70 25 3d 33  |e%,0..z..trap%=3|
00002380  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
00002390  2c 26 31 33 34 2c 73 70  61 72 65 61 25 2c 22 74  |,&134,sparea%,"t|
000023a0  72 61 70 33 22 2c 33 36  30 2b 34 34 2c 31 31 32  |rap3",360+44,112|
000023b0  2c 38 2c 73 63 61 6c 65  25 2c 30 3a c8 99 22 4f  |,8,scale%,0:.."O|
000023c0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
000023d0  2c 73 70 61 72 65 61 25  2c 22 74 72 61 70 34 22  |,sparea%,"trap4"|
000023e0  2c 33 36 30 2b 35 30 34  2c 31 31 32 2c 38 2c 73  |,360+504,112,8,s|
000023f0  63 61 6c 65 25 2c 30 0d  08 84 53 c8 99 22 4f 53  |cale%,0...S.."OS|
00002400  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00002410  73 70 61 72 65 61 25 2c  22 73 74 75 64 6f 6f 72  |sparea%,"studoor|
00002420  22 2b c3 28 64 6f 6f 72  25 29 2c 31 30 39 30 2b  |"+.(door%),1090+|
00002430  28 31 30 34 2a 64 6f 6f  72 25 29 2c 34 34 30 2c  |(104*door%),440,|
00002440  38 2c 73 63 61 6c 65 25  2c 30 0d 08 8e c4 e7 28  |8,scale%,0.....(|
00002450  6c 65 76 65 72 25 3d 30  29 84 28 6c 65 76 65 72  |lever%=0).(lever|
00002460  25 3d 33 29 3a c8 99 22  4f 53 5f 53 70 72 69 74  |%=3):.."OS_Sprit|
00002470  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
00002480  25 2c 22 73 74 6c 65 76  22 2b c3 28 6c 65 76 65  |%,"stlev"+.(leve|
00002490  72 25 29 2c 31 30 31 34  2c 35 32 30 2d 28 34 34  |r%),1014,520-(44|
000024a0  2a a8 28 6c 65 76 65 72  25 2f 32 29 29 2c 38 2c  |*.(lever%/2)),8,|
000024b0  73 63 61 6c 65 25 2c 30  3a 8b 3a c8 99 22 4f 53  |scale%,0:.:.."OS|
000024c0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
000024d0  73 70 61 72 65 61 25 2c  22 73 74 6c 65 76 22 2b  |sparea%,"stlev"+|
000024e0  c3 28 6c 65 76 65 72 25  29 2c 31 30 30 34 2c 35  |.(lever%),1004,5|
000024f0  32 30 2d 28 34 34 2a a8  28 6c 65 76 65 72 25 2f  |20-(44*.(lever%/|
00002500  32 29 29 2c 38 2c 73 63  61 6c 65 25 2c 30 0d 08  |2)),8,scale%,0..|
00002510  98 05 e1 0d 08 a2 04 0d  08 ac 04 0d 08 b6 0a dd  |................|
00002520  f2 6d 69 6e 65 0d 08 c0  26 f2 6c 6f 61 64 65 6c  |.mine...&.loadel|
00002530  66 3a f2 6c 6f 61 64 65  6c 66 73 3a f2 6c 6f 61  |f:.loadelfs:.loa|
00002540  64 74 75 6e 6e 65 6c 28  2d 31 29 0d 08 ca 16 c8  |dtunnel(-1).....|
00002550  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 32 2c  |. "OS_Byte",112,|
00002560  32 0d 08 d4 14 f2 6d 61  6b 65 6d 69 6e 65 28 30  |2.....makemine(0|
00002570  2c 30 2c 30 29 0d 08 de  1d f2 6d 65 72 67 65 73  |,0,0).....merges|
00002580  63 72 32 31 28 36 29 3a  f2 77 61 69 74 28 32 30  |cr21(6):.wait(20|
00002590  30 29 0d 08 e8 5e 73 65  65 25 3d 31 3a 64 6f 25  |0)...^see%=1:do%|
000025a0  3d 32 3a c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |=2:.. "OS_Byte",|
000025b0  31 31 33 2c 73 65 65 25  3a c8 99 20 22 4f 53 5f  |113,see%:.. "OS_|
000025c0  42 79 74 65 22 2c 31 31  32 2c 64 6f 25 3a 6c 25  |Byte",112,do%:l%|
000025d0  3d 2d 31 3a 6b 25 3d 2d  31 3a 6a 25 3d 2d 35 34  |=-1:k%=-1:j%=-54|
000025e0  36 3a 6c 61 73 74 74 69  6d 65 25 3d 91 2d 33 30  |6:lasttime%=.-30|
000025f0  0d 08 f2 1b f2 63 61 63  68 65 73 6f 75 6e 64 28  |.....cachesound(|
00002600  22 66 78 73 74 65 70 22  2c 31 29 0d 08 fc 18 f4  |"fxstep",1).....|
00002610  20 77 61 6c 6b 20 6f 6e  74 6f 20 74 72 61 70 64  | walk onto trapd|
00002620  6f 6f 72 0d 09 06 05 f5  0d 09 10 13 20 f2 63 68  |oor......... .ch|
00002630  65 63 6b 6b 65 79 65 76  65 6e 74 0d 09 1a 23 20  |eckkeyevent...# |
00002640  6b 25 3d 28 6b 25 2b 31  29 83 34 3a 6c 25 3d 28  |k%=(k%+1).4:l%=(|
00002650  6c 25 2b 31 29 83 38 3a  6a 25 2b 3d 32 36 0d 09  |l%+1).8:j%+=26..|
00002660  24 49 20 e7 28 6a 25 2d  38 30 29 3e 3d 30 20 8c  |$I .(j%-80)>=0 .|
00002670  3a ef 32 34 2c 6a 25 2d  38 30 3b 33 37 32 3b 6a  |:.24,j%-80;372;j|
00002680  25 2b 33 36 34 2b 31 36  38 3b 37 35 32 3b 3a 8b  |%+364+168;752;:.|
00002690  3a ef 32 34 2c 30 3b 33  37 32 3b 33 36 34 2b 31  |:.24,0;372;364+1|
000026a0  36 38 3b 37 35 32 3b 0d  09 2e 15 20 f2 6d 61 6b  |68;752;.... .mak|
000026b0  65 6d 69 6e 65 28 30 2c  30 2c 30 29 0d 09 38 18  |emine(0,0,0)..8.|
000026c0  20 f2 65 6c 66 28 6a 25  2b 31 33 30 2c 33 37 32  | .elf(j%+130,372|
000026d0  2c 6b 25 29 0d 09 42 27  20 f2 65 6c 66 73 28 6a  |,k%)..B' .elfs(j|
000026e0  25 2c 33 37 36 2c 6c 25  2c 6a 25 2b 31 38 32 2b  |%,376,l%,j%+182+|
000026f0  31 38 32 2c 33 37 36 2c  6c 25 29 0d 09 4c 17 20  |182,376,l%)..L. |
00002700  f5 3a fd 20 91 3e 6c 61  73 74 74 69 6d 65 25 2b  |.:. .>lasttime%+|
00002710  32 30 0d 09 56 17 20 e7  6b 25 3d 31 3a d4 20 31  |20..V. .k%=1:. 1|
00002720  2c 26 31 37 46 2c 31 2c  31 0d 09 60 5e 20 73 65  |,&17F,1,1..`^ se|
00002730  65 25 3d 25 31 30 30 3e  3e 3e 73 65 65 25 3a 64  |e%=%100>>>see%:d|
00002740  6f 25 3d 25 31 30 30 3e  3e 3e 64 6f 25 3a c8 96  |o%=%100>>>do%:..|
00002750  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
00002760  33 2c 73 65 65 25 3a c8  99 20 22 4f 53 5f 42 79  |3,see%:.. "OS_By|
00002770  74 65 22 2c 31 31 32 2c  64 6f 25 3a 6c 61 73 74  |te",112,do%:last|
00002780  74 69 6d 65 25 3d 91 0d  09 6a 12 fd 20 6a 25 3e  |time%=...j.. j%>|
00002790  3d 28 34 33 38 2d 32 36  29 0d 09 74 14 f2 6d 61  |=(438-26)..t..ma|
000027a0  6b 65 6d 69 6e 65 28 30  2c 30 2c 30 29 0d 09 7e  |kemine(0,0,0)..~|
000027b0  17 f2 65 6c 66 28 34 33  38 2b 31 33 30 2c 33 37  |..elf(438+130,37|
000027c0  32 2c 34 29 0d 09 88 26  f2 65 6c 66 73 28 34 33  |2,4)...&.elfs(43|
000027d0  38 2c 33 37 36 2c 38 2c  34 33 38 2b 31 38 32 2b  |8,376,8,438+182+|
000027e0  31 38 32 2c 33 37 36 2c  38 29 0d 09 92 16 f5 3a  |182,376,8).....:|
000027f0  fd 20 91 3e 6c 61 73 74  74 69 6d 65 25 2b 32 30  |. .>lasttime%+20|
00002800  0d 09 9c 5d 73 65 65 25  3d 25 31 30 30 3e 3e 3e  |...]see%=%100>>>|
00002810  73 65 65 25 3a 64 6f 25  3d 25 31 30 30 3e 3e 3e  |see%:do%=%100>>>|
00002820  64 6f 25 3a c8 96 3a c8  99 20 22 4f 53 5f 42 79  |do%:..:.. "OS_By|
00002830  74 65 22 2c 31 31 33 2c  73 65 65 25 3a c8 99 20  |te",113,see%:.. |
00002840  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c 64 6f  |"OS_Byte",112,do|
00002850  25 3a 6c 61 73 74 74 69  6d 65 25 3d 91 0d 09 a6  |%:lasttime%=....|
00002860  28 f2 73 63 72 63 6f 70  79 28 73 65 65 25 2c 64  |(.scrcopy(see%,d|
00002870  6f 25 29 3a c8 99 22 4f  53 5f 42 79 74 65 22 2c  |o%):.."OS_Byte",|
00002880  31 31 32 2c 32 0d 09 b0  48 75 73 75 61 6c 70 6f  |112,2...Husualpo|
00002890  73 25 3d 30 3a f2 77 6f  72 64 73 5f 62 6f 78 28  |s%=0:.words_box(|
000028a0  30 2c 22 30 30 22 2c 22  22 2c 22 57 68 61 74 20  |0,"00","","What |
000028b0  69 73 20 74 68 61 74 3f  22 2c 22 22 2c 37 36 38  |is that?","",768|
000028c0  2c 37 35 36 2c 32 2c 30  2c 38 38 38 29 0d 09 ba  |,756,2,0,888)...|
000028d0  2e f2 6d 65 72 67 65 73  63 72 32 31 28 34 29 3a  |..mergescr21(4):|
000028e0  f2 62 6f 6f 6b 67 6f 6f  6e 28 31 30 38 30 2c 31  |.bookgoon(1080,1|
000028f0  32 2c 26 30 31 2c 2d 31  2c 30 29 0d 09 c4 74 c8  |2,&01,-1,0)...t.|
00002900  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 32 2c  |. "OS_Byte",112,|
00002910  32 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |2:.."OS_SpriteOp|
00002920  22 2c 26 31 32 32 2c 73  70 61 72 65 61 25 2c 22  |",&122,sparea%,"|
00002930  62 6f 78 62 67 22 2c 37  36 38 2c 37 35 36 2c 38  |boxbg",768,756,8|
00002940  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
00002950  2c 26 31 32 32 2c 73 70  61 72 65 61 25 2c 22 61  |,&122,sparea%,"a|
00002960  72 72 62 67 22 2c 38 38  38 2c 36 34 38 2c 38 0d  |rrbg",888,648,8.|
00002970  09 ce 59 f2 6d 65 72 67  65 73 63 72 32 31 28 34  |..Y.mergescr21(4|
00002980  29 3a 73 65 65 25 3d 31  3a 64 6f 25 3d 32 3a c8  |):see%=1:do%=2:.|
00002990  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 33 2c  |. "OS_Byte",113,|
000029a0  73 65 65 25 3a c8 99 20  22 4f 53 5f 42 79 74 65  |see%:.. "OS_Byte|
000029b0  22 2c 31 31 32 2c 64 6f  25 3a 6c 61 73 74 74 69  |",112,do%:lastti|
000029c0  6d 65 25 3d 91 2d 33 30  0d 09 d8 1d 66 61 6c 6c  |me%=.-30....fall|
000029d0  79 25 3d 33 35 32 3a 68  61 74 79 25 3d 36 36 30  |y%=352:haty%=660|
000029e0  3a 6a 25 3d 30 0d 09 e2  14 f4 20 6c 65 76 65 72  |:j%=0..... lever|
000029f0  20 61 6e 64 20 66 61 6c  6c 0d 09 ec 05 f5 0d 09  | and fall.......|
00002a00  f6 13 20 f2 63 68 65 63  6b 6b 65 79 65 76 65 6e  |.. .checkkeyeven|
00002a10  74 0d 0a 00 0d 20 e7 6a  25 3c 3d 34 20 8c 0d 0a  |t.... .j%<=4 ...|
00002a20  0a 54 20 20 ef 32 34 2c  31 30 30 30 3b 34 37 36  |.T  .24,1000;476|
00002a30  3b 31 30 36 36 3b 35 38  36 3b 3a c8 99 22 4f 53  |;1066;586;:.."OS|
00002a40  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00002a50  73 70 61 72 65 61 35 25  2c 22 74 72 61 63 6b 32  |sparea5%,"track2|
00002a60  22 2c 39 36 30 2c 30 2c  38 2c 73 63 61 6c 65 25  |",960,0,8,scale%|
00002a70  2c 30 0d 0a 14 20 20 20  e7 6a 25 3d 34 3a 6c 65  |,0...   .j%=4:le|
00002a80  76 65 72 25 3d 33 3a 8b  3a 6c 65 76 65 72 25 3d  |ver%=3:.:lever%=|
00002a90  6a 25 0d 0a 1e c6 20 20  e7 28 6c 65 76 65 72 25  |j%....  .(lever%|
00002aa0  3d 30 29 84 28 6c 65 76  65 72 25 3d 33 29 3a c8  |=0).(lever%=3):.|
00002ab0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00002ac0  31 33 34 2c 73 70 61 72  65 61 25 2c 22 73 74 6c  |134,sparea%,"stl|
00002ad0  65 76 22 2b c3 28 6c 65  76 65 72 25 29 2c 31 30  |ev"+.(lever%),10|
00002ae0  31 34 2c 35 32 30 2d 28  34 34 2a a8 28 6c 65 76  |14,520-(44*.(lev|
00002af0  65 72 25 2f 32 29 29 2c  38 2c 73 63 61 6c 65 25  |er%/2)),8,scale%|
00002b00  2c 30 3a 8b 3a c8 99 22  4f 53 5f 53 70 72 69 74  |,0:.:.."OS_Sprit|
00002b10  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
00002b20  25 2c 22 73 74 6c 65 76  22 2b c3 28 6c 65 76 65  |%,"stlev"+.(leve|
00002b30  72 25 29 2c 31 30 30 34  2c 35 32 30 2d 28 34 34  |r%),1004,520-(44|
00002b40  2a a8 28 6c 65 76 65 72  25 2f 32 29 29 2c 38 2c  |*.(lever%/2)),8,|
00002b50  73 63 61 6c 65 25 2c 30  0d 0a 28 06 20 cd 0d 0a  |scale%,0..(. ...|
00002b60  32 0c 20 e7 6a 25 3d 32  20 8c 0d 0a 3c 18 20 20  |2. .j%=2 ...<.  |
00002b70  ef 32 34 2c 33 36 30 3b  30 3b 39 36 30 3b 39 35  |.24,360;0;960;95|
00002b80  38 3b 0d 0a 46 4d 20 20  f2 6d 61 6b 65 6d 69 6e  |8;..FM  .makemin|
00002b90  65 28 31 2c 30 2c 32 29  3a c8 99 22 4f 53 5f 53  |e(1,0,2):.."OS_S|
00002ba0  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
00002bb0  61 72 65 61 25 2c 22 66  61 6c 6c 22 2c 34 34 38  |area%,"fall",448|
00002bc0  2c 33 35 32 2c 38 2c 73  63 61 6c 65 25 2c 30 0d  |,352,8,scale%,0.|
00002bd0  0a 50 73 20 20 c8 99 22  4f 53 5f 53 70 72 69 74  |.Ps  .."OS_Sprit|
00002be0  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
00002bf0  25 2c 22 68 61 74 30 22  2c 34 36 32 2c 36 36 30  |%,"hat0",462,660|
00002c00  2c 38 2c 73 63 61 6c 65  25 2c 30 3a c8 99 22 4f  |,8,scale%,0:.."O|
00002c10  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
00002c20  2c 73 70 61 72 65 61 25  2c 22 68 61 74 30 22 2c  |,sparea%,"hat0",|
00002c30  37 32 38 2c 36 35 36 2c  38 2c 73 63 61 6c 65 25  |728,656,8,scale%|
00002c40  2c 30 0d 0a 5a 71 20 20  c8 99 22 4f 53 5f 53 70  |,0..Zq  .."OS_Sp|
00002c50  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 73 70 61  |riteOp",&134,spa|
00002c60  72 65 61 25 2c 22 65 61  72 22 2c 34 39 32 2c 36  |rea%,"ear",492,6|
00002c70  36 30 2c 38 2c 73 63 61  6c 65 25 2c 30 3a c8 99  |60,8,scale%,0:..|
00002c80  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00002c90  33 34 2c 73 70 61 72 65  61 25 2c 22 65 61 72 22  |34,sparea%,"ear"|
00002ca0  2c 37 35 38 2c 36 35 36  2c 38 2c 73 63 61 6c 65  |,758,656,8,scale|
00002cb0  25 2c 30 0d 0a 64 06 20  cd 0d 0a 6e 15 20 e7 28  |%,0..d. ...n. .(|
00002cc0  6a 25 3d 33 29 84 28 6a  25 3d 34 29 20 8c 0d 0a  |j%=3).(j%=4) ...|
00002cd0  78 27 20 20 66 61 6c 6c  79 25 2d 3d 28 31 32 2a  |x'  fally%-=(12*|
00002ce0  6a 25 29 3a 68 61 74 79  25 2d 3d 28 38 2a 28 6a  |j%):haty%-=(8*(j|
00002cf0  25 2d 32 29 29 0d 0a 82  18 20 20 ef 32 34 2c 33  |%-2))....  .24,3|
00002d00  36 30 3b 30 3b 39 36 30  3b 39 35 38 3b 0d 0a 8c  |60;0;960;958;...|
00002d10  50 20 20 f2 6d 61 6b 65  6d 69 6e 65 28 33 2c 30  |P  .makemine(3,0|
00002d20  2c 33 29 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |,3):.."OS_Sprite|
00002d30  4f 70 22 2c 26 31 33 34  2c 73 70 61 72 65 61 25  |Op",&134,sparea%|
00002d40  2c 22 66 61 6c 6c 22 2c  34 34 38 2c 66 61 6c 6c  |,"fall",448,fall|
00002d50  79 25 2c 38 2c 73 63 61  6c 65 25 2c 30 0d 0a 96  |y%,8,scale%,0...|
00002d60  8f 20 20 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.  .."OS_SpriteO|
00002d70  70 22 2c 26 31 33 34 2c  73 70 61 72 65 61 25 2c  |p",&134,sparea%,|
00002d80  22 68 61 74 22 2b c3 28  31 2b 28 6a 25 83 32 29  |"hat"+.(1+(j%.2)|
00002d90  29 2c 34 36 32 2c 68 61  74 79 25 2c 38 2c 73 63  |),462,haty%,8,sc|
00002da0  61 6c 65 25 2c 30 3a c8  99 22 4f 53 5f 53 70 72  |ale%,0:.."OS_Spr|
00002db0  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
00002dc0  65 61 25 2c 22 68 61 74  22 2b c3 28 31 2b 28 6a  |ea%,"hat"+.(1+(j|
00002dd0  25 83 32 29 29 2c 37 32  38 2c 68 61 74 79 25 2d  |%.2)),728,haty%-|
00002de0  34 2c 38 2c 73 63 61 6c  65 25 2c 30 0d 0a a0 06  |4,8,scale%,0....|
00002df0  20 cd 0d 0a aa 0d 20 e7  6a 25 3e 3d 35 20 8c 0d  | ..... .j%>=5 ..|
00002e00  0a b4 27 20 20 66 61 6c  6c 79 25 2d 3d 28 31 32  |..'  fally%-=(12|
00002e10  2a 6a 25 29 3a 68 61 74  79 25 2d 3d 28 38 2a 28  |*j%):haty%-=(8*(|
00002e20  6a 25 2d 32 29 29 0d 0a  be 18 20 20 ef 32 34 2c  |j%-2))....  .24,|
00002e30  34 34 34 3b 30 3b 38 36  36 3b 37 38 30 3b 0d 0a  |444;0;866;780;..|
00002e40  c8 50 20 20 f2 6d 61 6b  65 6d 69 6e 65 28 33 2c  |.P  .makemine(3,|
00002e50  30 2c 33 29 3a c8 99 22  4f 53 5f 53 70 72 69 74  |0,3):.."OS_Sprit|
00002e60  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
00002e70  25 2c 22 66 61 6c 6c 22  2c 34 34 38 2c 66 61 6c  |%,"fall",448,fal|
00002e80  6c 79 25 2c 38 2c 73 63  61 6c 65 25 2c 30 0d 0a  |ly%,8,scale%,0..|
00002e90  d2 8f 20 20 c8 99 22 4f  53 5f 53 70 72 69 74 65  |..  .."OS_Sprite|
00002ea0  4f 70 22 2c 26 31 33 34  2c 73 70 61 72 65 61 25  |Op",&134,sparea%|
00002eb0  2c 22 68 61 74 22 2b c3  28 31 2b 28 6a 25 83 32  |,"hat"+.(1+(j%.2|
00002ec0  29 29 2c 34 36 32 2c 68  61 74 79 25 2c 38 2c 73  |)),462,haty%,8,s|
00002ed0  63 61 6c 65 25 2c 30 3a  c8 99 22 4f 53 5f 53 70  |cale%,0:.."OS_Sp|
00002ee0  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 73 70 61  |riteOp",&134,spa|
00002ef0  72 65 61 25 2c 22 68 61  74 22 2b c3 28 31 2b 28  |rea%,"hat"+.(1+(|
00002f00  6a 25 83 32 29 29 2c 37  32 38 2c 68 61 74 79 25  |j%.2)),728,haty%|
00002f10  2d 34 2c 38 2c 73 63 61  6c 65 25 2c 30 0d 0a dc  |-4,8,scale%,0...|
00002f20  06 20 cd 0d 0a e6 16 20  e7 28 6a 25 3e 30 29 80  |. ..... .(j%>0).|
00002f30  28 6a 25 3c 3d 32 29 20  8c 0d 0a f0 19 20 20 f5  |(j%<=2) .....  .|
00002f40  3a fd 20 91 3e 6c 61 73  74 74 69 6d 65 25 2b 32  |:. .>lasttime%+2|
00002f50  30 30 0d 0a fa 06 20 cc  0d 0b 04 18 20 20 f5 3a  |00.... .....  .:|
00002f60  fd 20 91 3e 6c 61 73 74  74 69 6d 65 25 2b 33 30  |. .>lasttime%+30|
00002f70  0d 0b 0e 06 20 cd 0d 0b  18 0c 20 c8 8e 20 6a 25  |.... ..... .. j%|
00002f80  20 ca 0d 0b 22 2f 20 20  c9 20 32 3a f2 63 61 63  | ..."/  . 2:.cac|
00002f90  68 65 73 6f 75 6e 64 28  22 66 78 6c 65 76 65 72  |hesound("fxlever|
00002fa0  22 2c 31 29 3a d4 20 31  2c 26 31 37 46 2c 31 2c  |",1):. 1,&17F,1,|
00002fb0  31 0d 0b 2c 30 20 20 c9  20 33 3a f2 63 61 63 68  |1..,0  . 3:.cach|
00002fc0  65 73 6f 75 6e 64 28 22  66 78 74 72 61 70 6f 70  |esound("fxtrapop|
00002fd0  22 2c 31 29 3a d4 20 31  2c 26 31 37 46 2c 31 2c  |",1):. 1,&17F,1,|
00002fe0  31 0d 0b 36 2e 20 20 c9  20 35 3a f2 63 61 63 68  |1..6.  . 5:.cach|
00002ff0  65 73 6f 75 6e 64 28 22  66 78 73 6c 69 70 22 2c  |esound("fxslip",|
00003000  31 29 3a d4 20 31 2c 26  31 37 46 2c 31 2c 31 0d  |1):. 1,&17F,1,1.|
00003010  0b 40 06 20 cb 0d 0b 4a  5e 20 73 65 65 25 3d 25  |.@. ...J^ see%=%|
00003020  31 30 30 3e 3e 3e 73 65  65 25 3a 64 6f 25 3d 25  |100>>>see%:do%=%|
00003030  31 30 30 3e 3e 3e 64 6f  25 3a c8 96 3a c8 99 20  |100>>>do%:..:.. |
00003040  22 4f 53 5f 42 79 74 65  22 2c 31 31 33 2c 73 65  |"OS_Byte",113,se|
00003050  65 25 3a c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |e%:.. "OS_Byte",|
00003060  31 31 32 2c 64 6f 25 3a  6c 61 73 74 74 69 6d 65  |112,do%:lasttime|
00003070  25 3d 91 0d 0b 54 0a 20  6a 25 2b 3d 31 0d 0b 5e  |%=...T. j%+=1..^|
00003080  11 fd 20 68 61 74 79 25  3c 3d 2d 31 34 30 0d 0b  |.. haty%<=-140..|
00003090  68 13 f4 20 68 61 69 72  79 20 61 70 70 65 61 72  |h.. hairy appear|
000030a0  73 0d 0b 72 3e f2 77 61  69 74 28 35 30 29 3a f2  |s..r>.wait(50):.|
000030b0  63 61 63 68 65 73 6f 75  6e 64 28 22 66 78 73 70  |cachesound("fxsp|
000030c0  6c 61 73 68 22 2c 31 29  3a d4 20 31 2c 26 31 37  |lash",1):. 1,&17|
000030d0  46 2c 31 2c 31 3a f2 77  61 69 74 28 35 30 29 0d  |F,1,1:.wait(50).|
000030e0  0b 7c 49 ef 32 36 3a f2  73 63 72 63 6f 70 79 28  |.|I.26:.scrcopy(|
000030f0  73 65 65 25 2c 64 6f 25  29 3a c8 99 20 22 4f 53  |see%,do%):.. "OS|
00003100  5f 42 79 74 65 22 2c 31  31 32 2c 32 3a f2 6d 61  |_Byte",112,2:.ma|
00003110  6b 65 6d 69 6e 65 28 33  2c 31 2c 33 29 3a f2 73  |kemine(3,1,3):.s|
00003120  63 72 63 6f 70 79 32 31  0d 0b 86 1b 4c 25 3d 31  |crcopy21....L%=1|
00003130  30 35 30 3a 49 25 3d 30  3a f2 63 68 61 69 6e 6e  |050:I%=0:.chainn|
00003140  65 78 74 0d 0b 90 05 e1  0d 0b 9a 04 0d 0b a4 12  |ext.............|
00003150  dd f2 63 68 65 63 6b 68  6f 74 6b 65 79 73 0d 0b  |..checkhotkeys..|
00003160  ae 51 c8 99 22 4f 53 5f  42 79 74 65 22 2c 31 32  |.Q.."OS_Byte",12|
00003170  31 2c 35 37 82 26 38 30  20 b8 20 2c 72 31 25 3a  |1,57.&80 . ,r1%:|
00003180  e7 72 31 25 3d 26 46 46  3a 6d 62 75 74 25 3d 34  |.r1%=&FF:mbut%=4|
00003190  3a 6d 78 25 3d 31 32 38  3a 6d 79 25 3d 38 30 38  |:mx%=128:my%=808|
000031a0  3a c8 97 20 b8 20 6d 78  25 2c 6d 79 25 3a e1 0d  |:.. . mx%,my%:..|
000031b0  0b b8 52 c8 99 22 4f 53  5f 42 79 74 65 22 2c 31  |..R.."OS_Byte",1|
000031c0  32 31 2c 31 32 31 82 26  38 30 20 b8 20 2c 72 31  |21,121.&80 . ,r1|
000031d0  25 3a e7 72 31 25 3d 26  46 46 3a 6d 62 75 74 25  |%:.r1%=&FF:mbut%|
000031e0  3d 34 3a 6d 78 25 3d 31  32 38 3a 6d 79 25 3d 36  |=4:mx%=128:my%=6|
000031f0  31 32 3a c8 97 20 b8 20  6d 78 25 2c 6d 79 25 3a  |12:.. . mx%,my%:|
00003200  e1 0d 0b c2 51 c8 99 22  4f 53 5f 42 79 74 65 22  |....Q.."OS_Byte"|
00003210  2c 31 32 31 2c 32 35 82  26 38 30 20 b8 20 2c 72  |,121,25.&80 . ,r|
00003220  31 25 3a e7 72 31 25 3d  26 46 46 3a 6d 62 75 74  |1%:.r1%=&FF:mbut|
00003230  25 3d 34 3a 6d 78 25 3d  31 32 38 3a 6d 79 25 3d  |%=4:mx%=128:my%=|
00003240  34 31 36 3a c8 97 20 b8  20 6d 78 25 2c 6d 79 25  |416:.. . mx%,my%|
00003250  3a e1 0d 0b cc 51 c8 99  22 4f 53 5f 42 79 74 65  |:....Q.."OS_Byte|
00003260  22 2c 31 32 31 2c 34 31  82 26 38 30 20 b8 20 2c  |",121,41.&80 . ,|
00003270  72 31 25 3a e7 72 31 25  3d 26 46 46 3a 6d 62 75  |r1%:.r1%=&FF:mbu|
00003280  74 25 3d 34 3a 6d 78 25  3d 31 32 38 3a 6d 79 25  |t%=4:mx%=128:my%|
00003290  3d 32 32 30 3a c8 97 20  b8 20 6d 78 25 2c 6d 79  |=220:.. . mx%,my|
000032a0  25 3a e1 0d 0b d6 05 e1  0d 0b e0 04 0d 0b ea 0d  |%:..............|
000032b0  dd f2 6d 61 70 6c 6f 6f  70 0d 0b f4 08 ea 20 70  |..maploop..... p|
000032c0  25 0d 0b fe 4c 73 65 65  25 3d 31 3a 64 6f 25 3d  |%...Lsee%=1:do%=|
000032d0  32 3a 63 6c 69 63 6b 74  69 6d 65 25 3d 91 2d 31  |2:clicktime%=.-1|
000032e0  30 30 3a c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |00:.. "OS_Byte",|
000032f0  31 31 33 2c 73 65 65 25  3a c8 99 20 22 4f 53 5f  |113,see%:.. "OS_|
00003300  42 79 74 65 22 2c 31 31  32 2c 64 6f 25 0d 0c 08  |Byte",112,do%...|
00003310  5b f2 73 61 76 65 62 67  72 64 28 32 34 38 2c 34  |[.savebgrd(248,4|
00003320  36 30 2c 31 31 38 2c 31  31 32 2c 22 68 30 62 67  |60,118,112,"h0bg|
00003330  31 22 29 3a f2 73 61 76  65 62 67 72 64 28 32 34  |1"):.savebgrd(24|
00003340  38 2c 34 36 30 2c 31 31  38 2c 31 31 32 2c 22 68  |8,460,118,112,"h|
00003350  30 62 67 32 22 29 3a 78  25 28 29 3d 32 34 38 3a  |0bg2"):x%()=248:|
00003360  79 25 28 29 3d 34 36 30  0d 0c 12 36 c8 99 22 4f  |y%()=460...6.."O|
00003370  53 5f 42 79 74 65 22 2c  32 31 2c 39 3a c8 97 20  |S_Byte",21,9:.. |
00003380  c8 93 20 30 2c 31 30 30  2c 31 32 36 34 2c 38 34  |.. 0,100,1264,84|
00003390  38 3a c8 97 20 b8 20 32  35 36 2c 35 36 34 0d 0c  |8:.. . 256,564..|
000033a0  1c 09 2a 46 58 31 35 0d  0c 26 43 6c 61 73 74 74  |..*FX15..&Clastt|
000033b0  69 6d 65 25 3d 91 2d 31  30 3a 6d 62 75 74 25 3d  |ime%=.-10:mbut%=|
000033c0  30 3a e7 4c 25 3e 31 30  34 30 3a f2 77 6f 72 64  |0:.L%>1040:.word|
000033d0  73 5f 72 65 61 64 28 35  2c 22 30 34 2c 30 35 2c  |s_read(5,"04,05,|
000033e0  30 36 2c 30 37 2c 30 38  22 29 0d 0c 30 05 f5 0d  |06,07,08")..0...|
000033f0  0c 3a 13 20 f2 63 68 65  63 6b 6b 65 79 65 76 65  |.:. .checkkeyeve|
00003400  6e 74 0d 0c 44 33 20 6f  6d 62 75 74 25 3d 6d 62  |nt..D3 ombut%=mb|
00003410  75 74 25 3a c8 99 22 4f  53 5f 42 79 74 65 22 2c  |ut%:.."OS_Byte",|
00003420  32 31 2c 39 3a c8 97 20  6d 78 25 2c 6d 79 25 2c  |21,9:.. mx%,my%,|
00003430  6d 62 75 74 25 0d 0c 4e  29 20 f2 63 68 61 6e 67  |mbut%..N) .chang|
00003440  65 6d 6f 75 73 65 3a f2  63 68 65 63 6b 6d 61 70  |emouse:.checkmap|
00003450  3a f2 63 68 65 63 6b 68  6f 74 6b 65 79 73 0d 0c  |:.checkhotkeys..|
00003460  58 45 20 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |XE .."OS_SpriteO|
00003470  70 22 2c 26 31 32 32 2c  73 70 61 72 65 61 25 2c  |p",&122,sparea%,|
00003480  22 68 30 62 67 22 2b c3  28 64 6f 25 29 2c 78 25  |"h0bg"+.(do%),x%|
00003490  28 64 6f 25 2d 31 29 2c  79 25 28 64 6f 25 2d 31  |(do%-1),y%(do%-1|
000034a0  29 2c 38 0d 0c 62 26 20  78 25 28 64 6f 25 2d 31  |),8..b& x%(do%-1|
000034b0  29 3d 6d 78 25 2d 38 3a  79 25 28 64 6f 25 2d 31  |)=mx%-8:y%(do%-1|
000034c0  29 3d 6d 79 25 2d 31 30  34 0d 0c 6c 0c 20 e3 70  |)=my%-104..l. .p|
000034d0  25 3d 30 b8 33 0d 0c 76  2a 20 20 e7 63 68 61 6e  |%=0.3..v*  .chan|
000034e0  67 65 64 62 75 74 25 28  70 25 29 3d 32 3a 63 68  |gedbut%(p%)=2:ch|
000034f0  61 6e 67 65 64 62 75 74  25 28 70 25 29 3d 30 0d  |angedbut%(p%)=0.|
00003500  0c 80 26 20 20 e7 6f 6e  6c 79 77 61 6c 6b 25 28  |..&  .onlywalk%(|
00003510  70 25 29 3d 32 3a 6f 6e  6c 79 77 61 6c 6b 25 28  |p%)=2:onlywalk%(|
00003520  70 25 29 3d 30 0d 0c 8a  2a 20 20 e7 63 68 61 6e  |p%)=0...*  .chan|
00003530  67 65 64 62 75 74 25 28  70 25 29 3d 31 3a 63 68  |gedbut%(p%)=1:ch|
00003540  61 6e 67 65 64 62 75 74  25 28 70 25 29 3d 32 0d  |angedbut%(p%)=2.|
00003550  0c 94 26 20 20 e7 6f 6e  6c 79 77 61 6c 6b 25 28  |..&  .onlywalk%(|
00003560  70 25 29 3d 31 3a 6f 6e  6c 79 77 61 6c 6b 25 28  |p%)=1:onlywalk%(|
00003570  70 25 29 3d 32 0d 0c 9e  06 20 ed 0d 0c a8 0f 20  |p%)=2.... ..... |
00003580  e7 6d 79 25 3c 31 37 32  20 8c 0d 0c b2 11 20 20  |.my%<172 .....  |
00003590  e7 77 61 6c 6b 25 3d 2d  31 20 8c 0d 0c bc 37 20  |.walk%=-1 ....7 |
000035a0  20 20 e7 64 69 72 6e 25  3c 3e 2d 31 3a 63 68 61  |  .dirn%<>-1:cha|
000035b0  6e 67 65 64 62 75 74 25  28 64 69 72 6e 25 29 3d  |ngedbut%(dirn%)=|
000035c0  31 3a 62 75 74 63 6f 6c  25 28 64 69 72 6e 25 29  |1:butcol%(dirn%)|
000035d0  3d 30 0d 0c c6 0f 20 20  20 64 69 72 6e 25 3d 2d  |=0....   dirn%=-|
000035e0  31 0d 0c d0 07 20 20 cd  0d 0c da 10 20 20 e7 6d  |1....  .....  .m|
000035f0  62 75 74 25 3d 34 20 8c  0d 0c e4 28 20 20 20 e7  |but%=4 ....(   .|
00003600  62 6c 75 65 77 6f 72 64  73 25 3e 30 20 8c 3a f2  |bluewords%>0 .:.|
00003610  65 6c 66 66 61 64 65 28  a4 6f 6e 62 6c 75 65 29  |elffade(.onblue)|
00003620  0d 0c ee 07 20 20 cd 0d  0c f8 06 20 cc 0d 0d 02  |....  ..... ....|
00003630  2d 20 20 e7 28 6d 79 25  3e 3d 37 36 34 29 80 28  |-  .(my%>=764).(|
00003640  6d 79 25 3c 3d 39 35 32  29 80 28 b0 6d 78 25 2c  |my%<=952).(.mx%,|
00003650  6d 79 25 29 3c 3e 31 29  20 8c 0d 0d 0c 12 20 20  |my%)<>1) .....  |
00003660  20 e7 77 61 6c 6b 25 3d  2d 31 20 8c 0d 0d 16 13  | .walk%=-1 .....|
00003670  20 20 20 20 e7 64 69 72  6e 25 3c 3e 30 20 8c 0d  |    .dirn%<>0 ..|
00003680  0d 20 39 20 20 20 20 20  e7 64 69 72 6e 25 3c 3e  |. 9     .dirn%<>|
00003690  2d 31 3a 63 68 61 6e 67  65 64 62 75 74 25 28 64  |-1:changedbut%(d|
000036a0  69 72 6e 25 29 3d 31 3a  62 75 74 63 6f 6c 25 28  |irn%)=1:butcol%(|
000036b0  64 69 72 6e 25 29 3d 30  0d 0d 2a 2e 20 20 20 20  |dirn%)=0..*.    |
000036c0  20 64 69 72 6e 25 3d 30  3a 63 68 61 6e 67 65 64  | dirn%=0:changed|
000036d0  62 75 74 25 28 30 29 3d  31 3a 62 75 74 63 6f 6c  |but%(0)=1:butcol|
000036e0  25 28 30 29 3d 31 0d 0d  34 09 20 20 20 20 cc 0d  |%(0)=1..4.    ..|
000036f0  0d 3e 35 20 20 20 20 20  e7 62 75 74 63 6f 6c 25  |.>5     .butcol%|
00003700  28 30 29 3c 3e 31 3a 63  68 61 6e 67 65 64 62 75  |(0)<>1:changedbu|
00003710  74 25 28 30 29 3d 31 3a  62 75 74 63 6f 6c 25 28  |t%(0)=1:butcol%(|
00003720  30 29 3d 31 0d 0d 48 09  20 20 20 20 cd 0d 0d 52  |0)=1..H.    ...R|
00003730  11 20 20 20 20 e7 6d 62  75 74 25 3d 34 8c 0d 0d  |.    .mbut%=4...|
00003740  5c 49 20 20 20 20 20 e7  63 61 6e 67 6f 75 70 25  |\I     .cangoup%|
00003750  3a 73 74 65 70 25 3d 31  32 3a 63 68 61 6e 67 65  |:step%=12:change|
00003760  64 62 75 74 25 28 30 29  3d 31 3a 62 75 74 63 6f  |dbut%(0)=1:butco|
00003770  6c 25 28 30 29 3d 32 3a  77 61 6c 6b 25 3d 30 3a  |l%(0)=2:walk%=0:|
00003780  8b 3a f2 62 65 65 70 0d  0d 66 09 20 20 20 20 cc  |.:.beep..f.    .|
00003790  0d 0d 70 1e 20 20 20 20  20 f2 73 74 69 6c 6c 3a  |..p.     .still:|
000037a0  6f 6e 6c 79 77 61 6c 6b  25 28 30 29 3d 31 0d 0d  |onlywalk%(0)=1..|
000037b0  7a 09 20 20 20 20 cd 0d  0d 84 08 20 20 20 cc 0d  |z.    .....   ..|
000037c0  0d 8e 1a 20 20 20 20 6f  6e 6c 79 77 61 6c 6b 25  |...    onlywalk%|
000037d0  28 77 61 6c 6b 25 29 3d  31 0d 0d 98 08 20 20 20  |(walk%)=1....   |
000037e0  cd 0d 0d a2 07 20 20 cc  0d 0d ac 2e 20 20 20 e7  |.....  .....   .|
000037f0  28 6d 79 25 3e 3d 35 36  38 29 80 28 6d 79 25 3c  |(my%>=568).(my%<|
00003800  3d 37 35 36 29 80 28 b0  6d 78 25 2c 6d 79 25 29  |=756).(.mx%,my%)|
00003810  3c 3e 31 29 20 8c 0d 0d  b6 13 20 20 20 20 e7 77  |<>1) .....    .w|
00003820  61 6c 6b 25 3d 2d 31 20  8c 0d 0d c0 14 20 20 20  |alk%=-1 .....   |
00003830  20 20 e7 64 69 72 6e 25  3c 3e 31 20 8c 0d 0d ca  |  .dirn%<>1 ....|
00003840  3a 20 20 20 20 20 20 e7  64 69 72 6e 25 3c 3e 2d  |:      .dirn%<>-|
00003850  31 3a 63 68 61 6e 67 65  64 62 75 74 25 28 64 69  |1:changedbut%(di|
00003860  72 6e 25 29 3d 31 3a 62  75 74 63 6f 6c 25 28 64  |rn%)=1:butcol%(d|
00003870  69 72 6e 25 29 3d 30 0d  0d d4 2f 20 20 20 20 20  |irn%)=0.../     |
00003880  20 64 69 72 6e 25 3d 31  3a 63 68 61 6e 67 65 64  | dirn%=1:changed|
00003890  62 75 74 25 28 31 29 3d  31 3a 62 75 74 63 6f 6c  |but%(1)=1:butcol|
000038a0  25 28 31 29 3d 31 0d 0d  de 0a 20 20 20 20 20 cc  |%(1)=1....     .|
000038b0  0d 0d e8 36 20 20 20 20  20 20 e7 62 75 74 63 6f  |...6      .butco|
000038c0  6c 25 28 31 29 3c 3e 31  3a 63 68 61 6e 67 65 64  |l%(1)<>1:changed|
000038d0  62 75 74 25 28 31 29 3d  31 3a 62 75 74 63 6f 6c  |but%(1)=1:butcol|
000038e0  25 28 31 29 3d 31 0d 0d  f2 0a 20 20 20 20 20 cd  |%(1)=1....     .|
000038f0  0d 0d fc 12 20 20 20 20  20 e7 6d 62 75 74 25 3d  |....     .mbut%=|
00003900  34 8c 0d 0e 06 4c 20 20  20 20 20 20 e7 63 61 6e  |4....L      .can|
00003910  67 6f 72 69 67 68 74 25  3a 73 74 65 70 25 3d 38  |goright%:step%=8|
00003920  3a 63 68 61 6e 67 65 64  62 75 74 25 28 31 29 3d  |:changedbut%(1)=|
00003930  31 3a 62 75 74 63 6f 6c  25 28 31 29 3d 32 3a 77  |1:butcol%(1)=2:w|
00003940  61 6c 6b 25 3d 31 3a 8b  3a f2 62 65 65 70 0d 0e  |alk%=1:.:.beep..|
00003950  10 0a 20 20 20 20 20 cc  0d 0e 1a 1f 20 20 20 20  |..     .....    |
00003960  20 20 f2 73 74 69 6c 6c  3a 6f 6e 6c 79 77 61 6c  |  .still:onlywal|
00003970  6b 25 28 31 29 3d 31 0d  0e 24 0a 20 20 20 20 20  |k%(1)=1..$.     |
00003980  cd 0d 0e 2e 09 20 20 20  20 cc 0d 0e 38 1b 20 20  |.....    ...8.  |
00003990  20 20 20 6f 6e 6c 79 77  61 6c 6b 25 28 77 61 6c  |   onlywalk%(wal|
000039a0  6b 25 29 3d 31 0d 0e 42  09 20 20 20 20 cd 0d 0e  |k%)=1..B.    ...|
000039b0  4c 08 20 20 20 cc 0d 0e  56 2f 20 20 20 20 e7 28  |L.   ...V/    .(|
000039c0  6d 79 25 3e 3d 33 37 32  29 80 28 6d 79 25 3c 3d  |my%>=372).(my%<=|
000039d0  35 36 30 29 80 28 b0 6d  78 25 2c 6d 79 25 29 3c  |560).(.mx%,my%)<|
000039e0  3e 31 29 20 8c 0d 0e 60  14 20 20 20 20 20 e7 77  |>1) ...`.     .w|
000039f0  61 6c 6b 25 3d 2d 31 20  8c 0d 0e 6a 15 20 20 20  |alk%=-1 ...j.   |
00003a00  20 20 20 e7 64 69 72 6e  25 3c 3e 32 20 8c 0d 0e  |   .dirn%<>2 ...|
00003a10  74 3b 20 20 20 20 20 20  20 e7 64 69 72 6e 25 3c  |t;       .dirn%<|
00003a20  3e 2d 31 3a 63 68 61 6e  67 65 64 62 75 74 25 28  |>-1:changedbut%(|
00003a30  64 69 72 6e 25 29 3d 31  3a 62 75 74 63 6f 6c 25  |dirn%)=1:butcol%|
00003a40  28 64 69 72 6e 25 29 3d  30 0d 0e 7e 30 20 20 20  |(dirn%)=0..~0   |
00003a50  20 20 20 20 64 69 72 6e  25 3d 32 3a 63 68 61 6e  |    dirn%=2:chan|
00003a60  67 65 64 62 75 74 25 28  32 29 3d 31 3a 62 75 74  |gedbut%(2)=1:but|
00003a70  63 6f 6c 25 28 32 29 3d  31 0d 0e 88 0b 20 20 20  |col%(2)=1....   |
00003a80  20 20 20 cc 0d 0e 92 37  20 20 20 20 20 20 20 e7  |   ....7       .|
00003a90  62 75 74 63 6f 6c 25 28  32 29 3c 3e 31 3a 63 68  |butcol%(2)<>1:ch|
00003aa0  61 6e 67 65 64 62 75 74  25 28 32 29 3d 31 3a 62  |angedbut%(2)=1:b|
00003ab0  75 74 63 6f 6c 25 28 32  29 3d 31 0d 0e 9c 0b 20  |utcol%(2)=1.... |
00003ac0  20 20 20 20 20 cd 0d 0e  a6 13 20 20 20 20 20 20  |     .....      |
00003ad0  e7 6d 62 75 74 25 3d 34  8c 0d 0e b0 4c 20 20 20  |.mbut%=4....L   |
00003ae0  20 20 20 20 e7 63 61 6e  67 6f 6c 65 66 74 25 3a  |    .cangoleft%:|
00003af0  73 74 65 70 25 3d 38 3a  63 68 61 6e 67 65 64 62  |step%=8:changedb|
00003b00  75 74 25 28 32 29 3d 31  3a 62 75 74 63 6f 6c 25  |ut%(2)=1:butcol%|
00003b10  28 32 29 3d 32 3a 77 61  6c 6b 25 3d 32 3a 8b 3a  |(2)=2:walk%=2:.:|
00003b20  f2 62 65 65 70 0d 0e ba  0b 20 20 20 20 20 20 cc  |.beep....      .|
00003b30  0d 0e c4 20 20 20 20 20  20 20 20 f2 73 74 69 6c  |...        .stil|
00003b40  6c 3a 6f 6e 6c 79 77 61  6c 6b 25 28 32 29 3d 31  |l:onlywalk%(2)=1|
00003b50  0d 0e ce 0b 20 20 20 20  20 20 cd 0d 0e d8 0a 20  |....      ..... |
00003b60  20 20 20 20 cc 0d 0e e2  1c 20 20 20 20 20 20 6f  |    .....      o|
00003b70  6e 6c 79 77 61 6c 6b 25  28 77 61 6c 6b 25 29 3d  |nlywalk%(walk%)=|
00003b80  31 0d 0e ec 0a 20 20 20  20 20 cd 0d 0e f6 09 20  |1....     ..... |
00003b90  20 20 20 cc 0d 0f 00 30  20 20 20 20 20 e7 28 6d  |   ....0     .(m|
00003ba0  79 25 3e 3d 31 37 36 29  80 28 6d 79 25 3c 3d 33  |y%>=176).(my%<=3|
00003bb0  36 34 29 80 28 b0 6d 78  25 2c 6d 79 25 29 3c 3e  |64).(.mx%,my%)<>|
00003bc0  31 29 20 8c 0d 0f 0a 15  20 20 20 20 20 20 e7 77  |1) .....      .w|
00003bd0  61 6c 6b 25 3d 2d 31 20  8c 0d 0f 14 16 20 20 20  |alk%=-1 .....   |
00003be0  20 20 20 20 e7 64 69 72  6e 25 3c 3e 33 20 8c 0d  |    .dirn%<>3 ..|
00003bf0  0f 1e 3c 20 20 20 20 20  20 20 20 e7 64 69 72 6e  |..<        .dirn|
00003c00  25 3c 3e 2d 31 3a 63 68  61 6e 67 65 64 62 75 74  |%<>-1:changedbut|
00003c10  25 28 64 69 72 6e 25 29  3d 31 3a 62 75 74 63 6f  |%(dirn%)=1:butco|
00003c20  6c 25 28 64 69 72 6e 25  29 3d 30 0d 0f 28 31 20  |l%(dirn%)=0..(1 |
00003c30  20 20 20 20 20 20 20 64  69 72 6e 25 3d 33 3a 63  |       dirn%=3:c|
00003c40  68 61 6e 67 65 64 62 75  74 25 28 33 29 3d 31 3a  |hangedbut%(3)=1:|
00003c50  62 75 74 63 6f 6c 25 28  33 29 3d 31 0d 0f 32 0c  |butcol%(3)=1..2.|
00003c60  20 20 20 20 20 20 20 cc  0d 0f 3c 38 20 20 20 20  |       ...<8    |
00003c70  20 20 20 20 e7 62 75 74  63 6f 6c 25 28 33 29 3c  |    .butcol%(3)<|
00003c80  3e 31 3a 63 68 61 6e 67  65 64 62 75 74 25 28 33  |>1:changedbut%(3|
00003c90  29 3d 31 3a 62 75 74 63  6f 6c 25 28 33 29 3d 31  |)=1:butcol%(3)=1|
00003ca0  0d 0f 46 0c 20 20 20 20  20 20 20 cd 0d 0f 50 14  |..F.       ...P.|
00003cb0  20 20 20 20 20 20 20 e7  6d 62 75 74 25 3d 34 8c  |       .mbut%=4.|
00003cc0  0d 0f 5a 4e 20 20 20 20  20 20 20 20 e7 63 61 6e  |..ZN        .can|
00003cd0  67 6f 64 6f 77 6e 25 3a  73 74 65 70 25 3d 31 32  |godown%:step%=12|
00003ce0  3a 63 68 61 6e 67 65 64  62 75 74 25 28 33 29 3d  |:changedbut%(3)=|
00003cf0  31 3a 62 75 74 63 6f 6c  25 28 33 29 3d 32 3a 77  |1:butcol%(3)=2:w|
00003d00  61 6c 6b 25 3d 33 3a 8b  3a f2 62 65 65 70 0d 0f  |alk%=3:.:.beep..|
00003d10  64 0c 20 20 20 20 20 20  20 cc 0d 0f 6e 21 20 20  |d.       ...n!  |
00003d20  20 20 20 20 20 20 f2 73  74 69 6c 6c 3a 6f 6e 6c  |      .still:onl|
00003d30  79 77 61 6c 6b 25 28 33  29 3d 31 0d 0f 78 0c 20  |ywalk%(3)=1..x. |
00003d40  20 20 20 20 20 20 cd 0d  0f 82 0b 20 20 20 20 20  |      .....     |
00003d50  20 cc 0d 0f 8c 1d 20 20  20 20 20 20 20 6f 6e 6c  | .....       onl|
00003d60  79 77 61 6c 6b 25 28 77  61 6c 6b 25 29 3d 31 0d  |ywalk%(walk%)=1.|
00003d70  0f 96 0b 20 20 20 20 20  20 cd 0d 0f a0 0a 20 20  |...      .....  |
00003d80  20 20 20 cc 0d 0f aa 15  20 20 20 20 20 20 e7 77  |   .....      .w|
00003d90  61 6c 6b 25 3d 2d 31 20  8c 0d 0f b4 3b 20 20 20  |alk%=-1 ....;   |
00003da0  20 20 20 20 e7 64 69 72  6e 25 3c 3e 2d 31 3a 63  |    .dirn%<>-1:c|
00003db0  68 61 6e 67 65 64 62 75  74 25 28 64 69 72 6e 25  |hangedbut%(dirn%|
00003dc0  29 3d 31 3a 62 75 74 63  6f 6c 25 28 64 69 72 6e  |)=1:butcol%(dirn|
00003dd0  25 29 3d 30 0d 0f be 13  20 20 20 20 20 20 20 64  |%)=0....       d|
00003de0  69 72 6e 25 3d 2d 31 0d  0f c8 0b 20 20 20 20 20  |irn%=-1....     |
00003df0  20 cd 0d 0f d2 0a 20 20  20 20 20 cd 0d 0f dc 09  | .....     .....|
00003e00  20 20 20 20 cd 0d 0f e6  08 20 20 20 cd 0d 0f f0  |    .....   ....|
00003e10  07 20 20 cd 0d 0f fa 06  20 cd 0d 10 04 17 20 f2  |.  ..... ..... .|
00003e20  77 61 6c 6b 3a f2 70 6c  6f 74 6d 61 70 62 75 74  |walk:.plotmapbut|
00003e30  73 0d 10 0e 1f 20 e7 28  73 68 6f 77 6b 65 79 25  |s.... .(showkey%|
00003e40  3c 32 29 80 28 77 61 6c  6b 25 3e 3d 30 29 20 8c  |<2).(walk%>=0) .|
00003e50  0d 10 18 60 20 20 ef 31  38 2c 30 2c 31 3a ef 32  |...`  .18,0,1:.2|
00003e60  35 2c 34 2c 30 3b 30 3b  3a ef 32 35 2c 31 30 31  |5,4,0;0;:.25,101|
00003e70  2c 31 32 37 38 3b 31 36  38 3b 3a c8 99 20 22 4f  |,1278;168;:.. "O|
00003e80  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
00003e90  2c 73 70 61 72 65 61 25  2c 22 6b 65 79 22 2c 34  |,sparea%,"key",4|
00003ea0  32 2c 31 30 30 2c 38 2c  73 63 61 6c 65 25 2c 30  |2,100,8,scale%,0|
00003eb0  0d 10 22 84 20 20 f2 77  6f 72 64 73 5f 72 65 61  |..".  .words_rea|
00003ec0  64 28 35 2c 22 30 34 2c  30 35 2c 30 36 2c 30 37  |d(5,"04,05,06,07|
00003ed0  2c 30 38 22 29 3a f2 77  6f 72 64 73 28 31 34 36  |,08"):.words(146|
00003ee0  2c 31 31 36 2c 2d 31 2c  33 2c 30 2c 30 2c 6f 6e  |,116,-1,3,0,0,on|
00003ef0  24 2b 22 72 6f 63 6b 73  20 20 20 20 20 20 20 20  |$+"rocks        |
00003f00  20 74 72 65 65 73 20 20  20 20 20 20 20 20 20 77  | trees         w|
00003f10  61 74 65 72 20 20 20 20  20 20 20 20 20 70 61 74  |ater         pat|
00003f20  68 73 20 20 20 20 20 20  20 20 20 74 75 6e 6e 65  |hs         tunne|
00003f30  6c 73 22 29 0d 10 2c 11  20 20 73 68 6f 77 6b 65  |ls")..,.  showke|
00003f40  79 25 2b 3d 31 0d 10 36  06 20 cd 0d 10 40 10 20  |y%+=1..6. ...@. |
00003f50  f2 70 6c 6f 74 64 6f 74  28 30 29 0d 10 4a 39 20  |.plotdot(0)..J9 |
00003f60  f2 73 61 76 65 62 67 72  64 28 78 25 28 64 6f 25  |.savebgrd(x%(do%|
00003f70  2d 31 29 2c 79 25 28 64  6f 25 2d 31 29 2c 31 31  |-1),y%(do%-1),11|
00003f80  38 2c 31 31 32 2c 22 68  30 62 67 22 2b c3 28 64  |8,112,"h0bg"+.(d|
00003f90  6f 25 29 29 0d 10 54 46  20 c8 99 22 4f 53 5f 53  |o%))..TF .."OS_S|
00003fa0  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 62 75  |priteOp",&134,bu|
00003fb0  74 61 72 65 61 25 2c 22  68 30 22 2c 78 25 28 64  |tarea%,"h0",x%(d|
00003fc0  6f 25 2d 31 29 2c 79 25  28 64 6f 25 2d 31 29 2c  |o%-1),y%(do%-1),|
00003fd0  38 2c 73 63 61 6c 65 25  2c 30 0d 10 5e 17 20 f5  |8,scale%,0..^. .|
00003fe0  3a fd 20 91 3e 6c 61 73  74 74 69 6d 65 25 2b 31  |:. .>lasttime%+1|
00003ff0  30 0d 10 68 0f 20 c8 8e  20 77 61 6c 6b 25 20 ca  |0..h. .. walk% .|
00004000  0d 10 72 3b 20 20 c9 20  2d 31 3a e7 73 6f 75 6e  |..r;  . -1:.soun|
00004010  64 73 74 65 70 25 3a f2  63 61 63 68 65 73 6f 75  |dstep%:.cachesou|
00004020  6e 64 28 22 66 78 73 74  65 70 22 2c 31 29 3a d4  |nd("fxstep",1):.|
00004030  20 31 2c 26 31 37 46 2c  31 2c 31 0d 10 7c 3e 20  | 1,&17F,1,1..|> |
00004040  20 c9 20 30 3a e7 62 75  74 77 61 6c 6b 25 28 30  | . 0:.butwalk%(0|
00004050  29 3d 31 35 3a f2 63 61  63 68 65 73 6f 75 6e 64  |)=15:.cachesound|
00004060  28 22 66 78 73 74 65 70  22 2c 31 29 3a d4 20 31  |("fxstep",1):. 1|
00004070  2c 26 31 37 46 2c 31 2c  31 0d 10 86 4f 20 20 c9  |,&17F,1,1...O  .|
00004080  20 31 3a e7 28 62 75 74  77 61 6c 6b 25 28 31 29  | 1:.(butwalk%(1)|
00004090  3d 31 29 84 28 62 75 74  77 61 6c 6b 25 28 31 29  |=1).(butwalk%(1)|
000040a0  3d 35 29 3a f2 63 61 63  68 65 73 6f 75 6e 64 28  |=5):.cachesound(|
000040b0  22 66 78 73 74 65 70 22  2c 31 29 3a d4 20 31 2c  |"fxstep",1):. 1,|
000040c0  26 31 37 46 2c 31 2c 31  0d 10 90 4f 20 20 c9 20  |&17F,1,1...O  . |
000040d0  32 3a e7 28 62 75 74 77  61 6c 6b 25 28 32 29 3d  |2:.(butwalk%(2)=|
000040e0  31 29 84 28 62 75 74 77  61 6c 6b 25 28 32 29 3d  |1).(butwalk%(2)=|
000040f0  35 29 3a f2 63 61 63 68  65 73 6f 75 6e 64 28 22  |5):.cachesound("|
00004100  66 78 73 74 65 70 22 2c  31 29 3a d4 20 31 2c 26  |fxstep",1):. 1,&|
00004110  31 37 46 2c 31 2c 31 0d  10 9a 3e 20 20 c9 20 33  |17F,1,1...>  . 3|
00004120  3a e7 62 75 74 77 61 6c  6b 25 28 33 29 3d 32 37  |:.butwalk%(3)=27|
00004130  3a f2 63 61 63 68 65 73  6f 75 6e 64 28 22 66 78  |:.cachesound("fx|
00004140  73 74 65 70 22 2c 31 29  3a d4 20 31 2c 26 31 37  |step",1):. 1,&17|
00004150  46 2c 31 2c 31 0d 10 a4  06 20 cb 0d 10 ae 5e 20  |F,1,1.... ....^ |
00004160  73 65 65 25 3d 25 31 30  30 3e 3e 3e 73 65 65 25  |see%=%100>>>see%|
00004170  3a 64 6f 25 3d 25 31 30  30 3e 3e 3e 64 6f 25 3a  |:do%=%100>>>do%:|
00004180  c8 96 3a c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |..:.. "OS_Byte",|
00004190  31 31 33 2c 73 65 65 25  3a c8 99 20 22 4f 53 5f  |113,see%:.. "OS_|
000041a0  42 79 74 65 22 2c 31 31  32 2c 64 6f 25 3a 6c 61  |Byte",112,do%:la|
000041b0  73 74 74 69 6d 65 25 3d  91 0d 10 b8 0c fd 6d 62  |sttime%=......mb|
000041c0  75 74 25 3d 31 0d 10 c2  5d c8 99 20 22 4f 53 5f  |ut%=1...].. "OS_|
000041d0  42 79 74 65 22 2c 31 31  32 2c 73 65 65 25 3a c8  |Byte",112,see%:.|
000041e0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
000041f0  31 32 32 2c 73 70 61 72  65 61 25 2c 22 68 30 62  |122,sparea%,"h0b|
00004200  67 22 2b c3 28 73 65 65  25 29 2c 78 25 28 73 65  |g"+.(see%),x%(se|
00004210  65 25 2d 31 29 2c 79 25  28 73 65 65 25 2d 31 29  |e%-1),y%(see%-1)|
00004220  2c 38 0d 10 cc 2e f2 73  63 72 63 6f 70 79 28 73  |,8.....scrcopy(s|
00004230  65 65 25 2c 64 6f 25 29  3a f2 6d 6f 75 73 65 66  |ee%,do%):.mousef|
00004240  75 6c 6c 3a 62 6c 75 65  77 6f 72 64 73 25 3d 30  |ull:bluewords%=0|
00004250  0d 10 d6 05 e1 0d 10 e0  04 0d 10 ea 0a dd f2 62  |...............b|
00004260  65 65 70 0d 10 f4 15 2a  43 48 41 4e 4e 45 4c 56  |eep....*CHANNELV|
00004270  4f 49 43 45 20 31 20 31  0d 10 fe 06 ef 37 0d 11  |OICE 1 1.....7..|
00004280  08 05 e1 0d 11 12 04 0d  11 1c 0a dd f2 77 61 6c  |.............wal|
00004290  6b 0d 11 26 08 ea 20 6a  25 0d 11 30 0b e3 6a 25  |k..&.. j%..0..j%|
000042a0  3d 30 b8 33 0d 11 3a 10  20 e7 6a 25 3d 77 61 6c  |=0.3..:. .j%=wal|
000042b0  6b 25 20 8c 0d 11 44 21  20 20 62 75 74 77 61 6c  |k% ...D!  butwal|
000042c0  6b 25 28 77 61 6c 6b 25  29 2b 3d 31 3a 73 74 65  |k%(walk%)+=1:ste|
000042d0  70 25 2d 3d 31 0d 11 4e  0c 20 20 e7 6a 25 3d 30  |p%-=1..N.  .j%=0|
000042e0  8c 0d 11 58 25 20 20 20  e7 62 75 74 77 61 6c 6b  |...X%   .butwalk|
000042f0  25 28 30 29 3e 3d 32 31  3a 62 75 74 77 61 6c 6b  |%(0)>=21:butwalk|
00004300  25 28 30 29 3d 39 0d 11  62 07 20 20 cd 0d 11 6c  |%(0)=9..b.  ...l|
00004310  16 20 20 e7 28 6a 25 3d  31 29 84 28 6a 25 3d 32  |.  .(j%=1).(j%=2|
00004320  29 20 8c 0d 11 76 26 20  20 20 e7 62 75 74 77 61  |) ...v&   .butwa|
00004330  6c 6b 25 28 6a 25 29 3e  3d 38 3a 62 75 74 77 61  |lk%(j%)>=8:butwa|
00004340  6c 6b 25 28 6a 25 29 3d  30 0d 11 80 07 20 20 cd  |lk%(j%)=0....  .|
00004350  0d 11 8a 0c 20 20 e7 6a  25 3d 33 8c 0d 11 94 26  |....  .j%=3....&|
00004360  20 20 20 e7 62 75 74 77  61 6c 6b 25 28 33 29 3e  |   .butwalk%(3)>|
00004370  3d 33 33 3a 62 75 74 77  61 6c 6b 25 28 33 29 3d  |=33:butwalk%(3)=|
00004380  32 31 0d 11 9e 07 20 20  cd 0d 11 a8 06 20 cc 0d  |21....  ..... ..|
00004390  11 b2 19 20 20 e7 6a 25  3d 30 3a 62 75 74 77 61  |...  .j%=0:butwa|
000043a0  6c 6b 25 28 30 29 3d 39  0d 11 bc 19 20 20 e7 6a  |lk%(0)=9....  .j|
000043b0  25 3d 31 3a 62 75 74 77  61 6c 6b 25 28 31 29 3d  |%=1:butwalk%(1)=|
000043c0  38 0d 11 c6 19 20 20 e7  6a 25 3d 32 3a 62 75 74  |8....  .j%=2:but|
000043d0  77 61 6c 6b 25 28 32 29  3d 38 0d 11 d0 1a 20 20  |walk%(2)=8....  |
000043e0  e7 6a 25 3d 33 3a 62 75  74 77 61 6c 6b 25 28 33  |.j%=3:butwalk%(3|
000043f0  29 3d 32 31 0d 11 da 06  20 cd 0d 11 e4 05 ed 0d  |)=21.... .......|
00004400  11 ee 05 e1 0d 11 f8 04  0d 12 02 0b dd f2 73 74  |..............st|
00004410  69 6c 6c 0d 12 0c 3c 62  75 74 77 61 6c 6b 25 28  |ill...<butwalk%(|
00004420  30 29 3d 39 3a 62 75 74  77 61 6c 6b 25 28 31 29  |0)=9:butwalk%(1)|
00004430  3d 38 3a 62 75 74 77 61  6c 6b 25 28 32 29 3d 38  |=8:butwalk%(2)=8|
00004440  3a 62 75 74 77 61 6c 6b  25 28 33 29 3d 32 31 0d  |:butwalk%(3)=21.|
00004450  12 16 05 e1 0d 12 20 04  0d 12 2a 11 dd f2 63 68  |...... ...*...ch|
00004460  61 6e 67 65 6d 6f 75 73  65 0d 12 34 11 ea 20 64  |angemouse..4.. d|
00004470  69 66 78 25 2c 64 69 66  79 25 0d 12 3e 0f e7 6d  |ifx%,dify%..>..m|
00004480  78 25 3c 3d 32 35 36 3a  e1 0d 12 48 0f e7 6d 79  |x%<=256:...H..my|
00004490  25 3c 3d 31 38 30 3a e1  0d 12 52 3f 64 69 66 78  |%<=180:...R?difx|
000044a0  25 3d 6d 78 25 2d 32 35  36 3a 64 69 66 79 25 3d  |%=mx%-256:dify%=|
000044b0  6d 79 25 2d 31 38 30 3a  e7 64 69 66 78 25 3c 3d  |my%-180:.difx%<=|
000044c0  64 69 66 79 25 3a 6d 78  25 3d 32 35 36 3a 8b 3a  |dify%:mx%=256:.:|
000044d0  6d 79 25 3d 31 38 30 0d  12 5c 10 c8 97 20 b8 20  |my%=180..\... . |
000044e0  6d 78 25 2c 6d 79 25 0d  12 66 05 e1 0d 12 70 04  |mx%,my%..f....p.|
000044f0  0d 12 7a 0e dd f2 6d 61  70 73 70 65 6c 6c 0d 12  |..z...mapspell..|
00004500  84 0b ea 20 6a 25 2c 6b  25 0d 12 8e 3e 73 65 65  |... j%,k%...>see|
00004510  25 3d 31 3a 64 6f 25 3d  32 3a c8 96 3a c8 99 20  |%=1:do%=2:..:.. |
00004520  22 4f 53 5f 42 79 74 65  22 2c 31 31 33 2c 73 65  |"OS_Byte",113,se|
00004530  65 25 3a c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |e%:.. "OS_Byte",|
00004540  31 31 32 2c 64 6f 25 0d  12 98 46 f2 73 61 76 65  |112,do%...F.save|
00004550  62 67 72 64 28 35 38 38  2c 37 34 38 2c 32 31 32  |bgrd(588,748,212|
00004560  2c 31 34 38 2c 22 6d 61  70 62 67 22 29 3a f2 73  |,148,"mapbg"):.s|
00004570  63 72 63 6f 70 79 32 31  3a c8 99 20 22 4f 53 5f  |crcopy21:.. "OS_|
00004580  42 79 74 65 22 2c 31 31  32 2c 64 6f 25 0d 12 a2  |Byte",112,do%...|
00004590  17 73 61 79 78 25 3d 36  30 34 3a 73 61 79 79 25  |.sayx%=604:sayy%|
000045a0  3d 37 35 36 0d 12 ac 1c  f2 63 61 63 68 65 73 6f  |=756.....cacheso|
000045b0  75 6e 64 28 22 66 78 6a  69 6e 67 33 22 2c 31 29  |und("fxjing3",1)|
000045c0  0d 12 b6 0c e3 6c 25 3d  30 b8 32 30 0d 12 c0 34  |.....l%=0.20...4|
000045d0  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
000045e0  22 2c 26 31 32 32 2c 73  70 61 72 65 61 25 2c 22  |",&122,sparea%,"|
000045f0  6d 61 70 62 67 22 2c 35  38 38 2c 37 34 38 2c 38  |mapbg",588,748,8|
00004600  0d 12 ca 4b 20 e7 6c 25  3e 31 30 3a c8 99 22 4f  |...K .l%>10:.."O|
00004610  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
00004620  2c 73 70 61 72 65 61 25  2c 22 64 6f 74 22 2c 70  |,sparea%,"dot",p|
00004630  6f 73 78 25 2d 32 30 2c  70 6f 73 79 25 2d 32 30  |osx%-20,posy%-20|
00004640  2c 38 2c 73 63 61 6c 65  25 2c 30 0d 12 d4 0f 20  |,8,scale%,0.... |
00004650  f2 70 6c 6f 74 73 74 61  72 73 0d 12 de 0e 20 f2  |.plotstars.... .|
00004660  77 61 69 74 28 31 30 29  0d 12 e8 17 20 e7 6c 25  |wait(10).... .l%|
00004670  3d 33 3a d4 20 31 2c 26  31 37 46 2c 31 2c 31 0d  |=3:. 1,&17F,1,1.|
00004680  12 f2 52 20 73 65 65 25  3d 25 31 30 30 3e 3e 3e  |..R see%=%100>>>|
00004690  73 65 65 25 3a 64 6f 25  3d 25 31 30 30 3e 3e 3e  |see%:do%=%100>>>|
000046a0  64 6f 25 3a c8 96 3a c8  99 20 22 4f 53 5f 42 79  |do%:..:.. "OS_By|
000046b0  74 65 22 2c 31 31 33 2c  73 65 65 25 3a c8 99 20  |te",113,see%:.. |
000046c0  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c 64 6f  |"OS_Byte",112,do|
000046d0  25 0d 12 fc 05 ed 0d 13  06 16 f2 73 63 72 63 6f  |%..........scrco|
000046e0  70 79 28 73 65 65 25 2c  64 6f 25 29 0d 13 10 05  |py(see%,do%)....|
000046f0  e1 0d 13 1a 04 0d 13 24  13 dd f2 70 6c 6f 74 64  |.......$...plotd|
00004700  6f 74 28 62 75 67 25 29  0d 13 2e 4b c8 99 22 4f  |ot(bug%)...K.."O|
00004710  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 32 32  |S_SpriteOp",&122|
00004720  2c 73 70 61 72 65 61 25  2c 22 64 6f 74 62 67 22  |,sparea%,"dotbg"|
00004730  2b c3 28 64 6f 25 29 2c  64 6f 74 78 25 28 64 6f  |+.(do%),dotx%(do|
00004740  25 2d 31 29 2c 64 6f 74  79 25 28 64 6f 25 2d 31  |%-1),doty%(do%-1|
00004750  29 2c 38 0d 13 38 3e e7  62 75 67 25 3a ef 31 38  |),8..8>.bug%:.18|
00004760  2c 30 2c 31 35 3a ef 32  35 2c 34 2c 62 75 67 78  |,0,15:.25,4,bugx|
00004770  30 25 3b 62 75 67 79 30  25 3b 3a ef 32 35 2c 31  |0%;bugy0%;:.25,1|
00004780  30 31 2c 62 75 67 78 31  25 3b 62 75 67 79 31 25  |01,bugx1%;bugy1%|
00004790  3b 0d 13 42 10 73 6f 75  6e 64 73 74 65 70 25 3d  |;..B.soundstep%=|
000047a0  30 0d 13 4c 0f e7 77 61  6c 6b 25 3d 2d 31 20 8c  |0..L..walk%=-1 .|
000047b0  0d 13 56 16 20 6d 6f 76  65 78 25 3d 30 3a 6d 6f  |..V. movex%=0:mo|
000047c0  76 65 79 25 3d 30 0d 13  60 6a 20 64 6f 74 78 25  |vey%=0..`j dotx%|
000047d0  28 64 6f 25 2d 31 29 3d  70 6f 73 78 25 2d 32 30  |(do%-1)=posx%-20|
000047e0  3a 64 6f 74 79 25 28 64  6f 25 2d 31 29 3d 70 6f  |:doty%(do%-1)=po|
000047f0  73 79 25 2d 32 30 3a f2  73 61 76 65 62 67 72 64  |sy%-20:.savebgrd|
00004800  28 64 6f 74 78 25 28 64  6f 25 2d 31 29 2c 64 6f  |(dotx%(do%-1),do|
00004810  74 79 25 28 64 6f 25 2d  31 29 2c 34 34 2c 34 34  |ty%(do%-1),44,44|
00004820  2c 22 64 6f 74 62 67 22  2b c3 28 64 6f 25 29 29  |,"dotbg"+.(do%))|
00004830  0d 13 6a ad 20 e7 64 69  72 6e 25 3e 3d 30 3a c8  |..j. .dirn%>=0:.|
00004840  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00004850  31 33 34 2c 73 70 61 72  65 61 25 2c 22 61 72 72  |134,sparea%,"arr|
00004860  22 2b c3 28 64 69 72 6e  25 29 2b 22 31 22 2c 64  |"+.(dirn%)+"1",d|
00004870  6f 74 78 25 28 64 6f 25  2d 31 29 2c 64 6f 74 79  |otx%(do%-1),doty|
00004880  25 28 64 6f 25 2d 31 29  2c 38 2c 73 63 61 6c 65  |%(do%-1),8,scale|
00004890  25 2c 30 3a 8b 3a c8 99  22 4f 53 5f 53 70 72 69  |%,0:.:.."OS_Spri|
000048a0  74 65 4f 70 22 2c 26 31  33 34 2c 73 70 61 72 65  |teOp",&134,spare|
000048b0  61 25 2c 22 64 6f 74 22  2c 64 6f 74 78 25 28 64  |a%,"dot",dotx%(d|
000048c0  6f 25 2d 31 29 2c 64 6f  74 79 25 28 64 6f 25 2d  |o%-1),doty%(do%-|
000048d0  31 29 2c 38 2c 73 63 61  6c 65 25 2c 30 0d 13 74  |1),8,scale%,0..t|
000048e0  05 cc 0d 13 7e 0f 20 c8  8e 20 77 61 6c 6b 25 20  |....~. .. walk% |
000048f0  ca 0d 13 88 31 20 20 c9  20 30 3a 6d 6f 76 65 78  |....1  . 0:movex|
00004900  25 3d 30 3a e7 73 74 65  70 25 3d 30 3a 6d 6f 76  |%=0:.step%=0:mov|
00004910  65 79 25 3d 34 38 3a 8b  3a 6d 6f 76 65 79 25 2b  |ey%=48:.:movey%+|
00004920  3d 34 0d 13 92 31 20 20  c9 20 31 3a 6d 6f 76 65  |=4...1  . 1:move|
00004930  79 25 3d 30 3a e7 73 74  65 70 25 3d 30 3a 6d 6f  |y%=0:.step%=0:mo|
00004940  76 65 78 25 3d 35 34 3a  8b 3a 6d 6f 76 65 78 25  |vex%=54:.:movex%|
00004950  2b 3d 36 0d 13 9c 32 20  20 c9 20 32 3a 6d 6f 76  |+=6...2  . 2:mov|
00004960  65 79 25 3d 30 3a e7 73  74 65 70 25 3d 30 3a 6d  |ey%=0:.step%=0:m|
00004970  6f 76 65 78 25 3d 2d 35  34 3a 8b 3a 6d 6f 76 65  |ovex%=-54:.:move|
00004980  78 25 2d 3d 36 0d 13 a6  32 20 20 c9 20 33 3a 6d  |x%-=6...2  . 3:m|
00004990  6f 76 65 78 25 3d 30 3a  e7 73 74 65 70 25 3d 30  |ovex%=0:.step%=0|
000049a0  3a 6d 6f 76 65 79 25 3d  2d 34 38 3a 8b 3a 6d 6f  |:movey%=-48:.:mo|
000049b0  76 65 79 25 2d 3d 34 0d  13 b0 06 20 cb 0d 13 ba  |vey%-=4.... ....|
000049c0  78 20 64 6f 74 78 25 28  64 6f 25 2d 31 29 3d 70  |x dotx%(do%-1)=p|
000049d0  6f 73 78 25 2d 32 30 2b  6d 6f 76 65 78 25 3a 64  |osx%-20+movex%:d|
000049e0  6f 74 79 25 28 64 6f 25  2d 31 29 3d 70 6f 73 79  |oty%(do%-1)=posy|
000049f0  25 2d 32 30 2b 6d 6f 76  65 79 25 3a f2 73 61 76  |%-20+movey%:.sav|
00004a00  65 62 67 72 64 28 64 6f  74 78 25 28 64 6f 25 2d  |ebgrd(dotx%(do%-|
00004a10  31 29 2c 64 6f 74 79 25  28 64 6f 25 2d 31 29 2c  |1),doty%(do%-1),|
00004a20  34 34 2c 34 34 2c 22 64  6f 74 62 67 22 2b c3 28  |44,44,"dotbg"+.(|
00004a30  64 6f 25 29 29 0d 13 c4  59 20 c8 99 22 4f 53 5f  |do%))...Y .."OS_|
00004a40  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |SpriteOp",&134,s|
00004a50  70 61 72 65 61 25 2c 22  61 72 72 22 2b c3 28 77  |parea%,"arr"+.(w|
00004a60  61 6c 6b 25 29 2b 22 32  22 2c 64 6f 74 78 25 28  |alk%)+"2",dotx%(|
00004a70  64 6f 25 2d 31 29 2c 64  6f 74 79 25 28 64 6f 25  |do%-1),doty%(do%|
00004a80  2d 31 29 2c 38 2c 73 63  61 6c 65 25 2c 30 0d 13  |-1),8,scale%,0..|
00004a90  ce 0f 20 e7 73 74 65 70  25 3d 30 20 8c 0d 13 d8  |.. .step%=0 ....|
00004aa0  33 20 20 70 6f 73 78 25  2b 3d 6d 6f 76 65 78 25  |3  posx%+=movex%|
00004ab0  3a 70 6f 73 79 25 2b 3d  6d 6f 76 65 79 25 3a 6d  |:posy%+=movey%:m|
00004ac0  6f 76 65 78 25 3d 30 3a  6d 6f 76 65 79 25 3d 30  |ovex%=0:movey%=0|
00004ad0  0d 13 e2 10 20 20 c8 8e  20 77 61 6c 6b 25 20 ca  |....  .. walk% .|
00004ae0  0d 13 ec 22 20 20 20 c9  20 30 3a 67 72 69 64 79  |..."   . 0:gridy|
00004af0  25 2d 3d 31 3a 73 6f 75  6e 64 73 74 65 70 25 3d  |%-=1:soundstep%=|
00004b00  2d 31 0d 13 f6 14 20 20  20 c9 20 31 3a 67 72 69  |-1....   . 1:gri|
00004b10  64 78 25 2b 3d 31 0d 14  00 14 20 20 20 c9 20 32  |dx%+=1....   . 2|
00004b20  3a 67 72 69 64 78 25 2d  3d 31 0d 14 0a 22 20 20  |:gridx%-=1..."  |
00004b30  20 c9 20 33 3a 67 72 69  64 79 25 2b 3d 31 3a 73  | . 3:gridy%+=1:s|
00004b40  6f 75 6e 64 73 74 65 70  25 3d 2d 31 0d 14 14 07  |oundstep%=-1....|
00004b50  20 20 cb 0d 14 1e 0e 20  20 77 61 6c 6b 25 3d 2d  |  .....  walk%=-|
00004b60  31 0d 14 28 06 20 cd 0d  14 32 05 cd 0d 14 3c 05  |1..(. ...2....<.|
00004b70  e1 0d 14 46 04 0d 14 50  11 dd f2 70 6c 6f 74 6d  |...F...P...plotm|
00004b80  61 70 62 75 74 73 0d 14  5a 08 ea 20 6a 25 0d 14  |apbuts..Z.. j%..|
00004b90  64 0b e3 6a 25 3d 30 b8  33 0d 14 6e 27 20 e7 63  |d..j%=0.3..n' .c|
00004ba0  68 61 6e 67 65 64 62 75  74 25 28 6a 25 29 3e 30  |hangedbut%(j%)>0|
00004bb0  3a f2 70 6c 6f 74 6d 61  70 62 75 74 28 6a 25 29  |:.plotmapbut(j%)|
00004bc0  0d 14 78 3c 20 e7 28 63  68 61 6e 67 65 64 62 75  |..x< .(changedbu|
00004bd0  74 25 28 6a 25 29 3e 30  29 84 28 6f 6e 6c 79 77  |t%(j%)>0).(onlyw|
00004be0  61 6c 6b 25 28 6a 25 29  3e 30 29 3a f2 70 6c 6f  |alk%(j%)>0):.plo|
00004bf0  74 62 75 74 65 6c 66 73  28 6a 25 29 0d 14 82 05  |tbutelfs(j%)....|
00004c00  ed 0d 14 8c 05 e1 0d 14  96 04 0d 14 a0 14 dd f2  |................|
00004c10  70 6c 6f 74 6d 61 70 62  75 74 28 62 25 29 0d 14  |plotmapbut(b%)..|
00004c20  aa 08 ea 20 6b 25 0d 14  b4 50 c8 99 22 4f 53 5f  |... k%...P.."OS_|
00004c30  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |SpriteOp",&134,s|
00004c40  70 61 72 65 61 25 2c 22  62 75 74 22 2b c3 28 62  |parea%,"but"+.(b|
00004c50  75 74 63 6f 6c 25 28 62  25 29 29 2c 31 30 2c 37  |utcol%(b%)),10,7|
00004c60  36 34 2d 28 31 39 36 2a  62 25 29 2c 38 2c 73 63  |64-(196*b%),8,sc|
00004c70  61 6c 65 25 2c 30 0d 14  be 75 e3 6b 25 3d 30 b8  |ale%,0...u.k%=0.|
00004c80  33 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |3:.."OS_SpriteOp|
00004c90  22 2c 26 31 33 34 2c 73  70 61 72 65 61 25 2c 22  |",&134,sparea%,"|
00004ca0  61 72 72 22 2b c3 28 62  25 29 2b c3 28 62 75 74  |arr"+.(b%)+.(but|
00004cb0  63 6f 6c 25 28 62 25 29  29 2c 62 75 74 61 72 72  |col%(b%)),butarr|
00004cc0  25 28 6b 25 2c 30 29 2c  62 75 74 61 72 72 25 28  |%(k%,0),butarr%(|
00004cd0  6b 25 2c 31 29 2d 28 31  39 36 2a 62 25 29 2c 38  |k%,1)-(196*b%),8|
00004ce0  2c 73 63 61 6c 65 25 2c  30 3a ed 0d 14 c8 05 e1  |,scale%,0:......|
00004cf0  0d 14 d2 04 0d 14 dc 15  dd f2 70 6c 6f 74 62 75  |..........plotbu|
00004d00  74 65 6c 66 73 28 62 25  29 0d 14 e6 08 ea 20 6b  |telfs(b%)..... k|
00004d10  25 0d 14 f0 3c ef 31 38  2c 30 2c 33 3a ef 32 35  |%...<.18,0,3:.25|
00004d20  2c 34 2c 37 32 3b 38 32  34 2d 28 31 39 36 2a 62  |,4,72;824-(196*b|
00004d30  25 29 3b 3a ef 32 35 2c  31 30 31 2c 31 39 32 3b  |%);:.25,101,192;|
00004d40  38 39 32 2d 28 31 39 36  2a 62 25 29 3b 0d 14 fa  |892-(196*b%);...|
00004d50  0b c8 8e 20 62 25 20 ca  0d 15 04 0b 20 c9 20 30  |... b% ..... . 0|
00004d60  2c 33 3a 0d 15 0e 78 20  20 e3 6b 25 3d 30 b8 32  |,3:...x  .k%=0.2|
00004d70  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
00004d80  2c 26 31 33 34 2c 73 70  61 72 65 61 33 25 2c 22  |,&134,sparea3%,"|
00004d90  65 22 2b c3 28 6b 25 29  2b c3 28 62 75 74 77 61  |e"+.(k%)+.(butwa|
00004da0  6c 6b 25 28 62 25 29 29  2c 39 32 2b 28 34 30 2a  |lk%(b%)),92+(40*|
00004db0  6b 25 29 2d 31 34 2d 28  36 2a 28 6b 25 83 32 29  |k%)-14-(6*(k%.2)|
00004dc0  29 2c 38 32 38 2d 28 31  39 36 2a 62 25 29 2c 38  |),828-(196*b%),8|
00004dd0  2c 73 63 61 6c 65 25 2c  30 3a ed 0d 15 18 32 20  |,scale%,0:....2 |
00004de0  c9 20 31 2c 32 3a 20 e7  66 6c 69 70 25 3d 28 62  |. 1,2: .flip%=(b|
00004df0  25 83 32 29 3a f2 66 6c  69 70 65 6c 66 73 3a 66  |%.2):.flipelfs:f|
00004e00  6c 69 70 25 3d 31 2d 28  62 25 83 32 29 0d 15 22  |lip%=1-(b%.2).."|
00004e10  89 20 20 e3 6b 25 3d 30  b8 32 3a c8 99 22 4f 53  |.  .k%=0.2:.."OS|
00004e20  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00004e30  73 70 61 72 65 61 33 25  2c 22 65 22 2b c3 28 6b  |sparea3%,"e"+.(k|
00004e40  25 29 2b c3 28 62 75 74  77 61 6c 6b 25 28 62 25  |%)+.(butwalk%(b%|
00004e50  29 29 2c 39 32 2b 28 34  30 2a 6b 25 29 2b 64 69  |)),92+(40*k%)+di|
00004e60  73 70 25 28 6b 25 83 32  2c 66 6c 69 70 25 2c 62  |sp%(k%.2,flip%,b|
00004e70  75 74 77 61 6c 6b 25 28  62 25 29 29 2c 38 32 38  |utwalk%(b%)),828|
00004e80  2d 28 31 39 36 2a 62 25  29 2c 38 2c 73 63 61 6c  |-(196*b%),8,scal|
00004e90  65 25 2c 30 3a ed 0d 15  2c 05 cb 0d 15 36 05 e1  |e%,0:...,....6..|
00004ea0  0d 15 40 04 0d 15 4a 0e  dd f2 66 6c 69 70 65 6c  |..@...J...flipel|
00004eb0  66 73 0d 15 54 0b ea 20  6a 25 2c 6b 25 0d 15 5e  |fs..T.. j%,k%..^|
00004ec0  3b e3 6a 25 3d 30 b8 32  3a e3 6b 25 3d 30 b8 38  |;.j%=0.2:.k%=0.8|
00004ed0  3a f2 66 6c 69 70 28 73  70 61 72 65 61 33 25 2c  |:.flip(sparea3%,|
00004ee0  22 79 22 2c 22 65 22 2b  c3 28 6a 25 29 2b c3 28  |"y","e"+.(j%)+.(|
00004ef0  6b 25 29 29 3a ed 3a ed  0d 15 68 05 e1 0d 15 72  |k%)):.:...h....r|
00004f00  04 0d 15 7c 0e dd f2 63  68 65 63 6b 6d 61 70 0d  |...|...checkmap.|
00004f10  15 86 08 ea 20 70 25 0d  15 90 1e 70 25 3d 6d 61  |.... p%....p%=ma|
00004f20  70 64 65 66 6e 25 28 67  72 69 64 79 25 2c 67 72  |pdefn%(gridy%,gr|
00004f30  69 64 78 25 29 0d 15 9a  2e e7 28 70 25 80 25 30  |idx%).....(p%.%0|
00004f40  30 30 31 29 3d 25 30 30  30 31 3a 63 61 6e 67 6f  |001)=%0001:cango|
00004f50  75 70 25 3d 2d 31 3a 8b  3a 63 61 6e 67 6f 75 70  |up%=-1:.:cangoup|
00004f60  25 3d 30 0d 15 a4 34 e7  28 70 25 80 25 30 30 31  |%=0...4.(p%.%001|
00004f70  30 29 3d 25 30 30 31 30  3a 63 61 6e 67 6f 72 69  |0)=%0010:cangori|
00004f80  67 68 74 25 3d 2d 31 3a  8b 3a 63 61 6e 67 6f 72  |ght%=-1:.:cangor|
00004f90  69 67 68 74 25 3d 30 0d  15 ae 32 e7 28 70 25 80  |ight%=0...2.(p%.|
00004fa0  25 30 31 30 30 29 3d 25  30 31 30 30 3a 63 61 6e  |%0100)=%0100:can|
00004fb0  67 6f 6c 65 66 74 25 3d  2d 31 3a 8b 3a 63 61 6e  |goleft%=-1:.:can|
00004fc0  67 6f 6c 65 66 74 25 3d  30 0d 15 b8 32 e7 28 70  |goleft%=0...2.(p|
00004fd0  25 80 25 31 30 30 30 29  3d 25 31 30 30 30 3a 63  |%.%1000)=%1000:c|
00004fe0  61 6e 67 6f 64 6f 77 6e  25 3d 2d 31 3a 8b 3a 63  |angodown%=-1:.:c|
00004ff0  61 6e 67 6f 64 6f 77 6e  25 3d 30 0d 15 c2 1d e7  |angodown%=0.....|
00005000  28 70 25 80 26 31 30 29  3d 26 31 30 3a f2 73 70  |(p%.&10)=&10:.sp|
00005010  65 63 69 61 6c 6d 61 70  0d 15 cc 05 e1 0d 15 d6  |ecialmap........|
00005020  04 0d 15 e0 10 dd f2 73  70 65 63 69 61 6c 6d 61  |.......specialma|
00005030  70 0d 15 ea 16 f2 73 63  72 63 6f 70 79 28 73 65  |p.....scrcopy(se|
00005040  65 25 2c 64 6f 25 29 0d  15 f4 2a e7 28 67 72 69  |e%,do%)...*.(gri|
00005050  64 78 25 3d 37 29 80 28  67 72 69 64 79 25 3d 30  |dx%=7).(gridy%=0|
00005060  29 3a f2 63 61 73 74 6c  65 6b 71 28 73 69 7a 25  |):.castlekq(siz%|
00005070  29 0d 15 fe 2f e7 28 67  72 69 64 78 25 3d 32 29  |).../.(gridx%=2)|
00005080  80 28 67 72 69 64 79 25  3d 31 29 3a f2 62 61 64  |.(gridy%=1):.bad|
00005090  64 69 65 73 28 73 69 7a  25 2c 33 2c 33 2c 31 29  |dies(siz%,3,3,1)|
000050a0  0d 16 08 26 e7 28 67 72  69 64 78 25 3d 34 29 80  |...&.(gridx%=4).|
000050b0  28 67 72 69 64 79 25 3d  33 29 3a f2 63 61 76 65  |(gridy%=3):.cave|
000050c0  28 73 69 7a 25 29 0d 16  12 21 e7 28 67 72 69 64  |(siz%)...!.(grid|
000050d0  78 25 3d 31 30 29 80 28  67 72 69 64 79 25 3d 31  |x%=10).(gridy%=1|
000050e0  29 3a f2 6d 69 6e 65 0d  16 1c 05 e1 0d 16 26 04  |):.mine.......&.|
000050f0  0d 16 30 20 dd f2 62 61  64 64 69 65 73 28 73 69  |..0 ..baddies(si|
00005100  7a 25 2c 62 61 64 25 2c  67 78 25 2c 67 79 25 29  |z%,bad%,gx%,gy%)|
00005110  0d 16 3a 0e ea 20 6a 25  2c 6b 25 2c 6c 25 0d 16  |..:.. j%,k%,l%..|
00005120  44 10 f2 6c 6f 61 64 35  68 61 69 72 79 73 0d 16  |D..load5hairys..|
00005130  4e 3b c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |N;.. "OS_Byte",1|
00005140  31 32 2c 32 3a ef 31 38  2c 30 2c 33 3a ef 32 35  |12,2:.18,0,3:.25|
00005150  2c 34 2c 30 3b 30 3b 3a  ef 32 35 2c 31 30 31 2c  |,4,0;0;:.25,101,|
00005160  31 32 37 38 3b 39 35 38  3b 0d 16 58 3b c8 99 22  |1278;958;..X;.."|
00005170  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00005180  34 2c 73 70 61 72 65 61  33 25 2c 22 6d 61 70 35  |4,sparea3%,"map5|
00005190  22 2c 32 33 38 2c 32 32  30 2c 38 2c 73 63 61 6c  |",238,220,8,scal|
000051a0  65 25 2c 30 0d 16 62 49  c8 99 22 4f 53 5f 53 70  |e%,0..bI.."OS_Sp|
000051b0  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 73 70 61  |riteOp",&134,spa|
000051c0  72 65 61 34 25 2c 22 68  61 69 72 79 22 2b c3 28  |rea4%,"hairy"+.(|
000051d0  68 61 69 72 79 25 28 30  29 29 2c 33 33 36 2c 32  |hairy%(0)),336,2|
000051e0  35 32 2c 38 2c 73 63 61  6c 65 25 2c 30 0d 16 6c  |52,8,scale%,0..l|
000051f0  49 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |I.."OS_SpriteOp"|
00005200  2c 26 31 33 34 2c 73 70  61 72 65 61 34 25 2c 22  |,&134,sparea4%,"|
00005210  68 61 69 72 79 22 2b c3  28 68 61 69 72 79 25 28  |hairy"+.(hairy%(|
00005220  31 29 29 2c 35 35 36 2c  32 35 32 2c 38 2c 73 63  |1)),556,252,8,sc|
00005230  61 6c 65 25 2c 30 0d 16  76 49 c8 99 22 4f 53 5f  |ale%,0..vI.."OS_|
00005240  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |SpriteOp",&134,s|
00005250  70 61 72 65 61 34 25 2c  22 68 61 69 72 79 22 2b  |parea4%,"hairy"+|
00005260  c3 28 68 61 69 72 79 25  28 32 29 29 2c 37 37 36  |.(hairy%(2)),776|
00005270  2c 32 35 32 2c 38 2c 73  63 61 6c 65 25 2c 30 0d  |,252,8,scale%,0.|
00005280  16 80 62 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..b.."OS_SpriteO|
00005290  70 22 2c 26 31 33 34 2c  62 75 74 61 72 65 61 25  |p",&134,butarea%|
000052a0  2c 22 65 6c 66 68 65 61  64 30 22 2c 32 30 2c 35  |,"elfhead0",20,5|
000052b0  36 2c 38 2c 73 63 61 6c  65 25 2c 30 3a f2 73 70  |6,8,scale%,0:.sp|
000052c0  65 65 63 68 62 6f 78 28  32 34 30 2c 38 2c 38 32  |eechbox(240,8,82|
000052d0  30 2c 31 36 30 2c 31 2c  2d 31 2c 34 38 2c 2d 31  |0,160,1,-1,48,-1|
000052e0  29 0d 16 8a 6e 75 73 75  61 6c 70 6f 73 25 3d 2d  |)...nusualpos%=-|
000052f0  31 3a f2 77 6f 72 64 73  5f 72 65 61 64 28 32 2c  |1:.words_read(2,|
00005300  22 31 33 2c 31 34 22 29  3a f2 77 6f 72 64 73 5f  |"13,14"):.words_|
00005310  73 61 79 28 22 4f 68 20  6e 6f 21 20 54 68 65 20  |say("Oh no! The |
00005320  22 2b 6f 6e 24 2b 22 48  61 69 72 79 20 47 61 6e  |"+on$+"Hairy Gan|
00005330  67 22 2b 6f 66 66 24 2b  22 2e 22 2c 22 57 65 20  |g"+off$+".","We |
00005340  6d 75 73 74 20 67 6f 20  62 61 63 6b 2e 22 29 0d  |must go back.").|
00005350  16 94 2e f2 6d 65 72 67  65 73 63 72 32 31 28 36  |....mergescr21(6|
00005360  29 3a f2 62 6f 6f 6b 67  6f 6f 6e 28 31 30 38 30  |):.bookgoon(1080|
00005370  2c 31 32 2c 26 30 31 2c  2d 31 2c 30 29 0d 16 9e  |,12,&01,-1,0)...|
00005380  24 67 72 69 64 78 25 3d  67 78 25 3a 67 72 69 64  |$gridx%=gx%:grid|
00005390  79 25 3d 67 79 25 3a f2  62 61 63 6b 74 6f 6d 61  |y%=gy%:.backtoma|
000053a0  70 0d 16 a8 05 e1 0d 16  b2 04 0d 16 bc 0f dd f2  |p...............|
000053b0  62 61 63 6b 74 6f 6d 61  70 0d 16 c6 62 62 75 74  |backtomap...bbut|
000053c0  63 6f 6c 25 28 29 3d 30  3a 66 6c 69 70 25 3d 30  |col%()=0:flip%=0|
000053d0  3a 62 75 74 77 61 6c 6b  25 28 30 29 3d 39 3a 62  |:butwalk%(0)=9:b|
000053e0  75 74 77 61 6c 6b 25 28  31 29 3d 38 3a 62 75 74  |utwalk%(1)=8:but|
000053f0  77 61 6c 6b 25 28 32 29  3d 38 3a 62 75 74 77 61  |walk%(2)=8:butwa|
00005400  6c 6b 25 28 33 29 3d 32  31 3a 64 69 72 6e 25 3d  |lk%(3)=21:dirn%=|
00005410  2d 31 3a 77 61 6c 6b 25  3d 2d 31 0d 16 d0 43 f2  |-1:walk%=-1...C.|
00005420  6c 6f 61 64 6d 61 70 62  75 74 73 28 73 69 7a 25  |loadmapbuts(siz%|
00005430  29 3a f2 6d 61 6b 65 6d  61 70 28 2d 31 2c 2d 31  |):.makemap(-1,-1|
00005440  2c 2d 31 29 3a f2 6d 65  72 67 65 73 63 72 32 31  |,-1):.mergescr21|
00005450  28 34 29 3a f2 73 6f 72  74 6f 75 74 68 30 0d 16  |(4):.sortouth0..|
00005460  da 23 f2 77 6f 72 64 73  5f 72 65 61 64 28 35 2c  |.#.words_read(5,|
00005470  22 30 34 2c 30 35 2c 30  36 2c 30 37 2c 30 38 22  |"04,05,06,07,08"|
00005480  29 0d 16 e4 05 e1 0d 16  ee 04 0d 16 f8 14 dd f2  |)...............|
00005490  63 61 73 74 6c 65 6b 71  28 73 69 7a 25 29 0d 17  |castlekq(siz%)..|
000054a0  02 90 73 70 61 72 65 61  33 25 3d 73 70 61 72 65  |..sparea3%=spare|
000054b0  61 25 2b 73 70 61 72 65  61 73 69 7a 25 2d 73 69  |a%+spareasiz%-si|
000054c0  7a 25 3a 21 73 70 61 72  65 61 33 25 3d 73 69 7a  |z%:!sparea3%=siz|
000054d0  25 3a 73 70 61 72 65 61  33 25 21 38 3d 31 36 3a  |%:sparea3%!8=16:|
000054e0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000054f0  2c 26 31 30 39 2c 73 70  61 72 65 61 33 25 3a f2  |,&109,sparea3%:.|
00005500  6c 6f 61 64 75 6e 73 71  75 61 73 68 28 73 70 61  |loadunsquash(spa|
00005510  72 65 61 33 25 2c 73 69  7a 25 2c 22 4f 4e 45 2e  |rea3%,siz%,"ONE.|
00005520  73 70 66 69 6c 65 73 2e  6d 61 70 30 22 29 0d 17  |spfiles.map0")..|
00005530  0c 3a 6d 61 73 6b 73 70  25 28 30 29 3d 34 3a 6d  |.:masksp%(0)=4:m|
00005540  61 73 6b 73 70 24 28 30  29 3d 22 6d 61 70 30 22  |asksp$(0)="map0"|
00005550  3a f2 6d 61 73 6b 73 70  72 69 74 65 28 73 70 61  |:.masksprite(spa|
00005560  72 65 61 33 25 2c 31 29  0d 17 16 3b c8 99 20 22  |rea3%,1)...;.. "|
00005570  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 32 3a ef  |OS_Byte",112,2:.|
00005580  31 38 2c 30 2c 31 3a ef  32 35 2c 34 2c 30 3b 30  |18,0,1:.25,4,0;0|
00005590  3b 3a ef 32 35 2c 31 30  31 2c 31 32 37 38 3b 39  |;:.25,101,1278;9|
000055a0  35 38 3b 0d 17 20 3b c8  99 22 4f 53 5f 53 70 72  |58;.. ;.."OS_Spr|
000055b0  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
000055c0  65 61 33 25 2c 22 6d 61  70 30 22 2c 32 37 38 2c  |ea3%,"map0",278,|
000055d0  32 30 30 2c 38 2c 73 63  61 6c 65 25 2c 30 0d 17  |200,8,scale%,0..|
000055e0  2a 5f c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |*_.."OS_SpriteOp|
000055f0  22 2c 26 31 33 34 2c 73  70 61 72 65 61 33 25 2c  |",&134,sparea3%,|
00005600  22 71 68 65 61 64 22 2c  32 30 2c 35 36 2c 38 2c  |"qhead",20,56,8,|
00005610  73 63 61 6c 65 25 2c 30  3a f2 73 70 65 65 63 68  |scale%,0:.speech|
00005620  62 6f 78 28 32 34 30 2c  38 2c 38 32 30 2c 31 30  |box(240,8,820,10|
00005630  38 2c 31 2c 2d 31 2c 34  38 2c 2d 31 29 0d 17 34  |8,1,-1,48,-1)..4|
00005640  66 75 73 75 61 6c 70 6f  73 25 3d 2d 31 3a f2 77  |fusualpos%=-1:.w|
00005650  6f 72 64 73 5f 72 65 61  64 28 32 2c 22 30 31 2c  |ords_read(2,"01,|
00005660  30 32 22 29 3a f2 77 6f  72 64 73 5f 73 61 79 28  |02"):.words_say(|
00005670  22 54 68 65 20 6b 69 6e  67 20 69 73 20 69 6e 20  |"The king is in |
00005680  22 2b 6f 6e 24 2b 22 61  6e 6f 74 68 65 72 20 63  |"+on$+"another c|
00005690  61 73 74 6c 65 22 2b 6f  66 66 24 2b 22 2e 22 2c  |astle"+off$+".",|
000056a0  22 22 29 0d 17 3e 2e f2  6d 65 72 67 65 73 63 72  |"")..>..mergescr|
000056b0  32 31 28 36 29 3a f2 62  6f 6f 6b 67 6f 6f 6e 28  |21(6):.bookgoon(|
000056c0  31 30 38 30 2c 31 32 2c  26 30 31 2c 2d 31 2c 30  |1080,12,&01,-1,0|
000056d0  29 0d 17 48 20 67 72 69  64 78 25 3d 37 3a 67 72  |)..H gridx%=7:gr|
000056e0  69 64 79 25 3d 31 3a f2  62 61 63 6b 74 6f 6d 61  |idy%=1:.backtoma|
000056f0  70 0d 17 52 05 e1 0d 17  5c 04 0d 17 66 0f dd f2  |p..R....\...f...|
00005700  73 6f 72 74 6f 75 74 68  30 0d 17 70 4c 73 65 65  |sortouth0..pLsee|
00005710  25 3d 31 3a 64 6f 25 3d  32 3a 63 6c 69 63 6b 74  |%=1:do%=2:clickt|
00005720  69 6d 65 25 3d 91 2d 31  30 30 3a c8 99 20 22 4f  |ime%=.-100:.. "O|
00005730  53 5f 42 79 74 65 22 2c  31 31 33 2c 73 65 65 25  |S_Byte",113,see%|
00005740  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
00005750  32 2c 64 6f 25 0d 17 7a  5b f2 73 61 76 65 62 67  |2,do%..z[.savebg|
00005760  72 64 28 32 34 38 2c 34  36 30 2c 31 31 38 2c 31  |rd(248,460,118,1|
00005770  31 32 2c 22 68 30 62 67  31 22 29 3a f2 73 61 76  |12,"h0bg1"):.sav|
00005780  65 62 67 72 64 28 32 34  38 2c 34 36 30 2c 31 31  |ebgrd(248,460,11|
00005790  38 2c 31 31 32 2c 22 68  30 62 67 32 22 29 3a 78  |8,112,"h0bg2"):x|
000057a0  25 28 29 3d 32 34 38 3a  79 25 28 29 3d 34 36 30  |%()=248:y%()=460|
000057b0  0d 17 84 46 c8 99 22 4f  53 5f 42 79 74 65 22 2c  |...F.."OS_Byte",|
000057c0  32 31 2c 39 3a c8 97 20  c8 93 20 30 2c 31 30 30  |21,9:.. .. 0,100|
000057d0  2c 31 32 36 34 2c 38 34  38 3a c8 97 20 b8 20 32  |,1264,848:.. . 2|
000057e0  35 36 2c 35 36 34 3a 6d  78 25 3d 32 35 36 3a 6d  |56,564:mx%=256:m|
000057f0  79 25 3d 35 36 34 0d 17  8e 05 e1 0d 17 98 04 0d  |y%=564..........|
00005800  17 a2 0e dd f2 6c 6f 6f  70 65 78 69 74 0d 17 ac  |.....loopexit...|
00005810  12 c8 8e 20 6c 6f 6f 70  65 78 69 74 25 20 ca 0d  |... loopexit% ..|
00005820  17 b6 20 20 c9 20 31 3a  e7 64 6f 6e 65 61 62 6c  |..  . 1:.doneabl|
00005830  75 65 25 3a 61 6e 69 6d  65 6e 64 25 3d 2d 31 0d  |ue%:animend%=-1.|
00005840  17 c0 4b 20 c9 20 32 3a  e7 28 6d 78 25 3e 3d 33  |..K . 2:.(mx%>=3|
00005850  34 30 29 80 28 6d 78 25  3c 3d 39 33 36 29 80 28  |40).(mx%<=936).(|
00005860  6d 79 25 3e 3d 32 30 38  29 80 28 6d 79 25 3c 3d  |my%>=208).(my%<=|
00005870  38 30 30 29 80 28 6d 62  75 74 25 3d 34 29 3a 61  |800).(mbut%=4):a|
00005880  6e 69 6d 65 6e 64 25 3d  2d 31 0d 17 ca 16 20 c9  |nimend%=-1.... .|
00005890  20 33 3a f2 6d 6f 76 65  6d 61 70 61 72 72 6f 77  | 3:.movemaparrow|
000058a0  0d 17 d4 05 cb 0d 17 de  05 e1 0d 17 e8 04 0d 17  |................|
000058b0  f2 0d dd f2 6d 6f 76 65  61 72 72 0d 17 fc 1e 61  |....movearr....a|
000058c0  6e 69 6d 70 61 75 73 65  25 28 32 31 29 3d 32 30  |nimpause%(21)=20|
000058d0  3a 6d 70 6f 73 25 2d 3d  34 0d 18 06 1a e7 6d 70  |:mpos%-=4.....mp|
000058e0  6f 73 25 3d 35 31 32 3a  61 6e 69 6d 65 6e 64 25  |os%=512:animend%|
000058f0  3d 2d 31 0d 18 10 18 ef  32 34 2c 35 31 32 3b 35  |=-1.....24,512;5|
00005900  30 38 3b 35 36 30 3b 36  35 32 3b 0d 18 1a 39 c8  |08;560;652;...9.|
00005910  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00005920  31 33 34 2c 73 70 61 72  65 61 25 2c 22 6d 61 70  |134,sparea%,"map|
00005930  22 2c 32 36 34 2c 31 38  38 2c 38 2c 73 63 61 6c  |",264,188,8,scal|
00005940  65 25 2c 30 0d 18 24 07  ef 32 36 0d 18 2e 3d c8  |e%,0..$..26...=.|
00005950  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00005960  31 33 34 2c 73 70 61 72  65 61 25 2c 22 61 72 72  |134,sparea%,"arr|
00005970  33 32 22 2c 35 31 32 2c  6d 70 6f 73 25 2c 38 2c  |32",512,mpos%,8,|
00005980  73 63 61 6c 65 25 2c 30  0d 18 38 33 61 63 68 61  |scale%,0..83acha|
00005990  6e 67 65 25 3d 2d 31 3a  64 6f 6e 65 63 68 61 6e  |nge%=-1:donechan|
000059a0  67 65 25 28 32 31 29 3d  2d 31 3a 61 6e 69 6d 74  |ge%(21)=-1:animt|
000059b0  69 6d 65 25 28 32 31 29  3d 2d 31 0d 18 42 05 e1  |ime%(21)=-1..B..|
000059c0  0d 18 4c 04 0d 18 56 11  dd f2 63 6f 70 79 6d 6f  |..L...V...copymo|
000059d0  76 65 61 72 72 0d 18 60  30 f2 73 63 72 63 6f 70  |vearr..`0.scrcop|
000059e0  79 62 6c 6f 63 6b 70 69  78 28 35 30 34 2c 34 38  |yblockpix(504,48|
000059f0  38 2c 36 34 2c 32 30 30  2c 73 65 65 25 2c 64 6f  |8,64,200,see%,do|
00005a00  25 2c 2d 31 29 0d 18 6a  05 e1 0d 18 74 04 0d 18  |%,-1)..j....t...|
00005a10  7e 16 dd f2 65 6c 66 28  78 25 2c 79 25 2c 74 79  |~...elf(x%,y%,ty|
00005a20  70 65 25 29 0d 18 88 0e  e7 74 79 70 65 25 3d 34  |pe%).....type%=4|
00005a30  20 8c 0d 18 92 4f 20 c8  99 22 4f 53 5f 53 70 72  | ....O .."OS_Spr|
00005a40  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
00005a50  65 61 33 25 2c 22 65 6c  66 73 69 64 65 22 2c 78  |ea3%,"elfside",x|
00005a60  25 2b 65 77 25 28 33 2c  30 29 2c 79 25 2b 65 77  |%+ew%(3,0),y%+ew|
00005a70  25 28 33 2c 31 29 2c 38  2c 73 63 61 6c 65 25 2c  |%(3,1),8,scale%,|
00005a80  30 0d 18 9c 42 20 c8 99  22 4f 53 5f 53 70 72 69  |0...B .."OS_Spri|
00005a90  74 65 4f 70 22 2c 26 31  33 34 2c 73 70 61 72 65  |teOp",&134,spare|
00005aa0  61 33 25 2c 22 65 77 33  22 2c 78 25 2b 65 77 25  |a3%,"ew3",x%+ew%|
00005ab0  28 33 2c 30 29 2c 79 25  2c 38 2c 73 63 61 6c 65  |(3,0),y%,8,scale|
00005ac0  25 2c 30 0d 18 a6 05 cc  0d 18 b0 5a 20 c8 99 22  |%,0........Z .."|
00005ad0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00005ae0  34 2c 73 70 61 72 65 61  33 25 2c 22 65 6c 66 73  |4,sparea3%,"elfs|
00005af0  69 64 65 22 2c 78 25 2b  65 77 25 28 74 79 70 65  |ide",x%+ew%(type|
00005b00  25 2c 30 29 2b 32 34 2c  79 25 2b 65 77 25 28 74  |%,0)+24,y%+ew%(t|
00005b10  79 70 65 25 2c 31 29 2c  38 2c 73 63 61 6c 65 25  |ype%,1),8,scale%|
00005b20  2c 30 0d 18 ba 4e 20 c8  99 22 4f 53 5f 53 70 72  |,0...N .."OS_Spr|
00005b30  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
00005b40  65 61 33 25 2c 22 65 77  22 2b c3 28 74 79 70 65  |ea3%,"ew"+.(type|
00005b50  25 29 2c 78 25 2b 65 77  25 28 74 79 70 65 25 2c  |%),x%+ew%(type%,|
00005b60  30 29 2c 79 25 2c 38 2c  73 63 61 6c 65 25 2c 30  |0),y%,8,scale%,0|
00005b70  0d 18 c4 05 cd 0d 18 ce  05 e1 0d 18 d8 04 0d 18  |................|
00005b80  e2 29 dd f2 65 6c 66 73  28 62 78 25 2c 62 79 25  |.)..elfs(bx%,by%|
00005b90  2c 62 74 79 70 65 25 2c  67 78 25 2c 67 79 25 2c  |,btype%,gx%,gy%,|
00005ba0  67 74 79 70 65 25 29 0d  18 ec 0f e7 62 74 79 70  |gtype%).....btyp|
00005bb0  65 25 3e 3d 30 8c 0d 18  f6 50 20 c8 99 22 4f 53  |e%>=0....P .."OS|
00005bc0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00005bd0  73 70 61 72 65 61 34 25  2c 22 62 77 22 2b c3 28  |sparea4%,"bw"+.(|
00005be0  62 74 79 70 65 25 29 2c  62 78 25 2b 62 77 25 28  |btype%),bx%+bw%(|
00005bf0  62 74 79 70 65 25 29 2c  62 79 25 2c 38 2c 73 63  |btype%),by%,8,sc|
00005c00  61 6c 65 25 2c 30 0d 19  00 66 20 c8 99 22 4f 53  |ale%,0...f .."OS|
00005c10  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00005c20  73 70 61 72 65 61 34 25  2c 22 62 68 65 61 64 31  |sparea4%,"bhead1|
00005c30  22 2c 62 78 25 2b 62 77  25 28 62 74 79 70 65 25  |",bx%+bw%(btype%|
00005c40  29 2b 62 68 25 28 62 74  79 70 65 25 2c 30 29 2c  |)+bh%(btype%,0),|
00005c50  62 79 25 2b 62 68 25 28  62 74 79 70 65 25 2c 31  |by%+bh%(btype%,1|
00005c60  29 2c 38 2c 73 63 61 6c  65 25 2c 30 0d 19 0a 05  |),8,scale%,0....|
00005c70  cd 0d 19 14 0f e7 67 74  79 70 65 25 3e 3d 30 8c  |......gtype%>=0.|
00005c80  0d 19 1e 50 20 c8 99 22  4f 53 5f 53 70 72 69 74  |...P .."OS_Sprit|
00005c90  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
00005ca0  34 25 2c 22 62 77 22 2b  c3 28 67 74 79 70 65 25  |4%,"bw"+.(gtype%|
00005cb0  29 2c 67 78 25 2b 62 77  25 28 67 74 79 70 65 25  |),gx%+bw%(gtype%|
00005cc0  29 2c 67 79 25 2c 38 2c  73 63 61 6c 65 25 2c 30  |),gy%,8,scale%,0|
00005cd0  0d 19 28 66 20 c8 99 22  4f 53 5f 53 70 72 69 74  |..(f .."OS_Sprit|
00005ce0  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
00005cf0  34 25 2c 22 67 77 22 2b  c3 28 67 74 79 70 65 25  |4%,"gw"+.(gtype%|
00005d00  29 2c 67 78 25 2b 62 77  25 28 67 74 79 70 65 25  |),gx%+bw%(gtype%|
00005d10  29 2b 32 2d 28 31 38 2a  a8 28 67 74 79 70 65 25  |)+2-(18*.(gtype%|
00005d20  2f 38 29 29 2c 67 79 25  2b 38 34 2c 38 2c 73 63  |/8)),gy%+84,8,sc|
00005d30  61 6c 65 25 2c 30 0d 19  32 6c 20 c8 99 22 4f 53  |ale%,0..2l .."OS|
00005d40  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00005d50  73 70 61 72 65 61 34 25  2c 22 67 68 65 61 64 31  |sparea4%,"ghead1|
00005d60  22 2c 67 78 25 2b 62 77  25 28 67 74 79 70 65 25  |",gx%+bw%(gtype%|
00005d70  29 2b 62 68 25 28 67 74  79 70 65 25 2c 30 29 2d  |)+bh%(gtype%,0)-|
00005d80  31 36 2c 67 79 25 2b 62  68 25 28 67 74 79 70 65  |16,gy%+bh%(gtype|
00005d90  25 2c 31 29 2d 31 32 2c  38 2c 73 63 61 6c 65 25  |%,1)-12,8,scale%|
00005da0  2c 30 0d 19 3c 05 cd 0d  19 46 05 e1 0d 19 50 04  |,0..<....F....P.|
00005db0  0d 19 5a 0d dd f2 6c 6f  61 64 65 6c 66 0d 19 64  |..Z...loadelf..d|
00005dc0  49 73 70 61 72 65 61 33  25 3d 73 70 61 72 65 61  |Isparea3%=sparea|
00005dd0  25 2b 73 70 61 72 65 61  73 69 7a 25 2d 28 31 31  |%+spareasiz%-(11|
00005de0  2a 31 30 32 34 29 3a 21  73 70 61 72 65 61 33 25  |*1024):!sparea3%|
00005df0  3d 31 31 2a 31 30 32 34  3a 73 70 61 72 65 61 33  |=11*1024:sparea3|
00005e00  25 21 38 3d 31 36 0d 19  6e 22 c8 99 20 22 4f 53  |%!8=16..n".. "OS|
00005e10  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00005e20  73 70 61 72 65 61 33 25  0d 19 78 35 f2 6c 6f 61  |sparea3%..x5.loa|
00005e30  64 75 6e 73 71 75 61 73  68 28 73 70 61 72 65 61  |dunsquash(sparea|
00005e40  33 25 2c 31 31 2a 31 30  32 34 2c 22 4f 4e 45 2e  |3%,11*1024,"ONE.|
00005e50  73 70 66 69 6c 65 73 2e  65 6c 66 22 29 0d 19 82  |spfiles.elf")...|
00005e60  60 6d 61 73 6b 73 70 25  28 29 3d 31 32 3a 6d 61  |`masksp%()=12:ma|
00005e70  73 6b 73 70 24 28 30 29  3d 22 65 6c 66 73 69 64  |sksp$(0)="elfsid|
00005e80  65 22 3a e3 6a 25 3d 30  b8 33 3a 6d 61 73 6b 73  |e":.j%=0.3:masks|
00005e90  70 24 28 6a 25 2b 31 29  3d 22 65 77 22 2b c3 28  |p$(j%+1)="ew"+.(|
00005ea0  6a 25 29 3a ed 3a f2 6d  61 73 6b 73 70 72 69 74  |j%):.:.masksprit|
00005eb0  65 28 73 70 61 72 65 61  33 25 2c 35 29 0d 19 8c  |e(sparea3%,5)...|
00005ec0  05 e1 0d 19 96 04 0d 19  a0 0e dd f2 6c 6f 61 64  |............load|
00005ed0  65 6c 66 73 0d 19 aa 53  73 70 61 72 65 61 34 25  |elfs...Ssparea4%|
00005ee0  3d 73 70 61 72 65 61 25  2b 73 70 61 72 65 61 73  |=sparea%+spareas|
00005ef0  69 7a 25 2d 28 31 31 2a  31 30 32 34 29 2d 28 35  |iz%-(11*1024)-(5|
00005f00  34 2a 31 30 32 34 29 3a  21 73 70 61 72 65 61 34  |4*1024):!sparea4|
00005f10  25 3d 35 34 2a 31 30 32  34 3a 73 70 61 72 65 61  |%=54*1024:sparea|
00005f20  34 25 21 38 3d 31 36 0d  19 b4 22 c8 99 20 22 4f  |4%!8=16...".. "O|
00005f30  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 39  |S_SpriteOp",&109|
00005f40  2c 73 70 61 72 65 61 34  25 0d 19 be 3a f2 6c 6f  |,sparea4%...:.lo|
00005f50  61 64 75 6e 73 71 75 61  73 68 28 73 70 61 72 65  |adunsquash(spare|
00005f60  61 34 25 2c 35 34 2a 31  30 32 34 2c 22 4f 4e 45  |a4%,54*1024,"ONE|
00005f70  2e 73 70 66 69 6c 65 73  2e 65 6c 76 65 73 69 64  |.spfiles.elvesid|
00005f80  65 22 29 0d 19 c8 48 6d  61 73 6b 73 70 25 28 29  |e")...Hmasksp%()|
00005f90  3d 34 3a e3 6a 25 3d 30  b8 38 3a 6d 61 73 6b 73  |=4:.j%=0.8:masks|
00005fa0  70 24 28 6a 25 29 3d 22  62 77 22 2b c3 28 6a 25  |p$(j%)="bw"+.(j%|
00005fb0  29 3a ed 3a f2 6d 61 73  6b 73 70 72 69 74 65 28  |):.:.masksprite(|
00005fc0  73 70 61 72 65 61 34 25  2c 39 29 0d 19 d2 3c e3  |sparea4%,9)...<.|
00005fd0  6a 25 3d 30 b8 38 3a 6d  61 73 6b 73 70 24 28 6a  |j%=0.8:masksp$(j|
00005fe0  25 29 3d 22 67 77 22 2b  c3 28 6a 25 29 3a ed 3a  |%)="gw"+.(j%):.:|
00005ff0  f2 6d 61 73 6b 73 70 72  69 74 65 28 73 70 61 72  |.masksprite(spar|
00006000  65 61 34 25 2c 39 29 0d  19 dc 43 6d 61 73 6b 73  |ea4%,9)...Cmasks|
00006010  70 24 28 30 29 3d 22 62  68 65 61 64 31 22 3a 6d  |p$(0)="bhead1":m|
00006020  61 73 6b 73 70 24 28 31  29 3d 22 67 68 65 61 64  |asksp$(1)="ghead|
00006030  31 22 3a f2 6d 61 73 6b  73 70 72 69 74 65 28 73  |1":.masksprite(s|
00006040  70 61 72 65 61 34 25 2c  32 29 0d 19 e6 05 e1 0d  |parea4%,2)......|
00006050  19 f0 04 0d 19 fa 11 dd  f2 6c 6f 61 64 35 68 61  |.........load5ha|
00006060  69 72 79 73 0d 1a 04 a4  73 70 61 72 65 61 33 25  |irys....sparea3%|
00006070  3d 73 70 61 72 65 61 25  2b 73 70 61 72 65 61 73  |=sparea%+spareas|
00006080  69 7a 25 2d 73 69 7a 25  3a 21 73 70 61 72 65 61  |iz%-siz%:!sparea|
00006090  33 25 3d 73 69 7a 25 2d  28 33 37 2a 31 30 32 34  |3%=siz%-(37*1024|
000060a0  29 3a 73 70 61 72 65 61  33 25 21 38 3d 31 36 3a  |):sparea3%!8=16:|
000060b0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000060c0  2c 26 31 30 39 2c 73 70  61 72 65 61 33 25 3a f2  |,&109,sparea3%:.|
000060d0  6c 6f 61 64 75 6e 73 71  75 61 73 68 28 73 70 61  |loadunsquash(spa|
000060e0  72 65 61 33 25 2c 73 69  7a 25 2d 28 33 37 2a 31  |rea3%,siz%-(37*1|
000060f0  30 32 34 29 2c 22 4f 4e  45 2e 73 70 66 69 6c 65  |024),"ONE.spfile|
00006100  73 2e 6d 61 70 35 22 29  0d 1a 0e 9c 73 70 61 72  |s.map5")....spar|
00006110  65 61 34 25 3d 73 70 61  72 65 61 25 2b 73 70 61  |ea4%=sparea%+spa|
00006120  72 65 61 73 69 7a 25 2d  28 33 37 2a 31 30 32 34  |reasiz%-(37*1024|
00006130  29 3a 21 73 70 61 72 65  61 34 25 3d 33 37 2a 31  |):!sparea4%=37*1|
00006140  30 32 34 3a 73 70 61 72  65 61 34 25 21 38 3d 31  |024:sparea4%!8=1|
00006150  36 3a c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |6:.. "OS_SpriteO|
00006160  70 22 2c 26 31 30 39 2c  73 70 61 72 65 61 34 25  |p",&109,sparea4%|
00006170  3a f2 6c 6f 61 64 75 6e  73 71 75 61 73 68 28 73  |:.loadunsquash(s|
00006180  70 61 72 65 61 34 25 2c  33 37 2a 31 30 32 34 2c  |parea4%,37*1024,|
00006190  22 4f 4e 45 2e 73 70 66  69 6c 65 73 2e 68 61 69  |"ONE.spfiles.hai|
000061a0  72 79 22 29 0d 1a 18 08  6c 25 3d 30 0d 1a 22 0b  |ry")....l%=0..".|
000061b0  e3 6a 25 3d 32 b8 34 0d  1a 2c 4c 20 6d 61 73 6b  |.j%=2.4..,L mask|
000061c0  73 70 24 28 6c 25 29 3d  22 68 61 69 72 79 22 2b  |sp$(l%)="hairy"+|
000061d0  c3 28 6a 25 29 3a 6d 61  73 6b 73 70 25 28 6c 25  |.(j%):masksp%(l%|
000061e0  29 3d 39 2d 28 35 2a a8  28 6a 25 2f 33 29 29 3a  |)=9-(5*.(j%/3)):|
000061f0  68 61 69 72 79 25 28 6c  25 29 3d 6a 25 3a 6c 25  |hairy%(l%)=j%:l%|
00006200  2b 3d 31 0d 1a 36 05 ed  0d 1a 40 1b f2 6d 61 73  |+=1..6....@..mas|
00006210  6b 73 70 72 69 74 65 28  73 70 61 72 65 61 34 25  |ksprite(sparea4%|
00006220  2c 33 29 0d 1a 4a 05 e1  0d 1a 54 04 0d 1a 5e 18  |,3)..J....T...^.|
00006230  dd f2 6c 6f 61 64 74 75  6e 6e 65 6c 28 74 72 61  |..loadtunnel(tra|
00006240  63 6b 25 29 0d 1a 68 08  ea 20 6a 25 0d 1a 72 0c  |ck%)..h.. j%..r.|
00006250  e7 74 72 61 63 6b 25 8c  0d 1a 7c 5e 20 73 70 61  |.track%...|^ spa|
00006260  72 65 61 35 25 3d 73 70  61 72 65 61 25 2b 73 70  |rea5%=sparea%+sp|
00006270  61 72 65 61 73 69 7a 25  2d 28 31 31 2a 31 30 32  |areasiz%-(11*102|
00006280  34 29 2d 28 35 34 2a 31  30 32 34 29 2d 28 34 32  |4)-(54*1024)-(42|
00006290  2a 31 30 32 34 29 3a 21  73 70 61 72 65 61 35 25  |*1024):!sparea5%|
000062a0  3d 34 32 2a 31 30 32 34  3a 73 70 61 72 65 61 35  |=42*1024:sparea5|
000062b0  25 21 38 3d 31 36 0d 1a  86 23 20 c8 99 20 22 4f  |%!8=16...# .. "O|
000062c0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 39  |S_SpriteOp",&109|
000062d0  2c 73 70 61 72 65 61 35  25 0d 1a 90 38 20 f2 6c  |,sparea5%...8 .l|
000062e0  6f 61 64 75 6e 73 71 75  61 73 68 28 73 70 61 72  |oadunsquash(spar|
000062f0  65 61 35 25 2c 34 32 2a  31 30 32 34 2c 22 4f 4e  |ea5%,42*1024,"ON|
00006300  45 2e 73 70 66 69 6c 65  73 2e 74 72 61 63 6b 22  |E.spfiles.track"|
00006310  29 0d 1a 9a 05 cd 0d 1a  a4 42 21 73 70 61 72 65  |)........B!spare|
00006320  61 25 3d 73 70 61 72 65  61 73 69 7a 25 2d 28 31  |a%=spareasiz%-(1|
00006330  31 2a 31 30 32 34 29 2d  28 35 34 2a 31 30 32 34  |1*1024)-(54*1024|
00006340  29 2d 28 34 32 2a 31 30  32 34 29 3a 73 70 61 72  |)-(42*1024):spar|
00006350  65 61 25 21 38 3d 31 36  0d 1a ae 21 c8 99 20 22  |ea%!8=16...!.. "|
00006360  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00006370  39 2c 73 70 61 72 65 61  25 0d 1a b8 58 f2 6c 6f  |9,sparea%...X.lo|
00006380  61 64 75 6e 73 71 75 61  73 68 28 73 70 61 72 65  |adunsquash(spare|
00006390  61 25 2c 73 70 61 72 65  61 73 69 7a 25 2d 28 31  |a%,spareasiz%-(1|
000063a0  31 2a 31 30 32 34 29 2d  28 35 34 2a 31 30 32 34  |1*1024)-(54*1024|
000063b0  29 2d 28 34 32 2a 31 30  32 34 29 2c 22 4f 4e 45  |)-(42*1024),"ONE|
000063c0  2e 73 70 66 69 6c 65 73  2e 74 75 6e 6e 65 6c 22  |.spfiles.tunnel"|
000063d0  29 0d 1a c2 0c e7 74 72  61 63 6b 25 8c 0d 1a cc  |).....track%....|
000063e0  38 20 e3 6a 25 3d 30 b8  31 3a f2 64 65 6c 65 74  |8 .j%=0.1:.delet|
000063f0  65 28 22 74 6f 70 22 2b  c3 28 6a 25 29 29 3a f2  |e("top"+.(j%)):.|
00006400  64 65 6c 65 74 65 28 22  62 6f 74 22 2b c3 28 6a  |delete("bot"+.(j|
00006410  25 29 29 3a ed 0d 1a d6  25 20 e3 6a 25 3d 30 b8  |%)):....% .j%=0.|
00006420  33 3a f2 64 65 6c 65 74  65 28 22 6c 65 76 65 72  |3:.delete("lever|
00006430  22 2b c3 28 6a 25 29 29  3a ed 0d 1a e0 24 20 f2  |"+.(j%)):....$ .|
00006440  64 65 6c 65 74 65 28 22  68 65 61 64 22 29 3a f2  |delete("head"):.|
00006450  64 65 6c 65 74 65 28 22  76 65 72 74 22 29 0d 1a  |delete("vert")..|
00006460  ea 63 20 6d 61 73 6b 73  70 25 28 29 3d 34 3a 6d  |.c masksp%()=4:m|
00006470  61 73 6b 73 70 24 28 30  29 3d 22 73 74 75 64 6f  |asksp$(0)="studo|
00006480  6f 72 31 22 3a e3 6a 25  3d 30 b8 33 3a 6d 61 73  |or1":.j%=0.3:mas|
00006490  6b 73 70 24 28 6a 25 2b  31 29 3d 22 73 74 6c 65  |ksp$(j%+1)="stle|
000064a0  76 22 2b c3 28 6a 25 29  3a ed 3a f2 6d 61 73 6b  |v"+.(j%):.:.mask|
000064b0  73 70 72 69 74 65 28 73  70 61 72 65 61 25 2c 35  |sprite(sparea%,5|
000064c0  29 0d 1a f4 05 cc 0d 1a  fe 27 20 e3 6a 25 3d 30  |)........' .j%=0|
000064d0  b8 31 3a f2 64 65 6c 65  74 65 28 22 73 74 75 64  |.1:.delete("stud|
000064e0  6f 6f 72 22 2b c3 28 6a  25 29 29 3a ed 0d 1b 08  |oor"+.(j%)):....|
000064f0  37 20 f2 64 65 6c 65 74  65 28 22 74 72 61 63 6b  |7 .delete("track|
00006500  31 22 29 3a e3 6a 25 3d  30 b8 33 3a f2 64 65 6c  |1"):.j%=0.3:.del|
00006510  65 74 65 28 22 73 74 6c  65 76 22 2b c3 28 6a 25  |ete("stlev"+.(j%|
00006520  29 29 3a ed 0d 1b 12 05  cd 0d 1b 1c a1 6d 61 73  |)):..........mas|
00006530  6b 73 70 25 28 29 3d 34  3a 6d 61 73 6b 73 70 25  |ksp%()=4:masksp%|
00006540  28 30 29 3d 31 30 3a 6d  61 73 6b 73 70 24 28 30  |(0)=10:masksp$(0|
00006550  29 3d 22 66 61 6c 6c 22  3a 6d 61 73 6b 73 70 24  |)="fall":masksp$|
00006560  28 31 29 3d 22 65 61 72  22 3a e3 6a 25 3d 30 b8  |(1)="ear":.j%=0.|
00006570  32 3a 6d 61 73 6b 73 70  24 28 6a 25 2b 32 29 3d  |2:masksp$(j%+2)=|
00006580  22 68 61 74 22 2b c3 28  6a 25 29 3a ed 3a e3 6a  |"hat"+.(j%):.:.j|
00006590  25 3d 30 b8 34 3a 6d 61  73 6b 73 70 24 28 6a 25  |%=0.4:masksp$(j%|
000065a0  2b 35 29 3d 22 74 72 61  70 22 2b c3 28 6a 25 29  |+5)="trap"+.(j%)|
000065b0  3a ed 3a f2 6d 61 73 6b  73 70 72 69 74 65 28 73  |:.:.masksprite(s|
000065c0  70 61 72 65 61 25 2c 31  30 29 0d 1b 26 05 e1 0d  |parea%,10)..&...|
000065d0  1b 30 04 0d 1b 3a 14 dd  f2 6c 6f 61 64 6d 61 70  |.0...:...loadmap|
000065e0  28 6d 73 69 7a 25 29 0d  1b 44 1f 21 73 70 61 72  |(msiz%)..D.!spar|
000065f0  65 61 25 3d 6d 73 69 7a  25 3a 73 70 61 72 65 61  |ea%=msiz%:sparea|
00006600  25 21 38 3d 31 36 0d 1b  4e 21 c8 99 20 22 4f 53  |%!8=16..N!.. "OS|
00006610  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00006620  73 70 61 72 65 61 25 0d  1b 58 32 f2 6c 6f 61 64  |sparea%..X2.load|
00006630  75 6e 73 71 75 61 73 68  28 73 70 61 72 65 61 25  |unsquash(sparea%|
00006640  2c 6d 73 69 7a 25 2c 22  4f 4e 45 2e 73 70 66 69  |,msiz%,"ONE.spfi|
00006650  6c 65 73 2e 6d 61 70 22  29 0d 1b 62 85 6d 61 73  |les.map")..b.mas|
00006660  6b 73 70 25 28 29 3d 34  3a e3 6a 25 3d 30 b8 33  |ksp%()=4:.j%=0.3|
00006670  3a e3 6b 25 3d 30 b8 32  3a 6d 61 73 6b 73 70 24  |:.k%=0.2:masksp$|
00006680  28 6b 25 2b 28 33 2a 6a  25 29 29 3d 22 61 72 72  |(k%+(3*j%))="arr|
00006690  22 2b c3 28 6a 25 29 2b  c3 28 6b 25 29 3a ed 3a  |"+.(j%)+.(k%):.:|
000066a0  ed 3a 6d 61 73 6b 73 70  24 28 31 32 29 3d 22 64  |.:masksp$(12)="d|
000066b0  6f 74 22 3a 6d 61 73 6b  73 70 24 28 31 33 29 3d  |ot":masksp$(13)=|
000066c0  22 61 72 72 6f 22 3a f2  6d 61 73 6b 73 70 72 69  |"arro":.maskspri|
000066d0  74 65 28 73 70 61 72 65  61 25 2c 31 34 29 0d 1b  |te(sparea%,14)..|
000066e0  6c 05 e1 0d 1b 76 04 0d  1b 80 17 dd f2 6c 6f 61  |l....v.......loa|
000066f0  64 6d 61 70 62 75 74 73  28 73 69 7a 25 29 0d 1b  |dmapbuts(siz%)..|
00006700  8a 41 73 70 61 72 65 61  33 25 3d 73 70 61 72 65  |.Asparea3%=spare|
00006710  61 25 2b 73 70 61 72 65  61 73 69 7a 25 2d 73 69  |a%+spareasiz%-si|
00006720  7a 25 3a 21 73 70 61 72  65 61 33 25 3d 73 69 7a  |z%:!sparea3%=siz|
00006730  25 3a 73 70 61 72 65 61  33 25 21 38 3d 31 36 0d  |%:sparea3%!8=16.|
00006740  1b 94 22 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..".. "OS_Sprite|
00006750  4f 70 22 2c 26 31 30 39  2c 73 70 61 72 65 61 33  |Op",&109,sparea3|
00006760  25 0d 1b 9e 33 f2 6c 6f  61 64 75 6e 73 71 75 61  |%...3.loadunsqua|
00006770  73 68 28 73 70 61 72 65  61 33 25 2c 73 69 7a 25  |sh(sparea3%,siz%|
00006780  2c 22 4f 4e 45 2e 73 70  66 69 6c 65 73 2e 77 61  |,"ONE.spfiles.wa|
00006790  6c 6b 22 29 0d 1b a8 4b  6d 61 73 6b 73 70 25 28  |lk")...Kmasksp%(|
000067a0  29 3d 31 32 3a e3 6b 25  3d 30 b8 33 32 3a 6d 61  |)=12:.k%=0.32:ma|
000067b0  73 6b 73 70 24 28 6b 25  29 3d 22 65 30 22 2b c3  |sksp$(k%)="e0"+.|
000067c0  28 6b 25 29 3a ed 3a f2  6d 61 73 6b 73 70 72 69  |(k%):.:.maskspri|
000067d0  74 65 28 73 70 61 72 65  61 33 25 2c 33 33 29 0d  |te(sparea3%,33).|
000067e0  1b b2 3e e3 6b 25 3d 30  b8 33 32 3a 6d 61 73 6b  |..>.k%=0.32:mask|
000067f0  73 70 24 28 6b 25 29 3d  22 65 31 22 2b c3 28 6b  |sp$(k%)="e1"+.(k|
00006800  25 29 3a ed 3a f2 6d 61  73 6b 73 70 72 69 74 65  |%):.:.masksprite|
00006810  28 73 70 61 72 65 61 33  25 2c 33 33 29 0d 1b bc  |(sparea3%,33)...|
00006820  3e e3 6b 25 3d 30 b8 33  32 3a 6d 61 73 6b 73 70  |>.k%=0.32:masksp|
00006830  24 28 6b 25 29 3d 22 65  32 22 2b c3 28 6b 25 29  |$(k%)="e2"+.(k%)|
00006840  3a ed 3a f2 6d 61 73 6b  73 70 72 69 74 65 28 73  |:.:.masksprite(s|
00006850  70 61 72 65 61 33 25 2c  33 33 29 0d 1b c6 05 e1  |parea3%,33).....|
00006860  0d 1b d0 04 0d 1b da 0c  dd f2 67 62 6c 69 6e 6b  |..........gblink|
00006870  0d 1b e4 0d 67 65 79 65  73 25 2b 3d 31 0d 1b ee  |....geyes%+=1...|
00006880  47 e7 67 65 79 65 73 25  3d 32 3a 67 65 79 65 73  |G.geyes%=2:geyes|
00006890  25 3d 30 3a 61 6e 69 6d  70 61 75 73 65 25 28 31  |%=0:animpause%(1|
000068a0  39 29 3d 32 30 30 2b 28  35 30 2a b3 28 36 29 29  |9)=200+(50*.(6))|
000068b0  3a 8b 3a 61 6e 69 6d 70  61 75 73 65 25 28 31 39  |:.:animpause%(19|
000068c0  29 3d 31 30 0d 1b f8 53  c8 99 22 4f 53 5f 53 70  |)=10...S.."OS_Sp|
000068d0  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 73 70 61  |riteOp",&134,spa|
000068e0  72 65 61 25 2c 22 67 65  79 65 73 22 2b c3 28 67  |rea%,"geyes"+.(g|
000068f0  65 79 65 73 25 29 2c 65  79 65 73 25 28 32 2c 30  |eyes%),eyes%(2,0|
00006900  29 2c 65 79 65 73 25 28  32 2c 31 29 2c 38 2c 73  |),eyes%(2,1),8,s|
00006910  63 61 6c 65 25 2c 30 0d  1c 02 33 61 63 68 61 6e  |cale%,0...3achan|
00006920  67 65 25 3d 2d 31 3a 64  6f 6e 65 63 68 61 6e 67  |ge%=-1:donechang|
00006930  65 25 28 31 39 29 3d 2d  31 3a 61 6e 69 6d 74 69  |e%(19)=-1:animti|
00006940  6d 65 25 28 31 39 29 3d  2d 31 0d 1c 0c 05 e1 0d  |me%(19)=-1......|
00006950  1c 16 04 0d 1c 20 10 dd  f2 63 6f 70 79 67 62 6c  |..... ...copygbl|
00006960  69 6e 6b 0d 1c 2a 3d f2  73 63 72 63 6f 70 79 62  |ink..*=.scrcopyb|
00006970  6c 6f 63 6b 70 69 78 28  65 79 65 73 25 28 32 2c  |lockpix(eyes%(2,|
00006980  30 29 2c 65 79 65 73 25  28 32 2c 31 29 2c 37 34  |0),eyes%(2,1),74|
00006990  2c 32 38 2c 73 65 65 25  2c 64 6f 25 2c 2d 31 29  |,28,see%,do%,-1)|
000069a0  0d 1c 34 05 e1 0d 1c 3e  04 0d 1c 48 0c dd f2 62  |..4....>...H...b|
000069b0  62 6c 69 6e 6b 0d 1c 52  0d 62 65 79 65 73 25 2b  |blink..R.beyes%+|
000069c0  3d 31 0d 1c 5c 47 e7 62  65 79 65 73 25 3d 32 3a  |=1..\G.beyes%=2:|
000069d0  62 65 79 65 73 25 3d 30  3a 61 6e 69 6d 70 61 75  |beyes%=0:animpau|
000069e0  73 65 25 28 31 38 29 3d  32 30 30 2b 28 35 30 2a  |se%(18)=200+(50*|
000069f0  b3 28 36 29 29 3a 8b 3a  61 6e 69 6d 70 61 75 73  |.(6)):.:animpaus|
00006a00  65 25 28 31 38 29 3d 31  30 0d 1c 66 53 c8 99 22  |e%(18)=10..fS.."|
00006a10  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00006a20  34 2c 73 70 61 72 65 61  25 2c 22 62 65 79 65 73  |4,sparea%,"beyes|
00006a30  22 2b c3 28 62 65 79 65  73 25 29 2c 65 79 65 73  |"+.(beyes%),eyes|
00006a40  25 28 31 2c 30 29 2c 65  79 65 73 25 28 31 2c 31  |%(1,0),eyes%(1,1|
00006a50  29 2c 38 2c 73 63 61 6c  65 25 2c 30 0d 1c 70 33  |),8,scale%,0..p3|
00006a60  61 63 68 61 6e 67 65 25  3d 2d 31 3a 64 6f 6e 65  |achange%=-1:done|
00006a70  63 68 61 6e 67 65 25 28  31 38 29 3d 2d 31 3a 61  |change%(18)=-1:a|
00006a80  6e 69 6d 74 69 6d 65 25  28 31 38 29 3d 2d 31 0d  |nimtime%(18)=-1.|
00006a90  1c 7a 05 e1 0d 1c 84 04  0d 1c 8e 10 dd f2 63 6f  |.z............co|
00006aa0  70 79 62 62 6c 69 6e 6b  0d 1c 98 3d f2 73 63 72  |pybblink...=.scr|
00006ab0  63 6f 70 79 62 6c 6f 63  6b 70 69 78 28 65 79 65  |copyblockpix(eye|
00006ac0  73 25 28 31 2c 30 29 2c  65 79 65 73 25 28 31 2c  |s%(1,0),eyes%(1,|
00006ad0  31 29 2c 37 34 2c 32 30  2c 73 65 65 25 2c 64 6f  |1),74,20,see%,do|
00006ae0  25 2c 2d 31 29 0d 1c a2  05 e1 0d 1c ac 04 0d 1c  |%,-1)...........|
00006af0  b6 0e dd f2 65 6c 66 62  6c 69 6e 6b 0d 1c c0 0d  |....elfblink....|
00006b00  65 65 79 65 73 25 2b 3d  31 0d 1c ca 47 e7 65 65  |eeyes%+=1...G.ee|
00006b10  79 65 73 25 3d 32 3a 65  65 79 65 73 25 3d 30 3a  |yes%=2:eeyes%=0:|
00006b20  61 6e 69 6d 70 61 75 73  65 25 28 31 37 29 3d 32  |animpause%(17)=2|
00006b30  30 30 2b 28 35 30 2a b3  28 36 29 29 3a 8b 3a 61  |00+(50*.(6)):.:a|
00006b40  6e 69 6d 70 61 75 73 65  25 28 31 37 29 3d 31 30  |nimpause%(17)=10|
00006b50  0d 1c d4 55 c8 99 22 4f  53 5f 53 70 72 69 74 65  |...U.."OS_Sprite|
00006b60  4f 70 22 2c 26 31 33 34  2c 73 70 61 72 65 61 25  |Op",&134,sparea%|
00006b70  2c 22 65 6c 66 65 79 65  73 22 2b c3 28 65 65 79  |,"elfeyes"+.(eey|
00006b80  65 73 25 29 2c 65 79 65  73 25 28 30 2c 30 29 2c  |es%),eyes%(0,0),|
00006b90  65 79 65 73 25 28 30 2c  31 29 2c 38 2c 73 63 61  |eyes%(0,1),8,sca|
00006ba0  6c 65 25 2c 30 0d 1c de  33 61 63 68 61 6e 67 65  |le%,0...3achange|
00006bb0  25 3d 2d 31 3a 64 6f 6e  65 63 68 61 6e 67 65 25  |%=-1:donechange%|
00006bc0  28 31 37 29 3d 2d 31 3a  61 6e 69 6d 74 69 6d 65  |(17)=-1:animtime|
00006bd0  25 28 31 37 29 3d 2d 31  0d 1c e8 05 e1 0d 1c f2  |%(17)=-1........|
00006be0  04 0d 1c fc 12 dd f2 63  6f 70 79 65 6c 66 62 6c  |.......copyelfbl|
00006bf0  69 6e 6b 0d 1d 06 3d f2  73 63 72 63 6f 70 79 62  |ink...=.scrcopyb|
00006c00  6c 6f 63 6b 70 69 78 28  65 79 65 73 25 28 30 2c  |lockpix(eyes%(0,|
00006c10  30 29 2c 65 79 65 73 25  28 30 2c 31 29 2c 37 34  |0),eyes%(0,1),74|
00006c20  2c 31 36 2c 73 65 65 25  2c 64 6f 25 2c 2d 31 29  |,16,see%,do%,-1)|
00006c30  0d 1d 10 05 e1 0d 1d 1a  04 0d 1d 24 0f dd f2 65  |...........$...e|
00006c40  6c 66 62 6c 69 6e 6b 32  0d 1d 2e 0d 65 65 79 65  |lfblink2....eeye|
00006c50  73 25 2b 3d 31 0d 1d 38  47 e7 65 65 79 65 73 25  |s%+=1..8G.eeyes%|
00006c60  3d 32 3a 65 65 79 65 73  25 3d 30 3a 61 6e 69 6d  |=2:eeyes%=0:anim|
00006c70  70 61 75 73 65 25 28 32  30 29 3d 32 30 30 2b 28  |pause%(20)=200+(|
00006c80  35 30 2a b3 28 36 29 29  3a 8b 3a 61 6e 69 6d 70  |50*.(6)):.:animp|
00006c90  61 75 73 65 25 28 32 30  29 3d 31 30 0d 1d 42 53  |ause%(20)=10..BS|
00006ca0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00006cb0  26 31 33 34 2c 73 70 61  72 65 61 33 25 2c 22 6a  |&134,sparea3%,"j|
00006cc0  65 79 65 22 2b c3 28 65  65 79 65 73 25 29 2c 65  |eye"+.(eeyes%),e|
00006cd0  79 65 73 25 28 30 2c 30  29 2c 65 79 65 73 25 28  |yes%(0,0),eyes%(|
00006ce0  30 2c 31 29 2c 38 2c 73  63 61 6c 65 25 2c 30 0d  |0,1),8,scale%,0.|
00006cf0  1d 4c 33 61 63 68 61 6e  67 65 25 3d 2d 31 3a 64  |.L3achange%=-1:d|
00006d00  6f 6e 65 63 68 61 6e 67  65 25 28 32 30 29 3d 2d  |onechange%(20)=-|
00006d10  31 3a 61 6e 69 6d 74 69  6d 65 25 28 32 30 29 3d  |1:animtime%(20)=|
00006d20  2d 31 0d 1d 56 05 e1 0d  1d 60 04 0d 1d 6a 13 dd  |-1..V....`...j..|
00006d30  f2 63 6f 70 79 65 6c 66  62 6c 69 6e 6b 32 0d 1d  |.copyelfblink2..|
00006d40  74 3d f2 73 63 72 63 6f  70 79 62 6c 6f 63 6b 70  |t=.scrcopyblockp|
00006d50  69 78 28 65 79 65 73 25  28 30 2c 30 29 2c 65 79  |ix(eyes%(0,0),ey|
00006d60  65 73 25 28 30 2c 31 29  2c 31 38 2c 32 30 2c 73  |es%(0,1),18,20,s|
00006d70  65 65 25 2c 64 6f 25 2c  2d 31 29 0d 1d 7e 05 e1  |ee%,do%,-1)..~..|
00006d80  0d 1d 88 04 0d 1d 92 14  dd a4 72 65 61 64 73 79  |..........readsy|
00006d90  73 76 61 72 28 61 24 29  0d 1d 9c 08 ea 20 70 25  |svar(a$)..... p%|
00006da0  0d 1d a6 4e c8 99 20 22  4f 53 5f 52 65 61 64 56  |...N.. "OS_ReadV|
00006db0  61 72 56 61 6c 22 2c 61  24 2c 62 6c 6b 25 2c 38  |arVal",a$,blk%,8|
00006dc0  30 2c 30 2c 30 20 b8 20  2c 2c 61 25 3a 61 24 3d  |0,0,0 . ,,a%:a$=|
00006dd0  22 22 3a e3 70 25 3d 30  b8 61 25 2d 31 3a 61 24  |"":.p%=0.a%-1:a$|
00006de0  2b 3d bd 28 62 6c 6b 25  3f 70 25 29 3a ed 0d 1d  |+=.(blk%?p%):...|
00006df0  b0 07 3d 61 24 0d 1d ba  04 0d 1d c4 16 dd f2 73  |..=a$..........s|
00006e00  70 65 63 69 66 69 63 63  6f 70 79 28 6a 25 29 0d  |pecificcopy(j%).|
00006e10  1d ce 0b c8 8e 20 6a 25  20 ca 0d 1d d8 29 20 c9  |..... j% ....) .|
00006e20  20 39 3a e7 4c 25 3d 31  30 31 30 3a f2 62 77 63  | 9:.L%=1010:.bwc|
00006e30  6f 70 79 74 61 69 6c 3a  8b 3a f2 63 6f 70 79 62  |opytail:.:.copyb|
00006e40  6f 6f 6b 0d 1d e2 14 20  c9 20 31 30 3a f2 63 6f  |ook.... . 10:.co|
00006e50  70 79 77 61 76 65 73 0d  1d ec 16 20 c9 20 31 32  |pywaves.... . 12|
00006e60  3a f2 63 6f 70 79 71 75  65 65 6e 62 6c 0d 1d f6  |:.copyqueenbl...|
00006e70  14 20 c9 20 31 33 3a f2  63 6f 70 79 71 74 65 61  |. . 13:.copyqtea|
00006e80  72 0d 1e 00 17 20 c9 20  31 37 3a f2 63 6f 70 79  |r.... . 17:.copy|
00006e90  65 6c 66 62 6c 69 6e 6b  0d 1e 0a 15 20 c9 20 31  |elfblink.... . 1|
00006ea0  38 3a f2 63 6f 70 79 62  62 6c 69 6e 6b 0d 1e 14  |8:.copybblink...|
00006eb0  15 20 c9 20 31 39 3a f2  63 6f 70 79 67 62 6c 69  |. . 19:.copygbli|
00006ec0  6e 6b 0d 1e 1e 18 20 c9  20 32 30 3a f2 63 6f 70  |nk.... . 20:.cop|
00006ed0  79 65 6c 66 62 6c 69 6e  6b 32 0d 1e 28 16 20 c9  |yelfblink2..(. .|
00006ee0  20 32 31 3a f2 63 6f 70  79 6d 6f 76 65 61 72 72  | 21:.copymovearr|
00006ef0  0d 1e 32 05 cb 0d 1e 3c  05 e1 0d 1e 46 04 0d 1e  |..2....<....F...|
00006f00  50 0b dd f2 77 61 74 65  72 0d 1e 5a 1a e7 a4 6e  |P...water..Z...n|
00006f10  6f 73 6f 75 6e 64 3a d4  20 31 2c 26 31 37 46 2c  |osound:. 1,&17F,|
00006f20  31 2c 31 0d 1e 64 05 e1  0d 1e 6e 04 0d 1e 78 16  |1,1..d....n...x.|
00006f30  dd f2 73 70 65 63 69 66  69 63 61 6e 69 6d 28 6a  |..specificanim(j|
00006f40  25 29 0d 1e 82 0b c8 8e  20 6a 25 20 ca 0d 1e 8c  |%)...... j% ....|
00006f50  10 20 c9 20 38 3a 20 f2  77 61 74 65 72 0d 1e 96  |. . 8: .water...|
00006f60  11 20 c9 20 39 3a 20 f2  62 77 74 61 69 6c 0d 1e  |. . 9: .bwtail..|
00006f70  a0 10 20 c9 20 31 30 3a  f2 77 61 76 65 73 0d 1e  |.. . 10:.waves..|
00006f80  aa 15 20 c9 20 31 32 3a  f2 71 75 65 65 6e 62 6c  |.. . 12:.queenbl|
00006f90  69 6e 6b 0d 1e b4 10 20  c9 20 31 33 3a f2 71 74  |ink.... . 13:.qt|
00006fa0  65 61 72 0d 1e be 13 20  c9 20 31 37 3a f2 65 6c  |ear.... . 17:.el|
00006fb0  66 62 6c 69 6e 6b 0d 1e  c8 11 20 c9 20 31 38 3a  |fblink.... . 18:|
00006fc0  f2 62 62 6c 69 6e 6b 0d  1e d2 11 20 c9 20 31 39  |.bblink.... . 19|
00006fd0  3a f2 67 62 6c 69 6e 6b  0d 1e dc 14 20 c9 20 32  |:.gblink.... . 2|
00006fe0  30 3a f2 65 6c 66 62 6c  69 6e 6b 32 0d 1e e6 12  |0:.elfblink2....|
00006ff0  20 c9 20 32 31 3a f2 6d  6f 76 65 61 72 72 0d 1e  | . 21:.movearr..|
00007000  f0 05 cb 0d 1e fa 05 e1  0d 1f 04 04 0d 1f 0e 10  |................|
00007010  dd f2 69 6e 69 74 69 61  6c 69 73 65 0d 1f 18 33  |..initialise...3|
00007020  c8 99 20 26 34 36 31 38  31 2c 52 25 2c 22 3c 45  |.. &46181,R%,"<E|
00007030  6c 66 4b 24 63 68 61 69  6e 64 69 72 3e 2e 4f 4e  |lfK$chaindir>.ON|
00007040  45 2e 53 50 61 63 6b 46  69 6c 65 22 2c 33 32 0d  |E.SPackFile",32.|
00007050  1f 22 23 5a 25 3d bb 28  a4 72 65 61 64 73 79 73  |."#Z%=.(.readsys|
00007060  76 61 72 28 22 45 6c 66  4b 24 74 61 73 6b 31 22  |var("ElfK$task1"|
00007070  29 29 0d 1f 2c b7 de 20  65 79 65 73 25 28 32 2c  |))..,.. eyes%(2,|
00007080  31 29 2c 65 77 25 28 33  2c 31 29 2c 62 77 25 28  |1),ew%(3,1),bw%(|
00007090  38 29 2c 62 68 25 28 38  2c 31 29 2c 74 72 61 70  |8),bh%(8,1),trap|
000070a0  79 25 28 33 29 2c 6c 65  76 65 72 78 25 28 33 29  |y%(3),leverx%(3)|
000070b0  2c 6d 61 70 64 65 66 6e  25 28 31 33 2c 31 36 29  |,mapdefn%(13,16)|
000070c0  2c 62 75 74 63 6f 6c 25  28 33 29 2c 62 75 74 77  |,butcol%(3),butw|
000070d0  61 6c 6b 25 28 33 29 2c  64 69 73 70 25 28 31 2c  |alk%(3),disp%(1,|
000070e0  31 2c 38 29 2c 62 75 74  61 72 72 25 28 33 2c 31  |1,8),butarr%(3,1|
000070f0  29 2c 64 6f 74 78 25 28  31 29 2c 64 6f 74 79 25  |),dotx%(1),doty%|
00007100  28 31 29 2c 63 68 61 6e  67 65 64 62 75 74 25 28  |(1),changedbut%(|
00007110  33 29 2c 6f 6e 6c 79 77  61 6c 6b 25 28 33 29 2c  |3),onlywalk%(3),|
00007120  68 61 69 72 79 25 28 34  29 0d 1f 36 12 de 20 73  |hairy%(4)..6.. s|
00007130  70 70 61 6c 65 74 25 20  31 32 38 0d 1f 40 08 f7  |ppalet% 128..@..|
00007140  20 2b 30 0d 1f 4a 19 dc  20 30 2c 35 32 2c 36 2c  | +0..J.. 0,52,6,|
00007150  34 38 2c 32 2c 35 32 2c  30 2c 35 36 0d 1f 54 24  |48,2,52,0,56..T$|
00007160  e3 6a 25 3d 30 b8 33 3a  e3 6b 25 3d 30 b8 31 3a  |.j%=0.3:.k%=0.1:|
00007170  f3 20 65 77 25 28 6a 25  2c 6b 25 29 3a ed 3a ed  |. ew%(j%,k%):.:.|
00007180  0d 1f 5e 08 f7 20 2b 30  0d 1f 68 24 dc 20 30 2c  |..^.. +0..h$. 0,|
00007190  2d 32 36 2c 2d 32 36 2c  2d 31 30 2c 30 2c 2d 32  |-26,-26,-10,0,-2|
000071a0  34 2c 2d 32 32 2c 2d 38  2c 2d 31 36 0d 1f 72 17  |4,-22,-8,-16..r.|
000071b0  e3 6a 25 3d 30 b8 38 3a  f3 20 62 77 25 28 6a 25  |.j%=0.8:. bw%(j%|
000071c0  29 3a ed 0d 1f 7c 08 f7  20 2b 30 0d 1f 86 45 dc  |):...|.. +0...E.|
000071d0  20 2d 31 34 2c 32 34 34  2c 31 38 2c 32 34 30 2c  | -14,244,18,240,|
000071e0  31 32 2c 32 34 34 2c 30  2c 32 34 38 2c 2d 31 34  |12,244,0,248,-14|
000071f0  2c 32 34 34 2c 31 38 2c  32 34 30 2c 31 32 2c 32  |,244,18,240,12,2|
00007200  34 34 2c 30 2c 32 34 38  2c 2d 31 38 2c 32 34 38  |44,0,248,-18,248|
00007210  0d 1f 90 24 e3 6a 25 3d  30 b8 38 3a e3 6b 25 3d  |...$.j%=0.8:.k%=|
00007220  30 b8 31 3a f3 20 62 68  25 28 6a 25 2c 6b 25 29  |0.1:. bh%(j%,k%)|
00007230  3a ed 3a ed 0d 1f 9a 08  f7 20 2b 30 0d 1f a4 15  |:.:...... +0....|
00007240  dc 20 32 39 36 2c 31 38  30 2c 31 31 32 2c 31 31  |. 296,180,112,11|
00007250  32 0d 1f ae 1a e3 6a 25  3d 30 b8 33 3a f3 20 74  |2.....j%=0.3:. t|
00007260  72 61 70 79 25 28 6a 25  29 3a ed 0d 1f b8 08 f7  |rapy%(j%):......|
00007270  20 2b 30 0d 1f c2 15 dc  20 37 37 38 2c 37 36 36  | +0..... 778,766|
00007280  2c 38 34 30 2c 38 34 30  0d 1f cc 1b e3 6a 25 3d  |,840,840.....j%=|
00007290  30 b8 33 3a f3 20 6c 65  76 65 72 78 25 28 6a 25  |0.3:. leverx%(j%|
000072a0  29 3a ed 0d 1f d6 10 f4  20 64 65 66 69 6e 65 20  |):...... define |
000072b0  6d 61 70 0d 1f e0 08 f7  20 2b 30 0d 1f ea 29 dc  |map..... +0...).|
000072c0  20 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 26  | 0,0,0,0,0,0,0,&|
000072d0  31 38 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |18,0,0,0,0,0,0,0|
000072e0  2c 30 2c 30 0d 1f f4 33  dc 20 26 31 32 2c 36 2c  |,0,0...3. &12,6,|
000072f0  26 31 32 2c 36 2c 31 34  2c 36 2c 36 2c 37 2c 36  |&12,6,14,6,6,7,6|
00007300  2c 36 2c 26 31 36 2c 36  2c 26 31 36 2c 31 34 2c  |,6,&16,6,&16,14,|
00007310  36 2c 26 31 36 2c 30 0d  1f fe 27 dc 20 30 2c 30  |6,&16,0...'. 0,0|
00007320  2c 39 2c 30 2c 39 2c 30  2c 30 2c 30 2c 30 2c 30  |,9,0,9,0,0,0,0,0|
00007330  2c 30 2c 30 2c 30 2c 39  2c 30 2c 30 2c 30 0d 20  |,0,0,0,9,0,0,0. |
00007340  08 29 dc 20 30 2c 30 2c  39 2c 30 2c 26 31 31 2c  |.). 0,0,9,0,&11,|
00007350  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00007360  39 2c 30 2c 30 2c 30 0d  20 12 2c dc 20 31 30 2c  |9,0,0,0. .,. 10,|
00007370  36 2c 35 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |6,5,0,0,0,0,0,0,|
00007380  30 2c 30 2c 30 2c 30 2c  31 31 2c 26 31 36 2c 36  |0,0,0,0,11,&16,6|
00007390  2c 31 32 0d 20 1c 27 dc  20 39 2c 30 2c 30 2c 30  |,12. .'. 9,0,0,0|
000073a0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
000073b0  2c 30 2c 39 2c 30 2c 30  2c 39 0d 20 26 27 dc 20  |,0,9,0,0,9. &'. |
000073c0  39 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |9,0,0,0,0,0,0,0,|
000073d0  30 2c 30 2c 30 2c 30 2c  30 2c 39 2c 30 2c 30 2c  |0,0,0,0,0,9,0,0,|
000073e0  39 0d 20 30 29 dc 20 39  2c 30 2c 30 2c 30 2c 30  |9. 0). 9,0,0,0,0|
000073f0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00007400  2c 39 2c 30 2c 30 2c 26  31 31 0d 20 3a 2c dc 20  |,9,0,0,&11. :,. |
00007410  39 2c 30 2c 30 2c 30 2c  26 31 38 2c 30 2c 30 2c  |9,0,0,0,&18,0,0,|
00007420  30 2c 30 2c 30 2c 30 2c  26 31 32 2c 36 2c 31 33  |0,0,0,0,&12,6,13|
00007430  2c 30 2c 30 2c 30 0d 20  44 27 dc 20 39 2c 30 2c  |,0,0,0. D'. 9,0,|
00007440  30 2c 30 2c 39 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,9,0,0,0,0,0,|
00007450  30 2c 30 2c 30 2c 39 2c  30 2c 30 2c 30 0d 20 4e  |0,0,0,9,0,0,0. N|
00007460  2b dc 20 33 2c 31 34 2c  36 2c 36 2c 37 2c 36 2c  |+. 3,14,6,6,7,6,|
00007470  36 2c 36 2c 36 2c 26 31  36 2c 31 34 2c 36 2c 36  |6,6,6,&16,14,6,6|
00007480  2c 35 2c 30 2c 30 2c 30  0d 20 58 27 dc 20 30 2c  |,5,0,0,0. X'. 0,|
00007490  39 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |9,0,0,0,0,0,0,0,|
000074a0  30 2c 39 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |0,9,0,0,0,0,0,0.|
000074b0  20 62 2e dc 20 26 31 32  2c 31 33 2c 30 2c 30 2c  | b.. &12,13,0,0,|
000074c0  30 2c 30 2c 30 2c 26 31  32 2c 36 2c 26 31 36 2c  |0,0,0,&12,6,&16,|
000074d0  35 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 0d 20 6c  |5,0,0,0,0,0,0. l|
000074e0  29 dc 20 30 2c 26 31 31  2c 30 2c 30 2c 30 2c 30  |). 0,&11,0,0,0,0|
000074f0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00007500  2c 30 2c 30 2c 30 0d 20  76 2b e3 6a 25 3d 30 b8  |,0,0,0. v+.j%=0.|
00007510  31 33 3a e3 6b 25 3d 30  b8 31 36 3a f3 20 6d 61  |13:.k%=0.16:. ma|
00007520  70 64 65 66 6e 25 28 6a  25 2c 6b 25 29 3a ed 3a  |pdefn%(j%,k%):.:|
00007530  ed 0d 20 80 08 f7 20 2b  30 0d 20 8a 10 f4 20 65  |.. ... +0. ... e|
00007540  6c 66 73 20 72 69 67 68  74 0d 20 94 29 dc 20 2d  |lfs right. .). -|
00007550  31 30 2c 2d 31 34 2c 2d  31 30 2c 2d 31 30 2c 2d  |10,-14,-10,-10,-|
*
00007570  31 30 0d 20 9e 0f f4 20  65 6c 66 73 20 6c 65 66  |10. ... elfs lef|
00007580  74 0d 20 a8 29 dc 20 2d  31 32 2c 2d 31 36 2c 2d  |t. .). -12,-16,-|
00007590  31 30 2c 2d 31 30 2c 2d  31 32 2c 2d 31 36 2c 2d  |10,-10,-12,-16,-|
000075a0  31 30 2c 2d 31 30 2c 2d  31 30 0d 20 b2 0f f4 20  |10,-10,-10. ... |
000075b0  6a 65 6b 20 72 69 67 68  74 0d 20 bc 29 dc 20 2d  |jek right. .). -|
000075c0  31 38 2c 2d 31 38 2c 2d  31 38 2c 2d 31 38 2c 2d  |18,-18,-18,-18,-|
*
000075e0  31 38 0d 20 c6 0e f4 20  6a 65 6b 20 6c 65 66 74  |18. ... jek left|
000075f0  0d 20 d0 29 dc 20 2d 31  38 2c 2d 32 30 2c 2d 31  |. .). -18,-20,-1|
00007600  38 2c 2d 31 38 2c 2d 31  38 2c 2d 32 30 2c 2d 31  |8,-18,-18,-20,-1|
00007610  38 2c 2d 31 38 2c 2d 31  38 0d 20 da 33 e3 6a 25  |8,-18,-18. .3.j%|
00007620  3d 30 b8 31 3a e3 6b 25  3d 30 b8 31 3a e3 6c 25  |=0.1:.k%=0.1:.l%|
00007630  3d 30 b8 38 3a f3 20 64  69 73 70 25 28 6a 25 2c  |=0.8:. disp%(j%,|
00007640  6b 25 2c 6c 25 29 3a ed  3a ed 3a ed 0d 20 e4 08  |k%,l%):.:.:.. ..|
00007650  f7 20 2b 30 0d 20 ee 24  dc 20 32 38 2c 38 33 36  |. +0. .$. 28,836|
00007660  2c 31 31 32 2c 38 39 36  2c 31 31 32 2c 37 38 30  |,112,896,112,780|
00007670  2c 31 39 34 2c 38 33 36  0d 20 f8 28 e3 6a 25 3d  |,194,836. .(.j%=|
00007680  30 b8 33 3a e3 6b 25 3d  30 b8 31 3a f3 20 62 75  |0.3:.k%=0.1:. bu|
00007690  74 61 72 72 25 28 6a 25  2c 6b 25 29 3a ed 3a ed  |tarr%(j%,k%):.:.|
000076a0  0d 21 02 14 f4 20 73 61  79 20 62 6c 75 65 20 77  |.!... say blue w|
000076b0  6f 72 64 73 0d 21 0c 08  f7 20 2b 30 0d 21 16 07  |ords.!... +0.!..|
000076c0  f4 20 30 0d 21 20 1a dc  20 73 70 65 6c 6c 2c 73  |. 0.! .. spell,s|
000076d0  70 65 6c 6c 2c 22 32 30  2c 31 32 30 22 0d 21 2a  |pell,"20,120".!*|
000076e0  1f dc 20 61 6e 6f 74 68  65 72 2c 61 6e 6f 74 68  |.. another,anoth|
000076f0  65 72 2c 22 32 30 2c 32  31 32 30 22 0d 21 34 1c  |er,"20,2120".!4.|
00007700  dc 20 63 61 73 74 6c 65  2c 63 61 73 74 6c 65 2c  |. castle,castle,|
00007710  22 32 30 2c 31 32 30 22  0d 21 3e 19 dc 20 53 68  |"20,120".!>.. Sh|
00007720  61 6c 6c 2c 73 68 61 6c  6c 2c 22 33 30 2c 31 30  |all,shall,"30,10|
00007730  22 0d 21 48 19 dc 20 72  6f 63 6b 73 2c 72 6f 63  |".!H.. rocks,roc|
00007740  6b 73 2c 22 33 30 2c 32  30 22 0d 21 52 1a dc 20  |ks,"30,20".!R.. |
00007750  74 72 65 65 73 2c 74 72  65 65 73 2c 22 32 38 2c  |trees,trees,"28,|
00007760  32 34 30 22 0d 21 5c 1a  dc 20 77 61 74 65 72 2c  |240".!\.. water,|
00007770  77 61 74 65 72 2c 22 31  36 2c 35 32 30 22 0d 21  |water,"16,520".!|
00007780  66 19 dc 20 70 61 74 68  73 2c 70 61 74 68 73 2c  |f.. paths,paths,|
00007790  22 32 36 2c 31 30 22 0d  21 70 1e dc 20 74 75 6e  |"26,10".!p.. tun|
000077a0  6e 65 6c 73 2c 74 75 6e  6e 65 6c 73 2c 22 32 30  |nels,tunnels,"20|
000077b0  2c 31 32 30 22 0d 21 7a  1e dc 20 63 61 73 74 6c  |,120".!z.. castl|
000077c0  65 73 2c 63 61 73 74 6c  65 73 2c 22 32 30 2c 31  |es,castles,"20,1|
000077d0  32 30 22 0d 21 84 08 f4  20 31 30 0d 21 8e 17 dc  |20".!... 10.!...|
000077e0  20 70 61 74 68 2c 70 61  74 68 2c 22 32 30 2c 31  | path,path,"20,1|
000077f0  30 22 0d 21 98 1f dc 20  62 6c 6f 63 6b 65 64 2c  |0".!... blocked,|
00007800  62 6c 6f 63 6b 65 64 2c  22 31 38 2c 33 31 32 30  |blocked,"18,3120|
00007810  22 0d 21 a2 1a dc 20 48  61 69 72 79 2c 68 61 69  |".!... Hairy,hai|
00007820  72 79 2c 22 31 36 2c 31  34 30 22 0d 21 ac 17 dc  |ry,"16,140".!...|
00007830  20 47 61 6e 67 2c 67 61  6e 67 2c 22 32 30 2c 31  | Gang,gang,"20,1|
00007840  30 22 0d 21 b6 1e dc 20  6e 6f 74 68 69 6e 67 2c  |0".!... nothing,|
00007850  6e 6f 74 68 69 6e 67 2c  22 32 30 2c 32 34 30 22  |nothing,"20,240"|
00007860  0d 21 c0 18 dc 20 65 6c  73 65 2c 65 6c 73 65 2c  |.!... else,else,|
00007870  22 31 34 2c 31 32 30 22  0d 21 ca 1c dc 20 6c 6f  |"14,120".!... lo|
00007880  63 6b 65 64 2c 6c 6f 63  6b 65 64 2c 22 32 30 2c  |cked,locked,"20,|
00007890  31 32 30 22 0d 21 d4 20  dc 20 64 75 6e 67 65 6f  |120".!. . dungeo|
000078a0  6e 73 2c 64 75 6e 67 65  6f 6e 73 2c 22 32 38 2c  |ns,dungeons,"28,|
000078b0  31 32 30 22 0d 21 de 1d  dc 20 22 47 61 6e 67 27  |120".!... "Gang'|
000078c0  73 22 2c 67 61 6e 67 73  2c 22 32 34 2c 31 32 30  |s",gangs,"24,120|
000078d0  22 0d 21 e8 17 dc 20 66  69 6e 64 2c 66 69 6e 64  |".!... find,find|
000078e0  2c 22 32 30 2c 32 30 22  0d 21 f2 0c e3 6a 25 3d  |,"20,20".!...j%=|
000078f0  30 b8 31 39 0d 21 fc 1c  20 e3 6b 25 3d 30 b8 32  |0.19.!.. .k%=0.2|
00007900  3a f3 20 73 61 79 24 28  6a 25 2c 6b 25 29 3a ed  |:. say$(j%,k%):.|
00007910  0d 22 06 05 ed 0d 22 10  08 f7 20 2b 30 0d 22 1a  |."...."... +0.".|
00007920  07 f4 20 30 0d 22 24 0e  dc 20 36 30 38 2c 34 30  |.. 0."$.. 608,40|
00007930  2c 30 0d 22 2e 0e dc 20  36 33 34 2c 34 30 2c 31  |,0."... 634,40,1|
00007940  0d 22 38 0e dc 20 38 31  36 2c 34 30 2c 32 0d 22  |."8.. 816,40,2."|
00007950  42 0e dc 20 34 38 36 2c  34 30 2c 33 0d 22 4c 0f  |B.. 486,40,3."L.|
00007960  dc 20 31 34 36 2c 31 31  36 2c 34 0d 22 56 07 f4  |. 146,116,4."V..|
00007970  20 35 0d 22 60 0f dc 20  33 37 38 2c 31 31 36 2c  | 5."`.. 378,116,|
00007980  35 0d 22 6a 0f dc 20 35  39 34 2c 31 31 36 2c 36  |5."j.. 594,116,6|
00007990  0d 22 74 0f dc 20 38 33  32 2c 31 31 36 2c 37 0d  |."t.. 832,116,7.|
000079a0  22 7e 10 dc 20 31 30 36  34 2c 31 31 36 2c 38 0d  |"~.. 1064,116,8.|
000079b0  22 88 0e dc 20 35 38 30  2c 34 30 2c 39 0d 22 92  |"... 580,40,9.".|
000079c0  08 f4 20 31 30 0d 22 9c  0e dc 20 38 31 34 2c 33  |.. 10."... 814,3|
000079d0  36 2c 32 0d 22 a6 0f dc  20 35 32 38 2c 39 36 2c  |6,2."... 528,96,|
000079e0  31 30 0d 22 b0 0f dc 20  36 38 34 2c 39 36 2c 31  |10."... 684,96,1|
000079f0  31 0d 22 ba 0f dc 20 36  34 34 2c 39 36 2c 31 32  |1."... 644,96,12|
00007a00  0d 22 c4 0f dc 20 37 37  34 2c 39 36 2c 31 33 0d  |."... 774,96,13.|
00007a10  22 ce 08 f4 20 31 35 0d  22 d8 0f dc 20 34 35 36  |"... 15."... 456|
00007a20  2c 33 36 2c 31 34 0d 22  e2 0f dc 20 36 33 32 2c  |,36,14."... 632,|
00007a30  33 36 2c 31 35 0d 22 ec  0f dc 20 36 31 34 2c 39  |36,15."... 614,9|
00007a40  36 2c 31 36 0d 22 f6 0f  dc 20 35 38 36 2c 39 36  |6,16."... 586,96|
00007a50  2c 31 39 0d 23 00 0f dc  20 37 35 32 2c 39 36 2c  |,19.#... 752,96,|
00007a60  31 37 0d 23 0a 08 f4 20  32 30 0d 23 14 0f dc 20  |17.#... 20.#... |
00007a70  35 35 30 2c 34 30 2c 31  32 0d 23 1e 0f dc 20 36  |550,40,12.#... 6|
00007a80  38 30 2c 34 30 2c 31 38  0d 23 28 0e dc 20 38 33  |80,40,18.#(.. 83|
00007a90  36 2c 34 30 2c 32 0d 23  32 0e dc 20 34 30 30 2c  |6,40,2.#2.. 400,|
00007aa0  33 36 2c 32 0d 23 3c 04  0d 23 46 0c e3 6a 25 3d  |36,2.#<..#F..j%=|
00007ab0  30 b8 32 33 0d 23 50 29  20 e3 6b 25 3d 30 b8 31  |0.23.#P) .k%=0.1|
00007ac0  3a f3 20 73 61 79 25 28  6a 25 2c 6b 25 29 3a ed  |:. say%(j%,k%):.|
00007ad0  3a f3 20 73 61 79 25 28  6a 25 2c 34 29 0d 23 5a  |:. say%(j%,4).#Z|
00007ae0  05 ed 0d 23 64 0c e3 6a  25 3d 30 b8 32 33 0d 23  |...#d..j%=0.23.#|
00007af0  6e 67 20 73 61 79 25 28  6a 25 2c 31 29 2d 3d 31  |ng say%(j%,1)-=1|
00007b00  36 3a 73 61 79 25 28 6a  25 2c 32 29 3d 73 61 79  |6:say%(j%,2)=say|
00007b10  25 28 6a 25 2c 30 29 2b  32 2b a4 73 74 72 69 6e  |%(j%,0)+2+.strin|
00007b20  67 73 69 7a 65 28 73 61  79 24 28 73 61 79 25 28  |gsize(say$(say%(|
00007b30  6a 25 2c 34 29 2c 30 29  29 3a 73 61 79 25 28 6a  |j%,4),0)):say%(j|
00007b40  25 2c 33 29 3d 73 61 79  25 28 6a 25 2c 31 29 2b  |%,3)=say%(j%,1)+|
00007b50  31 36 2b 35 32 0d 23 78  05 ed 0d 23 82 08 f7 20  |16+52.#x...#... |
00007b60  2b 30 0d 23 8c 87 dc 20  26 46 46 46 46 46 46 30  |+0.#... &FFFFFF0|
00007b70  30 2c 26 46 46 46 46 46  46 30 30 2c 26 41 41 41  |0,&FFFFFF00,&AAA|
00007b80  41 41 41 30 30 2c 26 41  41 41 41 41 41 30 30 2c  |AAA00,&AAAAAA00,|
00007b90  26 37 37 37 37 37 37 30  30 2c 26 37 37 37 37 37  |&77777700,&77777|
00007ba0  37 30 30 2c 26 30 2c 26  30 2c 26 41 41 30 30 2c  |700,&0,&0,&AA00,|
00007bb0  26 41 41 30 30 2c 26 36  36 46 46 30 30 2c 26 36  |&AA00,&66FF00,&6|
00007bc0  36 46 46 30 30 2c 26 43  43 46 46 30 30 2c 26 43  |6FF00,&CCFF00,&C|
00007bd0  43 46 46 30 30 2c 26 46  46 38 38 30 30 30 30 2c  |CFF00,&FF880000,|
00007be0  26 46 46 38 38 30 30 30  30 0d 23 96 99 dc 20 26  |&FF880000.#... &|
00007bf0  45 45 30 30 30 30 30 30  2c 26 45 45 30 30 30 30  |EE000000,&EE0000|
00007c00  30 30 2c 26 46 46 46 46  30 30 30 30 2c 26 46 46  |00,&FFFF0000,&FF|
00007c10  46 46 30 30 30 30 2c 26  39 39 35 35 30 30 30 30  |FF0000,&99550000|
00007c20  2c 26 39 39 35 35 30 30  30 30 2c 26 46 46 43 43  |,&99550000,&FFCC|
00007c30  39 39 30 30 2c 26 46 46  43 43 39 39 30 30 2c 26  |9900,&FFCC9900,&|
00007c40  38 38 31 31 30 30 2c 26  38 38 31 31 30 30 2c 26  |881100,&881100,&|
00007c50  42 42 30 30 30 30 2c 26  42 42 30 30 30 30 2c 26  |BB0000,&BB0000,&|
00007c60  45 45 32 32 30 30 2c 26  45 45 32 32 30 30 2c 26  |EE2200,&EE2200,&|
00007c70  42 42 37 37 30 30 30 30  2c 26 42 42 37 37 30 30  |BB770000,&BB7700|
00007c80  30 30 0d 23 a0 0c e3 6b  25 3d 30 b8 33 31 0d 23  |00.#...k%=0.31.#|
00007c90  aa 08 f3 20 61 25 0d 23  b4 16 73 70 70 61 6c 65  |... a%.#..sppale|
00007ca0  74 25 21 28 34 2a 6b 25  29 3d 61 25 0d 23 be 05  |t%!(4*k%)=a%.#..|
00007cb0  ed 0d 23 c8 04 0d 23 d2  20 66 69 72 73 74 65 78  |..#...#. firstex|
00007cc0  70 6c 6f 72 65 25 3d 2d  31 3a 66 69 72 65 74 69  |plore%=-1:fireti|
00007cd0  6d 65 25 3d 91 0d 23 dc  05 e1 0d 23 e6 04 0d 23  |me%=..#....#...#|
00007ce0  f0 04 0d 23 fa 04 0d ff                           |...#....|
00007ce8