� >$.!3DMAZE.!RunImage
 � By B.Wickett December 1990
� Maze adventure program
(:
2	�init
<� � �error
F�
Z1ș"Wimp_Poll",%11111110110110011,q% � reason%
dȎ reason% �
n
� 2:�open
x� 3:�close(!q%)
�)� 6:�click(!q%,q%!4,q%!8,q%!12,q%!16)
�� 9:�selectmenu(!q%)
�� 17,18:� q%!16=0 � end%=�
��
�
� end%
�%ș"Wimp_CloseDown",mytask%,!task%
��
�:
�� �error
�ș"Hourglass_Smash"
�@� �check(�$+", EXIT?") � ș"Wimp_CloseDown",mytask%,!task%:�
��
�:

� �open

ș"Wimp_OpenWindow",,q%

�

":

,� �restart

6ș"Hourglass_On"

@pd%=�(4)-1:opx%=-1

J
wall%()=0

Tmoves%=300:score%=0

^� cred%=1 � creds%

hcx%(cred%)=�(ms%/2)*2-1

rcy%(cred%)=�(ms%/2)*2-1

|� cred%

��createmaze

��redraw

��map

�ș"Hourglass_Off"

��

�:

�� �init

� program$="3D-Maze Adventure"

�� task% 8:$task%="TASK"

�6ș"Wimp_Initialise",200,!task%,program$ � ,mytask%

�dir$="<Maze$Dir>."

�ms%=32:creds%=10

�.locations%=(ms%-1)^2:end%=�:ssize%=40*1024
'� q% 1000,iconmenu% &100,menu% &100
o� sprite% ssize%,wall%(ms%,ms%),ix%(3),iy%(3),dx%(locations%),dy%(locations%),f%(3),cx%(creds%),cy%(creds%)
� dir%=0 � 3
&� ix%(dir%),iy%(dir%)
0
� dir%
:� 0,1,1,0,0,-1,-1,0
D!sprite%=ssize%
Nsprite%!4=0
Xsprite%!8=16
bsprite%!12=16
l6ș"OS_SpriteOp",15+256,sprite%,"view",0,256,128,12
v4ș"OS_SpriteOp",15+256,sprite%,"map",0,192,96,12
�+ș"Wimp_OpenTemplate",,dir$+"Templates"
� info%=�load_template("info")
� main%=�load_template("main")
�ș"Wimp_CloseTemplate"
�Dview%=�create_icon("view",main%,16,-528,512,512,&2102,sprite%,0)
�Cmap%=�create_icon("map",main%,544,-400,384,384,&2102,sprite%,0)
�:myicon%=�create_icon("!3DMAZE",-1,0,0,68,68,&2102,1,0)
�+�set_icon(info%,0,"1.02, {1 Jan 1991}")
�2�crmenu(iconmenu%,"3D-Maze,Info->,info%,Quit")
�iconitems%=items%
�3�crmenu(menu%,"Adventure,Info->,info%,Restart")
��restart
��
:
� �selectmenu(item%)
ș"Wimp_CreateMenu",,-1
 !� open%=-2 � item%=1 � end%=�
*&� open%=main% � item%=1 � �restart
4�
>:
H� �crmenu(menu%,data$)
Rdata$+=","
\title$=�next(data$)
fmax%=�title$-2
p$menu%=title$
zmenu%!12=&70207
�menu%!20=44
�menu%!24=0
�m%=menu%+4
�items%=0
��
�item$=�next(data$)
�� item$<>"" �
�
m%+=24
�
items%+=1
�� �op(">") �
�win$=�next(data$)
�� win$="" � �
�win%=�(win$)
�

win%=0
�
$	!m%=0
.
m%!4=win%
8m%!8=7<<24 � %11001
B%� �op("/") � !m%=!m% � 1:tick%=m%
L� �op("-") � !m%=!m% � 2
V� �op("!") �
`m%!12=�(item$)
jm%!16=-1
tc%=�(�next(data$))
~� c%-1>max% � max%=c%-1
�m%!20=c%
�!m%=!m% � 4
�m%!8=m%!8 � 2^8
��
�$(m%+12)=item$
��
��
�!m%=!m% � &80
��
�#� �(item$)>max% � max%=�(item$)
�� item$=""
�menu%!16=max%*16+16
�

:

� �op(c$)
f%=�
(� �item$,1)=c$ �
2f%=�
<item$=�item$,�item$-1)
F�
P=f%
Z:
d� �next(� data$)
n� data$>"" �
xst$=�data$,�data$,",")-1)
�data$=�data$,�st$+2)
��
�
st$=""
��
�=st$
�:
�+� �click(mx%,my%,button%,window%,icon%)
�Ȏ window% �
�� -2:Ȏ button% �
�� 4:�crwindow(main%)
�2� 2:�openmenu(iconmenu%,mx%,100+44*iconitems%)
��
�� main%:Ȏ button% �
 � 2:�openmenu(menu%,mx%,my%)
!� 4:� score%<500 � Ȏ icon% �
� 2:�move(1,0)
"� 1:�move(-1,0)
,� 4:�move(0,1)
6� 5:�move(0,-1)
@�
J�
T�
^�
h:
r� �move(if%,ia%)
|
� if%=0 �
�pd%=(pd%+ia%)�3
��redraw
��map
��
�� moves%=0 �
�� 7
��
�0� wall%(px%+ix%(pd%)*if%,py%+iy%(pd%)*if%) �
�	�ouch
��
�px%+=ix%(pd%)*if%
�py%+=iy%(pd%)*if%
�
moves%-=1
�redraw
�map
� cred%=1 � creds%
&'� cx%(cred%)=px% � cy%(cred%)=py% �
0cx%(cred%)=0
:)� cred%>5 � moves%+=100 � score%+=100
D�redraw
N�
X� cred%
b�
l�
v�
��
�:
�� �ouch
�� 7
��
�:
�� �openmenu(data%,mx%,my%)
�open%=window%
�3ș"Wimp_CreateMenu",,data%,mx%-(menu%!16)/2,my%
��
�:
�� �crwindow(window%)
�!q%=window%
ș"Wimp_GetWindowState",,q%
q%!28=-1
ș"Wimp_OpenWindow",,q%
 �
*:
4� �load_template(window$)
>maxws%=&200
H� ws% maxws%
Rwsend%=ws%+maxws%
\;ș"Wimp_LoadTemplate",,q%,ws%,wsend%,-1,window$,0 � ws%
f'ș"Wimp_CreateWindow",,q% � window%
p=window%
z:
�
� �redraw
�ș"Hourglass_On"
�dep%=-1
�7ș"OS_SpriteOp",60+256,sprite%,"view" � r0,r1,r2,r3
�� 128+7
��
�	� 0,8
�ȓ Ȑ 0,0,510,252
��
�dep%+=1
�� dir%=-1 � 1 � 2
�r1%=(6-dep%)^3*1.2
�r2%=(5-dep%)^3*1.2
	V� wall%(px%+ix%(pd%)*dep%+ix%((pd%+dir%)�3),py%+iy%(pd%)*dep%+iy%((pd%+dir%)�3)) �
	F�block(r1%*dir%,-r1%,r1%*dir%,r1%,r2%*dir%,r2%,r2%*dir%,-r2%,dep%)
	�
	$F�block(r1%*dir%,-r2%,r1%*dir%,r2%,r2%*dir%,r2%,r2%*dir%,-r2%,dep%)
	.�
	8
� dir%
	B� cred%=1 � creds%
	LC� cx%(cred%)=px%+ix%(pd%)*dep% � cy%(cred%)=py%+iy%(pd%)*dep% �
	V>�block(-r1%,-r1%,r1%,-r1%,r2%,-r2%,-r2%,-r2%,11-(cred%>5))
	`�
	j� cred%
	tA� wall%(px%+ix%(pd%)*(dep%+1),py%+iy%(pd%)*(dep%+1)) � dep%=5
	~4�block(-r2%,-r2%,-r2%,r2%,r2%,r2%,r2%,-r2%,dep%)
	�ș"OS_SpriteOp",r0,r1,r2,r3
	�1�set_icon(main%,view%,�get_icon(main%,view%))
	�+�set_icon(main%,0,"Moves - "+�(moves%))
	�+�set_icon(main%,3,"Score - "+�(score%))
	�ș"Hourglass_Off"
	��
	�:
	�2� �block(x1%,y1%,x2%,y2%,x3%,y3%,x4%,y4%,col%)
	�� 0,col%
	�ȑ 256,256
	�
� x1%,y1%
	�
� x2%,y2%
� 85,x3%,y3%


� x4%,y4%
� 85,x1%,y1%
�
(:
2
� �st(p%)
<inc%=p%
F� s$
P	s$=""
Z
ȕ ?p%>31
ds$+=�(?p%)
n	p%+=1
x�
�inc%=(p%-inc%)+1
�=s$
�:
�� �close(window%)
�!q%=window%
�ș"Wimp_CloseWindow",,q%
��
�:
�B� �create_icon(name$,window%,x%,y%,w%,h%,flags%,handle%,name%)
�len%=�name$
�!q%=window%
�q%!4=x%
�q%!8=y%
q%!12=x%+w%
q%!16=y%+h%
q%!20=flags%
"*� name%=� � � q%!24 len% � q%!24=name%
,$(q%!24)=name$
6q%!28=handle%
@q%!32=len%
J#ș"Wimp_CreateIcon",,q% � icon%
T
=icon%
^:
h� �info(window%)
r!q%=window%
|ș"Wimp_GetWindowInfo",,q%
�height%=q%!16-q%!8
�width%=q%!12-q%!4
��
�:
�� �get_icon(window%,icon%)
�!q%=window%
�q%!4=icon%
�ș"Wimp_GetIconState",,q%
�=$q%!28
�:
�$� �set_icon(window%,icon%,name$)
�"temp$=�get_icon(window%,icon%)
�$q%!28=name$

q%!8=0
q%!12=0
ș"Wimp_SetIconState",,q%
&�
0:
:� �warn(text$)
Dș"Wimp_DragBox",,0
N	!q%=0
X$(q%+4)=text$+�0
b&ș"Wimp_ReportError",q%,1,program$
l�
v:
�� �check(text$)
�ș"Wimp_DragBox",,0
�	!q%=0
�$(q%+4)=text$+�0
�Bș"Wimp_ReportError",q%,19,"Message from "+program$ � ,answer%
�� answer%=1 � =� � =�
�:
�� �open(window%)
�!q%=window%
�ș"Wimp_GetWindowState",,q%
�q%!28=-1
�ș"Wimp_OpenWindow",,q%
��

:

� �createmaze

A=�(-�)

 L%=(ms%/2)^2

*� x%=0 � ms%

4wall%(x%,0)=�

>wall%(x%,ms%)=�

Hwall%(0,x%)=�

Rwall%(ms%,x%)=�

\� x%

fx%=�(ms%/2)*2-1

py%=�(ms%/2)*2-1

z
px%=x%

�
py%=y%

�wall%(x%,y%)=�

�dx%(L%)=x%

�dy%(L%)=y%

�	D%=L%

��

��

�
f%()=0

��

�dir%=�(4)-1

�f%(dir%)=1

�X%=(x%+ix%(dir%)*2)

�Y%=(y%+iy%(dir%)*2)
<� X%<0 � Y%<0 � X%>ms% � Y%>ms% � C%=� � C%=wall%(X%,Y%)
� C%=� � Ǝ(f%())=4
� C%=� �
$wall%(X%,Y%)=�
.&wall%(X%-ix%(dir%),Y%-iy%(dir%))=�
8	L%-=1
Bdx%(L%)=X%
Ldy%(L%)=Y%
V	x%=X%
`	y%=Y%
j�
t
� C%=�
~	D%-=1
�x%=dx%(D%)
�y%=dy%(D%)
�
� L%=1
�� x%=1 � ms%-1
�� y%=1 � ms%-1
� wall%(x%,y%)=�(wall%(x%,y%))
�� y%
�� x%
�� del%=1 � 20
�rnd%=�(2)-1
�4wall%(�(ms%/2-1)*2+rnd%,�(ms%/2-1)*2+(1-rnd%))=�
�
� del%
�

:
	� �dm
� x%=0 � ms%
(�
2� y%=0 � ms%
<�"";-wall%(x%,y%);
F� y%
P� x%
Z�
d:
n
� �map
x6ș"OS_SpriteOp",60+256,sprite%,"map" � r0,r1,r2,r3
�� opx%>0 �
��triangle(opd%,opx%,opy%)
�	� 0,8
�#� px%*12,py%*12,opx%*12,opy%*12
��
�	� 128
��
��
��triangle(pd%,px%,py%)
�opx%=px%
�opy%=py%
�opd%=pd%
�ș"OS_SpriteOp",r0,r1,r2,r3
/�set_icon(main%,map%,�get_icon(main%,map%))
�
:
"� �triangle(d%,x%,y%)
,
� 3,11
6%� x%*12+ix%(d%)*8,y%*12+iy%(d%)*8
@1� x%*12+ix%((d%+1)�3)*8,y%*12+iy%((d%+1)�3)*8
J4� 85,x%*12+ix%((d%-1)�3)*8,y%*12+iy%((d%-1)�3)*8
T�
�

00000000  0d 00 0a 1a f4 20 3e 24  2e 21 33 44 4d 41 5a 45  |..... >$.!3DMAZE|
00000010  2e 21 52 75 6e 49 6d 61  67 65 0d 00 14 20 f4 20  |.!RunImage... . |
00000020  42 79 20 42 2e 57 69 63  6b 65 74 74 20 44 65 63  |By B.Wickett Dec|
00000030  65 6d 62 65 72 20 31 39  39 30 0d 00 1e 1c f4 20  |ember 1990..... |
00000040  4d 61 7a 65 20 61 64 76  65 6e 74 75 72 65 20 70  |Maze adventure p|
00000050  72 6f 67 72 61 6d 0d 00  28 05 3a 0d 00 32 09 f2  |rogram..(.:..2..|
00000060  69 6e 69 74 0d 00 3c 0e  ee 20 85 20 f2 65 72 72  |init..<.. . .err|
00000070  6f 72 0d 00 46 05 f5 0d  00 5a 31 c8 99 22 57 69  |or..F....Z1.."Wi|
00000080  6d 70 5f 50 6f 6c 6c 22  2c 25 31 31 31 31 31 31  |mp_Poll",%111111|
00000090  31 30 31 31 30 31 31 30  30 31 31 2c 71 25 20 b8  |10110110011,q% .|
000000a0  20 72 65 61 73 6f 6e 25  0d 00 64 10 c8 8e 20 72  | reason%..d... r|
000000b0  65 61 73 6f 6e 25 20 ca  0d 00 6e 0d c9 20 32 3a  |eason% ...n.. 2:|
000000c0  f2 6f 70 65 6e 0d 00 78  13 c9 20 33 3a f2 63 6c  |.open..x.. 3:.cl|
000000d0  6f 73 65 28 21 71 25 29  0d 00 82 29 c9 20 36 3a  |ose(!q%)...). 6:|
000000e0  f2 63 6c 69 63 6b 28 21  71 25 2c 71 25 21 34 2c  |.click(!q%,q%!4,|
000000f0  71 25 21 38 2c 71 25 21  31 32 2c 71 25 21 31 36  |q%!8,q%!12,q%!16|
00000100  29 0d 00 8c 18 c9 20 39  3a f2 73 65 6c 65 63 74  |)..... 9:.select|
00000110  6d 65 6e 75 28 21 71 25  29 0d 00 96 1e c9 20 31  |menu(!q%)..... 1|
00000120  37 2c 31 38 3a e7 20 71  25 21 31 36 3d 30 20 8c  |7,18:. q%!16=0 .|
00000130  20 65 6e 64 25 3d b9 0d  00 a0 05 cb 0d 00 aa 0a  | end%=..........|
00000140  fd 20 65 6e 64 25 0d 00  b4 25 c8 99 22 57 69 6d  |. end%...%.."Wim|
00000150  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 2c 6d 79 74  |p_CloseDown",myt|
00000160  61 73 6b 25 2c 21 74 61  73 6b 25 0d 00 be 05 e0  |ask%,!task%.....|
00000170  0d 00 c8 05 3a 0d 00 d2  0c dd 20 f2 65 72 72 6f  |....:..... .erro|
00000180  72 0d 00 dc 17 c8 99 22  48 6f 75 72 67 6c 61 73  |r......"Hourglas|
00000190  73 5f 53 6d 61 73 68 22  0d 00 e6 40 e7 20 a4 63  |s_Smash"...@. .c|
000001a0  68 65 63 6b 28 f6 24 2b  22 2c 20 45 58 49 54 3f  |heck(.$+", EXIT?|
000001b0  22 29 20 8c 20 c8 99 22  57 69 6d 70 5f 43 6c 6f  |") . .."Wimp_Clo|
000001c0  73 65 44 6f 77 6e 22 2c  6d 79 74 61 73 6b 25 2c  |seDown",mytask%,|
000001d0  21 74 61 73 6b 25 3a e0  0d 00 f0 05 e1 0d 00 fa  |!task%:.........|
000001e0  05 3a 0d 01 04 0b dd 20  f2 6f 70 65 6e 0d 01 0e  |.:..... .open...|
000001f0  1b c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |..."Wimp_OpenWin|
00000200  64 6f 77 22 2c 2c 71 25  0d 01 18 05 e1 0d 01 22  |dow",,q%......."|
00000210  05 3a 0d 01 2c 0e dd 20  f2 72 65 73 74 61 72 74  |.:..,.. .restart|
00000220  0d 01 36 14 c8 99 22 48  6f 75 72 67 6c 61 73 73  |..6..."Hourglass|
00000230  5f 4f 6e 22 0d 01 40 16  70 64 25 3d b3 28 34 29  |_On"..@.pd%=.(4)|
00000240  2d 31 3a 6f 70 78 25 3d  2d 31 0d 01 4a 0d 77 61  |-1:opx%=-1..J.wa|
00000250  6c 6c 25 28 29 3d 30 0d  01 54 17 6d 6f 76 65 73  |ll%()=0..T.moves|
00000260  25 3d 33 30 30 3a 73 63  6f 72 65 25 3d 30 0d 01  |%=300:score%=0..|
00000270  5e 16 e3 20 63 72 65 64  25 3d 31 20 b8 20 63 72  |^.. cred%=1 . cr|
00000280  65 64 73 25 0d 01 68 1b  63 78 25 28 63 72 65 64  |eds%..h.cx%(cred|
00000290  25 29 3d b3 28 6d 73 25  2f 32 29 2a 32 2d 31 0d  |%)=.(ms%/2)*2-1.|
000002a0  01 72 1b 63 79 25 28 63  72 65 64 25 29 3d b3 28  |.r.cy%(cred%)=.(|
000002b0  6d 73 25 2f 32 29 2a 32  2d 31 0d 01 7c 0b ed 20  |ms%/2)*2-1..|.. |
000002c0  63 72 65 64 25 0d 01 86  0f f2 63 72 65 61 74 65  |cred%.....create|
000002d0  6d 61 7a 65 0d 01 90 0b  f2 72 65 64 72 61 77 0d  |maze.....redraw.|
000002e0  01 9a 08 f2 6d 61 70 0d  01 a4 15 c8 99 22 48 6f  |....map......"Ho|
000002f0  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 01 ae 05  |urglass_Off"....|
00000300  e1 0d 01 b8 05 3a 0d 01  c2 0b dd 20 f2 69 6e 69  |.....:..... .ini|
00000310  74 0d 01 cc 20 70 72 6f  67 72 61 6d 24 3d 22 33  |t... program$="3|
00000320  44 2d 4d 61 7a 65 20 41  64 76 65 6e 74 75 72 65  |D-Maze Adventure|
00000330  22 0d 01 d6 1b de 20 74  61 73 6b 25 20 38 3a 24  |"..... task% 8:$|
00000340  74 61 73 6b 25 3d 22 54  41 53 4b 22 0d 01 e0 36  |task%="TASK"...6|
00000350  c8 99 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |.."Wimp_Initiali|
00000360  73 65 22 2c 32 30 30 2c  21 74 61 73 6b 25 2c 70  |se",200,!task%,p|
00000370  72 6f 67 72 61 6d 24 20  b8 20 2c 6d 79 74 61 73  |rogram$ . ,mytas|
00000380  6b 25 0d 01 ea 16 64 69  72 24 3d 22 3c 4d 61 7a  |k%....dir$="<Maz|
00000390  65 24 44 69 72 3e 2e 22  0d 01 f4 14 6d 73 25 3d  |e$Dir>."....ms%=|
000003a0  33 32 3a 63 72 65 64 73  25 3d 31 30 0d 01 fe 2e  |32:creds%=10....|
000003b0  6c 6f 63 61 74 69 6f 6e  73 25 3d 28 6d 73 25 2d  |locations%=(ms%-|
000003c0  31 29 5e 32 3a 65 6e 64  25 3d a3 3a 73 73 69 7a  |1)^2:end%=.:ssiz|
000003d0  65 25 3d 34 30 2a 31 30  32 34 0d 02 08 27 de 20  |e%=40*1024...'. |
000003e0  71 25 20 31 30 30 30 2c  69 63 6f 6e 6d 65 6e 75  |q% 1000,iconmenu|
000003f0  25 20 26 31 30 30 2c 6d  65 6e 75 25 20 26 31 30  |% &100,menu% &10|
00000400  30 0d 02 12 6f de 20 73  70 72 69 74 65 25 20 73  |0...o. sprite% s|
00000410  73 69 7a 65 25 2c 77 61  6c 6c 25 28 6d 73 25 2c  |size%,wall%(ms%,|
00000420  6d 73 25 29 2c 69 78 25  28 33 29 2c 69 79 25 28  |ms%),ix%(3),iy%(|
00000430  33 29 2c 64 78 25 28 6c  6f 63 61 74 69 6f 6e 73  |3),dx%(locations|
00000440  25 29 2c 64 79 25 28 6c  6f 63 61 74 69 6f 6e 73  |%),dy%(locations|
00000450  25 29 2c 66 25 28 33 29  2c 63 78 25 28 63 72 65  |%),f%(3),cx%(cre|
00000460  64 73 25 29 2c 63 79 25  28 63 72 65 64 73 25 29  |ds%),cy%(creds%)|
00000470  0d 02 1c 10 e3 20 64 69  72 25 3d 30 20 b8 20 33  |..... dir%=0 . 3|
00000480  0d 02 26 19 f3 20 69 78  25 28 64 69 72 25 29 2c  |..&.. ix%(dir%),|
00000490  69 79 25 28 64 69 72 25  29 0d 02 30 0a ed 20 64  |iy%(dir%)..0.. d|
000004a0  69 72 25 0d 02 3a 17 dc  20 30 2c 31 2c 31 2c 30  |ir%..:.. 0,1,1,0|
000004b0  2c 30 2c 2d 31 2c 2d 31  2c 30 0d 02 44 13 21 73  |,0,-1,-1,0..D.!s|
000004c0  70 72 69 74 65 25 3d 73  73 69 7a 65 25 0d 02 4e  |prite%=ssize%..N|
000004d0  0f 73 70 72 69 74 65 25  21 34 3d 30 0d 02 58 10  |.sprite%!4=0..X.|
000004e0  73 70 72 69 74 65 25 21  38 3d 31 36 0d 02 62 11  |sprite%!8=16..b.|
000004f0  73 70 72 69 74 65 25 21  31 32 3d 31 36 0d 02 6c  |sprite%!12=16..l|
00000500  36 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |6.."OS_SpriteOp"|
00000510  2c 31 35 2b 32 35 36 2c  73 70 72 69 74 65 25 2c  |,15+256,sprite%,|
00000520  22 76 69 65 77 22 2c 30  2c 32 35 36 2c 31 32 38  |"view",0,256,128|
00000530  2c 31 32 0d 02 76 34 c8  99 22 4f 53 5f 53 70 72  |,12..v4.."OS_Spr|
00000540  69 74 65 4f 70 22 2c 31  35 2b 32 35 36 2c 73 70  |iteOp",15+256,sp|
00000550  72 69 74 65 25 2c 22 6d  61 70 22 2c 30 2c 31 39  |rite%,"map",0,19|
00000560  32 2c 39 36 2c 31 32 0d  02 80 2b c8 99 22 57 69  |2,96,12...+.."Wi|
00000570  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000580  2c 2c 64 69 72 24 2b 22  54 65 6d 70 6c 61 74 65  |,,dir$+"Template|
00000590  73 22 0d 02 8a 20 69 6e  66 6f 25 3d a4 6c 6f 61  |s"... info%=.loa|
000005a0  64 5f 74 65 6d 70 6c 61  74 65 28 22 69 6e 66 6f  |d_template("info|
000005b0  22 29 0d 02 94 20 6d 61  69 6e 25 3d a4 6c 6f 61  |")... main%=.loa|
000005c0  64 5f 74 65 6d 70 6c 61  74 65 28 22 6d 61 69 6e  |d_template("main|
000005d0  22 29 0d 02 9e 1a c8 99  22 57 69 6d 70 5f 43 6c  |")......"Wimp_Cl|
000005e0  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 02 a8 44  |oseTemplate"...D|
000005f0  76 69 65 77 25 3d a4 63  72 65 61 74 65 5f 69 63  |view%=.create_ic|
00000600  6f 6e 28 22 76 69 65 77  22 2c 6d 61 69 6e 25 2c  |on("view",main%,|
00000610  31 36 2c 2d 35 32 38 2c  35 31 32 2c 35 31 32 2c  |16,-528,512,512,|
00000620  26 32 31 30 32 2c 73 70  72 69 74 65 25 2c 30 29  |&2102,sprite%,0)|
00000630  0d 02 b2 43 6d 61 70 25  3d a4 63 72 65 61 74 65  |...Cmap%=.create|
00000640  5f 69 63 6f 6e 28 22 6d  61 70 22 2c 6d 61 69 6e  |_icon("map",main|
00000650  25 2c 35 34 34 2c 2d 34  30 30 2c 33 38 34 2c 33  |%,544,-400,384,3|
00000660  38 34 2c 26 32 31 30 32  2c 73 70 72 69 74 65 25  |84,&2102,sprite%|
00000670  2c 30 29 0d 02 bc 3a 6d  79 69 63 6f 6e 25 3d a4  |,0)...:myicon%=.|
00000680  63 72 65 61 74 65 5f 69  63 6f 6e 28 22 21 33 44  |create_icon("!3D|
00000690  4d 41 5a 45 22 2c 2d 31  2c 30 2c 30 2c 36 38 2c  |MAZE",-1,0,0,68,|
000006a0  36 38 2c 26 32 31 30 32  2c 31 2c 30 29 0d 02 c6  |68,&2102,1,0)...|
000006b0  2b f2 73 65 74 5f 69 63  6f 6e 28 69 6e 66 6f 25  |+.set_icon(info%|
000006c0  2c 30 2c 22 31 2e 30 32  2c 20 7b 31 20 4a 61 6e  |,0,"1.02, {1 Jan|
000006d0  20 31 39 39 31 7d 22 29  0d 02 d0 32 f2 63 72 6d  | 1991}")...2.crm|
000006e0  65 6e 75 28 69 63 6f 6e  6d 65 6e 75 25 2c 22 33  |enu(iconmenu%,"3|
000006f0  44 2d 4d 61 7a 65 2c 49  6e 66 6f 2d 3e 2c 69 6e  |D-Maze,Info->,in|
00000700  66 6f 25 2c 51 75 69 74  22 29 0d 02 da 15 69 63  |fo%,Quit")....ic|
00000710  6f 6e 69 74 65 6d 73 25  3d 69 74 65 6d 73 25 0d  |onitems%=items%.|
00000720  02 e4 33 f2 63 72 6d 65  6e 75 28 6d 65 6e 75 25  |..3.crmenu(menu%|
00000730  2c 22 41 64 76 65 6e 74  75 72 65 2c 49 6e 66 6f  |,"Adventure,Info|
00000740  2d 3e 2c 69 6e 66 6f 25  2c 52 65 73 74 61 72 74  |->,info%,Restart|
00000750  22 29 0d 02 ee 0c f2 72  65 73 74 61 72 74 0d 02  |").....restart..|
00000760  f8 05 e1 0d 03 02 05 3a  0d 03 0c 18 dd 20 f2 73  |.......:..... .s|
00000770  65 6c 65 63 74 6d 65 6e  75 28 69 74 65 6d 25 29  |electmenu(item%)|
00000780  0d 03 16 1b c8 99 22 57  69 6d 70 5f 43 72 65 61  |......"Wimp_Crea|
00000790  74 65 4d 65 6e 75 22 2c  2c 2d 31 0d 03 20 21 e7  |teMenu",,-1.. !.|
000007a0  20 6f 70 65 6e 25 3d 2d  32 20 80 20 69 74 65 6d  | open%=-2 . item|
000007b0  25 3d 31 20 8c 20 65 6e  64 25 3d b9 0d 03 2a 26  |%=1 . end%=...*&|
000007c0  e7 20 6f 70 65 6e 25 3d  6d 61 69 6e 25 20 80 20  |. open%=main% . |
000007d0  69 74 65 6d 25 3d 31 20  8c 20 f2 72 65 73 74 61  |item%=1 . .resta|
000007e0  72 74 0d 03 34 05 e1 0d  03 3e 05 3a 0d 03 48 1a  |rt..4....>.:..H.|
000007f0  dd 20 f2 63 72 6d 65 6e  75 28 6d 65 6e 75 25 2c  |. .crmenu(menu%,|
00000800  64 61 74 61 24 29 0d 03  52 0e 64 61 74 61 24 2b  |data$)..R.data$+|
00000810  3d 22 2c 22 0d 03 5c 17  74 69 74 6c 65 24 3d a4  |=","..\.title$=.|
00000820  6e 65 78 74 28 64 61 74  61 24 29 0d 03 66 12 6d  |next(data$)..f.m|
00000830  61 78 25 3d a9 74 69 74  6c 65 24 2d 32 0d 03 70  |ax%=.title$-2..p|
00000840  11 24 6d 65 6e 75 25 3d  74 69 74 6c 65 24 0d 03  |.$menu%=title$..|
00000850  7a 13 6d 65 6e 75 25 21  31 32 3d 26 37 30 32 30  |z.menu%!12=&7020|
00000860  37 0d 03 84 0f 6d 65 6e  75 25 21 32 30 3d 34 34  |7....menu%!20=44|
00000870  0d 03 8e 0e 6d 65 6e 75  25 21 32 34 3d 30 0d 03  |....menu%!24=0..|
00000880  98 0e 6d 25 3d 6d 65 6e  75 25 2b 34 0d 03 a2 0c  |..m%=menu%+4....|
00000890  69 74 65 6d 73 25 3d 30  0d 03 ac 05 f5 0d 03 b6  |items%=0........|
000008a0  16 69 74 65 6d 24 3d a4  6e 65 78 74 28 64 61 74  |.item$=.next(dat|
000008b0  61 24 29 0d 03 c0 11 e7  20 69 74 65 6d 24 3c 3e  |a$)..... item$<>|
000008c0  22 22 20 8c 0d 03 ca 0a  6d 25 2b 3d 32 34 0d 03  |"" .....m%+=24..|
000008d0  d4 0d 69 74 65 6d 73 25  2b 3d 31 0d 03 de 10 e7  |..items%+=1.....|
000008e0  20 a4 6f 70 28 22 3e 22  29 20 8c 0d 03 e8 15 77  | .op(">") .....w|
000008f0  69 6e 24 3d a4 6e 65 78  74 28 64 61 74 61 24 29  |in$=.next(data$)|
00000900  0d 03 f2 11 e7 20 77 69  6e 24 3d 22 22 20 8c 20  |..... win$="" . |
00000910  e0 0d 03 fc 10 77 69 6e  25 3d a0 28 77 69 6e 24  |.....win%=.(win$|
00000920  29 0d 04 06 05 cc 0d 04  10 0a 77 69 6e 25 3d 30  |).........win%=0|
00000930  0d 04 1a 05 cd 0d 04 24  09 21 6d 25 3d 30 0d 04  |.......$.!m%=0..|
00000940  2e 0d 6d 25 21 34 3d 77  69 6e 25 0d 04 38 17 6d  |..m%!4=win%..8.m|
00000950  25 21 38 3d 37 3c 3c 32  34 20 84 20 25 31 31 30  |%!8=7<<24 . %110|
00000960  30 31 0d 04 42 25 e7 20  a4 6f 70 28 22 2f 22 29  |01..B%. .op("/")|
00000970  20 8c 20 21 6d 25 3d 21  6d 25 20 84 20 31 3a 74  | . !m%=!m% . 1:t|
00000980  69 63 6b 25 3d 6d 25 0d  04 4c 1c e7 20 a4 6f 70  |ick%=m%..L.. .op|
00000990  28 22 2d 22 29 20 8c 20  21 6d 25 3d 21 6d 25 20  |("-") . !m%=!m% |
000009a0  84 20 32 0d 04 56 10 e7  20 a4 6f 70 28 22 21 22  |. 2..V.. .op("!"|
000009b0  29 20 8c 0d 04 60 12 6d  25 21 31 32 3d a0 28 69  |) ...`.m%!12=.(i|
000009c0  74 65 6d 24 29 0d 04 6a  0c 6d 25 21 31 36 3d 2d  |tem$)..j.m%!16=-|
000009d0  31 0d 04 74 16 63 25 3d  bb 28 a4 6e 65 78 74 28  |1..t.c%=.(.next(|
000009e0  64 61 74 61 24 29 29 0d  04 7e 1b e7 20 63 25 2d  |data$))..~.. c%-|
000009f0  31 3e 6d 61 78 25 20 8c  20 6d 61 78 25 3d 63 25  |1>max% . max%=c%|
00000a00  2d 31 0d 04 88 0c 6d 25  21 32 30 3d 63 25 0d 04  |-1....m%!20=c%..|
00000a10  92 0f 21 6d 25 3d 21 6d  25 20 84 20 34 0d 04 9c  |..!m%=!m% . 4...|
00000a20  13 6d 25 21 38 3d 6d 25  21 38 20 84 20 32 5e 38  |.m%!8=m%!8 . 2^8|
00000a30  0d 04 a6 05 cc 0d 04 b0  12 24 28 6d 25 2b 31 32  |.........$(m%+12|
00000a40  29 3d 69 74 65 6d 24 0d  04 ba 05 cd 0d 04 c4 05  |)=item$.........|
00000a50  cc 0d 04 ce 11 21 6d 25  3d 21 6d 25 20 84 20 26  |.....!m%=!m% . &|
00000a60  38 30 0d 04 d8 05 cd 0d  04 e2 23 e7 20 a9 28 69  |80........#. .(i|
00000a70  74 65 6d 24 29 3e 6d 61  78 25 20 8c 20 6d 61 78  |tem$)>max% . max|
00000a80  25 3d a9 28 69 74 65 6d  24 29 0d 04 ec 0e fd 20  |%=.(item$)..... |
00000a90  69 74 65 6d 24 3d 22 22  0d 04 f6 17 6d 65 6e 75  |item$=""....menu|
00000aa0  25 21 31 36 3d 6d 61 78  25 2a 31 36 2b 31 36 0d  |%!16=max%*16+16.|
00000ab0  05 00 05 e1 0d 05 0a 05  3a 0d 05 14 0d dd 20 a4  |........:..... .|
00000ac0  6f 70 28 63 24 29 0d 05  1e 08 66 25 3d a3 0d 05  |op(c$)....f%=...|
00000ad0  28 14 e7 20 c2 69 74 65  6d 24 2c 31 29 3d 63 24  |(.. .item$,1)=c$|
00000ae0  20 8c 0d 05 32 08 66 25  3d b9 0d 05 3c 1a 69 74  | ...2.f%=...<.it|
00000af0  65 6d 24 3d c0 69 74 65  6d 24 2c a9 69 74 65 6d  |em$=.item$,.item|
00000b00  24 2d 31 29 0d 05 46 05  cd 0d 05 50 07 3d 66 25  |$-1)..F....P.=f%|
00000b10  0d 05 5a 05 3a 0d 05 64  14 dd 20 a4 6e 65 78 74  |..Z.:..d.. .next|
00000b20  28 f8 20 64 61 74 61 24  29 0d 05 6e 10 e7 20 64  |(. data$)..n.. d|
00000b30  61 74 61 24 3e 22 22 20  8c 0d 05 78 1d 73 74 24  |ata$>"" ...x.st$|
00000b40  3d c0 64 61 74 61 24 2c  a7 64 61 74 61 24 2c 22  |=.data$,.data$,"|
00000b50  2c 22 29 2d 31 29 0d 05  82 18 64 61 74 61 24 3d  |,")-1)....data$=|
00000b60  c1 64 61 74 61 24 2c a9  73 74 24 2b 32 29 0d 05  |.data$,.st$+2)..|
00000b70  8c 05 cc 0d 05 96 0a 73  74 24 3d 22 22 0d 05 a0  |.......st$=""...|
00000b80  05 cd 0d 05 aa 08 3d 73  74 24 0d 05 b4 05 3a 0d  |......=st$....:.|
00000b90  05 be 2b dd 20 f2 63 6c  69 63 6b 28 6d 78 25 2c  |..+. .click(mx%,|
00000ba0  6d 79 25 2c 62 75 74 74  6f 6e 25 2c 77 69 6e 64  |my%,button%,wind|
00000bb0  6f 77 25 2c 69 63 6f 6e  25 29 0d 05 c8 10 c8 8e  |ow%,icon%)......|
00000bc0  20 77 69 6e 64 6f 77 25  20 ca 0d 05 d2 15 c9 20  | window% ...... |
00000bd0  2d 32 3a c8 8e 20 62 75  74 74 6f 6e 25 20 ca 0d  |-2:.. button% ..|
00000be0  05 dc 18 c9 20 34 3a f2  63 72 77 69 6e 64 6f 77  |.... 4:.crwindow|
00000bf0  28 6d 61 69 6e 25 29 0d  05 e6 32 c9 20 32 3a f2  |(main%)...2. 2:.|
00000c00  6f 70 65 6e 6d 65 6e 75  28 69 63 6f 6e 6d 65 6e  |openmenu(iconmen|
00000c10  75 25 2c 6d 78 25 2c 31  30 30 2b 34 34 2a 69 63  |u%,mx%,100+44*ic|
00000c20  6f 6e 69 74 65 6d 73 25  29 0d 05 f0 05 cb 0d 05  |onitems%).......|
00000c30  fa 18 c9 20 6d 61 69 6e  25 3a c8 8e 20 62 75 74  |... main%:.. but|
00000c40  74 6f 6e 25 20 ca 0d 06  04 20 c9 20 32 3a f2 6f  |ton% .... . 2:.o|
00000c50  70 65 6e 6d 65 6e 75 28  6d 65 6e 75 25 2c 6d 78  |penmenu(menu%,mx|
00000c60  25 2c 6d 79 25 29 0d 06  0e 21 c9 20 34 3a e7 20  |%,my%)...!. 4:. |
00000c70  73 63 6f 72 65 25 3c 35  30 30 20 8c 20 c8 8e 20  |score%<500 . .. |
00000c80  69 63 6f 6e 25 20 ca 0d  06 18 12 c9 20 32 3a f2  |icon% ...... 2:.|
00000c90  6d 6f 76 65 28 31 2c 30  29 0d 06 22 13 c9 20 31  |move(1,0)..".. 1|
00000ca0  3a f2 6d 6f 76 65 28 2d  31 2c 30 29 0d 06 2c 12  |:.move(-1,0)..,.|
00000cb0  c9 20 34 3a f2 6d 6f 76  65 28 30 2c 31 29 0d 06  |. 4:.move(0,1)..|
00000cc0  36 13 c9 20 35 3a f2 6d  6f 76 65 28 30 2c 2d 31  |6.. 5:.move(0,-1|
00000cd0  29 0d 06 40 05 cb 0d 06  4a 05 cb 0d 06 54 05 cb  |)..@....J....T..|
00000ce0  0d 06 5e 05 e1 0d 06 68  05 3a 0d 06 72 14 dd 20  |..^....h.:..r.. |
00000cf0  f2 6d 6f 76 65 28 69 66  25 2c 69 61 25 29 0d 06  |.move(if%,ia%)..|
00000d00  7c 0d e7 20 69 66 25 3d  30 20 8c 0d 06 86 13 70  ||.. if%=0 .....p|
00000d10  64 25 3d 28 70 64 25 2b  69 61 25 29 80 33 0d 06  |d%=(pd%+ia%).3..|
00000d20  90 0b f2 72 65 64 72 61  77 0d 06 9a 08 f2 6d 61  |...redraw.....ma|
00000d30  70 0d 06 a4 05 cc 0d 06  ae 10 e7 20 6d 6f 76 65  |p.......... move|
00000d40  73 25 3d 30 20 8c 0d 06  b8 07 ef 20 37 0d 06 c2  |s%=0 ...... 7...|
00000d50  05 cc 0d 06 cc 30 e7 20  77 61 6c 6c 25 28 70 78  |.....0. wall%(px|
00000d60  25 2b 69 78 25 28 70 64  25 29 2a 69 66 25 2c 70  |%+ix%(pd%)*if%,p|
00000d70  79 25 2b 69 79 25 28 70  64 25 29 2a 69 66 25 29  |y%+iy%(pd%)*if%)|
00000d80  20 8c 0d 06 d6 09 f2 6f  75 63 68 0d 06 e0 05 cc  | ......ouch.....|
00000d90  0d 06 ea 15 70 78 25 2b  3d 69 78 25 28 70 64 25  |....px%+=ix%(pd%|
00000da0  29 2a 69 66 25 0d 06 f4  15 70 79 25 2b 3d 69 79  |)*if%....py%+=iy|
00000db0  25 28 70 64 25 29 2a 69  66 25 0d 06 fe 0d 6d 6f  |%(pd%)*if%....mo|
00000dc0  76 65 73 25 2d 3d 31 0d  07 08 0b f2 72 65 64 72  |ves%-=1.....redr|
00000dd0  61 77 0d 07 12 08 f2 6d  61 70 0d 07 1c 16 e3 20  |aw.....map..... |
00000de0  63 72 65 64 25 3d 31 20  b8 20 63 72 65 64 73 25  |cred%=1 . creds%|
00000df0  0d 07 26 27 e7 20 63 78  25 28 63 72 65 64 25 29  |..&'. cx%(cred%)|
00000e00  3d 70 78 25 20 80 20 63  79 25 28 63 72 65 64 25  |=px% . cy%(cred%|
00000e10  29 3d 70 79 25 20 8c 0d  07 30 10 63 78 25 28 63  |)=py% ...0.cx%(c|
00000e20  72 65 64 25 29 3d 30 0d  07 3a 29 e7 20 63 72 65  |red%)=0..:). cre|
00000e30  64 25 3e 35 20 8c 20 6d  6f 76 65 73 25 2b 3d 31  |d%>5 . moves%+=1|
00000e40  30 30 20 8b 20 73 63 6f  72 65 25 2b 3d 31 30 30  |00 . score%+=100|
00000e50  0d 07 44 0b f2 72 65 64  72 61 77 0d 07 4e 05 cd  |..D..redraw..N..|
00000e60  0d 07 58 0b ed 20 63 72  65 64 25 0d 07 62 05 cd  |..X.. cred%..b..|
00000e70  0d 07 6c 05 cd 0d 07 76  05 cd 0d 07 80 05 e1 0d  |..l....v........|
00000e80  07 8a 05 3a 0d 07 94 0b  dd 20 f2 6f 75 63 68 0d  |...:..... .ouch.|
00000e90  07 9e 07 ef 20 37 0d 07  a8 05 e1 0d 07 b2 05 3a  |.... 7.........:|
00000ea0  0d 07 bc 1e dd 20 f2 6f  70 65 6e 6d 65 6e 75 28  |..... .openmenu(|
00000eb0  64 61 74 61 25 2c 6d 78  25 2c 6d 79 25 29 0d 07  |data%,mx%,my%)..|
00000ec0  c6 11 6f 70 65 6e 25 3d  77 69 6e 64 6f 77 25 0d  |..open%=window%.|
00000ed0  07 d0 33 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..3.."Wimp_Creat|
00000ee0  65 4d 65 6e 75 22 2c 2c  64 61 74 61 25 2c 6d 78  |eMenu",,data%,mx|
00000ef0  25 2d 28 6d 65 6e 75 25  21 31 36 29 2f 32 2c 6d  |%-(menu%!16)/2,m|
00000f00  79 25 0d 07 da 05 e1 0d  07 e4 05 3a 0d 07 ee 18  |y%.........:....|
00000f10  dd 20 f2 63 72 77 69 6e  64 6f 77 28 77 69 6e 64  |. .crwindow(wind|
00000f20  6f 77 25 29 0d 07 f8 0f  21 71 25 3d 77 69 6e 64  |ow%)....!q%=wind|
00000f30  6f 77 25 0d 08 02 1f c8  99 22 57 69 6d 70 5f 47  |ow%......"Wimp_G|
00000f40  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00000f50  71 25 0d 08 0c 0c 71 25  21 32 38 3d 2d 31 0d 08  |q%....q%!28=-1..|
00000f60  16 1b c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |...."Wimp_OpenWi|
00000f70  6e 64 6f 77 22 2c 2c 71  25 0d 08 20 05 e1 0d 08  |ndow",,q%.. ....|
00000f80  2a 05 3a 0d 08 34 1d dd  20 a4 6c 6f 61 64 5f 74  |*.:..4.. .load_t|
00000f90  65 6d 70 6c 61 74 65 28  77 69 6e 64 6f 77 24 29  |emplate(window$)|
00000fa0  0d 08 3e 0f 6d 61 78 77  73 25 3d 26 32 30 30 0d  |..>.maxws%=&200.|
00000fb0  08 48 10 de 20 77 73 25  20 6d 61 78 77 73 25 0d  |.H.. ws% maxws%.|
00000fc0  08 52 15 77 73 65 6e 64  25 3d 77 73 25 2b 6d 61  |.R.wsend%=ws%+ma|
00000fd0  78 77 73 25 0d 08 5c 3b  c8 99 22 57 69 6d 70 5f  |xws%..\;.."Wimp_|
00000fe0  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 71  |LoadTemplate",,q|
00000ff0  25 2c 77 73 25 2c 77 73  65 6e 64 25 2c 2d 31 2c  |%,ws%,wsend%,-1,|
00001000  77 69 6e 64 6f 77 24 2c  30 20 b8 20 77 73 25 0d  |window$,0 . ws%.|
00001010  08 66 27 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |.f'.."Wimp_Creat|
00001020  65 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 77  |eWindow",,q% . w|
00001030  69 6e 64 6f 77 25 0d 08  70 0c 3d 77 69 6e 64 6f  |indow%..p.=windo|
00001040  77 25 0d 08 7a 05 3a 0d  08 84 0d dd 20 f2 72 65  |w%..z.:..... .re|
00001050  64 72 61 77 0d 08 8e 14  c8 99 22 48 6f 75 72 67  |draw......"Hourg|
00001060  6c 61 73 73 5f 4f 6e 22  0d 08 98 0b 64 65 70 25  |lass_On"....dep%|
00001070  3d 2d 31 0d 08 a2 37 c8  99 22 4f 53 5f 53 70 72  |=-1...7.."OS_Spr|
00001080  69 74 65 4f 70 22 2c 36  30 2b 32 35 36 2c 73 70  |iteOp",60+256,sp|
00001090  72 69 74 65 25 2c 22 76  69 65 77 22 20 b8 20 72  |rite%,"view" . r|
000010a0  30 2c 72 31 2c 72 32 2c  72 33 0d 08 ac 0b fb 20  |0,r1,r2,r3..... |
000010b0  31 32 38 2b 37 0d 08 b6  05 db 0d 08 c0 09 e6 20  |128+7.......... |
000010c0  30 2c 38 0d 08 ca 15 c8  93 20 c8 90 20 30 2c 30  |0,8...... .. 0,0|
000010d0  2c 35 31 30 2c 32 35 32  0d 08 d4 05 f5 0d 08 de  |,510,252........|
000010e0  0b 64 65 70 25 2b 3d 31  0d 08 e8 15 e3 20 64 69  |.dep%+=1..... di|
000010f0  72 25 3d 2d 31 20 b8 20  31 20 88 20 32 0d 08 f2  |r%=-1 . 1 . 2...|
00001100  16 72 31 25 3d 28 36 2d  64 65 70 25 29 5e 33 2a  |.r1%=(6-dep%)^3*|
00001110  31 2e 32 0d 08 fc 16 72  32 25 3d 28 35 2d 64 65  |1.2....r2%=(5-de|
00001120  70 25 29 5e 33 2a 31 2e  32 0d 09 06 56 e7 20 77  |p%)^3*1.2...V. w|
00001130  61 6c 6c 25 28 70 78 25  2b 69 78 25 28 70 64 25  |all%(px%+ix%(pd%|
00001140  29 2a 64 65 70 25 2b 69  78 25 28 28 70 64 25 2b  |)*dep%+ix%((pd%+|
00001150  64 69 72 25 29 80 33 29  2c 70 79 25 2b 69 79 25  |dir%).3),py%+iy%|
00001160  28 70 64 25 29 2a 64 65  70 25 2b 69 79 25 28 28  |(pd%)*dep%+iy%((|
00001170  70 64 25 2b 64 69 72 25  29 80 33 29 29 20 8c 0d  |pd%+dir%).3)) ..|
00001180  09 10 46 f2 62 6c 6f 63  6b 28 72 31 25 2a 64 69  |..F.block(r1%*di|
00001190  72 25 2c 2d 72 31 25 2c  72 31 25 2a 64 69 72 25  |r%,-r1%,r1%*dir%|
000011a0  2c 72 31 25 2c 72 32 25  2a 64 69 72 25 2c 72 32  |,r1%,r2%*dir%,r2|
000011b0  25 2c 72 32 25 2a 64 69  72 25 2c 2d 72 32 25 2c  |%,r2%*dir%,-r2%,|
000011c0  64 65 70 25 29 0d 09 1a  05 cc 0d 09 24 46 f2 62  |dep%).......$F.b|
000011d0  6c 6f 63 6b 28 72 31 25  2a 64 69 72 25 2c 2d 72  |lock(r1%*dir%,-r|
000011e0  32 25 2c 72 31 25 2a 64  69 72 25 2c 72 32 25 2c  |2%,r1%*dir%,r2%,|
000011f0  72 32 25 2a 64 69 72 25  2c 72 32 25 2c 72 32 25  |r2%*dir%,r2%,r2%|
00001200  2a 64 69 72 25 2c 2d 72  32 25 2c 64 65 70 25 29  |*dir%,-r2%,dep%)|
00001210  0d 09 2e 05 cd 0d 09 38  0a ed 20 64 69 72 25 0d  |.......8.. dir%.|
00001220  09 42 16 e3 20 63 72 65  64 25 3d 31 20 b8 20 63  |.B.. cred%=1 . c|
00001230  72 65 64 73 25 0d 09 4c  43 e7 20 63 78 25 28 63  |reds%..LC. cx%(c|
00001240  72 65 64 25 29 3d 70 78  25 2b 69 78 25 28 70 64  |red%)=px%+ix%(pd|
00001250  25 29 2a 64 65 70 25 20  80 20 63 79 25 28 63 72  |%)*dep% . cy%(cr|
00001260  65 64 25 29 3d 70 79 25  2b 69 79 25 28 70 64 25  |ed%)=py%+iy%(pd%|
00001270  29 2a 64 65 70 25 20 8c  0d 09 56 3e f2 62 6c 6f  |)*dep% ...V>.blo|
00001280  63 6b 28 2d 72 31 25 2c  2d 72 31 25 2c 72 31 25  |ck(-r1%,-r1%,r1%|
00001290  2c 2d 72 31 25 2c 72 32  25 2c 2d 72 32 25 2c 2d  |,-r1%,r2%,-r2%,-|
000012a0  72 32 25 2c 2d 72 32 25  2c 31 31 2d 28 63 72 65  |r2%,-r2%,11-(cre|
000012b0  64 25 3e 35 29 29 0d 09  60 05 cd 0d 09 6a 0b ed  |d%>5))..`....j..|
000012c0  20 63 72 65 64 25 0d 09  74 41 fd 20 77 61 6c 6c  | cred%..tA. wall|
000012d0  25 28 70 78 25 2b 69 78  25 28 70 64 25 29 2a 28  |%(px%+ix%(pd%)*(|
000012e0  64 65 70 25 2b 31 29 2c  70 79 25 2b 69 79 25 28  |dep%+1),py%+iy%(|
000012f0  70 64 25 29 2a 28 64 65  70 25 2b 31 29 29 20 84  |pd%)*(dep%+1)) .|
00001300  20 64 65 70 25 3d 35 0d  09 7e 34 f2 62 6c 6f 63  | dep%=5..~4.bloc|
00001310  6b 28 2d 72 32 25 2c 2d  72 32 25 2c 2d 72 32 25  |k(-r2%,-r2%,-r2%|
00001320  2c 72 32 25 2c 72 32 25  2c 72 32 25 2c 72 32 25  |,r2%,r2%,r2%,r2%|
00001330  2c 2d 72 32 25 2c 64 65  70 25 29 0d 09 88 1f c8  |,-r2%,dep%).....|
00001340  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 72  |."OS_SpriteOp",r|
00001350  30 2c 72 31 2c 72 32 2c  72 33 0d 09 92 31 f2 73  |0,r1,r2,r3...1.s|
00001360  65 74 5f 69 63 6f 6e 28  6d 61 69 6e 25 2c 76 69  |et_icon(main%,vi|
00001370  65 77 25 2c a4 67 65 74  5f 69 63 6f 6e 28 6d 61  |ew%,.get_icon(ma|
00001380  69 6e 25 2c 76 69 65 77  25 29 29 0d 09 9c 2b f2  |in%,view%))...+.|
00001390  73 65 74 5f 69 63 6f 6e  28 6d 61 69 6e 25 2c 30  |set_icon(main%,0|
000013a0  2c 22 4d 6f 76 65 73 20  2d 20 22 2b c3 28 6d 6f  |,"Moves - "+.(mo|
000013b0  76 65 73 25 29 29 0d 09  a6 2b f2 73 65 74 5f 69  |ves%))...+.set_i|
000013c0  63 6f 6e 28 6d 61 69 6e  25 2c 33 2c 22 53 63 6f  |con(main%,3,"Sco|
000013d0  72 65 20 2d 20 22 2b c3  28 73 63 6f 72 65 25 29  |re - "+.(score%)|
000013e0  29 0d 09 b0 15 c8 99 22  48 6f 75 72 67 6c 61 73  |)......"Hourglas|
000013f0  73 5f 4f 66 66 22 0d 09  ba 05 e1 0d 09 c4 05 3a  |s_Off".........:|
00001400  0d 09 ce 32 dd 20 f2 62  6c 6f 63 6b 28 78 31 25  |...2. .block(x1%|
00001410  2c 79 31 25 2c 78 32 25  2c 79 32 25 2c 78 33 25  |,y1%,x2%,y2%,x3%|
00001420  2c 79 33 25 2c 78 34 25  2c 79 34 25 2c 63 6f 6c  |,y3%,x4%,y4%,col|
00001430  25 29 0d 09 d8 0c e6 20  30 2c 63 6f 6c 25 0d 09  |%)..... 0,col%..|
00001440  e2 0e c8 91 20 32 35 36  2c 32 35 36 0d 09 ec 0d  |.... 256,256....|
00001450  ec 20 78 31 25 2c 79 31  25 0d 09 f6 0d ec 20 78  |. x1%,y1%..... x|
00001460  32 25 2c 79 32 25 0d 0a  00 10 f0 20 38 35 2c 78  |2%,y2%..... 85,x|
00001470  33 25 2c 79 33 25 0d 0a  0a 0d ec 20 78 34 25 2c  |3%,y3%..... x4%,|
00001480  79 34 25 0d 0a 14 10 f0  20 38 35 2c 78 31 25 2c  |y4%..... 85,x1%,|
00001490  79 31 25 0d 0a 1e 05 e1  0d 0a 28 05 3a 0d 0a 32  |y1%.......(.:..2|
000014a0  0d dd 20 a4 73 74 28 70  25 29 0d 0a 3c 0b 69 6e  |.. .st(p%)..<.in|
000014b0  63 25 3d 70 25 0d 0a 46  08 ea 20 73 24 0d 0a 50  |c%=p%..F.. s$..P|
000014c0  09 73 24 3d 22 22 0d 0a  5a 0d c8 95 20 3f 70 25  |.s$=""..Z... ?p%|
000014d0  3e 33 31 0d 0a 64 0e 73  24 2b 3d bd 28 3f 70 25  |>31..d.s$+=.(?p%|
000014e0  29 0d 0a 6e 09 70 25 2b  3d 31 0d 0a 78 05 ce 0d  |)..n.p%+=1..x...|
000014f0  0a 82 14 69 6e 63 25 3d  28 70 25 2d 69 6e 63 25  |...inc%=(p%-inc%|
00001500  29 2b 31 0d 0a 8c 07 3d  73 24 0d 0a 96 05 3a 0d  |)+1....=s$....:.|
00001510  0a a0 15 dd 20 f2 63 6c  6f 73 65 28 77 69 6e 64  |.... .close(wind|
00001520  6f 77 25 29 0d 0a aa 0f  21 71 25 3d 77 69 6e 64  |ow%)....!q%=wind|
00001530  6f 77 25 0d 0a b4 1c c8  99 22 57 69 6d 70 5f 43  |ow%......"Wimp_C|
00001540  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |loseWindow",,q%.|
00001550  0a be 05 e1 0d 0a c8 05  3a 0d 0a d2 42 dd 20 a4  |........:...B. .|
00001560  63 72 65 61 74 65 5f 69  63 6f 6e 28 6e 61 6d 65  |create_icon(name|
00001570  24 2c 77 69 6e 64 6f 77  25 2c 78 25 2c 79 25 2c  |$,window%,x%,y%,|
00001580  77 25 2c 68 25 2c 66 6c  61 67 73 25 2c 68 61 6e  |w%,h%,flags%,han|
00001590  64 6c 65 25 2c 6e 61 6d  65 25 29 0d 0a dc 0f 6c  |dle%,name%)....l|
000015a0  65 6e 25 3d a9 6e 61 6d  65 24 0d 0a e6 0f 21 71  |en%=.name$....!q|
000015b0  25 3d 77 69 6e 64 6f 77  25 0d 0a f0 0b 71 25 21  |%=window%....q%!|
000015c0  34 3d 78 25 0d 0a fa 0b  71 25 21 38 3d 79 25 0d  |4=x%....q%!8=y%.|
000015d0  0b 04 0f 71 25 21 31 32  3d 78 25 2b 77 25 0d 0b  |...q%!12=x%+w%..|
000015e0  0e 0f 71 25 21 31 36 3d  79 25 2b 68 25 0d 0b 18  |..q%!16=y%+h%...|
000015f0  10 71 25 21 32 30 3d 66  6c 61 67 73 25 0d 0b 22  |.q%!20=flags%.."|
00001600  2a e7 20 6e 61 6d 65 25  3d a3 20 8c 20 de 20 71  |*. name%=. . . q|
00001610  25 21 32 34 20 6c 65 6e  25 20 8b 20 71 25 21 32  |%!24 len% . q%!2|
00001620  34 3d 6e 61 6d 65 25 0d  0b 2c 12 24 28 71 25 21  |4=name%..,.$(q%!|
00001630  32 34 29 3d 6e 61 6d 65  24 0d 0b 36 11 71 25 21  |24)=name$..6.q%!|
00001640  32 38 3d 68 61 6e 64 6c  65 25 0d 0b 40 0e 71 25  |28=handle%..@.q%|
00001650  21 33 32 3d 6c 65 6e 25  0d 0b 4a 23 c8 99 22 57  |!32=len%..J#.."W|
00001660  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00001670  2c 71 25 20 b8 20 69 63  6f 6e 25 0d 0b 54 0a 3d  |,q% . icon%..T.=|
00001680  69 63 6f 6e 25 0d 0b 5e  05 3a 0d 0b 68 14 dd 20  |icon%..^.:..h.. |
00001690  f2 69 6e 66 6f 28 77 69  6e 64 6f 77 25 29 0d 0b  |.info(window%)..|
000016a0  72 0f 21 71 25 3d 77 69  6e 64 6f 77 25 0d 0b 7c  |r.!q%=window%..||
000016b0  1e c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |..."Wimp_GetWind|
000016c0  6f 77 49 6e 66 6f 22 2c  2c 71 25 0d 0b 86 16 68  |owInfo",,q%....h|
000016d0  65 69 67 68 74 25 3d 71  25 21 31 36 2d 71 25 21  |eight%=q%!16-q%!|
000016e0  38 0d 0b 90 15 77 69 64  74 68 25 3d 71 25 21 31  |8....width%=q%!1|
000016f0  32 2d 71 25 21 34 0d 0b  9a 05 e1 0d 0b a4 05 3a  |2-q%!4.........:|
00001700  0d 0b ae 1e dd 20 a4 67  65 74 5f 69 63 6f 6e 28  |..... .get_icon(|
00001710  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 0b  |window%,icon%)..|
00001720  b8 0f 21 71 25 3d 77 69  6e 64 6f 77 25 0d 0b c2  |..!q%=window%...|
00001730  0e 71 25 21 34 3d 69 63  6f 6e 25 0d 0b cc 1d c8  |.q%!4=icon%.....|
00001740  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00001750  61 74 65 22 2c 2c 71 25  0d 0b d6 0b 3d 24 71 25  |ate",,q%....=$q%|
00001760  21 32 38 0d 0b e0 05 3a  0d 0b ea 24 dd 20 f2 73  |!28....:...$. .s|
00001770  65 74 5f 69 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |et_icon(window%,|
00001780  69 63 6f 6e 25 2c 6e 61  6d 65 24 29 0d 0b f4 22  |icon%,name$)..."|
00001790  74 65 6d 70 24 3d a4 67  65 74 5f 69 63 6f 6e 28  |temp$=.get_icon(|
000017a0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 0b  |window%,icon%)..|
000017b0  fe 10 24 71 25 21 32 38  3d 6e 61 6d 65 24 0d 0c  |..$q%!28=name$..|
000017c0  08 0a 71 25 21 38 3d 30  0d 0c 12 0b 71 25 21 31  |..q%!8=0....q%!1|
000017d0  32 3d 30 0d 0c 1c 1d c8  99 22 57 69 6d 70 5f 53  |2=0......"Wimp_S|
000017e0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
000017f0  0d 0c 26 05 e1 0d 0c 30  05 3a 0d 0c 3a 12 dd 20  |..&....0.:..:.. |
00001800  f2 77 61 72 6e 28 74 65  78 74 24 29 0d 0c 44 17  |.warn(text$)..D.|
00001810  c8 99 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |.."Wimp_DragBox"|
00001820  2c 2c 30 0d 0c 4e 09 21  71 25 3d 30 0d 0c 58 14  |,,0..N.!q%=0..X.|
00001830  24 28 71 25 2b 34 29 3d  74 65 78 74 24 2b bd 30  |$(q%+4)=text$+.0|
00001840  0d 0c 62 26 c8 99 22 57  69 6d 70 5f 52 65 70 6f  |..b&.."Wimp_Repo|
00001850  72 74 45 72 72 6f 72 22  2c 71 25 2c 31 2c 70 72  |rtError",q%,1,pr|
00001860  6f 67 72 61 6d 24 0d 0c  6c 05 e1 0d 0c 76 05 3a  |ogram$..l....v.:|
00001870  0d 0c 80 13 dd 20 a4 63  68 65 63 6b 28 74 65 78  |..... .check(tex|
00001880  74 24 29 0d 0c 8a 17 c8  99 22 57 69 6d 70 5f 44  |t$)......"Wimp_D|
00001890  72 61 67 42 6f 78 22 2c  2c 30 0d 0c 94 09 21 71  |ragBox",,0....!q|
000018a0  25 3d 30 0d 0c 9e 14 24  28 71 25 2b 34 29 3d 74  |%=0....$(q%+4)=t|
000018b0  65 78 74 24 2b bd 30 0d  0c a8 42 c8 99 22 57 69  |ext$+.0...B.."Wi|
000018c0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
000018d0  71 25 2c 31 39 2c 22 4d  65 73 73 61 67 65 20 66  |q%,19,"Message f|
000018e0  72 6f 6d 20 22 2b 70 72  6f 67 72 61 6d 24 20 b8  |rom "+program$ .|
000018f0  20 2c 61 6e 73 77 65 72  25 0d 0c b2 19 e7 20 61  | ,answer%..... a|
00001900  6e 73 77 65 72 25 3d 31  20 8c 20 3d b9 20 8b 20  |nswer%=1 . =. . |
00001910  3d a3 0d 0c bc 05 3a 0d  0c c6 14 dd 20 f2 6f 70  |=.....:..... .op|
00001920  65 6e 28 77 69 6e 64 6f  77 25 29 0d 0c d0 0f 21  |en(window%)....!|
00001930  71 25 3d 77 69 6e 64 6f  77 25 0d 0c da 1f c8 99  |q%=window%......|
00001940  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00001950  74 61 74 65 22 2c 2c 71  25 0d 0c e4 0c 71 25 21  |tate",,q%....q%!|
00001960  32 38 3d 2d 31 0d 0c ee  1b c8 99 22 57 69 6d 70  |28=-1......"Wimp|
00001970  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 25  |_OpenWindow",,q%|
00001980  0d 0c f8 05 e1 0d 0d 02  05 3a 0d 0d 0c 11 dd 20  |.........:..... |
00001990  f2 63 72 65 61 74 65 6d  61 7a 65 0d 0d 16 0b 41  |.createmaze....A|
000019a0  3d b3 28 2d 91 29 0d 0d  20 10 4c 25 3d 28 6d 73  |=.(-.).. .L%=(ms|
000019b0  25 2f 32 29 5e 32 0d 0d  2a 10 e3 20 78 25 3d 30  |%/2)^2..*.. x%=0|
000019c0  20 b8 20 6d 73 25 0d 0d  34 11 77 61 6c 6c 25 28  | . ms%..4.wall%(|
000019d0  78 25 2c 30 29 3d b9 0d  0d 3e 13 77 61 6c 6c 25  |x%,0)=...>.wall%|
000019e0  28 78 25 2c 6d 73 25 29  3d b9 0d 0d 48 11 77 61  |(x%,ms%)=...H.wa|
000019f0  6c 6c 25 28 30 2c 78 25  29 3d b9 0d 0d 52 13 77  |ll%(0,x%)=...R.w|
00001a00  61 6c 6c 25 28 6d 73 25  2c 78 25 29 3d b9 0d 0d  |all%(ms%,x%)=...|
00001a10  5c 08 ed 20 78 25 0d 0d  66 13 78 25 3d b3 28 6d  |\.. x%..f.x%=.(m|
00001a20  73 25 2f 32 29 2a 32 2d  31 0d 0d 70 13 79 25 3d  |s%/2)*2-1..p.y%=|
00001a30  b3 28 6d 73 25 2f 32 29  2a 32 2d 31 0d 0d 7a 0a  |.(ms%/2)*2-1..z.|
00001a40  70 78 25 3d 78 25 0d 0d  84 0a 70 79 25 3d 79 25  |px%=x%....py%=y%|
00001a50  0d 0d 8e 12 77 61 6c 6c  25 28 78 25 2c 79 25 29  |....wall%(x%,y%)|
00001a60  3d b9 0d 0d 98 0e 64 78  25 28 4c 25 29 3d 78 25  |=.....dx%(L%)=x%|
00001a70  0d 0d a2 0e 64 79 25 28  4c 25 29 3d 79 25 0d 0d  |....dy%(L%)=y%..|
00001a80  ac 09 44 25 3d 4c 25 0d  0d b6 05 f5 0d 0d c0 05  |..D%=L%.........|
00001a90  f5 0d 0d ca 0a 66 25 28  29 3d 30 0d 0d d4 05 f5  |.....f%()=0.....|
00001aa0  0d 0d de 0f 64 69 72 25  3d b3 28 34 29 2d 31 0d  |....dir%=.(4)-1.|
00001ab0  0d e8 0e 66 25 28 64 69  72 25 29 3d 31 0d 0d f2  |...f%(dir%)=1...|
00001ac0  17 58 25 3d 28 78 25 2b  69 78 25 28 64 69 72 25  |.X%=(x%+ix%(dir%|
00001ad0  29 2a 32 29 0d 0d fc 17  59 25 3d 28 79 25 2b 69  |)*2)....Y%=(y%+i|
00001ae0  79 25 28 64 69 72 25 29  2a 32 29 0d 0e 06 3c e7  |y%(dir%)*2)...<.|
00001af0  20 58 25 3c 30 20 84 20  59 25 3c 30 20 84 20 58  | X%<0 . Y%<0 . X|
00001b00  25 3e 6d 73 25 20 84 20  59 25 3e 6d 73 25 20 8c  |%>ms% . Y%>ms% .|
00001b10  20 43 25 3d b9 20 8b 20  43 25 3d 77 61 6c 6c 25  | C%=. . C%=wall%|
00001b20  28 58 25 2c 59 25 29 0d  0e 10 17 fd 20 43 25 3d  |(X%,Y%)..... C%=|
00001b30  a3 20 84 20 c6 8e 28 66  25 28 29 29 3d 34 0d 0e  |. . ..(f%())=4..|
00001b40  1a 0c e7 20 43 25 3d a3  20 8c 0d 0e 24 12 77 61  |... C%=. ...$.wa|
00001b50  6c 6c 25 28 58 25 2c 59  25 29 3d b9 0d 0e 2e 26  |ll%(X%,Y%)=....&|
00001b60  77 61 6c 6c 25 28 58 25  2d 69 78 25 28 64 69 72  |wall%(X%-ix%(dir|
00001b70  25 29 2c 59 25 2d 69 79  25 28 64 69 72 25 29 29  |%),Y%-iy%(dir%))|
00001b80  3d b9 0d 0e 38 09 4c 25  2d 3d 31 0d 0e 42 0e 64  |=...8.L%-=1..B.d|
00001b90  78 25 28 4c 25 29 3d 58  25 0d 0e 4c 0e 64 79 25  |x%(L%)=X%..L.dy%|
00001ba0  28 4c 25 29 3d 59 25 0d  0e 56 09 78 25 3d 58 25  |(L%)=Y%..V.x%=X%|
00001bb0  0d 0e 60 09 79 25 3d 59  25 0d 0e 6a 05 cd 0d 0e  |..`.y%=Y%..j....|
00001bc0  74 0a fd 20 43 25 3d b9  0d 0e 7e 09 44 25 2d 3d  |t.. C%=...~.D%-=|
00001bd0  31 0d 0e 88 0e 78 25 3d  64 78 25 28 44 25 29 0d  |1....x%=dx%(D%).|
00001be0  0e 92 0e 79 25 3d 64 79  25 28 44 25 29 0d 0e 9c  |...y%=dy%(D%)...|
00001bf0  0a fd 20 4c 25 3d 31 0d  0e a6 12 e3 20 78 25 3d  |.. L%=1..... x%=|
00001c00  31 20 b8 20 6d 73 25 2d  31 0d 0e b0 12 e3 20 79  |1 . ms%-1..... y|
00001c10  25 3d 31 20 b8 20 6d 73  25 2d 31 0d 0e ba 20 77  |%=1 . ms%-1... w|
00001c20  61 6c 6c 25 28 78 25 2c  79 25 29 3d ac 28 77 61  |all%(x%,y%)=.(wa|
00001c30  6c 6c 25 28 78 25 2c 79  25 29 29 0d 0e c4 08 ed  |ll%(x%,y%)).....|
00001c40  20 79 25 0d 0e ce 08 ed  20 78 25 0d 0e d8 11 e3  | y%..... x%.....|
00001c50  20 64 65 6c 25 3d 31 20  b8 20 32 30 0d 0e e2 0f  | del%=1 . 20....|
00001c60  72 6e 64 25 3d b3 28 32  29 2d 31 0d 0e ec 34 77  |rnd%=.(2)-1...4w|
00001c70  61 6c 6c 25 28 b3 28 6d  73 25 2f 32 2d 31 29 2a  |all%(.(ms%/2-1)*|
00001c80  32 2b 72 6e 64 25 2c b3  28 6d 73 25 2f 32 2d 31  |2+rnd%,.(ms%/2-1|
00001c90  29 2a 32 2b 28 31 2d 72  6e 64 25 29 29 3d a3 0d  |)*2+(1-rnd%))=..|
00001ca0  0e f6 0a ed 20 64 65 6c  25 0d 0f 00 05 e1 0d 0f  |.... del%.......|
00001cb0  0a 05 3a 0d 0f 14 09 dd  20 f2 64 6d 0d 0f 1e 10  |..:..... .dm....|
00001cc0  e3 20 78 25 3d 30 20 b8  20 6d 73 25 0d 0f 28 05  |. x%=0 . ms%..(.|
00001cd0  f1 0d 0f 32 10 e3 20 79  25 3d 30 20 b8 20 6d 73  |...2.. y%=0 . ms|
00001ce0  25 0d 0f 3c 16 f1 22 22  3b 2d 77 61 6c 6c 25 28  |%..<.."";-wall%(|
00001cf0  78 25 2c 79 25 29 3b 0d  0f 46 08 ed 20 79 25 0d  |x%,y%);..F.. y%.|
00001d00  0f 50 08 ed 20 78 25 0d  0f 5a 05 e1 0d 0f 64 05  |.P.. x%..Z....d.|
00001d10  3a 0d 0f 6e 0a dd 20 f2  6d 61 70 0d 0f 78 36 c8  |:..n.. .map..x6.|
00001d20  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 36  |."OS_SpriteOp",6|
00001d30  30 2b 32 35 36 2c 73 70  72 69 74 65 25 2c 22 6d  |0+256,sprite%,"m|
00001d40  61 70 22 20 b8 20 72 30  2c 72 31 2c 72 32 2c 72  |ap" . r0,r1,r2,r|
00001d50  33 0d 0f 82 0e e7 20 6f  70 78 25 3e 30 20 8c 0d  |3..... opx%>0 ..|
00001d60  0f 8c 1d f2 74 72 69 61  6e 67 6c 65 28 6f 70 64  |....triangle(opd|
00001d70  25 2c 6f 70 78 25 2c 6f  70 79 25 29 0d 0f 96 09  |%,opx%,opy%)....|
00001d80  e6 20 30 2c 38 0d 0f a0  23 86 20 70 78 25 2a 31  |. 0,8...#. px%*1|
00001d90  32 2c 70 79 25 2a 31 32  2c 6f 70 78 25 2a 31 32  |2,py%*12,opx%*12|
00001da0  2c 6f 70 79 25 2a 31 32  0d 0f aa 05 cc 0d 0f b4  |,opy%*12........|
00001db0  09 fb 20 31 32 38 0d 0f  be 05 db 0d 0f c8 05 cd  |.. 128..........|
00001dc0  0d 0f d2 1a f2 74 72 69  61 6e 67 6c 65 28 70 64  |.....triangle(pd|
00001dd0  25 2c 70 78 25 2c 70 79  25 29 0d 0f dc 0c 6f 70  |%,px%,py%)....op|
00001de0  78 25 3d 70 78 25 0d 0f  e6 0c 6f 70 79 25 3d 70  |x%=px%....opy%=p|
00001df0  79 25 0d 0f f0 0c 6f 70  64 25 3d 70 64 25 0d 0f  |y%....opd%=pd%..|
00001e00  fa 1f c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |...."OS_SpriteOp|
00001e10  22 2c 72 30 2c 72 31 2c  72 32 2c 72 33 0d 10 04  |",r0,r1,r2,r3...|
00001e20  2f f2 73 65 74 5f 69 63  6f 6e 28 6d 61 69 6e 25  |/.set_icon(main%|
00001e30  2c 6d 61 70 25 2c a4 67  65 74 5f 69 63 6f 6e 28  |,map%,.get_icon(|
00001e40  6d 61 69 6e 25 2c 6d 61  70 25 29 29 0d 10 0e 05  |main%,map%))....|
00001e50  e1 0d 10 18 05 3a 0d 10  22 19 dd 20 f2 74 72 69  |.....:..".. .tri|
00001e60  61 6e 67 6c 65 28 64 25  2c 78 25 2c 79 25 29 0d  |angle(d%,x%,y%).|
00001e70  10 2c 0a e6 20 33 2c 31  31 0d 10 36 25 ec 20 78  |.,.. 3,11..6%. x|
00001e80  25 2a 31 32 2b 69 78 25  28 64 25 29 2a 38 2c 79  |%*12+ix%(d%)*8,y|
00001e90  25 2a 31 32 2b 69 79 25  28 64 25 29 2a 38 0d 10  |%*12+iy%(d%)*8..|
00001ea0  40 31 ec 20 78 25 2a 31  32 2b 69 78 25 28 28 64  |@1. x%*12+ix%((d|
00001eb0  25 2b 31 29 80 33 29 2a  38 2c 79 25 2a 31 32 2b  |%+1).3)*8,y%*12+|
00001ec0  69 79 25 28 28 64 25 2b  31 29 80 33 29 2a 38 0d  |iy%((d%+1).3)*8.|
00001ed0  10 4a 34 f0 20 38 35 2c  78 25 2a 31 32 2b 69 78  |.J4. 85,x%*12+ix|
00001ee0  25 28 28 64 25 2d 31 29  80 33 29 2a 38 2c 79 25  |%((d%-1).3)*8,y%|
00001ef0  2a 31 32 2b 69 79 25 28  28 64 25 2d 31 29 80 33  |*12+iy%((d%-1).3|
00001f00  29 2a 38 0d 10 54 05 e1  0d ff                    |)*8..T....|
00001f0a