ț "<ElfK$chaindir>.elflib"
�lib_initialise
(�initialise
2
<�inwater:�mendlads:�escape
F
P
�sherston
Z
d
�desk_top
n
x�
�
���sherston
�;ș "OS_Byte",112,2:�18,0,0:�25,4,0;0;:�25,101,1278;958;
��mergescr21(10)
�ș "OS_Byte",112,2
�R�words(0,600,-1,3,-1,1280,"Will you be able to help Jek find the king and at")
�O�words(0,500,-1,3,-1,1280,"the same time avoid capture by the Hairy Gang?")
�.�mergescr21(4):�bookgoon(1080,12,&01,-1,0)
�;ș "OS_Byte",112,2:�18,0,0:�25,4,0;0;:�25,101,1278;958;
�U�words(0,800,-1,3,-1,1280,"Elf Tales which includes the complete Elf King and a")
�T�words(0,740,-1,3,-1,1280,"second adventure, Elf Magic, may be ordered from :-")
�6�words(400,660,-1,3,0,0,"Sherston Software Ltd.,")
�+�words(400,600,-1,3,0,0,"Angel House,")

(�words(400,540,-1,3,0,0,"Sherston,")

*�words(400,480,-1,3,0,0,"Malmesbury,")

)�words(400,420,-1,3,0,0,"Wiltshire.")

"'�words(400,360,-1,3,0,0,"SN16 0LH")

,0�words(400,300,-1,3,0,0,"Tel: 01666 840433")

60�words(400,240,-1,3,0,0,"Fax: 01666 840048")

@:�words(400,180,-1,3,0,0,"Email: sales@sherston.co.uk")

J.�mergescr21(4):�bookgoon(1080,12,&01,-1,0)

T�

^

h
��inwater

r� j%,k%

|;�loadunsquash(sparea%,spareasiz%,"ONE.spfiles.inwater")

�Zmasksp%()=4:�j%=0�3:masksp$(j%)="hat"+�(j%):�:masksp$(4)="bubo":�masksprite(sparea%,5)

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

�G�j%=0�348�12:ș"OS_SpriteOp",&134,sparea%,"verto",j%,0,8,scale%,0:�

�J�j%=960�1272�12:ș"OS_SpriteOp",&134,sparea%,"verto",j%,0,8,scale%,0:�

�oș"OS_SpriteOp",&134,sparea%,"edge0",360,0,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"edge1",918,0,8,scale%,0

�;ș"OS_SpriteOp",&134,sparea%,"inwater",390,0,8,scale%,0

��mergescr21(4):�wait(100)

�Vsee%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�-30:driptime%=�

��24,446;0;704;958;

��j%=896�256�-64

�* �18,0,3:�25,4,446;0;:�25,101,704;958;

�< ș"OS_SpriteOp",&134,sparea%,"inwater",390,0,8,scale%,0

�L ș"OS_SpriteOp",&134,sparea%,"hat"+�(((j%-256)/64)�2),446,j%,8,scale%,0
P ș"OS_SpriteOp",&134,sparea%,"hat"+�(1-(((j%-256)/64)�2)),604,j%,8,scale%,0
 �:� �>=lasttime%+30
T �cachesound("fxdrip"+�(�(3)),1):�>driptime%:� 1,&17F,1,1:driptime%=�+50+�(100)
&^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
0�
:-�26:�18,0,3:�25,4,446;0;:�25,101,704;958;
D;ș"OS_SpriteOp",&134,sparea%,"inwater",390,0,8,scale%,0
Nqș"OS_SpriteOp",&134,sparea%,"hat2",426,228,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"hat3",604,216,8,scale%,0
X�:� �>=lasttime%+30
b]see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
l!�scrcopy(see%,do%):�wait(200)
v"ș "OS_Byte",112,2:usualpos%=0
�5�words_box(0,"00","","Oh no!","",640,280,2,0,700)
��mergescr21(6)
��beyes%=-1:geyes%=-1:eeyes%=-1:eyes%(0,0)=620:eyes%(0,1)=200:eyes%(1,0)=460:eyes%(1,1)=200:eyes%(2,0)=782:eyes%(2,1)=192:�bookgoon(1080,12,&2E0001,-1,0)
�tș "OS_Byte",112,2:ș"OS_SpriteOp",&122,sparea%,"boxbg",640,280,8:ș"OS_SpriteOp",&122,sparea%,"arrbg",700,172,8
�1�mergescr21(6):ș "OS_Byte",112,2:usualpos%=0
�t�words_box(2,"00,01","","If we mend these "+on$+"ladders "+off$+"we can "+on$+"escape"+off$+".","",0,0,3,-1,528)
�mș"OS_SpriteOp",&122,sparea%,"arrbg",528,108-4,8:ș"OS_SpriteOp",&134,sparea%,"bubo",528,108-4,8,scale%,0
�P�mergescr21(6):beyes%=-1:geyes%=-1:eeyes%=-1:�bookgoon(1080,12,&2E0001,-1,0)
��
�
���maketunn2
�6ș"OS_SpriteOp",&134,sparea%,"vert",0,0,8,scale%,0
�J�j%=720�1200�120:ș"OS_SpriteOp",&134,sparea%,"vert",j%,0,8,scale%,0:�
qș"OS_SpriteOp",&134,sparea%,"top0",120,764,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"top1",688,768,8,scale%,0
mș"OS_SpriteOp",&134,sparea%,"bot0",120,0,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"bot1",666,0,8,scale%,0
:ș"OS_SpriteOp",&134,sparea%,"ladder",310,0,8,scale%,0
 �
*
4��maketunn3
>H�j%=0�1200�120:ș"OS_SpriteOp",&134,sparea%,"vert",j%,0,8,scale%,0:�
H+�18,0,3:�25,4,380;400;:�25,101,940;958;
Rqș"OS_SpriteOp",&134,sparea%,"top0",360,764,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"top1",928,768,8,scale%,0
\:ș"OS_SpriteOp",&134,sparea%,"rope",688,472,8,scale%,0
f�
p
z��escape
�"�loadelf:�loadelfs:�loadescape
�;ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;
�E�maketunn2:�elf(740+130,372,3):�elfs(740,376,8,740+182+182,376,8)
��mergescr21(4):�wait(200)
�lsee%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:l%=-1:k%=-1:j%=740:lasttime%=�-30:driptime%=�+50
�� walk off screen
��
�# k%=(k%+1)�4:l%=(l%+1)�8:j%+=26
�+ �18,0,3:�25,4,0;376;:�25,101,1278;752;
�; ș"OS_SpriteOp",&134,sparea%,"ladder",310,0,8,scale%,0
� �elf(j%+130,372,k%)
�' �elfs(j%,376,l%,j%+182+182,376,l%)
� �:� �>lasttime%+20
 �k%=1 �
*  �cachesound("fxstep",1):� 1,&17F,1,1
 �
$V  �cachesound("fxdrip"+�(�(3)),1):�>driptime%:� 1,&17F,1,1:driptime%=�+100+�(200)
. �
8^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
B� j%>=1300
L�scrcopy(see%,do%)
V
`
j�
t
~
���mendlads
�:�loadunsquash(sparea%,spareasiz%,"ONE.spfiles.ladder")
�5Z%=�(�readsysvar("ElfK$task1")):times%=3:wrong%=0
��
�' �initlads:firstladpos%()=ladpos%()
� �
�+  ladpos%()=firstladpos%():seelad%()=-1
�E  ș"OS_Byte",112,2:�18,0,1:�25,4,0;0;:�25,101,1278;958;:�putlads
�m  ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,160,1,-1,48,-1):usualpos%=-1
�  �wrong% �
�   �words_read(4,"15,16,17,18"):�words_say(on$+"Which "+off$+"bit of "+on$+"ladder "+off$+"will fit the",on$+"one "+off$+"on the "+on$+"left"+off$+"?")
�  �
�   �words_read(3,"02,03,04"):�words_say("Click on a bit of "+on$+"ladder "+off$+"to mend the",on$+"one "+off$+"on the "+on$+"left"+off$+".")

  �
\  �mergescr21(6):loopexit%=3:�buttonloop(0,-1):lad%=chosen%:seelad%()=0:seelad%(lad%)=-1
L  see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�-30
(  �
2+   �18,0,1:�25,4,0;0;:�25,101,1278;958;
<!   ladpos%(lad%)-=20:�putlads
F   �:� �>=lasttime%+20
P`   see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
Z*  � ladpos%(lad%)<=(stoppos%(lad%)+20)
d*  �18,0,1:�25,4,0;0;:�25,101,1278;958;
n+  ladpos%(lad%)=stoppos%(lad%):�putlads
x  �:� �>=lasttime%+20
�Y  �lad%=okone%:�cachesound("fxtin1",1):wrong%=0:�:�cachesound("fxboing2",1):wrong%=-1
�  � 1,&17F,1,1
�_  see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�
�+  �scrcopy(see%,do%):ș "OS_Byte",112,2
�;  ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0
�  usualpos%=-1
�  �lad%<>okone% �
�+   �speechbox(240,8,820,108,1,-1,48,-1)
�E   �words_read(2,"05,06"):�words_say(on$+"Try again"+off$+".","")
�1   �mergescr21(4):�bookgoon(1080,12,&01,-1,0)
�  �
� � lad%=okone%
�3 times%-=1:�speechbox(240,8,820,108,1,-1,48,-1)
� �times%=0:�words_read(1,"07"):�words_say("Good. You can "+on$+"escape"+off$+".",""):�:�words_read(0,"00"):�words_say("Good.","")
/ �mergescr21(4):�bookgoon(1080,12,&01,-1,0)
� times%=0
"�
,
6
��putlads
@� j%
J�j%=0�3
TU �seelad%(j%):ș"OS_SpriteOp",&134,sparea%,"lad"+�(j%),ladpos%(j%),256,8,scale%,0
^�
h;ș"OS_SpriteOp",&134,sparea%,"ladder",40,256,8,scale%,0
r�
|
���initlads
�� j%,k%
�m%=3
�(� okone% = ladder which is 'correct'
�okone%=�(4)-1
�%�k%=0�4:split%(okone%,k%)=�(m%):�
��Z%=1 �
�<� make all broken ladders random +not the same as okone%
� �j%=0�3
�  �okone%<>j% �
�   �
�%    �k%=0�4:split%(j%,k%)=�(m%):�
��   � (split%(j%,0)<>split%(okone%,0))�(split%(j%,1)<>split%(okone%,1))�(split%(j%,2)<>split%(okone%,2))�(split%(j%,3)<>split%(okone%,3))�(split%(j%,4)<>split%(okone%,4))
  �
 �
�
& dif%(0)=�(5)-1
0* �:dif%(1)=�(5)-1:� (dif%(1)<>dif%(0))
:= �:dif%(2)=�(5)-1:� (dif%(2)<>dif%(1))�(dif%(2)<>dif%(0))
DP �:dif%(3)=�(5)-1:� (dif%(3)<>dif%(2))�(dif%(3)<>dif%(1))�(dif%(3)<>dif%(0))
NN� copy other 3 choices exactly like okone% except vary rung # dif%() by 1.
X �j%=0�3
b  �j%<>okone% �
l   �k%=0�4
v'    split%(j%,k%)=split%(okone%,k%)
�    �k%=dif%(j%) �
�     �split%(okone%,k%)=1 �
�      split%(j%,k%)=2
�
     �
�e      �split%(okone%,k%)=m%:split%(j%,k%)=m%-1:�:split%(j%,k%)=split%(okone%,k%)+(((�(2)-1)*2)-1)
�
     �
�	    �
�   �
�  �
� �
��
��j%=0�3
�/ ș"OS_SpriteOp",&13C,sparea%,"lad"+�(j%),0
( �18,0,4:�25,4,0;0;:�25,101,999;999;
3 ș"OS_SpriteOp",&122,sparea%,"upright",184,0,8
 �k%=0�4
 ;  ș"OS_SpriteOp",&122,sparea%,"rung",24,104+(104*k%),8
*L  �25,4,0;104+(104*k%);:�25,101,24+(40*split%(j%,k%))-2;104+(104*k%)+30;
4 �
>% ș"OS_SpriteOp",&13C,sparea%,0,1
H�
R+ș"OS_SpriteOp",&13C,sparea%,"ladder",0
\'�18,0,4:�25,4,0;0;:�25,101,999;999;
f0ș"OS_SpriteOp",&122,sparea%,"upright",0,0,8
p�k%=0�4
z: ș"OS_SpriteOp",&122,sparea%,"rung",24,104+(104*k%),8
�O �25,4,24+(40*split%(okone%,k%));104+(104*k%);:�25,101,999;104+(104*k%)+30;
��
�$ș"OS_SpriteOp",&13C,sparea%,0,1
�\masksp%()=4:�j%=0�3:masksp$(j%)="lad"+�(j%):�:masksp$(4)="ladder":�masksprite(sparea%,5)
�&�j%=0�3:ladpos%(j%)=320+(240*j%):�
��j%=0�3
� l%=m%+1
� �k%=0�4
�1  n%=split%(okone%,k%)+((m%+1)-split%(j%,k%))
�  �n%>l%:l%=n%
� �
�' l%-=(m%+1):stoppos%(j%)=40+(l%*40)
��
	�
	
	
	$��loopexit
	.Ȏ loopexit% �
	8  � 1:�doneablue%:animend%=-1
	BK � 2:�(mx%>=340)�(mx%<=936)�(my%>=208)�(my%<=800)�(mbut%=4):animend%=-1
	L � 3:�ladbox
	V�
	`�
	j
	t��ladbox
	~� j%
	��j%=0�3
	�S �(mx%>=(320+(240*j%)))�(mx%<=(320+(240*j%)+210))�(my%>=256)�(my%<=(256+652)) �
	�
  �18,0,9
	�%  �mbut%=4:chosen%=j%:animend%=-1
	� �
	�
  �18,0,1
	� �
	�F �hollowbox(320+(240*j%),256-24,320+(240*j%)+210+24,256+652+24,24)
	��
	��
	�
	�%��hollowbox(x0%,y0%,x1%,y1%,wid%)
,�25,4,x0%;y0%;:�25,101,x1%-2;y0%+wid%-2;

,�25,4,x1%-wid%;y0%;:�25,101,x1%-2;y1%-2;
,�25,4,x0%;y0%;:�25,101,x0%+wid%-2;y1%-2;
,�25,4,x0%;y1%-wid%;:�25,101,x1%-2;y1%-2;
(�
2
<��elf(x%,y%,type%)
F�type%=4 �
PO ș"OS_SpriteOp",&134,sparea3%,"elfside",x%+ew%(3,0),y%+ew%(3,1),8,scale%,0
ZB ș"OS_SpriteOp",&134,sparea3%,"ew3",x%+ew%(3,0),y%,8,scale%,0
d�
nZ ș"OS_SpriteOp",&134,sparea3%,"elfside",x%+ew%(type%,0)+24,y%+ew%(type%,1),8,scale%,0
xN ș"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
�l ș"OS_SpriteOp",&134,sparea4%,"ghead1",gx%+bw%(gtype%)+bh%(gtype%,0)-16,gy%+bh%(gtype%,1)-12,8,scale%,0
��
�


��loadelf
"Isparea3%=sparea%+spareasiz%-(11*1024):!sparea3%=11*1024:sparea3%!8=16
,"ș "OS_SpriteOp",&109,sparea3%
65�loadunsquash(sparea3%,11*1024,"ONE.spfiles.elf")
@`masksp%()=12:masksp$(0)="elfside":�j%=0�3:masksp$(j%+1)="ew"+�(j%):�:�masksprite(sparea3%,5)
J�
T
^��loadelfs
hSsparea4%=sparea%+spareasiz%-(11*1024)-(54*1024):!sparea4%=54*1024:sparea4%!8=16
r"ș "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)
��
�
���loadescape
�8!sparea%=spareasiz%-(11*1024)-(54*1024):sparea%!8=16
�!ș "OS_SpriteOp",&109,sparea%
�N�loadunsquash(sparea%,spareasiz%-(11*1024)-(54*1024),"ONE.spfiles.escape")
��
�
���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
&�
0
:��copygblink
D=�scrcopyblockpix(eyes%(2,0),eyes%(2,1),74,28,see%,do%,-1)
N�
X
b��bblink
l
beyes%+=1
vG�beyes%=2:beyes%=0:animpause%(18)=200+(50*�(6)):�:animpause%(18)=10
�Sș"OS_SpriteOp",&134,sparea%,"beyes"+�(beyes%),eyes%(1,0),eyes%(1,1),8,scale%,0
�3achange%=-1:donechange%(18)=-1:animtime%(18)=-1
��
�
���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)

*�

4

>��sounddrips

HJanimpause%(21)=100+�(200):�cachesound("fxdrip"+�(�(3)),1):� 1,&17F,1,1

R3achange%=-1:donechange%(21)=-1:animtime%(21)=-1

\�

f

p��elfblink2

z
eeyes%+=1

�G�eeyes%=2:eeyes%=0:animpause%(20)=200+(50*�(6)):�:animpause%(20)=10

�Sș"OS_SpriteOp",&134,sparea3%,"jeye"+�(eeyes%),eyes%(0,0),eyes%(0,1),8,scale%,0

�3achange%=-1:donechange%(20)=-1:animtime%(20)=-1

��

�

���copyelfblink2

�=�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% �
$ � 8:�copymoveacross
. � 9:�copymovedown
8 � 16:�copylilblink
B � 17:�copyelfblink
L � 18:�copybblink
V � 19:�copygblink
` � 20:�copyelfblink2
j�
t�
~
���specificanim(j%)
�Ȏ j% �
� � 8:�moveacross
� � 9:�movedown
� � 16:�lilblink
� � 17:�elfblink
� � 18:�bblink
� � 19:�gblink
� � 20:�elfblink2
� � 21:�sounddrips
��
��


��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)
2K� dif%(3),stoppos%(3),split%(3,4),ladpos%(3),firstladpos%(3),seelad%(3)
<� sppalet% 128
F� +0
P� 0,52,6,48,2,52,0,56
Z$�j%=0�3:�k%=0�1:� ew%(j%,k%):�:�
d� +0
n$� 0,-26,-26,-10,0,-24,-22,-8,-16
x�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
�2� &12,6,14,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
6)� 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
J'� 9,0,0,0,9,0,0,0,0,0,0,0,0,9,0,0,0
T+� 3,14,6,6,7,6,6,6,6,&16,14,6,6,5,0,0,0
^'� 0,9,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0
h.� &12,13,0,0,0,0,0,&12,6,&16,5,0,0,0,0,0,0
r)� 0,&11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|+�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
&� ladders,ladders,"20,120"
0� escape,escape,"16,21320"
:� ladder,ladder,"20,120"
D� one,one,"20,520"
N� left,left,"20,10"
X� Try,try,"18,210"
b� again,again,"24,120"
l� rope,rope,"12,25320"
v� out,out,"10,1520"
�"� windmill,windmill,"14,52340"
�� 10
�� Hairy,hairy,"20,140"
�� Gang,gang,"20,10"
�� find,find,"20,20"
�� grease,grease,"20,240"
�� Which,which,"20,520"
�� rocks,rocks,"30,20"
�� trees,trees,"28,240"
�� water,water,"16,520"
�� paths,paths,"26,10"
�� tunnels,tunnels,"20,120"
�� 20
� going,going,"20,540"
�j%=0�20
 �k%=0�2:� say$(j%,k%):�
 �
*� +0
4� 0
>� 444,32,0
H� 778,32,1
R� 618,96,2
\� 484,36,3
f� 728,36,4
p� 5
z� 540,40,5
�� 624,40,6
�� 732,40,1
�� 604,788,7
�� 1028,788,8
�� 10
�� 720,40,9
�� 486,656,10
�� 616,656,11
�� 682,656,12
�� 632,96,13
�� 15
�� 326,96,14
�� 606,96,2
� 482,36,3
� 724,36,4
� 146,116,15
$� 20
.� 378,116,16
8� 594,116,17
B� 832,116,18
L� 1064,116,19
V� 950,656,20
`�j%=0�24
j) �k%=0�1:� say%(j%,k%):�:� say%(j%,4)
t�
~�j%=0�24
�g 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
��
�� +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  04 0d 00 3c 1e f2 69 6e  |alise..2...<..in|
00000050  77 61 74 65 72 3a f2 6d  65 6e 64 6c 61 64 73 3a  |water:.mendlads:|
00000060  f2 65 73 63 61 70 65 0d  00 46 04 0d 00 50 0d f2  |.escape..F...P..|
00000070  73 68 65 72 73 74 6f 6e  0d 00 5a 04 0d 00 64 0d  |sherston..Z...d.|
00000080  f2 64 65 73 6b 5f 74 6f  70 0d 00 6e 04 0d 00 78  |.desk_top..n...x|
00000090  05 e0 0d 00 82 04 0d 00  8c 0e dd f2 73 68 65 72  |............sher|
000000a0  73 74 6f 6e 0d 00 96 3b  c8 99 20 22 4f 53 5f 42  |ston...;.. "OS_B|
000000b0  79 74 65 22 2c 31 31 32  2c 32 3a ef 31 38 2c 30  |yte",112,2:.18,0|
000000c0  2c 30 3a ef 32 35 2c 34  2c 30 3b 30 3b 3a ef 32  |,0:.25,4,0;0;:.2|
000000d0  35 2c 31 30 31 2c 31 32  37 38 3b 39 35 38 3b 0d  |5,101,1278;958;.|
000000e0  00 a0 13 f2 6d 65 72 67  65 73 63 72 32 31 28 31  |....mergescr21(1|
000000f0  30 29 0d 00 aa 16 c8 99  20 22 4f 53 5f 42 79 74  |0)...... "OS_Byt|
00000100  65 22 2c 31 31 32 2c 32  0d 00 b4 52 f2 77 6f 72  |e",112,2...R.wor|
00000110  64 73 28 30 2c 36 30 30  2c 2d 31 2c 33 2c 2d 31  |ds(0,600,-1,3,-1|
00000120  2c 31 32 38 30 2c 22 57  69 6c 6c 20 79 6f 75 20  |,1280,"Will you |
00000130  62 65 20 61 62 6c 65 20  74 6f 20 68 65 6c 70 20  |be able to help |
00000140  4a 65 6b 20 66 69 6e 64  20 74 68 65 20 6b 69 6e  |Jek find the kin|
00000150  67 20 61 6e 64 20 61 74  22 29 0d 00 be 4f f2 77  |g and at")...O.w|
00000160  6f 72 64 73 28 30 2c 35  30 30 2c 2d 31 2c 33 2c  |ords(0,500,-1,3,|
00000170  2d 31 2c 31 32 38 30 2c  22 74 68 65 20 73 61 6d  |-1,1280,"the sam|
00000180  65 20 74 69 6d 65 20 61  76 6f 69 64 20 63 61 70  |e time avoid cap|
00000190  74 75 72 65 20 62 79 20  74 68 65 20 48 61 69 72  |ture by the Hair|
000001a0  79 20 47 61 6e 67 3f 22  29 0d 00 c8 2e f2 6d 65  |y Gang?").....me|
000001b0  72 67 65 73 63 72 32 31  28 34 29 3a f2 62 6f 6f  |rgescr21(4):.boo|
000001c0  6b 67 6f 6f 6e 28 31 30  38 30 2c 31 32 2c 26 30  |kgoon(1080,12,&0|
000001d0  31 2c 2d 31 2c 30 29 0d  00 d2 3b c8 99 20 22 4f  |1,-1,0)...;.. "O|
000001e0  53 5f 42 79 74 65 22 2c  31 31 32 2c 32 3a ef 31  |S_Byte",112,2:.1|
000001f0  38 2c 30 2c 30 3a ef 32  35 2c 34 2c 30 3b 30 3b  |8,0,0:.25,4,0;0;|
00000200  3a ef 32 35 2c 31 30 31  2c 31 32 37 38 3b 39 35  |:.25,101,1278;95|
00000210  38 3b 0d 00 dc 55 f2 77  6f 72 64 73 28 30 2c 38  |8;...U.words(0,8|
00000220  30 30 2c 2d 31 2c 33 2c  2d 31 2c 31 32 38 30 2c  |00,-1,3,-1,1280,|
00000230  22 45 6c 66 20 54 61 6c  65 73 20 77 68 69 63 68  |"Elf Tales which|
00000240  20 69 6e 63 6c 75 64 65  73 20 74 68 65 20 63 6f  | includes the co|
00000250  6d 70 6c 65 74 65 20 45  6c 66 20 4b 69 6e 67 20  |mplete Elf King |
00000260  61 6e 64 20 61 22 29 0d  00 e6 54 f2 77 6f 72 64  |and a")...T.word|
00000270  73 28 30 2c 37 34 30 2c  2d 31 2c 33 2c 2d 31 2c  |s(0,740,-1,3,-1,|
00000280  31 32 38 30 2c 22 73 65  63 6f 6e 64 20 61 64 76  |1280,"second adv|
00000290  65 6e 74 75 72 65 2c 20  45 6c 66 20 4d 61 67 69  |enture, Elf Magi|
000002a0  63 2c 20 6d 61 79 20 62  65 20 6f 72 64 65 72 65  |c, may be ordere|
000002b0  64 20 66 72 6f 6d 20 3a  2d 22 29 0d 00 f0 36 f2  |d from :-")...6.|
000002c0  77 6f 72 64 73 28 34 30  30 2c 36 36 30 2c 2d 31  |words(400,660,-1|
000002d0  2c 33 2c 30 2c 30 2c 22  53 68 65 72 73 74 6f 6e  |,3,0,0,"Sherston|
000002e0  20 53 6f 66 74 77 61 72  65 20 4c 74 64 2e 2c 22  | Software Ltd.,"|
000002f0  29 0d 00 fa 2b f2 77 6f  72 64 73 28 34 30 30 2c  |)...+.words(400,|
00000300  36 30 30 2c 2d 31 2c 33  2c 30 2c 30 2c 22 41 6e  |600,-1,3,0,0,"An|
00000310  67 65 6c 20 48 6f 75 73  65 2c 22 29 0d 01 04 28  |gel House,")...(|
00000320  f2 77 6f 72 64 73 28 34  30 30 2c 35 34 30 2c 2d  |.words(400,540,-|
00000330  31 2c 33 2c 30 2c 30 2c  22 53 68 65 72 73 74 6f  |1,3,0,0,"Shersto|
00000340  6e 2c 22 29 0d 01 0e 2a  f2 77 6f 72 64 73 28 34  |n,")...*.words(4|
00000350  30 30 2c 34 38 30 2c 2d  31 2c 33 2c 30 2c 30 2c  |00,480,-1,3,0,0,|
00000360  22 4d 61 6c 6d 65 73 62  75 72 79 2c 22 29 0d 01  |"Malmesbury,")..|
00000370  18 29 f2 77 6f 72 64 73  28 34 30 30 2c 34 32 30  |.).words(400,420|
00000380  2c 2d 31 2c 33 2c 30 2c  30 2c 22 57 69 6c 74 73  |,-1,3,0,0,"Wilts|
00000390  68 69 72 65 2e 22 29 0d  01 22 27 f2 77 6f 72 64  |hire.").."'.word|
000003a0  73 28 34 30 30 2c 33 36  30 2c 2d 31 2c 33 2c 30  |s(400,360,-1,3,0|
000003b0  2c 30 2c 22 53 4e 31 36  20 30 4c 48 22 29 0d 01  |,0,"SN16 0LH")..|
000003c0  2c 30 f2 77 6f 72 64 73  28 34 30 30 2c 33 30 30  |,0.words(400,300|
000003d0  2c 2d 31 2c 33 2c 30 2c  30 2c 22 54 65 6c 3a 20  |,-1,3,0,0,"Tel: |
000003e0  30 31 36 36 36 20 38 34  30 34 33 33 22 29 0d 01  |01666 840433")..|
000003f0  36 30 f2 77 6f 72 64 73  28 34 30 30 2c 32 34 30  |60.words(400,240|
00000400  2c 2d 31 2c 33 2c 30 2c  30 2c 22 46 61 78 3a 20  |,-1,3,0,0,"Fax: |
00000410  30 31 36 36 36 20 38 34  30 30 34 38 22 29 0d 01  |01666 840048")..|
00000420  40 3a f2 77 6f 72 64 73  28 34 30 30 2c 31 38 30  |@:.words(400,180|
00000430  2c 2d 31 2c 33 2c 30 2c  30 2c 22 45 6d 61 69 6c  |,-1,3,0,0,"Email|
00000440  3a 20 73 61 6c 65 73 40  73 68 65 72 73 74 6f 6e  |: sales@sherston|
00000450  2e 63 6f 2e 75 6b 22 29  0d 01 4a 2e f2 6d 65 72  |.co.uk")..J..mer|
00000460  67 65 73 63 72 32 31 28  34 29 3a f2 62 6f 6f 6b  |gescr21(4):.book|
00000470  67 6f 6f 6e 28 31 30 38  30 2c 31 32 2c 26 30 31  |goon(1080,12,&01|
00000480  2c 2d 31 2c 30 29 0d 01  54 05 e1 0d 01 5e 04 0d  |,-1,0)..T....^..|
00000490  01 68 0d dd f2 69 6e 77  61 74 65 72 0d 01 72 0b  |.h...inwater..r.|
000004a0  ea 20 6a 25 2c 6b 25 0d  01 7c 3b f2 6c 6f 61 64  |. j%,k%..|;.load|
000004b0  75 6e 73 71 75 61 73 68  28 73 70 61 72 65 61 25  |unsquash(sparea%|
000004c0  2c 73 70 61 72 65 61 73  69 7a 25 2c 22 4f 4e 45  |,spareasiz%,"ONE|
000004d0  2e 73 70 66 69 6c 65 73  2e 69 6e 77 61 74 65 72  |.spfiles.inwater|
000004e0  22 29 0d 01 86 5a 6d 61  73 6b 73 70 25 28 29 3d  |")...Zmasksp%()=|
000004f0  34 3a e3 6a 25 3d 30 b8  33 3a 6d 61 73 6b 73 70  |4:.j%=0.3:masksp|
00000500  24 28 6a 25 29 3d 22 68  61 74 22 2b c3 28 6a 25  |$(j%)="hat"+.(j%|
00000510  29 3a ed 3a 6d 61 73 6b  73 70 24 28 34 29 3d 22  |):.:masksp$(4)="|
00000520  62 75 62 6f 22 3a f2 6d  61 73 6b 73 70 72 69 74  |bubo":.masksprit|
00000530  65 28 73 70 61 72 65 61  25 2c 35 29 0d 01 90 3b  |e(sparea%,5)...;|
00000540  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 31 32  |.. "OS_Byte",112|
00000550  2c 32 3a ef 31 38 2c 30  2c 33 3a ef 32 35 2c 34  |,2:.18,0,3:.25,4|
00000560  2c 30 3b 30 3b 3a ef 32  35 2c 31 30 31 2c 31 32  |,0;0;:.25,101,12|
00000570  37 38 3b 39 35 38 3b 0d  01 9a 47 e3 6a 25 3d 30  |78;958;...G.j%=0|
00000580  b8 33 34 38 88 31 32 3a  c8 99 22 4f 53 5f 53 70  |.348.12:.."OS_Sp|
00000590  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 73 70 61  |riteOp",&134,spa|
000005a0  72 65 61 25 2c 22 76 65  72 74 6f 22 2c 6a 25 2c  |rea%,"verto",j%,|
000005b0  30 2c 38 2c 73 63 61 6c  65 25 2c 30 3a ed 0d 01  |0,8,scale%,0:...|
000005c0  a4 4a e3 6a 25 3d 39 36  30 b8 31 32 37 32 88 31  |.J.j%=960.1272.1|
000005d0  32 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |2:.."OS_SpriteOp|
000005e0  22 2c 26 31 33 34 2c 73  70 61 72 65 61 25 2c 22  |",&134,sparea%,"|
000005f0  76 65 72 74 6f 22 2c 6a  25 2c 30 2c 38 2c 73 63  |verto",j%,0,8,sc|
00000600  61 6c 65 25 2c 30 3a ed  0d 01 ae 6f c8 99 22 4f  |ale%,0:....o.."O|
00000610  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
00000620  2c 73 70 61 72 65 61 25  2c 22 65 64 67 65 30 22  |,sparea%,"edge0"|
00000630  2c 33 36 30 2c 30 2c 38  2c 73 63 61 6c 65 25 2c  |,360,0,8,scale%,|
00000640  30 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |0:.."OS_SpriteOp|
00000650  22 2c 26 31 33 34 2c 73  70 61 72 65 61 25 2c 22  |",&134,sparea%,"|
00000660  65 64 67 65 31 22 2c 39  31 38 2c 30 2c 38 2c 73  |edge1",918,0,8,s|
00000670  63 61 6c 65 25 2c 30 0d  01 b8 3b c8 99 22 4f 53  |cale%,0...;.."OS|
00000680  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00000690  73 70 61 72 65 61 25 2c  22 69 6e 77 61 74 65 72  |sparea%,"inwater|
000006a0  22 2c 33 39 30 2c 30 2c  38 2c 73 63 61 6c 65 25  |",390,0,8,scale%|
000006b0  2c 30 0d 01 c2 1d f2 6d  65 72 67 65 73 63 72 32  |,0.....mergescr2|
000006c0  31 28 34 29 3a f2 77 61  69 74 28 31 30 30 29 0d  |1(4):.wait(100).|
000006d0  01 cc 56 73 65 65 25 3d  31 3a 64 6f 25 3d 32 3a  |..Vsee%=1:do%=2:|
000006e0  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 31 33  |.. "OS_Byte",113|
000006f0  2c 73 65 65 25 3a c8 99  20 22 4f 53 5f 42 79 74  |,see%:.. "OS_Byt|
00000700  65 22 2c 31 31 32 2c 64  6f 25 3a 6c 61 73 74 74  |e",112,do%:lastt|
00000710  69 6d 65 25 3d 91 2d 33  30 3a 64 72 69 70 74 69  |ime%=.-30:dripti|
00000720  6d 65 25 3d 91 0d 01 d6  16 ef 32 34 2c 34 34 36  |me%=......24,446|
00000730  3b 30 3b 37 30 34 3b 39  35 38 3b 0d 01 e0 13 e3  |;0;704;958;.....|
00000740  6a 25 3d 38 39 36 b8 32  35 36 88 2d 36 34 0d 01  |j%=896.256.-64..|
00000750  ea 2a 20 ef 31 38 2c 30  2c 33 3a ef 32 35 2c 34  |.* .18,0,3:.25,4|
00000760  2c 34 34 36 3b 30 3b 3a  ef 32 35 2c 31 30 31 2c  |,446;0;:.25,101,|
00000770  37 30 34 3b 39 35 38 3b  0d 01 f4 3c 20 c8 99 22  |704;958;...< .."|
00000780  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00000790  34 2c 73 70 61 72 65 61  25 2c 22 69 6e 77 61 74  |4,sparea%,"inwat|
000007a0  65 72 22 2c 33 39 30 2c  30 2c 38 2c 73 63 61 6c  |er",390,0,8,scal|
000007b0  65 25 2c 30 0d 01 fe 4c  20 c8 99 22 4f 53 5f 53  |e%,0...L .."OS_S|
000007c0  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
000007d0  61 72 65 61 25 2c 22 68  61 74 22 2b c3 28 28 28  |area%,"hat"+.(((|
000007e0  6a 25 2d 32 35 36 29 2f  36 34 29 83 32 29 2c 34  |j%-256)/64).2),4|
000007f0  34 36 2c 6a 25 2c 38 2c  73 63 61 6c 65 25 2c 30  |46,j%,8,scale%,0|
00000800  0d 02 08 50 20 c8 99 22  4f 53 5f 53 70 72 69 74  |...P .."OS_Sprit|
00000810  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
00000820  25 2c 22 68 61 74 22 2b  c3 28 31 2d 28 28 28 6a  |%,"hat"+.(1-(((j|
00000830  25 2d 32 35 36 29 2f 36  34 29 83 32 29 29 2c 36  |%-256)/64).2)),6|
00000840  30 34 2c 6a 25 2c 38 2c  73 63 61 6c 65 25 2c 30  |04,j%,8,scale%,0|
00000850  0d 02 12 18 20 f5 3a fd  20 91 3e 3d 6c 61 73 74  |.... .:. .>=last|
00000860  74 69 6d 65 25 2b 33 30  0d 02 1c 54 20 f2 63 61  |time%+30...T .ca|
00000870  63 68 65 73 6f 75 6e 64  28 22 66 78 64 72 69 70  |chesound("fxdrip|
00000880  22 2b c3 28 b3 28 33 29  29 2c 31 29 3a e7 91 3e  |"+.(.(3)),1):..>|
00000890  64 72 69 70 74 69 6d 65  25 3a d4 20 31 2c 26 31  |driptime%:. 1,&1|
000008a0  37 46 2c 31 2c 31 3a 64  72 69 70 74 69 6d 65 25  |7F,1,1:driptime%|
000008b0  3d 91 2b 35 30 2b b3 28  31 30 30 29 0d 02 26 5e  |=.+50+.(100)..&^|
000008c0  20 73 65 65 25 3d 25 31  30 30 3e 3e 3e 73 65 65  | see%=%100>>>see|
000008d0  25 3a 64 6f 25 3d 25 31  30 30 3e 3e 3e 64 6f 25  |%:do%=%100>>>do%|
000008e0  3a c8 96 3a c8 99 20 22  4f 53 5f 42 79 74 65 22  |:..:.. "OS_Byte"|
000008f0  2c 31 31 33 2c 73 65 65  25 3a c8 99 20 22 4f 53  |,113,see%:.. "OS|
00000900  5f 42 79 74 65 22 2c 31  31 32 2c 64 6f 25 3a 6c  |_Byte",112,do%:l|
00000910  61 73 74 74 69 6d 65 25  3d 91 0d 02 30 05 ed 0d  |asttime%=...0...|
00000920  02 3a 2d ef 32 36 3a ef  31 38 2c 30 2c 33 3a ef  |.:-.26:.18,0,3:.|
00000930  32 35 2c 34 2c 34 34 36  3b 30 3b 3a ef 32 35 2c  |25,4,446;0;:.25,|
00000940  31 30 31 2c 37 30 34 3b  39 35 38 3b 0d 02 44 3b  |101,704;958;..D;|
00000950  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000960  26 31 33 34 2c 73 70 61  72 65 61 25 2c 22 69 6e  |&134,sparea%,"in|
00000970  77 61 74 65 72 22 2c 33  39 30 2c 30 2c 38 2c 73  |water",390,0,8,s|
00000980  63 61 6c 65 25 2c 30 0d  02 4e 71 c8 99 22 4f 53  |cale%,0..Nq.."OS|
00000990  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
000009a0  73 70 61 72 65 61 25 2c  22 68 61 74 32 22 2c 34  |sparea%,"hat2",4|
000009b0  32 36 2c 32 32 38 2c 38  2c 73 63 61 6c 65 25 2c  |26,228,8,scale%,|
000009c0  30 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |0:.."OS_SpriteOp|
000009d0  22 2c 26 31 33 34 2c 73  70 61 72 65 61 25 2c 22  |",&134,sparea%,"|
000009e0  68 61 74 33 22 2c 36 30  34 2c 32 31 36 2c 38 2c  |hat3",604,216,8,|
000009f0  73 63 61 6c 65 25 2c 30  0d 02 58 17 f5 3a fd 20  |scale%,0..X..:. |
00000a00  91 3e 3d 6c 61 73 74 74  69 6d 65 25 2b 33 30 0d  |.>=lasttime%+30.|
00000a10  02 62 5d 73 65 65 25 3d  25 31 30 30 3e 3e 3e 73  |.b]see%=%100>>>s|
00000a20  65 65 25 3a 64 6f 25 3d  25 31 30 30 3e 3e 3e 64  |ee%:do%=%100>>>d|
00000a30  6f 25 3a c8 96 3a c8 99  20 22 4f 53 5f 42 79 74  |o%:..:.. "OS_Byt|
00000a40  65 22 2c 31 31 33 2c 73  65 65 25 3a c8 99 20 22  |e",113,see%:.. "|
00000a50  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 64 6f 25  |OS_Byte",112,do%|
00000a60  3a 6c 61 73 74 74 69 6d  65 25 3d 91 0d 02 6c 21  |:lasttime%=...l!|
00000a70  f2 73 63 72 63 6f 70 79  28 73 65 65 25 2c 64 6f  |.scrcopy(see%,do|
00000a80  25 29 3a f2 77 61 69 74  28 32 30 30 29 0d 02 76  |%):.wait(200)..v|
00000a90  22 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |".. "OS_Byte",11|
00000aa0  32 2c 32 3a 75 73 75 61  6c 70 6f 73 25 3d 30 0d  |2,2:usualpos%=0.|
00000ab0  02 80 35 f2 77 6f 72 64  73 5f 62 6f 78 28 30 2c  |..5.words_box(0,|
00000ac0  22 30 30 22 2c 22 22 2c  22 4f 68 20 6e 6f 21 22  |"00","","Oh no!"|
00000ad0  2c 22 22 2c 36 34 30 2c  32 38 30 2c 32 2c 30 2c  |,"",640,280,2,0,|
00000ae0  37 30 30 29 0d 02 8a 12  f2 6d 65 72 67 65 73 63  |700).....mergesc|
00000af0  72 32 31 28 36 29 0d 02  94 9b 62 65 79 65 73 25  |r21(6)....beyes%|
00000b00  3d 2d 31 3a 67 65 79 65  73 25 3d 2d 31 3a 65 65  |=-1:geyes%=-1:ee|
00000b10  79 65 73 25 3d 2d 31 3a  65 79 65 73 25 28 30 2c  |yes%=-1:eyes%(0,|
00000b20  30 29 3d 36 32 30 3a 65  79 65 73 25 28 30 2c 31  |0)=620:eyes%(0,1|
00000b30  29 3d 32 30 30 3a 65 79  65 73 25 28 31 2c 30 29  |)=200:eyes%(1,0)|
00000b40  3d 34 36 30 3a 65 79 65  73 25 28 31 2c 31 29 3d  |=460:eyes%(1,1)=|
00000b50  32 30 30 3a 65 79 65 73  25 28 32 2c 30 29 3d 37  |200:eyes%(2,0)=7|
00000b60  38 32 3a 65 79 65 73 25  28 32 2c 31 29 3d 31 39  |82:eyes%(2,1)=19|
00000b70  32 3a f2 62 6f 6f 6b 67  6f 6f 6e 28 31 30 38 30  |2:.bookgoon(1080|
00000b80  2c 31 32 2c 26 32 45 30  30 30 31 2c 2d 31 2c 30  |,12,&2E0001,-1,0|
00000b90  29 0d 02 9e 74 c8 99 20  22 4f 53 5f 42 79 74 65  |)...t.. "OS_Byte|
00000ba0  22 2c 31 31 32 2c 32 3a  c8 99 22 4f 53 5f 53 70  |",112,2:.."OS_Sp|
00000bb0  72 69 74 65 4f 70 22 2c  26 31 32 32 2c 73 70 61  |riteOp",&122,spa|
00000bc0  72 65 61 25 2c 22 62 6f  78 62 67 22 2c 36 34 30  |rea%,"boxbg",640|
00000bd0  2c 32 38 30 2c 38 3a c8  99 22 4f 53 5f 53 70 72  |,280,8:.."OS_Spr|
00000be0  69 74 65 4f 70 22 2c 26  31 32 32 2c 73 70 61 72  |iteOp",&122,spar|
00000bf0  65 61 25 2c 22 61 72 72  62 67 22 2c 37 30 30 2c  |ea%,"arrbg",700,|
00000c00  31 37 32 2c 38 0d 02 a8  31 f2 6d 65 72 67 65 73  |172,8...1.merges|
00000c10  63 72 32 31 28 36 29 3a  c8 99 20 22 4f 53 5f 42  |cr21(6):.. "OS_B|
00000c20  79 74 65 22 2c 31 31 32  2c 32 3a 75 73 75 61 6c  |yte",112,2:usual|
00000c30  70 6f 73 25 3d 30 0d 02  b2 74 f2 77 6f 72 64 73  |pos%=0...t.words|
00000c40  5f 62 6f 78 28 32 2c 22  30 30 2c 30 31 22 2c 22  |_box(2,"00,01","|
00000c50  22 2c 22 49 66 20 77 65  20 6d 65 6e 64 20 74 68  |","If we mend th|
00000c60  65 73 65 20 22 2b 6f 6e  24 2b 22 6c 61 64 64 65  |ese "+on$+"ladde|
00000c70  72 73 20 22 2b 6f 66 66  24 2b 22 77 65 20 63 61  |rs "+off$+"we ca|
00000c80  6e 20 22 2b 6f 6e 24 2b  22 65 73 63 61 70 65 22  |n "+on$+"escape"|
00000c90  2b 6f 66 66 24 2b 22 2e  22 2c 22 22 2c 30 2c 30  |+off$+".","",0,0|
00000ca0  2c 33 2c 2d 31 2c 35 32  38 29 0d 02 bc 6d c8 99  |,3,-1,528)...m..|
00000cb0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000cc0  32 32 2c 73 70 61 72 65  61 25 2c 22 61 72 72 62  |22,sparea%,"arrb|
00000cd0  67 22 2c 35 32 38 2c 31  30 38 2d 34 2c 38 3a c8  |g",528,108-4,8:.|
00000ce0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00000cf0  31 33 34 2c 73 70 61 72  65 61 25 2c 22 62 75 62  |134,sparea%,"bub|
00000d00  6f 22 2c 35 32 38 2c 31  30 38 2d 34 2c 38 2c 73  |o",528,108-4,8,s|
00000d10  63 61 6c 65 25 2c 30 0d  02 c6 50 f2 6d 65 72 67  |cale%,0...P.merg|
00000d20  65 73 63 72 32 31 28 36  29 3a 62 65 79 65 73 25  |escr21(6):beyes%|
00000d30  3d 2d 31 3a 67 65 79 65  73 25 3d 2d 31 3a 65 65  |=-1:geyes%=-1:ee|
00000d40  79 65 73 25 3d 2d 31 3a  f2 62 6f 6f 6b 67 6f 6f  |yes%=-1:.bookgoo|
00000d50  6e 28 31 30 38 30 2c 31  32 2c 26 32 45 30 30 30  |n(1080,12,&2E000|
00000d60  31 2c 2d 31 2c 30 29 0d  02 d0 05 e1 0d 02 da 04  |1,-1,0).........|
00000d70  0d 02 e4 0f dd f2 6d 61  6b 65 74 75 6e 6e 32 0d  |......maketunn2.|
00000d80  02 ee 36 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..6.."OS_SpriteO|
00000d90  70 22 2c 26 31 33 34 2c  73 70 61 72 65 61 25 2c  |p",&134,sparea%,|
00000da0  22 76 65 72 74 22 2c 30  2c 30 2c 38 2c 73 63 61  |"vert",0,0,8,sca|
00000db0  6c 65 25 2c 30 0d 02 f8  4a e3 6a 25 3d 37 32 30  |le%,0...J.j%=720|
00000dc0  b8 31 32 30 30 88 31 32  30 3a c8 99 22 4f 53 5f  |.1200.120:.."OS_|
00000dd0  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |SpriteOp",&134,s|
00000de0  70 61 72 65 61 25 2c 22  76 65 72 74 22 2c 6a 25  |parea%,"vert",j%|
00000df0  2c 30 2c 38 2c 73 63 61  6c 65 25 2c 30 3a ed 0d  |,0,8,scale%,0:..|
00000e00  03 02 71 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..q.."OS_SpriteO|
00000e10  70 22 2c 26 31 33 34 2c  73 70 61 72 65 61 25 2c  |p",&134,sparea%,|
00000e20  22 74 6f 70 30 22 2c 31  32 30 2c 37 36 34 2c 38  |"top0",120,764,8|
00000e30  2c 73 63 61 6c 65 25 2c  30 3a c8 99 22 4f 53 5f  |,scale%,0:.."OS_|
00000e40  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |SpriteOp",&134,s|
00000e50  70 61 72 65 61 25 2c 22  74 6f 70 31 22 2c 36 38  |parea%,"top1",68|
00000e60  38 2c 37 36 38 2c 38 2c  73 63 61 6c 65 25 2c 30  |8,768,8,scale%,0|
00000e70  0d 03 0c 6d c8 99 22 4f  53 5f 53 70 72 69 74 65  |...m.."OS_Sprite|
00000e80  4f 70 22 2c 26 31 33 34  2c 73 70 61 72 65 61 25  |Op",&134,sparea%|
00000e90  2c 22 62 6f 74 30 22 2c  31 32 30 2c 30 2c 38 2c  |,"bot0",120,0,8,|
00000ea0  73 63 61 6c 65 25 2c 30  3a c8 99 22 4f 53 5f 53  |scale%,0:.."OS_S|
00000eb0  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
00000ec0  61 72 65 61 25 2c 22 62  6f 74 31 22 2c 36 36 36  |area%,"bot1",666|
00000ed0  2c 30 2c 38 2c 73 63 61  6c 65 25 2c 30 0d 03 16  |,0,8,scale%,0...|
00000ee0  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
00000ef0  2c 26 31 33 34 2c 73 70  61 72 65 61 25 2c 22 6c  |,&134,sparea%,"l|
00000f00  61 64 64 65 72 22 2c 33  31 30 2c 30 2c 38 2c 73  |adder",310,0,8,s|
00000f10  63 61 6c 65 25 2c 30 0d  03 20 05 e1 0d 03 2a 04  |cale%,0.. ....*.|
00000f20  0d 03 34 0f dd f2 6d 61  6b 65 74 75 6e 6e 33 0d  |..4...maketunn3.|
00000f30  03 3e 48 e3 6a 25 3d 30  b8 31 32 30 30 88 31 32  |.>H.j%=0.1200.12|
00000f40  30 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |0:.."OS_SpriteOp|
00000f50  22 2c 26 31 33 34 2c 73  70 61 72 65 61 25 2c 22  |",&134,sparea%,"|
00000f60  76 65 72 74 22 2c 6a 25  2c 30 2c 38 2c 73 63 61  |vert",j%,0,8,sca|
00000f70  6c 65 25 2c 30 3a ed 0d  03 48 2b ef 31 38 2c 30  |le%,0:...H+.18,0|
00000f80  2c 33 3a ef 32 35 2c 34  2c 33 38 30 3b 34 30 30  |,3:.25,4,380;400|
00000f90  3b 3a ef 32 35 2c 31 30  31 2c 39 34 30 3b 39 35  |;:.25,101,940;95|
00000fa0  38 3b 0d 03 52 71 c8 99  22 4f 53 5f 53 70 72 69  |8;..Rq.."OS_Spri|
00000fb0  74 65 4f 70 22 2c 26 31  33 34 2c 73 70 61 72 65  |teOp",&134,spare|
00000fc0  61 25 2c 22 74 6f 70 30  22 2c 33 36 30 2c 37 36  |a%,"top0",360,76|
00000fd0  34 2c 38 2c 73 63 61 6c  65 25 2c 30 3a c8 99 22  |4,8,scale%,0:.."|
00000fe0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00000ff0  34 2c 73 70 61 72 65 61  25 2c 22 74 6f 70 31 22  |4,sparea%,"top1"|
00001000  2c 39 32 38 2c 37 36 38  2c 38 2c 73 63 61 6c 65  |,928,768,8,scale|
00001010  25 2c 30 0d 03 5c 3a c8  99 22 4f 53 5f 53 70 72  |%,0..\:.."OS_Spr|
00001020  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
00001030  65 61 25 2c 22 72 6f 70  65 22 2c 36 38 38 2c 34  |ea%,"rope",688,4|
00001040  37 32 2c 38 2c 73 63 61  6c 65 25 2c 30 0d 03 66  |72,8,scale%,0..f|
00001050  05 e1 0d 03 70 04 0d 03  7a 0c dd f2 65 73 63 61  |....p...z...esca|
00001060  70 65 0d 03 84 22 f2 6c  6f 61 64 65 6c 66 3a f2  |pe...".loadelf:.|
00001070  6c 6f 61 64 65 6c 66 73  3a f2 6c 6f 61 64 65 73  |loadelfs:.loades|
00001080  63 61 70 65 0d 03 8e 3b  c8 99 20 22 4f 53 5f 42  |cape...;.. "OS_B|
00001090  79 74 65 22 2c 31 31 32  2c 32 3a ef 31 38 2c 30  |yte",112,2:.18,0|
000010a0  2c 33 3a ef 32 35 2c 34  2c 30 3b 30 3b 3a ef 32  |,3:.25,4,0;0;:.2|
000010b0  35 2c 31 30 31 2c 31 32  37 38 3b 39 35 38 3b 0d  |5,101,1278;958;.|
000010c0  03 98 45 f2 6d 61 6b 65  74 75 6e 6e 32 3a f2 65  |..E.maketunn2:.e|
000010d0  6c 66 28 37 34 30 2b 31  33 30 2c 33 37 32 2c 33  |lf(740+130,372,3|
000010e0  29 3a f2 65 6c 66 73 28  37 34 30 2c 33 37 36 2c  |):.elfs(740,376,|
000010f0  38 2c 37 34 30 2b 31 38  32 2b 31 38 32 2c 33 37  |8,740+182+182,37|
00001100  36 2c 38 29 0d 03 a2 1d  f2 6d 65 72 67 65 73 63  |6,8).....mergesc|
00001110  72 32 31 28 34 29 3a f2  77 61 69 74 28 32 30 30  |r21(4):.wait(200|
00001120  29 0d 03 ac 6c 73 65 65  25 3d 31 3a 64 6f 25 3d  |)...lsee%=1:do%=|
00001130  32 3a c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |2:.. "OS_Byte",1|
00001140  31 33 2c 73 65 65 25 3a  c8 99 20 22 4f 53 5f 42  |13,see%:.. "OS_B|
00001150  79 74 65 22 2c 31 31 32  2c 64 6f 25 3a 6c 25 3d  |yte",112,do%:l%=|
00001160  2d 31 3a 6b 25 3d 2d 31  3a 6a 25 3d 37 34 30 3a  |-1:k%=-1:j%=740:|
00001170  6c 61 73 74 74 69 6d 65  25 3d 91 2d 33 30 3a 64  |lasttime%=.-30:d|
00001180  72 69 70 74 69 6d 65 25  3d 91 2b 35 30 0d 03 b6  |riptime%=.+50...|
00001190  15 f4 20 77 61 6c 6b 20  6f 66 66 20 73 63 72 65  |.. walk off scre|
000011a0  65 6e 0d 03 c0 05 f5 0d  03 ca 23 20 6b 25 3d 28  |en........# k%=(|
000011b0  6b 25 2b 31 29 83 34 3a  6c 25 3d 28 6c 25 2b 31  |k%+1).4:l%=(l%+1|
000011c0  29 83 38 3a 6a 25 2b 3d  32 36 0d 03 d4 2b 20 ef  |).8:j%+=26...+ .|
000011d0  31 38 2c 30 2c 33 3a ef  32 35 2c 34 2c 30 3b 33  |18,0,3:.25,4,0;3|
000011e0  37 36 3b 3a ef 32 35 2c  31 30 31 2c 31 32 37 38  |76;:.25,101,1278|
000011f0  3b 37 35 32 3b 0d 03 de  3b 20 c8 99 22 4f 53 5f  |;752;...; .."OS_|
00001200  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |SpriteOp",&134,s|
00001210  70 61 72 65 61 25 2c 22  6c 61 64 64 65 72 22 2c  |parea%,"ladder",|
00001220  33 31 30 2c 30 2c 38 2c  73 63 61 6c 65 25 2c 30  |310,0,8,scale%,0|
00001230  0d 03 e8 18 20 f2 65 6c  66 28 6a 25 2b 31 33 30  |.... .elf(j%+130|
00001240  2c 33 37 32 2c 6b 25 29  0d 03 f2 27 20 f2 65 6c  |,372,k%)...' .el|
00001250  66 73 28 6a 25 2c 33 37  36 2c 6c 25 2c 6a 25 2b  |fs(j%,376,l%,j%+|
00001260  31 38 32 2b 31 38 32 2c  33 37 36 2c 6c 25 29 0d  |182+182,376,l%).|
00001270  03 fc 17 20 f5 3a fd 20  91 3e 6c 61 73 74 74 69  |... .:. .>lastti|
00001280  6d 65 25 2b 32 30 0d 04  06 0c 20 e7 6b 25 3d 31  |me%+20.... .k%=1|
00001290  20 8c 0d 04 10 2a 20 20  f2 63 61 63 68 65 73 6f  | ....*  .cacheso|
000012a0  75 6e 64 28 22 66 78 73  74 65 70 22 2c 31 29 3a  |und("fxstep",1):|
000012b0  d4 20 31 2c 26 31 37 46  2c 31 2c 31 0d 04 1a 06  |. 1,&17F,1,1....|
000012c0  20 cc 0d 04 24 56 20 20  f2 63 61 63 68 65 73 6f  | ...$V  .cacheso|
000012d0  75 6e 64 28 22 66 78 64  72 69 70 22 2b c3 28 b3  |und("fxdrip"+.(.|
000012e0  28 33 29 29 2c 31 29 3a  e7 91 3e 64 72 69 70 74  |(3)),1):..>dript|
000012f0  69 6d 65 25 3a d4 20 31  2c 26 31 37 46 2c 31 2c  |ime%:. 1,&17F,1,|
00001300  31 3a 64 72 69 70 74 69  6d 65 25 3d 91 2b 31 30  |1:driptime%=.+10|
00001310  30 2b b3 28 32 30 30 29  0d 04 2e 06 20 cd 0d 04  |0+.(200).... ...|
00001320  38 5e 20 73 65 65 25 3d  25 31 30 30 3e 3e 3e 73  |8^ see%=%100>>>s|
00001330  65 65 25 3a 64 6f 25 3d  25 31 30 30 3e 3e 3e 64  |ee%:do%=%100>>>d|
00001340  6f 25 3a c8 96 3a c8 99  20 22 4f 53 5f 42 79 74  |o%:..:.. "OS_Byt|
00001350  65 22 2c 31 31 33 2c 73  65 65 25 3a c8 99 20 22  |e",113,see%:.. "|
00001360  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 64 6f 25  |OS_Byte",112,do%|
00001370  3a 6c 61 73 74 74 69 6d  65 25 3d 91 0d 04 42 0e  |:lasttime%=...B.|
00001380  fd 20 6a 25 3e 3d 31 33  30 30 0d 04 4c 16 f2 73  |. j%>=1300..L..s|
00001390  63 72 63 6f 70 79 28 73  65 65 25 2c 64 6f 25 29  |crcopy(see%,do%)|
000013a0  0d 04 56 04 0d 04 60 04  0d 04 6a 05 e1 0d 04 74  |..V...`...j....t|
000013b0  04 0d 04 7e 04 0d 04 88  0e dd f2 6d 65 6e 64 6c  |...~.......mendl|
000013c0  61 64 73 0d 04 92 3a f2  6c 6f 61 64 75 6e 73 71  |ads...:.loadunsq|
000013d0  75 61 73 68 28 73 70 61  72 65 61 25 2c 73 70 61  |uash(sparea%,spa|
000013e0  72 65 61 73 69 7a 25 2c  22 4f 4e 45 2e 73 70 66  |reasiz%,"ONE.spf|
000013f0  69 6c 65 73 2e 6c 61 64  64 65 72 22 29 0d 04 9c  |iles.ladder")...|
00001400  35 5a 25 3d bb 28 a4 72  65 61 64 73 79 73 76 61  |5Z%=.(.readsysva|
00001410  72 28 22 45 6c 66 4b 24  74 61 73 6b 31 22 29 29  |r("ElfK$task1"))|
00001420  3a 74 69 6d 65 73 25 3d  33 3a 77 72 6f 6e 67 25  |:times%=3:wrong%|
00001430  3d 30 0d 04 a6 05 f5 0d  04 b0 27 20 f2 69 6e 69  |=0........' .ini|
00001440  74 6c 61 64 73 3a 66 69  72 73 74 6c 61 64 70 6f  |tlads:firstladpo|
00001450  73 25 28 29 3d 6c 61 64  70 6f 73 25 28 29 0d 04  |s%()=ladpos%()..|
00001460  ba 06 20 f5 0d 04 c4 2b  20 20 6c 61 64 70 6f 73  |.. ....+  ladpos|
00001470  25 28 29 3d 66 69 72 73  74 6c 61 64 70 6f 73 25  |%()=firstladpos%|
00001480  28 29 3a 73 65 65 6c 61  64 25 28 29 3d 2d 31 0d  |():seelad%()=-1.|
00001490  04 ce 45 20 20 c8 99 22  4f 53 5f 42 79 74 65 22  |..E  .."OS_Byte"|
000014a0  2c 31 31 32 2c 32 3a ef  31 38 2c 30 2c 31 3a ef  |,112,2:.18,0,1:.|
000014b0  32 35 2c 34 2c 30 3b 30  3b 3a ef 32 35 2c 31 30  |25,4,0;0;:.25,10|
000014c0  31 2c 31 32 37 38 3b 39  35 38 3b 3a f2 70 75 74  |1,1278;958;:.put|
000014d0  6c 61 64 73 0d 04 d8 6d  20 20 c8 99 22 4f 53 5f  |lads...m  .."OS_|
000014e0  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 62  |SpriteOp",&134,b|
000014f0  75 74 61 72 65 61 25 2c  22 77 6f 72 6d 22 2c 32  |utarea%,"worm",2|
00001500  30 2c 35 36 2c 38 2c 73  63 61 6c 65 25 2c 30 3a  |0,56,8,scale%,0:|
00001510  f2 73 70 65 65 63 68 62  6f 78 28 32 34 30 2c 38  |.speechbox(240,8|
00001520  2c 38 32 30 2c 31 36 30  2c 31 2c 2d 31 2c 34 38  |,820,160,1,-1,48|
00001530  2c 2d 31 29 3a 75 73 75  61 6c 70 6f 73 25 3d 2d  |,-1):usualpos%=-|
00001540  31 0d 04 e2 0f 20 20 e7  77 72 6f 6e 67 25 20 8c  |1....  .wrong% .|
00001550  0d 04 ec 9b 20 20 20 f2  77 6f 72 64 73 5f 72 65  |....   .words_re|
00001560  61 64 28 34 2c 22 31 35  2c 31 36 2c 31 37 2c 31  |ad(4,"15,16,17,1|
00001570  38 22 29 3a f2 77 6f 72  64 73 5f 73 61 79 28 6f  |8"):.words_say(o|
00001580  6e 24 2b 22 57 68 69 63  68 20 22 2b 6f 66 66 24  |n$+"Which "+off$|
00001590  2b 22 62 69 74 20 6f 66  20 22 2b 6f 6e 24 2b 22  |+"bit of "+on$+"|
000015a0  6c 61 64 64 65 72 20 22  2b 6f 66 66 24 2b 22 77  |ladder "+off$+"w|
000015b0  69 6c 6c 20 66 69 74 20  74 68 65 22 2c 6f 6e 24  |ill fit the",on$|
000015c0  2b 22 6f 6e 65 20 22 2b  6f 66 66 24 2b 22 6f 6e  |+"one "+off$+"on|
000015d0  20 74 68 65 20 22 2b 6f  6e 24 2b 22 6c 65 66 74  | the "+on$+"left|
000015e0  22 2b 6f 66 66 24 2b 22  3f 22 29 0d 04 f6 07 20  |"+off$+"?").... |
000015f0  20 cc 0d 05 00 90 20 20  20 f2 77 6f 72 64 73 5f  | .....   .words_|
00001600  72 65 61 64 28 33 2c 22  30 32 2c 30 33 2c 30 34  |read(3,"02,03,04|
00001610  22 29 3a f2 77 6f 72 64  73 5f 73 61 79 28 22 43  |"):.words_say("C|
00001620  6c 69 63 6b 20 6f 6e 20  61 20 62 69 74 20 6f 66  |lick on a bit of|
00001630  20 22 2b 6f 6e 24 2b 22  6c 61 64 64 65 72 20 22  | "+on$+"ladder "|
00001640  2b 6f 66 66 24 2b 22 74  6f 20 6d 65 6e 64 20 74  |+off$+"to mend t|
00001650  68 65 22 2c 6f 6e 24 2b  22 6f 6e 65 20 22 2b 6f  |he",on$+"one "+o|
00001660  66 66 24 2b 22 6f 6e 20  74 68 65 20 22 2b 6f 6e  |ff$+"on the "+on|
00001670  24 2b 22 6c 65 66 74 22  2b 6f 66 66 24 2b 22 2e  |$+"left"+off$+".|
00001680  22 29 0d 05 0a 07 20 20  cd 0d 05 14 5c 20 20 f2  |")....  ....\  .|
00001690  6d 65 72 67 65 73 63 72  32 31 28 36 29 3a 6c 6f  |mergescr21(6):lo|
000016a0  6f 70 65 78 69 74 25 3d  33 3a f2 62 75 74 74 6f  |opexit%=3:.butto|
000016b0  6e 6c 6f 6f 70 28 30 2c  2d 31 29 3a 6c 61 64 25  |nloop(0,-1):lad%|
000016c0  3d 63 68 6f 73 65 6e 25  3a 73 65 65 6c 61 64 25  |=chosen%:seelad%|
000016d0  28 29 3d 30 3a 73 65 65  6c 61 64 25 28 6c 61 64  |()=0:seelad%(lad|
000016e0  25 29 3d 2d 31 0d 05 1e  4c 20 20 73 65 65 25 3d  |%)=-1...L  see%=|
000016f0  31 3a 64 6f 25 3d 32 3a  c8 99 20 22 4f 53 5f 42  |1:do%=2:.. "OS_B|
00001700  79 74 65 22 2c 31 31 33  2c 73 65 65 25 3a c8 99  |yte",113,see%:..|
00001710  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 32 2c 64  | "OS_Byte",112,d|
00001720  6f 25 3a 6c 61 73 74 74  69 6d 65 25 3d 91 2d 33  |o%:lasttime%=.-3|
00001730  30 0d 05 28 07 20 20 f5  0d 05 32 2b 20 20 20 ef  |0..(.  ...2+   .|
00001740  31 38 2c 30 2c 31 3a ef  32 35 2c 34 2c 30 3b 30  |18,0,1:.25,4,0;0|
00001750  3b 3a ef 32 35 2c 31 30  31 2c 31 32 37 38 3b 39  |;:.25,101,1278;9|
00001760  35 38 3b 0d 05 3c 21 20  20 20 6c 61 64 70 6f 73  |58;..<!   ladpos|
00001770  25 28 6c 61 64 25 29 2d  3d 32 30 3a f2 70 75 74  |%(lad%)-=20:.put|
00001780  6c 61 64 73 0d 05 46 1a  20 20 20 f5 3a fd 20 91  |lads..F.   .:. .|
00001790  3e 3d 6c 61 73 74 74 69  6d 65 25 2b 32 30 0d 05  |>=lasttime%+20..|
000017a0  50 60 20 20 20 73 65 65  25 3d 25 31 30 30 3e 3e  |P`   see%=%100>>|
000017b0  3e 73 65 65 25 3a 64 6f  25 3d 25 31 30 30 3e 3e  |>see%:do%=%100>>|
000017c0  3e 64 6f 25 3a c8 96 3a  c8 99 20 22 4f 53 5f 42  |>do%:..:.. "OS_B|
000017d0  79 74 65 22 2c 31 31 33  2c 73 65 65 25 3a c8 99  |yte",113,see%:..|
000017e0  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 32 2c 64  | "OS_Byte",112,d|
000017f0  6f 25 3a 6c 61 73 74 74  69 6d 65 25 3d 91 0d 05  |o%:lasttime%=...|
00001800  5a 2a 20 20 fd 20 6c 61  64 70 6f 73 25 28 6c 61  |Z*  . ladpos%(la|
00001810  64 25 29 3c 3d 28 73 74  6f 70 70 6f 73 25 28 6c  |d%)<=(stoppos%(l|
00001820  61 64 25 29 2b 32 30 29  0d 05 64 2a 20 20 ef 31  |ad%)+20)..d*  .1|
00001830  38 2c 30 2c 31 3a ef 32  35 2c 34 2c 30 3b 30 3b  |8,0,1:.25,4,0;0;|
00001840  3a ef 32 35 2c 31 30 31  2c 31 32 37 38 3b 39 35  |:.25,101,1278;95|
00001850  38 3b 0d 05 6e 2b 20 20  6c 61 64 70 6f 73 25 28  |8;..n+  ladpos%(|
00001860  6c 61 64 25 29 3d 73 74  6f 70 70 6f 73 25 28 6c  |lad%)=stoppos%(l|
00001870  61 64 25 29 3a f2 70 75  74 6c 61 64 73 0d 05 78  |ad%):.putlads..x|
00001880  19 20 20 f5 3a fd 20 91  3e 3d 6c 61 73 74 74 69  |.  .:. .>=lastti|
00001890  6d 65 25 2b 32 30 0d 05  82 59 20 20 e7 6c 61 64  |me%+20...Y  .lad|
000018a0  25 3d 6f 6b 6f 6e 65 25  3a f2 63 61 63 68 65 73  |%=okone%:.caches|
000018b0  6f 75 6e 64 28 22 66 78  74 69 6e 31 22 2c 31 29  |ound("fxtin1",1)|
000018c0  3a 77 72 6f 6e 67 25 3d  30 3a 8b 3a f2 63 61 63  |:wrong%=0:.:.cac|
000018d0  68 65 73 6f 75 6e 64 28  22 66 78 62 6f 69 6e 67  |hesound("fxboing|
000018e0  32 22 2c 31 29 3a 77 72  6f 6e 67 25 3d 2d 31 0d  |2",1):wrong%=-1.|
000018f0  05 8c 12 20 20 d4 20 31  2c 26 31 37 46 2c 31 2c  |...  . 1,&17F,1,|
00001900  31 0d 05 96 5f 20 20 73  65 65 25 3d 25 31 30 30  |1..._  see%=%100|
00001910  3e 3e 3e 73 65 65 25 3a  64 6f 25 3d 25 31 30 30  |>>>see%:do%=%100|
00001920  3e 3e 3e 64 6f 25 3a c8  96 3a c8 99 20 22 4f 53  |>>>do%:..:.. "OS|
00001930  5f 42 79 74 65 22 2c 31  31 33 2c 73 65 65 25 3a  |_Byte",113,see%:|
00001940  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 31 32  |.. "OS_Byte",112|
00001950  2c 64 6f 25 3a 6c 61 73  74 74 69 6d 65 25 3d 91  |,do%:lasttime%=.|
00001960  0d 05 a0 2b 20 20 f2 73  63 72 63 6f 70 79 28 73  |...+  .scrcopy(s|
00001970  65 65 25 2c 64 6f 25 29  3a c8 99 20 22 4f 53 5f  |ee%,do%):.. "OS_|
00001980  42 79 74 65 22 2c 31 31  32 2c 32 0d 05 aa 3b 20  |Byte",112,2...; |
00001990  20 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  | .."OS_SpriteOp"|
000019a0  2c 26 31 33 34 2c 62 75  74 61 72 65 61 25 2c 22  |,&134,butarea%,"|
000019b0  77 6f 72 6d 22 2c 32 30  2c 35 36 2c 38 2c 73 63  |worm",20,56,8,sc|
000019c0  61 6c 65 25 2c 30 0d 05  b4 12 20 20 75 73 75 61  |ale%,0....  usua|
000019d0  6c 70 6f 73 25 3d 2d 31  0d 05 be 15 20 20 e7 6c  |lpos%=-1....  .l|
000019e0  61 64 25 3c 3e 6f 6b 6f  6e 65 25 20 8c 0d 05 c8  |ad%<>okone% ....|
000019f0  2b 20 20 20 f2 73 70 65  65 63 68 62 6f 78 28 32  |+   .speechbox(2|
00001a00  34 30 2c 38 2c 38 32 30  2c 31 30 38 2c 31 2c 2d  |40,8,820,108,1,-|
00001a10  31 2c 34 38 2c 2d 31 29  0d 05 d2 45 20 20 20 f2  |1,48,-1)...E   .|
00001a20  77 6f 72 64 73 5f 72 65  61 64 28 32 2c 22 30 35  |words_read(2,"05|
00001a30  2c 30 36 22 29 3a f2 77  6f 72 64 73 5f 73 61 79  |,06"):.words_say|
00001a40  28 6f 6e 24 2b 22 54 72  79 20 61 67 61 69 6e 22  |(on$+"Try again"|
00001a50  2b 6f 66 66 24 2b 22 2e  22 2c 22 22 29 0d 05 dc  |+off$+".","")...|
00001a60  31 20 20 20 f2 6d 65 72  67 65 73 63 72 32 31 28  |1   .mergescr21(|
00001a70  34 29 3a f2 62 6f 6f 6b  67 6f 6f 6e 28 31 30 38  |4):.bookgoon(108|
00001a80  30 2c 31 32 2c 26 30 31  2c 2d 31 2c 30 29 0d 05  |0,12,&01,-1,0)..|
00001a90  e6 07 20 20 cd 0d 05 f0  12 20 fd 20 6c 61 64 25  |..  ..... . lad%|
00001aa0  3d 6f 6b 6f 6e 65 25 0d  05 fa 33 20 74 69 6d 65  |=okone%...3 time|
00001ab0  73 25 2d 3d 31 3a f2 73  70 65 65 63 68 62 6f 78  |s%-=1:.speechbox|
00001ac0  28 32 34 30 2c 38 2c 38  32 30 2c 31 30 38 2c 31  |(240,8,820,108,1|
00001ad0  2c 2d 31 2c 34 38 2c 2d  31 29 0d 06 04 85 20 e7  |,-1,48,-1).... .|
00001ae0  74 69 6d 65 73 25 3d 30  3a f2 77 6f 72 64 73 5f  |times%=0:.words_|
00001af0  72 65 61 64 28 31 2c 22  30 37 22 29 3a f2 77 6f  |read(1,"07"):.wo|
00001b00  72 64 73 5f 73 61 79 28  22 47 6f 6f 64 2e 20 59  |rds_say("Good. Y|
00001b10  6f 75 20 63 61 6e 20 22  2b 6f 6e 24 2b 22 65 73  |ou can "+on$+"es|
00001b20  63 61 70 65 22 2b 6f 66  66 24 2b 22 2e 22 2c 22  |cape"+off$+".","|
00001b30  22 29 3a 8b 3a f2 77 6f  72 64 73 5f 72 65 61 64  |"):.:.words_read|
00001b40  28 30 2c 22 30 30 22 29  3a f2 77 6f 72 64 73 5f  |(0,"00"):.words_|
00001b50  73 61 79 28 22 47 6f 6f  64 2e 22 2c 22 22 29 0d  |say("Good.","").|
00001b60  06 0e 2f 20 f2 6d 65 72  67 65 73 63 72 32 31 28  |../ .mergescr21(|
00001b70  34 29 3a f2 62 6f 6f 6b  67 6f 6f 6e 28 31 30 38  |4):.bookgoon(108|
00001b80  30 2c 31 32 2c 26 30 31  2c 2d 31 2c 30 29 0d 06  |0,12,&01,-1,0)..|
00001b90  18 0e fd 20 74 69 6d 65  73 25 3d 30 0d 06 22 05  |... times%=0..".|
00001ba0  e1 0d 06 2c 04 0d 06 36  0d dd f2 70 75 74 6c 61  |...,...6...putla|
00001bb0  64 73 0d 06 40 08 ea 20  6a 25 0d 06 4a 0b e3 6a  |ds..@.. j%..J..j|
00001bc0  25 3d 30 b8 33 0d 06 54  55 20 e7 73 65 65 6c 61  |%=0.3..TU .seela|
00001bd0  64 25 28 6a 25 29 3a c8  99 22 4f 53 5f 53 70 72  |d%(j%):.."OS_Spr|
00001be0  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
00001bf0  65 61 25 2c 22 6c 61 64  22 2b c3 28 6a 25 29 2c  |ea%,"lad"+.(j%),|
00001c00  6c 61 64 70 6f 73 25 28  6a 25 29 2c 32 35 36 2c  |ladpos%(j%),256,|
00001c10  38 2c 73 63 61 6c 65 25  2c 30 0d 06 5e 05 ed 0d  |8,scale%,0..^...|
00001c20  06 68 3b c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.h;.."OS_SpriteO|
00001c30  70 22 2c 26 31 33 34 2c  73 70 61 72 65 61 25 2c  |p",&134,sparea%,|
00001c40  22 6c 61 64 64 65 72 22  2c 34 30 2c 32 35 36 2c  |"ladder",40,256,|
00001c50  38 2c 73 63 61 6c 65 25  2c 30 0d 06 72 05 e1 0d  |8,scale%,0..r...|
00001c60  06 7c 04 0d 06 86 0e dd  f2 69 6e 69 74 6c 61 64  |.|.......initlad|
00001c70  73 0d 06 90 0b ea 20 6a  25 2c 6b 25 0d 06 9a 08  |s..... j%,k%....|
00001c80  6d 25 3d 33 0d 06 a4 28  f4 20 6f 6b 6f 6e 65 25  |m%=3...(. okone%|
00001c90  20 3d 20 6c 61 64 64 65  72 20 77 68 69 63 68 20  | = ladder which |
00001ca0  69 73 20 27 63 6f 72 72  65 63 74 27 0d 06 ae 11  |is 'correct'....|
00001cb0  6f 6b 6f 6e 65 25 3d b3  28 34 29 2d 31 0d 06 b8  |okone%=.(4)-1...|
00001cc0  25 e3 6b 25 3d 30 b8 34  3a 73 70 6c 69 74 25 28  |%.k%=0.4:split%(|
00001cd0  6f 6b 6f 6e 65 25 2c 6b  25 29 3d b3 28 6d 25 29  |okone%,k%)=.(m%)|
00001ce0  3a ed 0d 06 c2 0b e7 5a  25 3d 31 20 8c 0d 06 cc  |:......Z%=1 ....|
00001cf0  3c f4 20 6d 61 6b 65 20  61 6c 6c 20 62 72 6f 6b  |<. make all brok|
00001d00  65 6e 20 6c 61 64 64 65  72 73 20 72 61 6e 64 6f  |en ladders rando|
00001d10  6d 20 2b 6e 6f 74 20 74  68 65 20 73 61 6d 65 20  |m +not the same |
00001d20  61 73 20 6f 6b 6f 6e 65  25 0d 06 d6 0c 20 e3 6a  |as okone%.... .j|
00001d30  25 3d 30 b8 33 0d 06 e0  13 20 20 e7 6f 6b 6f 6e  |%=0.3....  .okon|
00001d40  65 25 3c 3e 6a 25 20 8c  0d 06 ea 08 20 20 20 f5  |e%<>j% .....   .|
00001d50  0d 06 f4 25 20 20 20 20  e3 6b 25 3d 30 b8 34 3a  |...%    .k%=0.4:|
00001d60  73 70 6c 69 74 25 28 6a  25 2c 6b 25 29 3d b3 28  |split%(j%,k%)=.(|
00001d70  6d 25 29 3a ed 0d 06 fe  ad 20 20 20 fd 20 28 73  |m%):.....   . (s|
00001d80  70 6c 69 74 25 28 6a 25  2c 30 29 3c 3e 73 70 6c  |plit%(j%,0)<>spl|
00001d90  69 74 25 28 6f 6b 6f 6e  65 25 2c 30 29 29 84 28  |it%(okone%,0)).(|
00001da0  73 70 6c 69 74 25 28 6a  25 2c 31 29 3c 3e 73 70  |split%(j%,1)<>sp|
00001db0  6c 69 74 25 28 6f 6b 6f  6e 65 25 2c 31 29 29 84  |lit%(okone%,1)).|
00001dc0  28 73 70 6c 69 74 25 28  6a 25 2c 32 29 3c 3e 73  |(split%(j%,2)<>s|
00001dd0  70 6c 69 74 25 28 6f 6b  6f 6e 65 25 2c 32 29 29  |plit%(okone%,2))|
00001de0  84 28 73 70 6c 69 74 25  28 6a 25 2c 33 29 3c 3e  |.(split%(j%,3)<>|
00001df0  73 70 6c 69 74 25 28 6f  6b 6f 6e 65 25 2c 33 29  |split%(okone%,3)|
00001e00  29 84 28 73 70 6c 69 74  25 28 6a 25 2c 34 29 3c  |).(split%(j%,4)<|
00001e10  3e 73 70 6c 69 74 25 28  6f 6b 6f 6e 65 25 2c 34  |>split%(okone%,4|
00001e20  29 29 0d 07 08 07 20 20  cd 0d 07 12 06 20 ed 0d  |))....  ..... ..|
00001e30  07 1c 05 cc 0d 07 26 13  20 64 69 66 25 28 30 29  |......&. dif%(0)|
00001e40  3d b3 28 35 29 2d 31 0d  07 30 2a 20 f5 3a 64 69  |=.(5)-1..0* .:di|
00001e50  66 25 28 31 29 3d b3 28  35 29 2d 31 3a fd 20 28  |f%(1)=.(5)-1:. (|
00001e60  64 69 66 25 28 31 29 3c  3e 64 69 66 25 28 30 29  |dif%(1)<>dif%(0)|
00001e70  29 0d 07 3a 3d 20 f5 3a  64 69 66 25 28 32 29 3d  |)..:= .:dif%(2)=|
00001e80  b3 28 35 29 2d 31 3a fd  20 28 64 69 66 25 28 32  |.(5)-1:. (dif%(2|
00001e90  29 3c 3e 64 69 66 25 28  31 29 29 80 28 64 69 66  |)<>dif%(1)).(dif|
00001ea0  25 28 32 29 3c 3e 64 69  66 25 28 30 29 29 0d 07  |%(2)<>dif%(0))..|
00001eb0  44 50 20 f5 3a 64 69 66  25 28 33 29 3d b3 28 35  |DP .:dif%(3)=.(5|
00001ec0  29 2d 31 3a fd 20 28 64  69 66 25 28 33 29 3c 3e  |)-1:. (dif%(3)<>|
00001ed0  64 69 66 25 28 32 29 29  80 28 64 69 66 25 28 33  |dif%(2)).(dif%(3|
00001ee0  29 3c 3e 64 69 66 25 28  31 29 29 80 28 64 69 66  |)<>dif%(1)).(dif|
00001ef0  25 28 33 29 3c 3e 64 69  66 25 28 30 29 29 0d 07  |%(3)<>dif%(0))..|
00001f00  4e 4e f4 20 63 6f 70 79  20 6f 74 68 65 72 20 33  |NN. copy other 3|
00001f10  20 63 68 6f 69 63 65 73  20 65 78 61 63 74 6c 79  | choices exactly|
00001f20  20 6c 69 6b 65 20 6f 6b  6f 6e 65 25 20 65 78 63  | like okone% exc|
00001f30  65 70 74 20 76 61 72 79  20 72 75 6e 67 20 23 20  |ept vary rung # |
00001f40  64 69 66 25 28 29 20 62  79 20 31 2e 0d 07 58 0c  |dif%() by 1...X.|
00001f50  20 e3 6a 25 3d 30 b8 33  0d 07 62 13 20 20 e7 6a  | .j%=0.3..b.  .j|
00001f60  25 3c 3e 6f 6b 6f 6e 65  25 20 8c 0d 07 6c 0e 20  |%<>okone% ...l. |
00001f70  20 20 e3 6b 25 3d 30 b8  34 0d 07 76 27 20 20 20  |  .k%=0.4..v'   |
00001f80  20 73 70 6c 69 74 25 28  6a 25 2c 6b 25 29 3d 73  | split%(j%,k%)=s|
00001f90  70 6c 69 74 25 28 6f 6b  6f 6e 65 25 2c 6b 25 29  |plit%(okone%,k%)|
00001fa0  0d 07 80 16 20 20 20 20  e7 6b 25 3d 64 69 66 25  |....    .k%=dif%|
00001fb0  28 6a 25 29 20 8c 0d 07  8a 1f 20 20 20 20 20 e7  |(j%) .....     .|
00001fc0  73 70 6c 69 74 25 28 6f  6b 6f 6e 65 25 2c 6b 25  |split%(okone%,k%|
00001fd0  29 3d 31 20 8c 0d 07 94  19 20 20 20 20 20 20 73  |)=1 .....      s|
00001fe0  70 6c 69 74 25 28 6a 25  2c 6b 25 29 3d 32 0d 07  |plit%(j%,k%)=2..|
00001ff0  9e 0a 20 20 20 20 20 cc  0d 07 a8 65 20 20 20 20  |..     ....e    |
00002000  20 20 e7 73 70 6c 69 74  25 28 6f 6b 6f 6e 65 25  |  .split%(okone%|
00002010  2c 6b 25 29 3d 6d 25 3a  73 70 6c 69 74 25 28 6a  |,k%)=m%:split%(j|
00002020  25 2c 6b 25 29 3d 6d 25  2d 31 3a 8b 3a 73 70 6c  |%,k%)=m%-1:.:spl|
00002030  69 74 25 28 6a 25 2c 6b  25 29 3d 73 70 6c 69 74  |it%(j%,k%)=split|
00002040  25 28 6f 6b 6f 6e 65 25  2c 6b 25 29 2b 28 28 28  |%(okone%,k%)+(((|
00002050  b3 28 32 29 2d 31 29 2a  32 29 2d 31 29 0d 07 b2  |.(2)-1)*2)-1)...|
00002060  0a 20 20 20 20 20 cd 0d  07 bc 09 20 20 20 20 cd  |.     .....    .|
00002070  0d 07 c6 08 20 20 20 ed  0d 07 d0 07 20 20 cd 0d  |....   .....  ..|
00002080  07 da 06 20 ed 0d 07 e4  05 cd 0d 07 ee 0b e3 6a  |... ...........j|
00002090  25 3d 30 b8 33 0d 07 f8  2f 20 c8 99 22 4f 53 5f  |%=0.3.../ .."OS_|
000020a0  53 70 72 69 74 65 4f 70  22 2c 26 31 33 43 2c 73  |SpriteOp",&13C,s|
000020b0  70 61 72 65 61 25 2c 22  6c 61 64 22 2b c3 28 6a  |parea%,"lad"+.(j|
000020c0  25 29 2c 30 0d 08 02 28  20 ef 31 38 2c 30 2c 34  |%),0...( .18,0,4|
000020d0  3a ef 32 35 2c 34 2c 30  3b 30 3b 3a ef 32 35 2c  |:.25,4,0;0;:.25,|
000020e0  31 30 31 2c 39 39 39 3b  39 39 39 3b 0d 08 0c 33  |101,999;999;...3|
000020f0  20 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  | .."OS_SpriteOp"|
00002100  2c 26 31 32 32 2c 73 70  61 72 65 61 25 2c 22 75  |,&122,sparea%,"u|
00002110  70 72 69 67 68 74 22 2c  31 38 34 2c 30 2c 38 0d  |pright",184,0,8.|
00002120  08 16 0c 20 e3 6b 25 3d  30 b8 34 0d 08 20 3b 20  |... .k%=0.4.. ; |
00002130  20 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  | .."OS_SpriteOp"|
00002140  2c 26 31 32 32 2c 73 70  61 72 65 61 25 2c 22 72  |,&122,sparea%,"r|
00002150  75 6e 67 22 2c 32 34 2c  31 30 34 2b 28 31 30 34  |ung",24,104+(104|
00002160  2a 6b 25 29 2c 38 0d 08  2a 4c 20 20 ef 32 35 2c  |*k%),8..*L  .25,|
00002170  34 2c 30 3b 31 30 34 2b  28 31 30 34 2a 6b 25 29  |4,0;104+(104*k%)|
00002180  3b 3a ef 32 35 2c 31 30  31 2c 32 34 2b 28 34 30  |;:.25,101,24+(40|
00002190  2a 73 70 6c 69 74 25 28  6a 25 2c 6b 25 29 29 2d  |*split%(j%,k%))-|
000021a0  32 3b 31 30 34 2b 28 31  30 34 2a 6b 25 29 2b 33  |2;104+(104*k%)+3|
000021b0  30 3b 0d 08 34 06 20 ed  0d 08 3e 25 20 c8 99 22  |0;..4. ...>% .."|
000021c0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
000021d0  43 2c 73 70 61 72 65 61  25 2c 30 2c 31 0d 08 48  |C,sparea%,0,1..H|
000021e0  05 ed 0d 08 52 2b c8 99  22 4f 53 5f 53 70 72 69  |....R+.."OS_Spri|
000021f0  74 65 4f 70 22 2c 26 31  33 43 2c 73 70 61 72 65  |teOp",&13C,spare|
00002200  61 25 2c 22 6c 61 64 64  65 72 22 2c 30 0d 08 5c  |a%,"ladder",0..\|
00002210  27 ef 31 38 2c 30 2c 34  3a ef 32 35 2c 34 2c 30  |'.18,0,4:.25,4,0|
00002220  3b 30 3b 3a ef 32 35 2c  31 30 31 2c 39 39 39 3b  |;0;:.25,101,999;|
00002230  39 39 39 3b 0d 08 66 30  c8 99 22 4f 53 5f 53 70  |999;..f0.."OS_Sp|
00002240  72 69 74 65 4f 70 22 2c  26 31 32 32 2c 73 70 61  |riteOp",&122,spa|
00002250  72 65 61 25 2c 22 75 70  72 69 67 68 74 22 2c 30  |rea%,"upright",0|
00002260  2c 30 2c 38 0d 08 70 0b  e3 6b 25 3d 30 b8 34 0d  |,0,8..p..k%=0.4.|
00002270  08 7a 3a 20 c8 99 22 4f  53 5f 53 70 72 69 74 65  |.z: .."OS_Sprite|
00002280  4f 70 22 2c 26 31 32 32  2c 73 70 61 72 65 61 25  |Op",&122,sparea%|
00002290  2c 22 72 75 6e 67 22 2c  32 34 2c 31 30 34 2b 28  |,"rung",24,104+(|
000022a0  31 30 34 2a 6b 25 29 2c  38 0d 08 84 4f 20 ef 32  |104*k%),8...O .2|
000022b0  35 2c 34 2c 32 34 2b 28  34 30 2a 73 70 6c 69 74  |5,4,24+(40*split|
000022c0  25 28 6f 6b 6f 6e 65 25  2c 6b 25 29 29 3b 31 30  |%(okone%,k%));10|
000022d0  34 2b 28 31 30 34 2a 6b  25 29 3b 3a ef 32 35 2c  |4+(104*k%);:.25,|
000022e0  31 30 31 2c 39 39 39 3b  31 30 34 2b 28 31 30 34  |101,999;104+(104|
000022f0  2a 6b 25 29 2b 33 30 3b  0d 08 8e 05 ed 0d 08 98  |*k%)+30;........|
00002300  24 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |$.."OS_SpriteOp"|
00002310  2c 26 31 33 43 2c 73 70  61 72 65 61 25 2c 30 2c  |,&13C,sparea%,0,|
00002320  31 0d 08 a2 5c 6d 61 73  6b 73 70 25 28 29 3d 34  |1...\masksp%()=4|
00002330  3a e3 6a 25 3d 30 b8 33  3a 6d 61 73 6b 73 70 24  |:.j%=0.3:masksp$|
00002340  28 6a 25 29 3d 22 6c 61  64 22 2b c3 28 6a 25 29  |(j%)="lad"+.(j%)|
00002350  3a ed 3a 6d 61 73 6b 73  70 24 28 34 29 3d 22 6c  |:.:masksp$(4)="l|
00002360  61 64 64 65 72 22 3a f2  6d 61 73 6b 73 70 72 69  |adder":.maskspri|
00002370  74 65 28 73 70 61 72 65  61 25 2c 35 29 0d 08 ac  |te(sparea%,5)...|
00002380  26 e3 6a 25 3d 30 b8 33  3a 6c 61 64 70 6f 73 25  |&.j%=0.3:ladpos%|
00002390  28 6a 25 29 3d 33 32 30  2b 28 32 34 30 2a 6a 25  |(j%)=320+(240*j%|
000023a0  29 3a ed 0d 08 b6 0b e3  6a 25 3d 30 b8 33 0d 08  |):......j%=0.3..|
000023b0  c0 0c 20 6c 25 3d 6d 25  2b 31 0d 08 ca 0c 20 e3  |.. l%=m%+1.... .|
000023c0  6b 25 3d 30 b8 34 0d 08  d4 31 20 20 6e 25 3d 73  |k%=0.4...1  n%=s|
000023d0  70 6c 69 74 25 28 6f 6b  6f 6e 65 25 2c 6b 25 29  |plit%(okone%,k%)|
000023e0  2b 28 28 6d 25 2b 31 29  2d 73 70 6c 69 74 25 28  |+((m%+1)-split%(|
000023f0  6a 25 2c 6b 25 29 29 0d  08 de 12 20 20 e7 6e 25  |j%,k%))....  .n%|
00002400  3e 6c 25 3a 6c 25 3d 6e  25 0d 08 e8 06 20 ed 0d  |>l%:l%=n%.... ..|
00002410  08 f2 27 20 6c 25 2d 3d  28 6d 25 2b 31 29 3a 73  |..' l%-=(m%+1):s|
00002420  74 6f 70 70 6f 73 25 28  6a 25 29 3d 34 30 2b 28  |toppos%(j%)=40+(|
00002430  6c 25 2a 34 30 29 0d 08  fc 05 ed 0d 09 06 05 e1  |l%*40)..........|
00002440  0d 09 10 04 0d 09 1a 04  0d 09 24 0e dd f2 6c 6f  |..........$...lo|
00002450  6f 70 65 78 69 74 0d 09  2e 12 c8 8e 20 6c 6f 6f  |opexit...... loo|
00002460  70 65 78 69 74 25 20 ca  0d 09 38 20 20 c9 20 31  |pexit% ...8  . 1|
00002470  3a e7 64 6f 6e 65 61 62  6c 75 65 25 3a 61 6e 69  |:.doneablue%:ani|
00002480  6d 65 6e 64 25 3d 2d 31  0d 09 42 4b 20 c9 20 32  |mend%=-1..BK . 2|
00002490  3a e7 28 6d 78 25 3e 3d  33 34 30 29 80 28 6d 78  |:.(mx%>=340).(mx|
000024a0  25 3c 3d 39 33 36 29 80  28 6d 79 25 3e 3d 32 30  |%<=936).(my%>=20|
000024b0  38 29 80 28 6d 79 25 3c  3d 38 30 30 29 80 28 6d  |8).(my%<=800).(m|
000024c0  62 75 74 25 3d 34 29 3a  61 6e 69 6d 65 6e 64 25  |but%=4):animend%|
000024d0  3d 2d 31 0d 09 4c 10 20  c9 20 33 3a f2 6c 61 64  |=-1..L. . 3:.lad|
000024e0  62 6f 78 0d 09 56 05 cb  0d 09 60 05 e1 0d 09 6a  |box..V....`....j|
000024f0  04 0d 09 74 0c dd f2 6c  61 64 62 6f 78 0d 09 7e  |...t...ladbox..~|
00002500  08 ea 20 6a 25 0d 09 88  0b e3 6a 25 3d 30 b8 33  |.. j%.....j%=0.3|
00002510  0d 09 92 53 20 e7 28 6d  78 25 3e 3d 28 33 32 30  |...S .(mx%>=(320|
00002520  2b 28 32 34 30 2a 6a 25  29 29 29 80 28 6d 78 25  |+(240*j%))).(mx%|
00002530  3c 3d 28 33 32 30 2b 28  32 34 30 2a 6a 25 29 2b  |<=(320+(240*j%)+|
00002540  32 31 30 29 29 80 28 6d  79 25 3e 3d 32 35 36 29  |210)).(my%>=256)|
00002550  80 28 6d 79 25 3c 3d 28  32 35 36 2b 36 35 32 29  |.(my%<=(256+652)|
00002560  29 20 8c 0d 09 9c 0d 20  20 ef 31 38 2c 30 2c 39  |) .....  .18,0,9|
00002570  0d 09 a6 25 20 20 e7 6d  62 75 74 25 3d 34 3a 63  |...%  .mbut%=4:c|
00002580  68 6f 73 65 6e 25 3d 6a  25 3a 61 6e 69 6d 65 6e  |hosen%=j%:animen|
00002590  64 25 3d 2d 31 0d 09 b0  06 20 cc 0d 09 ba 0d 20  |d%=-1.... ..... |
000025a0  20 ef 31 38 2c 30 2c 31  0d 09 c4 06 20 cd 0d 09  | .18,0,1.... ...|
000025b0  ce 46 20 f2 68 6f 6c 6c  6f 77 62 6f 78 28 33 32  |.F .hollowbox(32|
000025c0  30 2b 28 32 34 30 2a 6a  25 29 2c 32 35 36 2d 32  |0+(240*j%),256-2|
000025d0  34 2c 33 32 30 2b 28 32  34 30 2a 6a 25 29 2b 32  |4,320+(240*j%)+2|
000025e0  31 30 2b 32 34 2c 32 35  36 2b 36 35 32 2b 32 34  |10+24,256+652+24|
000025f0  2c 32 34 29 0d 09 d8 05  ed 0d 09 e2 05 e1 0d 09  |,24)............|
00002600  ec 04 0d 09 f6 25 dd f2  68 6f 6c 6c 6f 77 62 6f  |.....%..hollowbo|
00002610  78 28 78 30 25 2c 79 30  25 2c 78 31 25 2c 79 31  |x(x0%,y0%,x1%,y1|
00002620  25 2c 77 69 64 25 29 0d  0a 00 2c ef 32 35 2c 34  |%,wid%)...,.25,4|
00002630  2c 78 30 25 3b 79 30 25  3b 3a ef 32 35 2c 31 30  |,x0%;y0%;:.25,10|
00002640  31 2c 78 31 25 2d 32 3b  79 30 25 2b 77 69 64 25  |1,x1%-2;y0%+wid%|
00002650  2d 32 3b 0d 0a 0a 2c ef  32 35 2c 34 2c 78 31 25  |-2;...,.25,4,x1%|
00002660  2d 77 69 64 25 3b 79 30  25 3b 3a ef 32 35 2c 31  |-wid%;y0%;:.25,1|
00002670  30 31 2c 78 31 25 2d 32  3b 79 31 25 2d 32 3b 0d  |01,x1%-2;y1%-2;.|
00002680  0a 14 2c ef 32 35 2c 34  2c 78 30 25 3b 79 30 25  |..,.25,4,x0%;y0%|
00002690  3b 3a ef 32 35 2c 31 30  31 2c 78 30 25 2b 77 69  |;:.25,101,x0%+wi|
000026a0  64 25 2d 32 3b 79 31 25  2d 32 3b 0d 0a 1e 2c ef  |d%-2;y1%-2;...,.|
000026b0  32 35 2c 34 2c 78 30 25  3b 79 31 25 2d 77 69 64  |25,4,x0%;y1%-wid|
000026c0  25 3b 3a ef 32 35 2c 31  30 31 2c 78 31 25 2d 32  |%;:.25,101,x1%-2|
000026d0  3b 79 31 25 2d 32 3b 0d  0a 28 05 e1 0d 0a 32 04  |;y1%-2;..(....2.|
000026e0  0d 0a 3c 16 dd f2 65 6c  66 28 78 25 2c 79 25 2c  |..<...elf(x%,y%,|
000026f0  74 79 70 65 25 29 0d 0a  46 0e e7 74 79 70 65 25  |type%)..F..type%|
00002700  3d 34 20 8c 0d 0a 50 4f  20 c8 99 22 4f 53 5f 53  |=4 ...PO .."OS_S|
00002710  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
00002720  61 72 65 61 33 25 2c 22  65 6c 66 73 69 64 65 22  |area3%,"elfside"|
00002730  2c 78 25 2b 65 77 25 28  33 2c 30 29 2c 79 25 2b  |,x%+ew%(3,0),y%+|
00002740  65 77 25 28 33 2c 31 29  2c 38 2c 73 63 61 6c 65  |ew%(3,1),8,scale|
00002750  25 2c 30 0d 0a 5a 42 20  c8 99 22 4f 53 5f 53 70  |%,0..ZB .."OS_Sp|
00002760  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 73 70 61  |riteOp",&134,spa|
00002770  72 65 61 33 25 2c 22 65  77 33 22 2c 78 25 2b 65  |rea3%,"ew3",x%+e|
00002780  77 25 28 33 2c 30 29 2c  79 25 2c 38 2c 73 63 61  |w%(3,0),y%,8,sca|
00002790  6c 65 25 2c 30 0d 0a 64  05 cc 0d 0a 6e 5a 20 c8  |le%,0..d....nZ .|
000027a0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
000027b0  31 33 34 2c 73 70 61 72  65 61 33 25 2c 22 65 6c  |134,sparea3%,"el|
000027c0  66 73 69 64 65 22 2c 78  25 2b 65 77 25 28 74 79  |fside",x%+ew%(ty|
000027d0  70 65 25 2c 30 29 2b 32  34 2c 79 25 2b 65 77 25  |pe%,0)+24,y%+ew%|
000027e0  28 74 79 70 65 25 2c 31  29 2c 38 2c 73 63 61 6c  |(type%,1),8,scal|
000027f0  65 25 2c 30 0d 0a 78 4e  20 c8 99 22 4f 53 5f 53  |e%,0..xN .."OS_S|
00002800  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
00002810  61 72 65 61 33 25 2c 22  65 77 22 2b c3 28 74 79  |area3%,"ew"+.(ty|
00002820  70 65 25 29 2c 78 25 2b  65 77 25 28 74 79 70 65  |pe%),x%+ew%(type|
00002830  25 2c 30 29 2c 79 25 2c  38 2c 73 63 61 6c 65 25  |%,0),y%,8,scale%|
00002840  2c 30 0d 0a 82 05 cd 0d  0a 8c 05 e1 0d 0a 96 04  |,0..............|
00002850  0d 0a a0 29 dd f2 65 6c  66 73 28 62 78 25 2c 62  |...)..elfs(bx%,b|
00002860  79 25 2c 62 74 79 70 65  25 2c 67 78 25 2c 67 79  |y%,btype%,gx%,gy|
00002870  25 2c 67 74 79 70 65 25  29 0d 0a aa 0f e7 62 74  |%,gtype%).....bt|
00002880  79 70 65 25 3e 3d 30 8c  0d 0a b4 50 20 c8 99 22  |ype%>=0....P .."|
00002890  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
000028a0  34 2c 73 70 61 72 65 61  34 25 2c 22 62 77 22 2b  |4,sparea4%,"bw"+|
000028b0  c3 28 62 74 79 70 65 25  29 2c 62 78 25 2b 62 77  |.(btype%),bx%+bw|
000028c0  25 28 62 74 79 70 65 25  29 2c 62 79 25 2c 38 2c  |%(btype%),by%,8,|
000028d0  73 63 61 6c 65 25 2c 30  0d 0a be 66 20 c8 99 22  |scale%,0...f .."|
000028e0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
000028f0  34 2c 73 70 61 72 65 61  34 25 2c 22 62 68 65 61  |4,sparea4%,"bhea|
00002900  64 31 22 2c 62 78 25 2b  62 77 25 28 62 74 79 70  |d1",bx%+bw%(btyp|
00002910  65 25 29 2b 62 68 25 28  62 74 79 70 65 25 2c 30  |e%)+bh%(btype%,0|
00002920  29 2c 62 79 25 2b 62 68  25 28 62 74 79 70 65 25  |),by%+bh%(btype%|
00002930  2c 31 29 2c 38 2c 73 63  61 6c 65 25 2c 30 0d 0a  |,1),8,scale%,0..|
00002940  c8 05 cd 0d 0a d2 0f e7  67 74 79 70 65 25 3e 3d  |........gtype%>=|
00002950  30 8c 0d 0a dc 50 20 c8  99 22 4f 53 5f 53 70 72  |0....P .."OS_Spr|
00002960  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
00002970  65 61 34 25 2c 22 62 77  22 2b c3 28 67 74 79 70  |ea4%,"bw"+.(gtyp|
00002980  65 25 29 2c 67 78 25 2b  62 77 25 28 67 74 79 70  |e%),gx%+bw%(gtyp|
00002990  65 25 29 2c 67 79 25 2c  38 2c 73 63 61 6c 65 25  |e%),gy%,8,scale%|
000029a0  2c 30 0d 0a e6 66 20 c8  99 22 4f 53 5f 53 70 72  |,0...f .."OS_Spr|
000029b0  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
000029c0  65 61 34 25 2c 22 67 77  22 2b c3 28 67 74 79 70  |ea4%,"gw"+.(gtyp|
000029d0  65 25 29 2c 67 78 25 2b  62 77 25 28 67 74 79 70  |e%),gx%+bw%(gtyp|
000029e0  65 25 29 2b 32 2d 28 31  38 2a a8 28 67 74 79 70  |e%)+2-(18*.(gtyp|
000029f0  65 25 2f 38 29 29 2c 67  79 25 2b 38 34 2c 38 2c  |e%/8)),gy%+84,8,|
00002a00  73 63 61 6c 65 25 2c 30  0d 0a f0 6c 20 c8 99 22  |scale%,0...l .."|
00002a10  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00002a20  34 2c 73 70 61 72 65 61  34 25 2c 22 67 68 65 61  |4,sparea4%,"ghea|
00002a30  64 31 22 2c 67 78 25 2b  62 77 25 28 67 74 79 70  |d1",gx%+bw%(gtyp|
00002a40  65 25 29 2b 62 68 25 28  67 74 79 70 65 25 2c 30  |e%)+bh%(gtype%,0|
00002a50  29 2d 31 36 2c 67 79 25  2b 62 68 25 28 67 74 79  |)-16,gy%+bh%(gty|
00002a60  70 65 25 2c 31 29 2d 31  32 2c 38 2c 73 63 61 6c  |pe%,1)-12,8,scal|
00002a70  65 25 2c 30 0d 0a fa 05  cd 0d 0b 04 05 e1 0d 0b  |e%,0............|
00002a80  0e 04 0d 0b 18 0d dd f2  6c 6f 61 64 65 6c 66 0d  |........loadelf.|
00002a90  0b 22 49 73 70 61 72 65  61 33 25 3d 73 70 61 72  |."Isparea3%=spar|
00002aa0  65 61 25 2b 73 70 61 72  65 61 73 69 7a 25 2d 28  |ea%+spareasiz%-(|
00002ab0  31 31 2a 31 30 32 34 29  3a 21 73 70 61 72 65 61  |11*1024):!sparea|
00002ac0  33 25 3d 31 31 2a 31 30  32 34 3a 73 70 61 72 65  |3%=11*1024:spare|
00002ad0  61 33 25 21 38 3d 31 36  0d 0b 2c 22 c8 99 20 22  |a3%!8=16..,".. "|
00002ae0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00002af0  39 2c 73 70 61 72 65 61  33 25 0d 0b 36 35 f2 6c  |9,sparea3%..65.l|
00002b00  6f 61 64 75 6e 73 71 75  61 73 68 28 73 70 61 72  |oadunsquash(spar|
00002b10  65 61 33 25 2c 31 31 2a  31 30 32 34 2c 22 4f 4e  |ea3%,11*1024,"ON|
00002b20  45 2e 73 70 66 69 6c 65  73 2e 65 6c 66 22 29 0d  |E.spfiles.elf").|
00002b30  0b 40 60 6d 61 73 6b 73  70 25 28 29 3d 31 32 3a  |.@`masksp%()=12:|
00002b40  6d 61 73 6b 73 70 24 28  30 29 3d 22 65 6c 66 73  |masksp$(0)="elfs|
00002b50  69 64 65 22 3a e3 6a 25  3d 30 b8 33 3a 6d 61 73  |ide":.j%=0.3:mas|
00002b60  6b 73 70 24 28 6a 25 2b  31 29 3d 22 65 77 22 2b  |ksp$(j%+1)="ew"+|
00002b70  c3 28 6a 25 29 3a ed 3a  f2 6d 61 73 6b 73 70 72  |.(j%):.:.maskspr|
00002b80  69 74 65 28 73 70 61 72  65 61 33 25 2c 35 29 0d  |ite(sparea3%,5).|
00002b90  0b 4a 05 e1 0d 0b 54 04  0d 0b 5e 0e dd f2 6c 6f  |.J....T...^...lo|
00002ba0  61 64 65 6c 66 73 0d 0b  68 53 73 70 61 72 65 61  |adelfs..hSsparea|
00002bb0  34 25 3d 73 70 61 72 65  61 25 2b 73 70 61 72 65  |4%=sparea%+spare|
00002bc0  61 73 69 7a 25 2d 28 31  31 2a 31 30 32 34 29 2d  |asiz%-(11*1024)-|
00002bd0  28 35 34 2a 31 30 32 34  29 3a 21 73 70 61 72 65  |(54*1024):!spare|
00002be0  61 34 25 3d 35 34 2a 31  30 32 34 3a 73 70 61 72  |a4%=54*1024:spar|
00002bf0  65 61 34 25 21 38 3d 31  36 0d 0b 72 22 c8 99 20  |ea4%!8=16..r".. |
00002c00  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00002c10  30 39 2c 73 70 61 72 65  61 34 25 0d 0b 7c 3a f2  |09,sparea4%..|:.|
00002c20  6c 6f 61 64 75 6e 73 71  75 61 73 68 28 73 70 61  |loadunsquash(spa|
00002c30  72 65 61 34 25 2c 35 34  2a 31 30 32 34 2c 22 4f  |rea4%,54*1024,"O|
00002c40  4e 45 2e 73 70 66 69 6c  65 73 2e 65 6c 76 65 73  |NE.spfiles.elves|
00002c50  69 64 65 22 29 0d 0b 86  48 6d 61 73 6b 73 70 25  |ide")...Hmasksp%|
00002c60  28 29 3d 34 3a e3 6a 25  3d 30 b8 38 3a 6d 61 73  |()=4:.j%=0.8:mas|
00002c70  6b 73 70 24 28 6a 25 29  3d 22 62 77 22 2b c3 28  |ksp$(j%)="bw"+.(|
00002c80  6a 25 29 3a ed 3a f2 6d  61 73 6b 73 70 72 69 74  |j%):.:.masksprit|
00002c90  65 28 73 70 61 72 65 61  34 25 2c 39 29 0d 0b 90  |e(sparea4%,9)...|
00002ca0  3c e3 6a 25 3d 30 b8 38  3a 6d 61 73 6b 73 70 24  |<.j%=0.8:masksp$|
00002cb0  28 6a 25 29 3d 22 67 77  22 2b c3 28 6a 25 29 3a  |(j%)="gw"+.(j%):|
00002cc0  ed 3a f2 6d 61 73 6b 73  70 72 69 74 65 28 73 70  |.:.masksprite(sp|
00002cd0  61 72 65 61 34 25 2c 39  29 0d 0b 9a 43 6d 61 73  |area4%,9)...Cmas|
00002ce0  6b 73 70 24 28 30 29 3d  22 62 68 65 61 64 31 22  |ksp$(0)="bhead1"|
00002cf0  3a 6d 61 73 6b 73 70 24  28 31 29 3d 22 67 68 65  |:masksp$(1)="ghe|
00002d00  61 64 31 22 3a f2 6d 61  73 6b 73 70 72 69 74 65  |ad1":.masksprite|
00002d10  28 73 70 61 72 65 61 34  25 2c 32 29 0d 0b a4 05  |(sparea4%,2)....|
00002d20  e1 0d 0b ae 04 0d 0b b8  10 dd f2 6c 6f 61 64 65  |...........loade|
00002d30  73 63 61 70 65 0d 0b c2  38 21 73 70 61 72 65 61  |scape...8!sparea|
00002d40  25 3d 73 70 61 72 65 61  73 69 7a 25 2d 28 31 31  |%=spareasiz%-(11|
00002d50  2a 31 30 32 34 29 2d 28  35 34 2a 31 30 32 34 29  |*1024)-(54*1024)|
00002d60  3a 73 70 61 72 65 61 25  21 38 3d 31 36 0d 0b cc  |:sparea%!8=16...|
00002d70  21 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |!.. "OS_SpriteOp|
00002d80  22 2c 26 31 30 39 2c 73  70 61 72 65 61 25 0d 0b  |",&109,sparea%..|
00002d90  d6 4e f2 6c 6f 61 64 75  6e 73 71 75 61 73 68 28  |.N.loadunsquash(|
00002da0  73 70 61 72 65 61 25 2c  73 70 61 72 65 61 73 69  |sparea%,spareasi|
00002db0  7a 25 2d 28 31 31 2a 31  30 32 34 29 2d 28 35 34  |z%-(11*1024)-(54|
00002dc0  2a 31 30 32 34 29 2c 22  4f 4e 45 2e 73 70 66 69  |*1024),"ONE.spfi|
00002dd0  6c 65 73 2e 65 73 63 61  70 65 22 29 0d 0b e0 05  |les.escape")....|
00002de0  e1 0d 0b ea 04 0d 0b f4  0c dd f2 67 62 6c 69 6e  |...........gblin|
00002df0  6b 0d 0b fe 0d 67 65 79  65 73 25 2b 3d 31 0d 0c  |k....geyes%+=1..|
00002e00  08 47 e7 67 65 79 65 73  25 3d 32 3a 67 65 79 65  |.G.geyes%=2:geye|
00002e10  73 25 3d 30 3a 61 6e 69  6d 70 61 75 73 65 25 28  |s%=0:animpause%(|
00002e20  31 39 29 3d 32 30 30 2b  28 35 30 2a b3 28 36 29  |19)=200+(50*.(6)|
00002e30  29 3a 8b 3a 61 6e 69 6d  70 61 75 73 65 25 28 31  |):.:animpause%(1|
00002e40  39 29 3d 31 30 0d 0c 12  53 c8 99 22 4f 53 5f 53  |9)=10...S.."OS_S|
00002e50  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 73 70  |priteOp",&134,sp|
00002e60  61 72 65 61 25 2c 22 67  65 79 65 73 22 2b c3 28  |area%,"geyes"+.(|
00002e70  67 65 79 65 73 25 29 2c  65 79 65 73 25 28 32 2c  |geyes%),eyes%(2,|
00002e80  30 29 2c 65 79 65 73 25  28 32 2c 31 29 2c 38 2c  |0),eyes%(2,1),8,|
00002e90  73 63 61 6c 65 25 2c 30  0d 0c 1c 33 61 63 68 61  |scale%,0...3acha|
00002ea0  6e 67 65 25 3d 2d 31 3a  64 6f 6e 65 63 68 61 6e  |nge%=-1:donechan|
00002eb0  67 65 25 28 31 39 29 3d  2d 31 3a 61 6e 69 6d 74  |ge%(19)=-1:animt|
00002ec0  69 6d 65 25 28 31 39 29  3d 2d 31 0d 0c 26 05 e1  |ime%(19)=-1..&..|
00002ed0  0d 0c 30 04 0d 0c 3a 10  dd f2 63 6f 70 79 67 62  |..0...:...copygb|
00002ee0  6c 69 6e 6b 0d 0c 44 3d  f2 73 63 72 63 6f 70 79  |link..D=.scrcopy|
00002ef0  62 6c 6f 63 6b 70 69 78  28 65 79 65 73 25 28 32  |blockpix(eyes%(2|
00002f00  2c 30 29 2c 65 79 65 73  25 28 32 2c 31 29 2c 37  |,0),eyes%(2,1),7|
00002f10  34 2c 32 38 2c 73 65 65  25 2c 64 6f 25 2c 2d 31  |4,28,see%,do%,-1|
00002f20  29 0d 0c 4e 05 e1 0d 0c  58 04 0d 0c 62 0c dd f2  |)..N....X...b...|
00002f30  62 62 6c 69 6e 6b 0d 0c  6c 0d 62 65 79 65 73 25  |bblink..l.beyes%|
00002f40  2b 3d 31 0d 0c 76 47 e7  62 65 79 65 73 25 3d 32  |+=1..vG.beyes%=2|
00002f50  3a 62 65 79 65 73 25 3d  30 3a 61 6e 69 6d 70 61  |:beyes%=0:animpa|
00002f60  75 73 65 25 28 31 38 29  3d 32 30 30 2b 28 35 30  |use%(18)=200+(50|
00002f70  2a b3 28 36 29 29 3a 8b  3a 61 6e 69 6d 70 61 75  |*.(6)):.:animpau|
00002f80  73 65 25 28 31 38 29 3d  31 30 0d 0c 80 53 c8 99  |se%(18)=10...S..|
00002f90  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00002fa0  33 34 2c 73 70 61 72 65  61 25 2c 22 62 65 79 65  |34,sparea%,"beye|
00002fb0  73 22 2b c3 28 62 65 79  65 73 25 29 2c 65 79 65  |s"+.(beyes%),eye|
00002fc0  73 25 28 31 2c 30 29 2c  65 79 65 73 25 28 31 2c  |s%(1,0),eyes%(1,|
00002fd0  31 29 2c 38 2c 73 63 61  6c 65 25 2c 30 0d 0c 8a  |1),8,scale%,0...|
00002fe0  33 61 63 68 61 6e 67 65  25 3d 2d 31 3a 64 6f 6e  |3achange%=-1:don|
00002ff0  65 63 68 61 6e 67 65 25  28 31 38 29 3d 2d 31 3a  |echange%(18)=-1:|
00003000  61 6e 69 6d 74 69 6d 65  25 28 31 38 29 3d 2d 31  |animtime%(18)=-1|
00003010  0d 0c 94 05 e1 0d 0c 9e  04 0d 0c a8 10 dd f2 63  |...............c|
00003020  6f 70 79 62 62 6c 69 6e  6b 0d 0c b2 3d f2 73 63  |opybblink...=.sc|
00003030  72 63 6f 70 79 62 6c 6f  63 6b 70 69 78 28 65 79  |rcopyblockpix(ey|
00003040  65 73 25 28 31 2c 30 29  2c 65 79 65 73 25 28 31  |es%(1,0),eyes%(1|
00003050  2c 31 29 2c 37 34 2c 32  30 2c 73 65 65 25 2c 64  |,1),74,20,see%,d|
00003060  6f 25 2c 2d 31 29 0d 0c  bc 05 e1 0d 0c c6 04 0d  |o%,-1)..........|
00003070  0c d0 0e dd f2 65 6c 66  62 6c 69 6e 6b 0d 0c da  |.....elfblink...|
00003080  0d 65 65 79 65 73 25 2b  3d 31 0d 0c e4 47 e7 65  |.eeyes%+=1...G.e|
00003090  65 79 65 73 25 3d 32 3a  65 65 79 65 73 25 3d 30  |eyes%=2:eeyes%=0|
000030a0  3a 61 6e 69 6d 70 61 75  73 65 25 28 31 37 29 3d  |:animpause%(17)=|
000030b0  32 30 30 2b 28 35 30 2a  b3 28 36 29 29 3a 8b 3a  |200+(50*.(6)):.:|
000030c0  61 6e 69 6d 70 61 75 73  65 25 28 31 37 29 3d 31  |animpause%(17)=1|
000030d0  30 0d 0c ee 55 c8 99 22  4f 53 5f 53 70 72 69 74  |0...U.."OS_Sprit|
000030e0  65 4f 70 22 2c 26 31 33  34 2c 73 70 61 72 65 61  |eOp",&134,sparea|
000030f0  25 2c 22 65 6c 66 65 79  65 73 22 2b c3 28 65 65  |%,"elfeyes"+.(ee|
00003100  79 65 73 25 29 2c 65 79  65 73 25 28 30 2c 30 29  |yes%),eyes%(0,0)|
00003110  2c 65 79 65 73 25 28 30  2c 31 29 2c 38 2c 73 63  |,eyes%(0,1),8,sc|
00003120  61 6c 65 25 2c 30 0d 0c  f8 33 61 63 68 61 6e 67  |ale%,0...3achang|
00003130  65 25 3d 2d 31 3a 64 6f  6e 65 63 68 61 6e 67 65  |e%=-1:donechange|
00003140  25 28 31 37 29 3d 2d 31  3a 61 6e 69 6d 74 69 6d  |%(17)=-1:animtim|
00003150  65 25 28 31 37 29 3d 2d  31 0d 0d 02 05 e1 0d 0d  |e%(17)=-1.......|
00003160  0c 04 0d 0d 16 12 dd f2  63 6f 70 79 65 6c 66 62  |........copyelfb|
00003170  6c 69 6e 6b 0d 0d 20 3d  f2 73 63 72 63 6f 70 79  |link.. =.scrcopy|
00003180  62 6c 6f 63 6b 70 69 78  28 65 79 65 73 25 28 30  |blockpix(eyes%(0|
00003190  2c 30 29 2c 65 79 65 73  25 28 30 2c 31 29 2c 37  |,0),eyes%(0,1),7|
000031a0  34 2c 31 36 2c 73 65 65  25 2c 64 6f 25 2c 2d 31  |4,16,see%,do%,-1|
000031b0  29 0d 0d 2a 05 e1 0d 0d  34 04 0d 0d 3e 10 dd f2  |)..*....4...>...|
000031c0  73 6f 75 6e 64 64 72 69  70 73 0d 0d 48 4a 61 6e  |sounddrips..HJan|
000031d0  69 6d 70 61 75 73 65 25  28 32 31 29 3d 31 30 30  |impause%(21)=100|
000031e0  2b b3 28 32 30 30 29 3a  f2 63 61 63 68 65 73 6f  |+.(200):.cacheso|
000031f0  75 6e 64 28 22 66 78 64  72 69 70 22 2b c3 28 b3  |und("fxdrip"+.(.|
00003200  28 33 29 29 2c 31 29 3a  d4 20 31 2c 26 31 37 46  |(3)),1):. 1,&17F|
00003210  2c 31 2c 31 0d 0d 52 33  61 63 68 61 6e 67 65 25  |,1,1..R3achange%|
00003220  3d 2d 31 3a 64 6f 6e 65  63 68 61 6e 67 65 25 28  |=-1:donechange%(|
00003230  32 31 29 3d 2d 31 3a 61  6e 69 6d 74 69 6d 65 25  |21)=-1:animtime%|
00003240  28 32 31 29 3d 2d 31 0d  0d 5c 05 e1 0d 0d 66 04  |(21)=-1..\....f.|
00003250  0d 0d 70 0f dd f2 65 6c  66 62 6c 69 6e 6b 32 0d  |..p...elfblink2.|
00003260  0d 7a 0d 65 65 79 65 73  25 2b 3d 31 0d 0d 84 47  |.z.eeyes%+=1...G|
00003270  e7 65 65 79 65 73 25 3d  32 3a 65 65 79 65 73 25  |.eeyes%=2:eeyes%|
00003280  3d 30 3a 61 6e 69 6d 70  61 75 73 65 25 28 32 30  |=0:animpause%(20|
00003290  29 3d 32 30 30 2b 28 35  30 2a b3 28 36 29 29 3a  |)=200+(50*.(6)):|
000032a0  8b 3a 61 6e 69 6d 70 61  75 73 65 25 28 32 30 29  |.:animpause%(20)|
000032b0  3d 31 30 0d 0d 8e 53 c8  99 22 4f 53 5f 53 70 72  |=10...S.."OS_Spr|
000032c0  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
000032d0  65 61 33 25 2c 22 6a 65  79 65 22 2b c3 28 65 65  |ea3%,"jeye"+.(ee|
000032e0  79 65 73 25 29 2c 65 79  65 73 25 28 30 2c 30 29  |yes%),eyes%(0,0)|
000032f0  2c 65 79 65 73 25 28 30  2c 31 29 2c 38 2c 73 63  |,eyes%(0,1),8,sc|
00003300  61 6c 65 25 2c 30 0d 0d  98 33 61 63 68 61 6e 67  |ale%,0...3achang|
00003310  65 25 3d 2d 31 3a 64 6f  6e 65 63 68 61 6e 67 65  |e%=-1:donechange|
00003320  25 28 32 30 29 3d 2d 31  3a 61 6e 69 6d 74 69 6d  |%(20)=-1:animtim|
00003330  65 25 28 32 30 29 3d 2d  31 0d 0d a2 05 e1 0d 0d  |e%(20)=-1.......|
00003340  ac 04 0d 0d b6 13 dd f2  63 6f 70 79 65 6c 66 62  |........copyelfb|
00003350  6c 69 6e 6b 32 0d 0d c0  3d f2 73 63 72 63 6f 70  |link2...=.scrcop|
00003360  79 62 6c 6f 63 6b 70 69  78 28 65 79 65 73 25 28  |yblockpix(eyes%(|
00003370  30 2c 30 29 2c 65 79 65  73 25 28 30 2c 31 29 2c  |0,0),eyes%(0,1),|
00003380  31 38 2c 32 30 2c 73 65  65 25 2c 64 6f 25 2c 2d  |18,20,see%,do%,-|
00003390  31 29 0d 0d ca 05 e1 0d  0d d4 04 0d 0d de 14 dd  |1)..............|
000033a0  a4 72 65 61 64 73 79 73  76 61 72 28 61 24 29 0d  |.readsysvar(a$).|
000033b0  0d e8 08 ea 20 70 25 0d  0d f2 4e c8 99 20 22 4f  |.... p%...N.. "O|
000033c0  53 5f 52 65 61 64 56 61  72 56 61 6c 22 2c 61 24  |S_ReadVarVal",a$|
000033d0  2c 62 6c 6b 25 2c 38 30  2c 30 2c 30 20 b8 20 2c  |,blk%,80,0,0 . ,|
000033e0  2c 61 25 3a 61 24 3d 22  22 3a e3 70 25 3d 30 b8  |,a%:a$="":.p%=0.|
000033f0  61 25 2d 31 3a 61 24 2b  3d bd 28 62 6c 6b 25 3f  |a%-1:a$+=.(blk%?|
00003400  70 25 29 3a ed 0d 0d fc  07 3d 61 24 0d 0e 06 04  |p%):.....=a$....|
00003410  0d 0e 10 16 dd f2 73 70  65 63 69 66 69 63 63 6f  |......specificco|
00003420  70 79 28 6a 25 29 0d 0e  1a 0b c8 8e 20 6a 25 20  |py(j%)...... j% |
00003430  ca 0d 0e 24 18 20 c9 20  38 3a f2 63 6f 70 79 6d  |...$. . 8:.copym|
00003440  6f 76 65 61 63 72 6f 73  73 0d 0e 2e 16 20 c9 20  |oveacross.... . |
00003450  39 3a f2 63 6f 70 79 6d  6f 76 65 64 6f 77 6e 0d  |9:.copymovedown.|
00003460  0e 38 17 20 c9 20 31 36  3a f2 63 6f 70 79 6c 69  |.8. . 16:.copyli|
00003470  6c 62 6c 69 6e 6b 0d 0e  42 17 20 c9 20 31 37 3a  |lblink..B. . 17:|
00003480  f2 63 6f 70 79 65 6c 66  62 6c 69 6e 6b 0d 0e 4c  |.copyelfblink..L|
00003490  15 20 c9 20 31 38 3a f2  63 6f 70 79 62 62 6c 69  |. . 18:.copybbli|
000034a0  6e 6b 0d 0e 56 15 20 c9  20 31 39 3a f2 63 6f 70  |nk..V. . 19:.cop|
000034b0  79 67 62 6c 69 6e 6b 0d  0e 60 18 20 c9 20 32 30  |ygblink..`. . 20|
000034c0  3a f2 63 6f 70 79 65 6c  66 62 6c 69 6e 6b 32 0d  |:.copyelfblink2.|
000034d0  0e 6a 05 cb 0d 0e 74 05  e1 0d 0e 7e 04 0d 0e 88  |.j....t....~....|
000034e0  16 dd f2 73 70 65 63 69  66 69 63 61 6e 69 6d 28  |...specificanim(|
000034f0  6a 25 29 0d 0e 92 0b c8  8e 20 6a 25 20 ca 0d 0e  |j%)...... j% ...|
00003500  9c 14 20 c9 20 38 3a f2  6d 6f 76 65 61 63 72 6f  |.. . 8:.moveacro|
00003510  73 73 0d 0e a6 12 20 c9  20 39 3a f2 6d 6f 76 65  |ss.... . 9:.move|
00003520  64 6f 77 6e 0d 0e b0 13  20 c9 20 31 36 3a f2 6c  |down.... . 16:.l|
00003530  69 6c 62 6c 69 6e 6b 0d  0e ba 13 20 c9 20 31 37  |ilblink.... . 17|
00003540  3a f2 65 6c 66 62 6c 69  6e 6b 0d 0e c4 11 20 c9  |:.elfblink.... .|
00003550  20 31 38 3a f2 62 62 6c  69 6e 6b 0d 0e ce 11 20  | 18:.bblink.... |
00003560  c9 20 31 39 3a f2 67 62  6c 69 6e 6b 0d 0e d8 14  |. 19:.gblink....|
00003570  20 c9 20 32 30 3a f2 65  6c 66 62 6c 69 6e 6b 32  | . 20:.elfblink2|
00003580  0d 0e e2 15 20 c9 20 32  31 3a f2 73 6f 75 6e 64  |.... . 21:.sound|
00003590  64 72 69 70 73 0d 0e ec  05 cb 0d 0e f6 05 e1 0d  |drips...........|
000035a0  0f 00 04 0d 0f 0a 10 dd  f2 69 6e 69 74 69 61 6c  |.........initial|
000035b0  69 73 65 0d 0f 14 33 c8  99 20 26 34 36 31 38 31  |ise...3.. &46181|
000035c0  2c 52 25 2c 22 3c 45 6c  66 4b 24 63 68 61 69 6e  |,R%,"<ElfK$chain|
000035d0  64 69 72 3e 2e 4f 4e 45  2e 53 50 61 63 6b 46 69  |dir>.ONE.SPackFi|
000035e0  6c 65 22 2c 33 32 0d 0f  1e 23 5a 25 3d bb 28 a4  |le",32...#Z%=.(.|
000035f0  72 65 61 64 73 79 73 76  61 72 28 22 45 6c 66 4b  |readsysvar("ElfK|
00003600  24 74 61 73 6b 31 22 29  29 0d 0f 28 b7 de 20 65  |$task1"))..(.. e|
00003610  79 65 73 25 28 32 2c 31  29 2c 65 77 25 28 33 2c  |yes%(2,1),ew%(3,|
00003620  31 29 2c 62 77 25 28 38  29 2c 62 68 25 28 38 2c  |1),bw%(8),bh%(8,|
00003630  31 29 2c 74 72 61 70 79  25 28 33 29 2c 6c 65 76  |1),trapy%(3),lev|
00003640  65 72 78 25 28 33 29 2c  6d 61 70 64 65 66 6e 25  |erx%(3),mapdefn%|
00003650  28 31 33 2c 31 36 29 2c  62 75 74 63 6f 6c 25 28  |(13,16),butcol%(|
00003660  33 29 2c 62 75 74 77 61  6c 6b 25 28 33 29 2c 64  |3),butwalk%(3),d|
00003670  69 73 70 25 28 31 2c 31  2c 38 29 2c 62 75 74 61  |isp%(1,1,8),buta|
00003680  72 72 25 28 33 2c 31 29  2c 64 6f 74 78 25 28 31  |rr%(3,1),dotx%(1|
00003690  29 2c 64 6f 74 79 25 28  31 29 2c 63 68 61 6e 67  |),doty%(1),chang|
000036a0  65 64 62 75 74 25 28 33  29 2c 6f 6e 6c 79 77 61  |edbut%(3),onlywa|
000036b0  6c 6b 25 28 33 29 2c 68  61 69 72 79 25 28 34 29  |lk%(3),hairy%(4)|
000036c0  0d 0f 32 4b de 20 64 69  66 25 28 33 29 2c 73 74  |..2K. dif%(3),st|
000036d0  6f 70 70 6f 73 25 28 33  29 2c 73 70 6c 69 74 25  |oppos%(3),split%|
000036e0  28 33 2c 34 29 2c 6c 61  64 70 6f 73 25 28 33 29  |(3,4),ladpos%(3)|
000036f0  2c 66 69 72 73 74 6c 61  64 70 6f 73 25 28 33 29  |,firstladpos%(3)|
00003700  2c 73 65 65 6c 61 64 25  28 33 29 0d 0f 3c 12 de  |,seelad%(3)..<..|
00003710  20 73 70 70 61 6c 65 74  25 20 31 32 38 0d 0f 46  | sppalet% 128..F|
00003720  08 f7 20 2b 30 0d 0f 50  19 dc 20 30 2c 35 32 2c  |.. +0..P.. 0,52,|
00003730  36 2c 34 38 2c 32 2c 35  32 2c 30 2c 35 36 0d 0f  |6,48,2,52,0,56..|
00003740  5a 24 e3 6a 25 3d 30 b8  33 3a e3 6b 25 3d 30 b8  |Z$.j%=0.3:.k%=0.|
00003750  31 3a f3 20 65 77 25 28  6a 25 2c 6b 25 29 3a ed  |1:. ew%(j%,k%):.|
00003760  3a ed 0d 0f 64 08 f7 20  2b 30 0d 0f 6e 24 dc 20  |:...d.. +0..n$. |
00003770  30 2c 2d 32 36 2c 2d 32  36 2c 2d 31 30 2c 30 2c  |0,-26,-26,-10,0,|
00003780  2d 32 34 2c 2d 32 32 2c  2d 38 2c 2d 31 36 0d 0f  |-24,-22,-8,-16..|
00003790  78 17 e3 6a 25 3d 30 b8  38 3a f3 20 62 77 25 28  |x..j%=0.8:. bw%(|
000037a0  6a 25 29 3a ed 0d 0f 82  08 f7 20 2b 30 0d 0f 8c  |j%):...... +0...|
000037b0  45 dc 20 2d 31 34 2c 32  34 34 2c 31 38 2c 32 34  |E. -14,244,18,24|
000037c0  30 2c 31 32 2c 32 34 34  2c 30 2c 32 34 38 2c 2d  |0,12,244,0,248,-|
000037d0  31 34 2c 32 34 34 2c 31  38 2c 32 34 30 2c 31 32  |14,244,18,240,12|
000037e0  2c 32 34 34 2c 30 2c 32  34 38 2c 2d 31 38 2c 32  |,244,0,248,-18,2|
000037f0  34 38 0d 0f 96 24 e3 6a  25 3d 30 b8 38 3a e3 6b  |48...$.j%=0.8:.k|
00003800  25 3d 30 b8 31 3a f3 20  62 68 25 28 6a 25 2c 6b  |%=0.1:. bh%(j%,k|
00003810  25 29 3a ed 3a ed 0d 0f  a0 08 f7 20 2b 30 0d 0f  |%):.:...... +0..|
00003820  aa 15 dc 20 32 39 36 2c  31 38 30 2c 31 31 32 2c  |... 296,180,112,|
00003830  31 31 32 0d 0f b4 1a e3  6a 25 3d 30 b8 33 3a f3  |112.....j%=0.3:.|
00003840  20 74 72 61 70 79 25 28  6a 25 29 3a ed 0d 0f be  | trapy%(j%):....|
00003850  08 f7 20 2b 30 0d 0f c8  15 dc 20 37 37 38 2c 37  |.. +0..... 778,7|
00003860  36 36 2c 38 34 30 2c 38  34 30 0d 0f d2 1b e3 6a  |66,840,840.....j|
00003870  25 3d 30 b8 33 3a f3 20  6c 65 76 65 72 78 25 28  |%=0.3:. leverx%(|
00003880  6a 25 29 3a ed 0d 0f dc  10 f4 20 64 65 66 69 6e  |j%):...... defin|
00003890  65 20 6d 61 70 0d 0f e6  08 f7 20 2b 30 0d 0f f0  |e map..... +0...|
000038a0  29 dc 20 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |). 0,0,0,0,0,0,0|
000038b0  2c 26 31 38 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,&18,0,0,0,0,0,0|
000038c0  2c 30 2c 30 2c 30 0d 0f  fa 32 dc 20 26 31 32 2c  |,0,0,0...2. &12,|
000038d0  36 2c 31 34 2c 36 2c 31  34 2c 36 2c 36 2c 37 2c  |6,14,6,14,6,6,7,|
000038e0  36 2c 36 2c 26 31 36 2c  36 2c 26 31 36 2c 31 34  |6,6,&16,6,&16,14|
000038f0  2c 36 2c 26 31 36 2c 30  0d 10 04 27 dc 20 30 2c  |,6,&16,0...'. 0,|
00003900  30 2c 39 2c 30 2c 39 2c  30 2c 30 2c 30 2c 30 2c  |0,9,0,9,0,0,0,0,|
00003910  30 2c 30 2c 30 2c 30 2c  39 2c 30 2c 30 2c 30 0d  |0,0,0,0,9,0,0,0.|
00003920  10 0e 29 dc 20 30 2c 30  2c 39 2c 30 2c 26 31 31  |..). 0,0,9,0,&11|
00003930  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00003940  2c 39 2c 30 2c 30 2c 30  0d 10 18 2c dc 20 31 30  |,9,0,0,0...,. 10|
00003950  2c 36 2c 35 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,6,5,0,0,0,0,0,0|
00003960  2c 30 2c 30 2c 30 2c 30  2c 31 31 2c 26 31 36 2c  |,0,0,0,0,11,&16,|
00003970  36 2c 31 32 0d 10 22 27  dc 20 39 2c 30 2c 30 2c  |6,12.."'. 9,0,0,|
00003980  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00003990  30 2c 30 2c 39 2c 30 2c  30 2c 39 0d 10 2c 27 dc  |0,0,9,0,0,9..,'.|
000039a0  20 39 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  | 9,0,0,0,0,0,0,0|
000039b0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 39 2c 30 2c 30  |,0,0,0,0,0,9,0,0|
000039c0  2c 39 0d 10 36 29 dc 20  39 2c 30 2c 30 2c 30 2c  |,9..6). 9,0,0,0,|
000039d0  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
000039e0  30 2c 39 2c 30 2c 30 2c  26 31 31 0d 10 40 2c dc  |0,9,0,0,&11..@,.|
000039f0  20 39 2c 30 2c 30 2c 30  2c 26 31 38 2c 30 2c 30  | 9,0,0,0,&18,0,0|
00003a00  2c 30 2c 30 2c 30 2c 30  2c 26 31 32 2c 36 2c 31  |,0,0,0,0,&12,6,1|
00003a10  33 2c 30 2c 30 2c 30 0d  10 4a 27 dc 20 39 2c 30  |3,0,0,0..J'. 9,0|
00003a20  2c 30 2c 30 2c 39 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,9,0,0,0,0,0|
00003a30  2c 30 2c 30 2c 30 2c 39  2c 30 2c 30 2c 30 0d 10  |,0,0,0,9,0,0,0..|
00003a40  54 2b dc 20 33 2c 31 34  2c 36 2c 36 2c 37 2c 36  |T+. 3,14,6,6,7,6|
00003a50  2c 36 2c 36 2c 36 2c 26  31 36 2c 31 34 2c 36 2c  |,6,6,6,&16,14,6,|
00003a60  36 2c 35 2c 30 2c 30 2c  30 0d 10 5e 27 dc 20 30  |6,5,0,0,0..^'. 0|
00003a70  2c 39 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,9,0,0,0,0,0,0,0|
00003a80  2c 30 2c 39 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,9,0,0,0,0,0,0|
00003a90  0d 10 68 2e dc 20 26 31  32 2c 31 33 2c 30 2c 30  |..h.. &12,13,0,0|
00003aa0  2c 30 2c 30 2c 30 2c 26  31 32 2c 36 2c 26 31 36  |,0,0,0,&12,6,&16|
00003ab0  2c 35 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 0d 10  |,5,0,0,0,0,0,0..|
00003ac0  72 29 dc 20 30 2c 26 31  31 2c 30 2c 30 2c 30 2c  |r). 0,&11,0,0,0,|
00003ad0  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00003ae0  30 2c 30 2c 30 2c 30 0d  10 7c 2b e3 6a 25 3d 30  |0,0,0,0..|+.j%=0|
00003af0  b8 31 33 3a e3 6b 25 3d  30 b8 31 36 3a f3 20 6d  |.13:.k%=0.16:. m|
00003b00  61 70 64 65 66 6e 25 28  6a 25 2c 6b 25 29 3a ed  |apdefn%(j%,k%):.|
00003b10  3a ed 0d 10 86 08 f7 20  2b 30 0d 10 90 10 f4 20  |:...... +0..... |
00003b20  65 6c 66 73 20 72 69 67  68 74 0d 10 9a 29 dc 20  |elfs right...). |
00003b30  2d 31 30 2c 2d 31 34 2c  2d 31 30 2c 2d 31 30 2c  |-10,-14,-10,-10,|
*
00003b50  2d 31 30 0d 10 a4 0f f4  20 65 6c 66 73 20 6c 65  |-10..... elfs le|
00003b60  66 74 0d 10 ae 29 dc 20  2d 31 32 2c 2d 31 36 2c  |ft...). -12,-16,|
00003b70  2d 31 30 2c 2d 31 30 2c  2d 31 32 2c 2d 31 36 2c  |-10,-10,-12,-16,|
00003b80  2d 31 30 2c 2d 31 30 2c  2d 31 30 0d 10 b8 0f f4  |-10,-10,-10.....|
00003b90  20 6a 65 6b 20 72 69 67  68 74 0d 10 c2 29 dc 20  | jek right...). |
00003ba0  2d 31 38 2c 2d 31 38 2c  2d 31 38 2c 2d 31 38 2c  |-18,-18,-18,-18,|
*
00003bc0  2d 31 38 0d 10 cc 0e f4  20 6a 65 6b 20 6c 65 66  |-18..... jek lef|
00003bd0  74 0d 10 d6 29 dc 20 2d  31 38 2c 2d 32 30 2c 2d  |t...). -18,-20,-|
00003be0  31 38 2c 2d 31 38 2c 2d  31 38 2c 2d 32 30 2c 2d  |18,-18,-18,-20,-|
00003bf0  31 38 2c 2d 31 38 2c 2d  31 38 0d 10 e0 33 e3 6a  |18,-18,-18...3.j|
00003c00  25 3d 30 b8 31 3a e3 6b  25 3d 30 b8 31 3a e3 6c  |%=0.1:.k%=0.1:.l|
00003c10  25 3d 30 b8 38 3a f3 20  64 69 73 70 25 28 6a 25  |%=0.8:. disp%(j%|
00003c20  2c 6b 25 2c 6c 25 29 3a  ed 3a ed 3a ed 0d 10 ea  |,k%,l%):.:.:....|
00003c30  08 f7 20 2b 30 0d 10 f4  24 dc 20 32 38 2c 38 33  |.. +0...$. 28,83|
00003c40  36 2c 31 31 32 2c 38 39  36 2c 31 31 32 2c 37 38  |6,112,896,112,78|
00003c50  30 2c 31 39 34 2c 38 33  36 0d 10 fe 28 e3 6a 25  |0,194,836...(.j%|
00003c60  3d 30 b8 33 3a e3 6b 25  3d 30 b8 31 3a f3 20 62  |=0.3:.k%=0.1:. b|
00003c70  75 74 61 72 72 25 28 6a  25 2c 6b 25 29 3a ed 3a  |utarr%(j%,k%):.:|
00003c80  ed 0d 11 08 14 f4 20 73  61 79 20 62 6c 75 65 20  |...... say blue |
00003c90  77 6f 72 64 73 0d 11 12  08 f7 20 2b 30 0d 11 1c  |words..... +0...|
00003ca0  07 f4 20 30 0d 11 26 1e  dc 20 6c 61 64 64 65 72  |.. 0..&.. ladder|
00003cb0  73 2c 6c 61 64 64 65 72  73 2c 22 32 30 2c 31 32  |s,ladders,"20,12|
00003cc0  30 22 0d 11 30 1e dc 20  65 73 63 61 70 65 2c 65  |0"..0.. escape,e|
00003cd0  73 63 61 70 65 2c 22 31  36 2c 32 31 33 32 30 22  |scape,"16,21320"|
00003ce0  0d 11 3a 1c dc 20 6c 61  64 64 65 72 2c 6c 61 64  |..:.. ladder,lad|
00003cf0  64 65 72 2c 22 32 30 2c  31 32 30 22 0d 11 44 16  |der,"20,120"..D.|
00003d00  dc 20 6f 6e 65 2c 6f 6e  65 2c 22 32 30 2c 35 32  |. one,one,"20,52|
00003d10  30 22 0d 11 4e 17 dc 20  6c 65 66 74 2c 6c 65 66  |0"..N.. left,lef|
00003d20  74 2c 22 32 30 2c 31 30  22 0d 11 58 16 dc 20 54  |t,"20,10"..X.. T|
00003d30  72 79 2c 74 72 79 2c 22  31 38 2c 32 31 30 22 0d  |ry,try,"18,210".|
00003d40  11 62 1a dc 20 61 67 61  69 6e 2c 61 67 61 69 6e  |.b.. again,again|
00003d50  2c 22 32 34 2c 31 32 30  22 0d 11 6c 1a dc 20 72  |,"24,120"..l.. r|
00003d60  6f 70 65 2c 72 6f 70 65  2c 22 31 32 2c 32 35 33  |ope,rope,"12,253|
00003d70  32 30 22 0d 11 76 17 dc  20 6f 75 74 2c 6f 75 74  |20"..v.. out,out|
00003d80  2c 22 31 30 2c 31 35 32  30 22 0d 11 80 22 dc 20  |,"10,1520"...". |
00003d90  77 69 6e 64 6d 69 6c 6c  2c 77 69 6e 64 6d 69 6c  |windmill,windmil|
00003da0  6c 2c 22 31 34 2c 35 32  33 34 30 22 0d 11 8a 08  |l,"14,52340"....|
00003db0  f4 20 31 30 0d 11 94 1a  dc 20 48 61 69 72 79 2c  |. 10..... Hairy,|
00003dc0  68 61 69 72 79 2c 22 32  30 2c 31 34 30 22 0d 11  |hairy,"20,140"..|
00003dd0  9e 17 dc 20 47 61 6e 67  2c 67 61 6e 67 2c 22 32  |... Gang,gang,"2|
00003de0  30 2c 31 30 22 0d 11 a8  17 dc 20 66 69 6e 64 2c  |0,10"..... find,|
00003df0  66 69 6e 64 2c 22 32 30  2c 32 30 22 0d 11 b2 1c  |find,"20,20"....|
00003e00  dc 20 67 72 65 61 73 65  2c 67 72 65 61 73 65 2c  |. grease,grease,|
00003e10  22 32 30 2c 32 34 30 22  0d 11 bc 1a dc 20 57 68  |"20,240"..... Wh|
00003e20  69 63 68 2c 77 68 69 63  68 2c 22 32 30 2c 35 32  |ich,which,"20,52|
00003e30  30 22 0d 11 c6 19 dc 20  72 6f 63 6b 73 2c 72 6f  |0"..... rocks,ro|
00003e40  63 6b 73 2c 22 33 30 2c  32 30 22 0d 11 d0 1a dc  |cks,"30,20".....|
00003e50  20 74 72 65 65 73 2c 74  72 65 65 73 2c 22 32 38  | trees,trees,"28|
00003e60  2c 32 34 30 22 0d 11 da  1a dc 20 77 61 74 65 72  |,240"..... water|
00003e70  2c 77 61 74 65 72 2c 22  31 36 2c 35 32 30 22 0d  |,water,"16,520".|
00003e80  11 e4 19 dc 20 70 61 74  68 73 2c 70 61 74 68 73  |.... paths,paths|
00003e90  2c 22 32 36 2c 31 30 22  0d 11 ee 1e dc 20 74 75  |,"26,10"..... tu|
00003ea0  6e 6e 65 6c 73 2c 74 75  6e 6e 65 6c 73 2c 22 32  |nnels,tunnels,"2|
00003eb0  30 2c 31 32 30 22 0d 11  f8 08 f4 20 32 30 0d 12  |0,120"..... 20..|
00003ec0  02 1a dc 20 67 6f 69 6e  67 2c 67 6f 69 6e 67 2c  |... going,going,|
00003ed0  22 32 30 2c 35 34 30 22  0d 12 0c 0c e3 6a 25 3d  |"20,540".....j%=|
00003ee0  30 b8 32 30 0d 12 16 1c  20 e3 6b 25 3d 30 b8 32  |0.20.... .k%=0.2|
00003ef0  3a f3 20 73 61 79 24 28  6a 25 2c 6b 25 29 3a ed  |:. say$(j%,k%):.|
00003f00  0d 12 20 05 ed 0d 12 2a  08 f7 20 2b 30 0d 12 34  |.. ....*.. +0..4|
00003f10  07 f4 20 30 0d 12 3e 0e  dc 20 34 34 34 2c 33 32  |.. 0..>.. 444,32|
00003f20  2c 30 0d 12 48 0e dc 20  37 37 38 2c 33 32 2c 31  |,0..H.. 778,32,1|
00003f30  0d 12 52 0e dc 20 36 31  38 2c 39 36 2c 32 0d 12  |..R.. 618,96,2..|
00003f40  5c 0e dc 20 34 38 34 2c  33 36 2c 33 0d 12 66 0e  |\.. 484,36,3..f.|
00003f50  dc 20 37 32 38 2c 33 36  2c 34 0d 12 70 07 f4 20  |. 728,36,4..p.. |
00003f60  35 0d 12 7a 0e dc 20 35  34 30 2c 34 30 2c 35 0d  |5..z.. 540,40,5.|
00003f70  12 84 0e dc 20 36 32 34  2c 34 30 2c 36 0d 12 8e  |.... 624,40,6...|
00003f80  0e dc 20 37 33 32 2c 34  30 2c 31 0d 12 98 0f dc  |.. 732,40,1.....|
00003f90  20 36 30 34 2c 37 38 38  2c 37 0d 12 a2 10 dc 20  | 604,788,7..... |
00003fa0  31 30 32 38 2c 37 38 38  2c 38 0d 12 ac 08 f4 20  |1028,788,8..... |
00003fb0  31 30 0d 12 b6 0e dc 20  37 32 30 2c 34 30 2c 39  |10..... 720,40,9|
00003fc0  0d 12 c0 10 dc 20 34 38  36 2c 36 35 36 2c 31 30  |..... 486,656,10|
00003fd0  0d 12 ca 10 dc 20 36 31  36 2c 36 35 36 2c 31 31  |..... 616,656,11|
00003fe0  0d 12 d4 10 dc 20 36 38  32 2c 36 35 36 2c 31 32  |..... 682,656,12|
00003ff0  0d 12 de 0f dc 20 36 33  32 2c 39 36 2c 31 33 0d  |..... 632,96,13.|
00004000  12 e8 08 f4 20 31 35 0d  12 f2 0f dc 20 33 32 36  |.... 15..... 326|
00004010  2c 39 36 2c 31 34 0d 12  fc 0e dc 20 36 30 36 2c  |,96,14..... 606,|
00004020  39 36 2c 32 0d 13 06 0e  dc 20 34 38 32 2c 33 36  |96,2..... 482,36|
00004030  2c 33 0d 13 10 0e dc 20  37 32 34 2c 33 36 2c 34  |,3..... 724,36,4|
00004040  0d 13 1a 10 dc 20 31 34  36 2c 31 31 36 2c 31 35  |..... 146,116,15|
00004050  0d 13 24 08 f4 20 32 30  0d 13 2e 10 dc 20 33 37  |..$.. 20..... 37|
00004060  38 2c 31 31 36 2c 31 36  0d 13 38 10 dc 20 35 39  |8,116,16..8.. 59|
00004070  34 2c 31 31 36 2c 31 37  0d 13 42 10 dc 20 38 33  |4,116,17..B.. 83|
00004080  32 2c 31 31 36 2c 31 38  0d 13 4c 11 dc 20 31 30  |2,116,18..L.. 10|
00004090  36 34 2c 31 31 36 2c 31  39 0d 13 56 10 dc 20 39  |64,116,19..V.. 9|
000040a0  35 30 2c 36 35 36 2c 32  30 0d 13 60 0c e3 6a 25  |50,656,20..`..j%|
000040b0  3d 30 b8 32 34 0d 13 6a  29 20 e3 6b 25 3d 30 b8  |=0.24..j) .k%=0.|
000040c0  31 3a f3 20 73 61 79 25  28 6a 25 2c 6b 25 29 3a  |1:. say%(j%,k%):|
000040d0  ed 3a f3 20 73 61 79 25  28 6a 25 2c 34 29 0d 13  |.:. say%(j%,4)..|
000040e0  74 05 ed 0d 13 7e 0c e3  6a 25 3d 30 b8 32 34 0d  |t....~..j%=0.24.|
000040f0  13 88 67 20 73 61 79 25  28 6a 25 2c 31 29 2d 3d  |..g say%(j%,1)-=|
00004100  31 36 3a 73 61 79 25 28  6a 25 2c 32 29 3d 73 61  |16:say%(j%,2)=sa|
00004110  79 25 28 6a 25 2c 30 29  2b 32 2b a4 73 74 72 69  |y%(j%,0)+2+.stri|
00004120  6e 67 73 69 7a 65 28 73  61 79 24 28 73 61 79 25  |ngsize(say$(say%|
00004130  28 6a 25 2c 34 29 2c 30  29 29 3a 73 61 79 25 28  |(j%,4),0)):say%(|
00004140  6a 25 2c 33 29 3d 73 61  79 25 28 6a 25 2c 31 29  |j%,3)=say%(j%,1)|
00004150  2b 31 36 2b 35 32 0d 13  92 05 ed 0d 13 9c 08 f7  |+16+52..........|
00004160  20 2b 30 0d 13 a6 87 dc  20 26 46 46 46 46 46 46  | +0..... &FFFFFF|
00004170  30 30 2c 26 46 46 46 46  46 46 30 30 2c 26 41 41  |00,&FFFFFF00,&AA|
00004180  41 41 41 41 30 30 2c 26  41 41 41 41 41 41 30 30  |AAAA00,&AAAAAA00|
00004190  2c 26 37 37 37 37 37 37  30 30 2c 26 37 37 37 37  |,&77777700,&7777|
000041a0  37 37 30 30 2c 26 30 2c  26 30 2c 26 41 41 30 30  |7700,&0,&0,&AA00|
000041b0  2c 26 41 41 30 30 2c 26  36 36 46 46 30 30 2c 26  |,&AA00,&66FF00,&|
000041c0  36 36 46 46 30 30 2c 26  43 43 46 46 30 30 2c 26  |66FF00,&CCFF00,&|
000041d0  43 43 46 46 30 30 2c 26  46 46 38 38 30 30 30 30  |CCFF00,&FF880000|
000041e0  2c 26 46 46 38 38 30 30  30 30 0d 13 b0 99 dc 20  |,&FF880000..... |
000041f0  26 45 45 30 30 30 30 30  30 2c 26 45 45 30 30 30  |&EE000000,&EE000|
00004200  30 30 30 2c 26 46 46 46  46 30 30 30 30 2c 26 46  |000,&FFFF0000,&F|
00004210  46 46 46 30 30 30 30 2c  26 39 39 35 35 30 30 30  |FFF0000,&9955000|
00004220  30 2c 26 39 39 35 35 30  30 30 30 2c 26 46 46 43  |0,&99550000,&FFC|
00004230  43 39 39 30 30 2c 26 46  46 43 43 39 39 30 30 2c  |C9900,&FFCC9900,|
00004240  26 38 38 31 31 30 30 2c  26 38 38 31 31 30 30 2c  |&881100,&881100,|
00004250  26 42 42 30 30 30 30 2c  26 42 42 30 30 30 30 2c  |&BB0000,&BB0000,|
00004260  26 45 45 32 32 30 30 2c  26 45 45 32 32 30 30 2c  |&EE2200,&EE2200,|
00004270  26 42 42 37 37 30 30 30  30 2c 26 42 42 37 37 30  |&BB770000,&BB770|
00004280  30 30 30 0d 13 ba 0c e3  6b 25 3d 30 b8 33 31 0d  |000.....k%=0.31.|
00004290  13 c4 08 f3 20 61 25 0d  13 ce 16 73 70 70 61 6c  |.... a%....sppal|
000042a0  65 74 25 21 28 34 2a 6b  25 29 3d 61 25 0d 13 d8  |et%!(4*k%)=a%...|
000042b0  05 ed 0d 13 e2 04 0d 13  ec 20 66 69 72 73 74 65  |......... firste|
000042c0  78 70 6c 6f 72 65 25 3d  2d 31 3a 66 69 72 65 74  |xplore%=-1:firet|
000042d0  69 6d 65 25 3d 91 0d 13  f6 05 e1 0d 14 00 04 0d  |ime%=...........|
000042e0  14 0a 04 0d 14 14 04 0d  ff                       |.........|
000042e9