� Rope Bridge
� By Philip Mellor

(
�15:�13:�
2:
<� � �error:�
F� 3 Ȝ 255
P� "ROPE BRIDGE   ";
Z� 15
d� "by Philip Mellor"
n� 60
xD�'"Move the mouse left and right"'"to 'walk' across the bridge."
�,� "Press Escape or click mouse to quit."
�� 3
��''"Please select..."
�� 12
�L�'" 1) 7 sections"'" 2) 11 sections"'" 3) 17 sections"'" 4) 21 sections"
�� 60
�p�'"This selects the number of pieces the"'"bridge is made out of."''"Faster machines can use more sections."
�� 15
��''"Press 1-4 now:"
��
�I$=�
�� �(I$)>0 � �(I$)<5
�:

Ȏ �(I$) �

� 1:segments=7:height=132

� 2:segments=11:height=108

"� 3:segments=17:height=96

,� 4:segments=21:height=64

6�

@:

J�

THI=height:� Height of ropes

^:

h� fade% 90*1024

r4fade%!0=90*1024:fade%!4=0:fade%!8=16:fade%!12=16

|:

�ș6,112,1:ș6,113,1

�ȗ � 640,420

�:

�Bș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � set_gcol%

�:

�ș "Hourglass_On"

��create_backdrop

�ș "Hourglass_Smash"

�:

�M=segments+2

�� Y(M),G(M)

�
� I=0 � M

�Y(I)=0:G(I)=0
�
:
W1=520:W2=620
&H1=210:H2=280
0:
:fr=1
D:
N'� A(M),B(M),Xa(M),Ya(M),Xb(M),Yb(M)
XMX=0
b!� I=0 � M:A(I)=�(I*(180/M)):�
l:
v� � �fade_out:�:�
�:
�
ȑ 0,0
�ȗ �
�
ȗ � 0,48
�ȗ � 1,0,0,0
�ȗ � 2,255,255,255
�ȗ � 3,64,64,64
�ȗ ȓ 0,48,1279,0
�:
��
�ș6,112,fr
�'� *** Plot the background hills ***
�-ș "OS_SpriteOp",256+34,fade%,"pic",0,0,0
:
/� *** Calculate & draw the bridge floor ***
:
 c=1
*"�X=640+(SIN(MX)*640):MX+=0.015
4ȗ X,Y,Z
>'OX=((M/1280)*X)+1:� OX>(M-1) OX=M-1
H� OX<2 OX=2
RX=�((M/1280)*X)+1
\:
f� I=1 � M-1:B(I)=Y(I)*.75:�
p:
z� I=1 � M-1
�Xa(I)=640-(�(A(I))*W1)
�Ya(I)=512+B(I)-(�(A(I))*H1)
�Xb(I)=640-(�(A(I))*W2)
�Yb(I)=512+B(I)-(�(A(I))*H2)
��
�:
�� I=1 � M-1
�� G(I)<0 G(I)+=0.5
�Y(I)+=G(I)
�� Y(I)>0 Y(I)=0:G(I)=-4
� � Y(I)<-144 Y(I)=-144:G(I)=8
�:
�� X=I �
� X>OX G(I)=-12:G(I-1)-=3
� X<=OX G(I-1)=-12:G(I)-=3
�
$G(I)+=1
.�
8�
BY(1)=0:Y(M)=0:Y(M-1)=0:
L� 2,21 Ȝ 0
V:
`� I=1 � M-2
j
tA1=A(I):A2=A(I+1)
~B1=B(I):B2=B(I+1)
�:
�SH=-220:SW=48
�+� Xa(I)+SW,Ya(I)+SH:� Xb(I)+SW,Yb(I)+SH
�� 85,Xb(I+1)+SW,Yb(I+1)+SH
�2� Xa(I+1)+SW,Ya(I+1)+SH:� 85,Xa(I)+SW,Ya(I)+SH
�
��
�:
�� I=1 � M-2
�
�A1=A(I):A2=A(I+1)
�B1=B(I):B2=B(I+1)
:

!l=((A2+B2-32)-(A1+B1+64))+180
l2=188+((l-128)/2)
l-=64:l2-=32
(� l<16 l=8 � � l>240 l=240
2"� l2<16 l2=8 � � l2>240 l2=240
<:
F� c=1 �
Pr=l2:g=l:b=l2
Z�
dr=l2:g=l:b=l
n�
x:
�0ș set_gcol%,(r<<8)+(g<<16)+(b<<24),,,&100,0
�	c=3-c
�:
�� Xa(I),Ya(I):� Xb(I),Yb(I)
�� 85,Xb(I+1),Yb(I+1)
�&� Xa(I+1),Ya(I+1):� 85,Xa(I),Ya(I)
�:
��
�:
�(� *** Draw the ropes & handrails ***
�:
�� I=1 � M-2
�
A1=A(I):A2=A(I+1)
B1=B(I):B2=B(I+1)
� 21 Ȝ 192
""� Xa(I),Ya(I):� Xa(I),Ya(I)+HI
,� Xa(I+1),Ya(I+1)+HI
6� 42 Ȝ 128
@"� Xb(I),Yb(I):� Xb(I),Yb(I)+HI
J� Xb(I+1),Yb(I+1)+HI
T�
^:
hș6,113,fr:fr=3-fr
rȖ
|
� Z<>0
�:
�
�fade_out
��
��
�:
���fade_out
�@� *** Fades the screen by ANDing it with shades of grey! ***
�ș "Hourglass_Smash"
�� � �error:�
�
ȑ 0,0
�!� *** Grab screen to fade ***
�6ș"OS_SpriteOp",256+16,fade%,"pic",0,0,0,1280,1024
�:
� I=1 � 16
ș6,112,fr
-ș "OS_SpriteOp",256+34,fade%,"pic",0,0,0
&
Ȏ I �
0� 1:�2,63 Ȝ 3*64
:� 2:�2,63 Ȝ 2*64
D� 3:�2,63 Ȝ 1*64
N� 4:�2,63 Ȝ 0*64
X� 5:�2,42 Ȝ 3*64
b� 6:�2,42 Ȝ 2*64
l� 7:�2,42 Ȝ 1*64
v� 8:�2,42 Ȝ 0*64
�� 9:�2,21 Ȝ 3*64
��10:�2,21 Ȝ 2*64
��11:�2,21 Ȝ 1*64
��12:�2,21 Ȝ 0*64
��13:�2,00 Ȝ 3*64
��14:�2,00 Ȝ 2*64
��15:�2,00 Ȝ 1*64
��16:�2,00 Ȝ 0*64
��
�ȓ Ȑ 0,0,1280,1024
�ș6,113,fr:fr=3-fr
�	Ȗ:Ȗ
��
�
�
:
 ��create_backdrop
*� Y=0 � 1024 � 16
4 r=(Y/16):g=Y/12:b=192+(Y/30)
>0ș set_gcol%,(r<<8)+(g<<16)+(b<<24),,,&100,0
Hȓ Ȑ 0,Y,1280,1024
R=�MOVE 0,Y:MOVE 1280,Y+80:PLOT 85,0,1024:PLOT 85,1280,1024
\�
f:
p� 2,42 Ȝ 255
z� X=0 � 1279 � 4
�W=((�(X/40))*20)+30
�� X,412:� X,740+(�(X/60)*W)
��
�:
�� 2,42 Ȝ 255-64
�� X=1280 � 2560 � 4
�W=((�(X/60))*10)+20
�)� X-1280,412:� X-1280,680+(�(X/60)*W)
��
�:
�� 2,42 Ȝ 255-128
�� X=2560 � 3840 � 4
�W=((�(X/80))*10)+5
	)� X-2560,412:� X-2560,600+(�(X/60)*W)
	�
	:
	$r=190:g=190:b=80
	.0ș set_gcol%,(r<<8)+(g<<16)+(b<<24),,,&100,0
	8ȏ Ȑ 320,870,64
	B:
	L	cz%=0
	Vȑ 640,512
	`� w%,h%
	j� h(w%,h%)
	tt=100/(w%*h%)
	~c%=0
	�� x%=1 � w%
	�� y%=h% � 1 � -1
	�	c%+=1
	�4�h(x%,y%)=(((SIN(x%/5)*10)+(COS(y%/15)*10))/2)+1
	�ang=x%/8
	�%h(x%,y%)=(�(ang)*7)+5+(�(y%/6)*2)
	��
	��
	�� 50,100
	�r=255:g=0:b=255
	�:
	�&xs%=2560/w%:ys%=2048/h%:hs%=800/11
ox%=640:os%=0:c%=0

� y%=1 � h%-30 � 1
� x%=1 � w%-1 � 1
	c%+=1
(%c1=h(x%,y%)*16:c2=h(x%+1,y%+1)*16
2l=((c1*1)-(c2*1.5))+64
<l2=255-(l2*.75)
F� l<1 l=1 � � l>255 l=255
P!� l2<1 l2=1 � � l2>255 l2=255
Z)r=192-(l2*2):g=255-(l*3):b=120-(l2*2)
dr-=(h%-y%)*1.5
ng-=(h%-y%)*1
xb+=(h%-y%)*3.15
�� r>255 r=255 � � r<8 r=8
�� g>255 g=255 � � g<0 g=0
�� b>255 b=255 � � b<0 b=0
�0ș set_gcol%,(r<<8)+(g<<16)+(b<<24),,,&100,0
�-�3D(x%*xs%-ox%,h(x%,y%)*hs%,y%*ys%-os%,1)
�3�3D(x%*xs%-ox%,h(x%,y%+1)*hs%,(y%+1)*ys%-os%,1)
�3�3D((x%+1)*xs%-ox%,h(x%+1,y%)*hs%,y%*ys%-os%,2)
�9�3D((x%+1)*xs%-ox%,h(x%+1,y%+1)*hs%,(y%+1)*ys%-os%,2)
��
��
�:
�
ȑ 0,0
�:
'� *** GRAB BACKDROP AS A SPRITE ***
6ș"OS_SpriteOp",256+16,fade%,"pic",0,0,0,1280,1024
:
"�
,:
6��3D(x%,y%,z%,t%)
@,nz%=z%+cz%:�IF nz%<0 OR nz%>1500 ENDPROC
Ja%=((x%-640)/1000)*nz%
Tb%=((y%-512)/1000)*nz%
^� t%=1 � a%,b%
h� t%=2 � 85,a%,b%
r$� t%=3 ȓ Ȑ a%,b%,nz%/10,nz%/10
|� t%=4 � a%,b%
��
�:
���error
�ș "Hourglass_Smash"
�� �=17 �
�� �
��
�� �
��3 Ȝ 255:� '''"Oh no!"
�1�    1234567890123456789012345678901234567890
��63
�1�'"A horridible error has just occured, and";
�)� "due to the lack of a decent error"
&� "handler, Rope Bridge must exit"
� "immediatley..."''
�12
&�:� " at line ";�''''''''''
0� 15
:�
D�
�

00000000  0d 00 0a 11 f4 20 52 6f  70 65 20 42 72 69 64 67  |..... Rope Bridg|
00000010  65 0d 00 14 16 f4 20 42  79 20 50 68 69 6c 69 70  |e..... By Philip|
00000020  20 4d 65 6c 6c 6f 72 0d  00 1e 04 0d 00 28 0d eb  | Mellor......(..|
00000030  31 35 3a eb 31 33 3a 87  0d 00 32 05 3a 0d 00 3c  |15:.13:...2.:..<|
00000040  10 ee 20 85 20 f2 65 72  72 6f 72 3a e0 0d 00 46  |.. . .error:...F|
00000050  0e fb 20 33 20 c8 9c 20  32 35 35 0d 00 50 17 f1  |.. 3 .. 255..P..|
00000060  20 22 52 4f 50 45 20 42  52 49 44 47 45 20 20 20  | "ROPE BRIDGE   |
00000070  22 3b 0d 00 5a 08 fb 20  31 35 0d 00 64 18 f1 20  |";..Z.. 15..d.. |
00000080  22 62 79 20 50 68 69 6c  69 70 20 4d 65 6c 6c 6f  |"by Philip Mello|
00000090  72 22 0d 00 6e 08 fb 20  36 30 0d 00 78 44 f1 27  |r"..n.. 60..xD.'|
000000a0  22 4d 6f 76 65 20 74 68  65 20 6d 6f 75 73 65 20  |"Move the mouse |
000000b0  6c 65 66 74 20 61 6e 64  20 72 69 67 68 74 22 27  |left and right"'|
000000c0  22 74 6f 20 27 77 61 6c  6b 27 20 61 63 72 6f 73  |"to 'walk' acros|
000000d0  73 20 74 68 65 20 62 72  69 64 67 65 2e 22 0d 00  |s the bridge."..|
000000e0  82 2c f1 20 22 50 72 65  73 73 20 45 73 63 61 70  |.,. "Press Escap|
000000f0  65 20 6f 72 20 63 6c 69  63 6b 20 6d 6f 75 73 65  |e or click mouse|
00000100  20 74 6f 20 71 75 69 74  2e 22 0d 00 8c 07 fb 20  | to quit."..... |
00000110  33 0d 00 96 19 f1 27 27  22 50 6c 65 61 73 65 20  |3.....''"Please |
00000120  73 65 6c 65 63 74 2e 2e  2e 22 0d 00 a0 08 fb 20  |select..."..... |
00000130  31 32 0d 00 aa 4c f1 27  22 20 31 29 20 37 20 73  |12...L.'" 1) 7 s|
00000140  65 63 74 69 6f 6e 73 22  27 22 20 32 29 20 31 31  |ections"'" 2) 11|
00000150  20 73 65 63 74 69 6f 6e  73 22 27 22 20 33 29 20  | sections"'" 3) |
00000160  31 37 20 73 65 63 74 69  6f 6e 73 22 27 22 20 34  |17 sections"'" 4|
00000170  29 20 32 31 20 73 65 63  74 69 6f 6e 73 22 0d 00  |) 21 sections"..|
00000180  b4 08 fb 20 36 30 0d 00  be 70 f1 27 22 54 68 69  |... 60...p.'"Thi|
00000190  73 20 73 65 6c 65 63 74  73 20 74 68 65 20 6e 75  |s selects the nu|
000001a0  6d 62 65 72 20 6f 66 20  70 69 65 63 65 73 20 74  |mber of pieces t|
000001b0  68 65 22 27 22 62 72 69  64 67 65 20 69 73 20 6d  |he"'"bridge is m|
000001c0  61 64 65 20 6f 75 74 20  6f 66 2e 22 27 27 22 46  |ade out of."''"F|
000001d0  61 73 74 65 72 20 6d 61  63 68 69 6e 65 73 20 63  |aster machines c|
000001e0  61 6e 20 75 73 65 20 6d  6f 72 65 20 73 65 63 74  |an use more sect|
000001f0  69 6f 6e 73 2e 22 0d 00  c8 08 fb 20 31 35 0d 00  |ions."..... 15..|
00000200  d2 17 f1 27 27 22 50 72  65 73 73 20 31 2d 34 20  |...''"Press 1-4 |
00000210  6e 6f 77 3a 22 0d 00 dc  05 f5 0d 00 e6 08 49 24  |now:".........I$|
00000220  3d be 0d 00 f0 17 fd 20  bb 28 49 24 29 3e 30 20  |=...... .(I$)>0 |
00000230  80 20 bb 28 49 24 29 3c  35 0d 00 fa 05 3a 0d 01  |. .(I$)<5....:..|
00000240  04 0e c8 8e 20 bb 28 49  24 29 20 ca 0d 01 0e 1d  |.... .(I$) .....|
00000250  c9 20 31 3a 73 65 67 6d  65 6e 74 73 3d 37 3a 68  |. 1:segments=7:h|
00000260  65 69 67 68 74 3d 31 33  32 0d 01 18 1e c9 20 32  |eight=132..... 2|
00000270  3a 73 65 67 6d 65 6e 74  73 3d 31 31 3a 68 65 69  |:segments=11:hei|
00000280  67 68 74 3d 31 30 38 0d  01 22 1d c9 20 33 3a 73  |ght=108..".. 3:s|
00000290  65 67 6d 65 6e 74 73 3d  31 37 3a 68 65 69 67 68  |egments=17:heigh|
000002a0  74 3d 39 36 0d 01 2c 1d  c9 20 34 3a 73 65 67 6d  |t=96..,.. 4:segm|
000002b0  65 6e 74 73 3d 32 31 3a  68 65 69 67 68 74 3d 36  |ents=21:height=6|
000002c0  34 0d 01 36 05 cb 0d 01  40 05 3a 0d 01 4a 05 db  |4..6....@.:..J..|
000002d0  0d 01 54 1f 48 49 3d 68  65 69 67 68 74 3a f4 20  |..T.HI=height:. |
000002e0  48 65 69 67 68 74 20 6f  66 20 72 6f 70 65 73 0d  |Height of ropes.|
000002f0  01 5e 05 3a 0d 01 68 13  de 20 66 61 64 65 25 20  |.^.:..h.. fade% |
00000300  39 30 2a 31 30 32 34 0d  01 72 34 66 61 64 65 25  |90*1024..r4fade%|
00000310  21 30 3d 39 30 2a 31 30  32 34 3a 66 61 64 65 25  |!0=90*1024:fade%|
00000320  21 34 3d 30 3a 66 61 64  65 25 21 38 3d 31 36 3a  |!4=0:fade%!8=16:|
00000330  66 61 64 65 25 21 31 32  3d 31 36 0d 01 7c 05 3a  |fade%!12=16..|.:|
00000340  0d 01 86 17 c8 99 36 2c  31 31 32 2c 31 3a c8 99  |......6,112,1:..|
00000350  36 2c 31 31 33 2c 31 0d  01 90 10 c8 97 20 b8 20  |6,113,1...... . |
00000360  36 34 30 2c 34 32 30 0d  01 9a 05 3a 0d 01 a4 42  |640,420....:...B|
00000370  c8 99 20 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |.. "OS_SWINumber|
00000380  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 43 6f  |FromString",,"Co|
00000390  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
000003a0  4c 22 20 b8 20 73 65 74  5f 67 63 6f 6c 25 0d 01  |L" . set_gcol%..|
000003b0  ae 05 3a 0d 01 b8 15 c8  99 20 22 48 6f 75 72 67  |..:...... "Hourg|
000003c0  6c 61 73 73 5f 4f 6e 22  0d 01 c2 14 f2 63 72 65  |lass_On".....cre|
000003d0  61 74 65 5f 62 61 63 6b  64 72 6f 70 0d 01 cc 18  |ate_backdrop....|
000003e0  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 53 6d  |.. "Hourglass_Sm|
000003f0  61 73 68 22 0d 01 d6 05  3a 0d 01 e0 10 4d 3d 73  |ash"....:....M=s|
00000400  65 67 6d 65 6e 74 73 2b  32 0d 01 ea 0f de 20 59  |egments+2..... Y|
00000410  28 4d 29 2c 47 28 4d 29  0d 01 f4 0d e3 20 49 3d  |(M),G(M)..... I=|
00000420  30 20 b8 20 4d 0d 01 fe  11 59 28 49 29 3d 30 3a  |0 . M....Y(I)=0:|
00000430  47 28 49 29 3d 30 0d 02  08 05 ed 0d 02 12 05 3a  |G(I)=0.........:|
00000440  0d 02 1c 11 57 31 3d 35  32 30 3a 57 32 3d 36 32  |....W1=520:W2=62|
00000450  30 0d 02 26 11 48 31 3d  32 31 30 3a 48 32 3d 32  |0..&.H1=210:H2=2|
00000460  38 30 0d 02 30 05 3a 0d  02 3a 08 66 72 3d 31 0d  |80..0.:..:.fr=1.|
00000470  02 44 05 3a 0d 02 4e 27  de 20 41 28 4d 29 2c 42  |.D.:..N'. A(M),B|
00000480  28 4d 29 2c 58 61 28 4d  29 2c 59 61 28 4d 29 2c  |(M),Xa(M),Ya(M),|
00000490  58 62 28 4d 29 2c 59 62  28 4d 29 0d 02 58 08 4d  |Xb(M),Yb(M)..X.M|
000004a0  58 3d 30 0d 02 62 21 e3  20 49 3d 30 20 b8 20 4d  |X=0..b!. I=0 . M|
000004b0  3a 41 28 49 29 3d b2 28  49 2a 28 31 38 30 2f 4d  |:A(I)=.(I*(180/M|
000004c0  29 29 3a ed 0d 02 6c 05  3a 0d 02 76 15 ee 20 85  |)):...l.:..v.. .|
000004d0  20 f2 66 61 64 65 5f 6f  75 74 3a db 3a e0 0d 02  | .fade_out:.:...|
000004e0  80 05 3a 0d 02 8a 0a c8  91 20 30 2c 30 0d 02 94  |..:...... 0,0...|
000004f0  08 c8 97 20 ee 0d 02 9e  0d c8 97 20 b8 20 30 2c  |... ....... . 0,|
00000500  34 38 0d 02 a8 10 c8 97  20 fb 20 31 2c 30 2c 30  |48...... . 1,0,0|
00000510  2c 30 0d 02 b2 16 c8 97  20 fb 20 32 2c 32 35 35  |,0...... . 2,255|
00000520  2c 32 35 35 2c 32 35 35  0d 02 bc 13 c8 97 20 fb  |,255,255...... .|
00000530  20 33 2c 36 34 2c 36 34  2c 36 34 0d 02 c6 15 c8  | 3,64,64,64.....|
00000540  97 20 c8 93 20 30 2c 34  38 2c 31 32 37 39 2c 30  |. .. 0,48,1279,0|
00000550  0d 02 d0 05 3a 0d 02 da  05 f5 0d 02 e4 0e c8 99  |....:...........|
00000560  36 2c 31 31 32 2c 66 72  0d 02 ee 27 f4 20 2a 2a  |6,112,fr...'. **|
00000570  2a 20 50 6c 6f 74 20 74  68 65 20 62 61 63 6b 67  |* Plot the backg|
00000580  72 6f 75 6e 64 20 68 69  6c 6c 73 20 2a 2a 2a 0d  |round hills ***.|
00000590  02 f8 2d c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..-.. "OS_Sprite|
000005a0  4f 70 22 2c 32 35 36 2b  33 34 2c 66 61 64 65 25  |Op",256+34,fade%|
000005b0  2c 22 70 69 63 22 2c 30  2c 30 2c 30 0d 03 02 05  |,"pic",0,0,0....|
000005c0  3a 0d 03 0c 2f f4 20 2a  2a 2a 20 43 61 6c 63 75  |:.../. *** Calcu|
000005d0  6c 61 74 65 20 26 20 64  72 61 77 20 74 68 65 20  |late & draw the |
000005e0  62 72 69 64 67 65 20 66  6c 6f 6f 72 20 2a 2a 2a  |bridge floor ***|
000005f0  0d 03 16 05 3a 0d 03 20  07 63 3d 31 0d 03 2a 22  |....:.. .c=1..*"|
00000600  f4 58 3d 36 34 30 2b 28  53 49 4e 28 4d 58 29 2a  |.X=640+(SIN(MX)*|
00000610  36 34 30 29 3a 4d 58 2b  3d 30 2e 30 31 35 0d 03  |640):MX+=0.015..|
00000620  34 0c c8 97 20 58 2c 59  2c 5a 0d 03 3e 27 4f 58  |4... X,Y,Z..>'OX|
00000630  3d 28 28 4d 2f 31 32 38  30 29 2a 58 29 2b 31 3a  |=((M/1280)*X)+1:|
00000640  e7 20 4f 58 3e 28 4d 2d  31 29 20 4f 58 3d 4d 2d  |. OX>(M-1) OX=M-|
00000650  31 0d 03 48 0f e7 20 4f  58 3c 32 20 4f 58 3d 32  |1..H.. OX<2 OX=2|
00000660  0d 03 52 15 58 3d a8 28  28 4d 2f 31 32 38 30 29  |..R.X=.((M/1280)|
00000670  2a 58 29 2b 31 0d 03 5c  05 3a 0d 03 66 1f e3 20  |*X)+1..\.:..f.. |
00000680  49 3d 31 20 b8 20 4d 2d  31 3a 42 28 49 29 3d 59  |I=1 . M-1:B(I)=Y|
00000690  28 49 29 2a 2e 37 35 3a  ed 0d 03 70 05 3a 0d 03  |(I)*.75:...p.:..|
000006a0  7a 0f e3 20 49 3d 31 20  b8 20 4d 2d 31 0d 03 84  |z.. I=1 . M-1...|
000006b0  1a 58 61 28 49 29 3d 36  34 30 2d 28 9b 28 41 28  |.Xa(I)=640-(.(A(|
000006c0  49 29 29 2a 57 31 29 0d  03 8e 1f 59 61 28 49 29  |I))*W1)....Ya(I)|
000006d0  3d 35 31 32 2b 42 28 49  29 2d 28 b5 28 41 28 49  |=512+B(I)-(.(A(I|
000006e0  29 29 2a 48 31 29 0d 03  98 1a 58 62 28 49 29 3d  |))*H1)....Xb(I)=|
000006f0  36 34 30 2d 28 9b 28 41  28 49 29 29 2a 57 32 29  |640-(.(A(I))*W2)|
00000700  0d 03 a2 1f 59 62 28 49  29 3d 35 31 32 2b 42 28  |....Yb(I)=512+B(|
00000710  49 29 2d 28 b5 28 41 28  49 29 29 2a 48 32 29 0d  |I)-(.(A(I))*H2).|
00000720  03 ac 05 ed 0d 03 b6 05  3a 0d 03 c0 0f e3 20 49  |........:..... I|
00000730  3d 31 20 b8 20 4d 2d 31  0d 03 ca 16 e7 20 47 28  |=1 . M-1..... G(|
00000740  49 29 3c 30 20 47 28 49  29 2b 3d 30 2e 35 0d 03  |I)<0 G(I)+=0.5..|
00000750  d4 0e 59 28 49 29 2b 3d  47 28 49 29 0d 03 de 1b  |..Y(I)+=G(I)....|
00000760  e7 20 59 28 49 29 3e 30  20 59 28 49 29 3d 30 3a  |. Y(I)>0 Y(I)=0:|
00000770  47 28 49 29 3d 2d 34 0d  03 e8 20 e7 20 59 28 49  |G(I)=-4... . Y(I|
00000780  29 3c 2d 31 34 34 20 59  28 49 29 3d 2d 31 34 34  |)<-144 Y(I)=-144|
00000790  3a 47 28 49 29 3d 38 0d  03 f2 05 3a 0d 03 fc 0b  |:G(I)=8....:....|
000007a0  e7 20 58 3d 49 20 8c 0d  04 06 1d e7 20 58 3e 4f  |. X=I ...... X>O|
000007b0  58 20 47 28 49 29 3d 2d  31 32 3a 47 28 49 2d 31  |X G(I)=-12:G(I-1|
000007c0  29 2d 3d 33 0d 04 10 1e  e7 20 58 3c 3d 4f 58 20  |)-=3..... X<=OX |
000007d0  47 28 49 2d 31 29 3d 2d  31 32 3a 47 28 49 29 2d  |G(I-1)=-12:G(I)-|
000007e0  3d 33 0d 04 1a 05 cc 0d  04 24 0b 47 28 49 29 2b  |=3.......$.G(I)+|
000007f0  3d 31 0d 04 2e 05 cd 0d  04 38 05 ed 0d 04 42 1b  |=1.......8....B.|
00000800  59 28 31 29 3d 30 3a 59  28 4d 29 3d 30 3a 59 28  |Y(1)=0:Y(M)=0:Y(|
00000810  4d 2d 31 29 3d 30 3a 0d  04 4c 0f e6 20 32 2c 32  |M-1)=0:..L.. 2,2|
00000820  31 20 c8 9c 20 30 0d 04  56 05 3a 0d 04 60 0f e3  |1 .. 0..V.:..`..|
00000830  20 49 3d 31 20 b8 20 4d  2d 32 0d 04 6a 04 0d 04  | I=1 . M-2..j...|
00000840  74 15 41 31 3d 41 28 49  29 3a 41 32 3d 41 28 49  |t.A1=A(I):A2=A(I|
00000850  2b 31 29 0d 04 7e 15 42  31 3d 42 28 49 29 3a 42  |+1)..~.B1=B(I):B|
00000860  32 3d 42 28 49 2b 31 29  0d 04 88 05 3a 0d 04 92  |2=B(I+1)....:...|
00000870  11 53 48 3d 2d 32 32 30  3a 53 57 3d 34 38 0d 04  |.SH=-220:SW=48..|
00000880  9c 2b ec 20 58 61 28 49  29 2b 53 57 2c 59 61 28  |.+. Xa(I)+SW,Ya(|
00000890  49 29 2b 53 48 3a ec 20  58 62 28 49 29 2b 53 57  |I)+SH:. Xb(I)+SW|
000008a0  2c 59 62 28 49 29 2b 53  48 0d 04 a6 1e f0 20 38  |,Yb(I)+SH..... 8|
000008b0  35 2c 58 62 28 49 2b 31  29 2b 53 57 2c 59 62 28  |5,Xb(I+1)+SW,Yb(|
000008c0  49 2b 31 29 2b 53 48 0d  04 b0 32 ec 20 58 61 28  |I+1)+SH...2. Xa(|
000008d0  49 2b 31 29 2b 53 57 2c  59 61 28 49 2b 31 29 2b  |I+1)+SW,Ya(I+1)+|
000008e0  53 48 3a f0 20 38 35 2c  58 61 28 49 29 2b 53 57  |SH:. 85,Xa(I)+SW|
000008f0  2c 59 61 28 49 29 2b 53  48 0d 04 ba 04 0d 04 c4  |,Ya(I)+SH.......|
00000900  05 ed 0d 04 ce 05 3a 0d  04 d8 0f e3 20 49 3d 31  |......:..... I=1|
00000910  20 b8 20 4d 2d 32 0d 04  e2 04 0d 04 ec 15 41 31  | . M-2........A1|
00000920  3d 41 28 49 29 3a 41 32  3d 41 28 49 2b 31 29 0d  |=A(I):A2=A(I+1).|
00000930  04 f6 15 42 31 3d 42 28  49 29 3a 42 32 3d 42 28  |...B1=B(I):B2=B(|
00000940  49 2b 31 29 0d 05 00 05  3a 0d 05 0a 21 6c 3d 28  |I+1)....:...!l=(|
00000950  28 41 32 2b 42 32 2d 33  32 29 2d 28 41 31 2b 42  |(A2+B2-32)-(A1+B|
00000960  31 2b 36 34 29 29 2b 31  38 30 0d 05 14 16 6c 32  |1+64))+180....l2|
00000970  3d 31 38 38 2b 28 28 6c  2d 31 32 38 29 2f 32 29  |=188+((l-128)/2)|
00000980  0d 05 1e 10 6c 2d 3d 36  34 3a 6c 32 2d 3d 33 32  |....l-=64:l2-=32|
00000990  0d 05 28 1e e7 20 6c 3c  31 36 20 6c 3d 38 20 8b  |..(.. l<16 l=8 .|
000009a0  20 e7 20 6c 3e 32 34 30  20 6c 3d 32 34 30 0d 05  | . l>240 l=240..|
000009b0  32 22 e7 20 6c 32 3c 31  36 20 6c 32 3d 38 20 8b  |2". l2<16 l2=8 .|
000009c0  20 e7 20 6c 32 3e 32 34  30 20 6c 32 3d 32 34 30  | . l2>240 l2=240|
000009d0  0d 05 3c 05 3a 0d 05 46  0b e7 20 63 3d 31 20 8c  |..<.:..F.. c=1 .|
000009e0  0d 05 50 11 72 3d 6c 32  3a 67 3d 6c 3a 62 3d 6c  |..P.r=l2:g=l:b=l|
000009f0  32 0d 05 5a 05 cc 0d 05  64 10 72 3d 6c 32 3a 67  |2..Z....d.r=l2:g|
00000a00  3d 6c 3a 62 3d 6c 0d 05  6e 05 cd 0d 05 78 05 3a  |=l:b=l..n....x.:|
00000a10  0d 05 82 30 c8 99 20 73  65 74 5f 67 63 6f 6c 25  |...0.. set_gcol%|
00000a20  2c 28 72 3c 3c 38 29 2b  28 67 3c 3c 31 36 29 2b  |,(r<<8)+(g<<16)+|
00000a30  28 62 3c 3c 32 34 29 2c  2c 2c 26 31 30 30 2c 30  |(b<<24),,,&100,0|
00000a40  0d 05 8c 09 63 3d 33 2d  63 0d 05 96 05 3a 0d 05  |....c=3-c....:..|
00000a50  a0 1f ec 20 58 61 28 49  29 2c 59 61 28 49 29 3a  |... Xa(I),Ya(I):|
00000a60  ec 20 58 62 28 49 29 2c  59 62 28 49 29 0d 05 aa  |. Xb(I),Yb(I)...|
00000a70  18 f0 20 38 35 2c 58 62  28 49 2b 31 29 2c 59 62  |.. 85,Xb(I+1),Yb|
00000a80  28 49 2b 31 29 0d 05 b4  26 ec 20 58 61 28 49 2b  |(I+1)...&. Xa(I+|
00000a90  31 29 2c 59 61 28 49 2b  31 29 3a f0 20 38 35 2c  |1),Ya(I+1):. 85,|
00000aa0  58 61 28 49 29 2c 59 61  28 49 29 0d 05 be 05 3a  |Xa(I),Ya(I)....:|
00000ab0  0d 05 c8 05 ed 0d 05 d2  05 3a 0d 05 dc 28 f4 20  |.........:...(. |
00000ac0  2a 2a 2a 20 44 72 61 77  20 74 68 65 20 72 6f 70  |*** Draw the rop|
00000ad0  65 73 20 26 20 68 61 6e  64 72 61 69 6c 73 20 2a  |es & handrails *|
00000ae0  2a 2a 0d 05 e6 05 3a 0d  05 f0 0f e3 20 49 3d 31  |**....:..... I=1|
00000af0  20 b8 20 4d 2d 32 0d 05  fa 04 0d 06 04 15 41 31  | . M-2........A1|
00000b00  3d 41 28 49 29 3a 41 32  3d 41 28 49 2b 31 29 0d  |=A(I):A2=A(I+1).|
00000b10  06 0e 15 42 31 3d 42 28  49 29 3a 42 32 3d 42 28  |...B1=B(I):B2=B(|
00000b20  49 2b 31 29 0d 06 18 0f  e6 20 32 31 20 c8 9c 20  |I+1)..... 21 .. |
00000b30  31 39 32 0d 06 22 22 ec  20 58 61 28 49 29 2c 59  |192.."". Xa(I),Y|
00000b40  61 28 49 29 3a df 20 58  61 28 49 29 2c 59 61 28  |a(I):. Xa(I),Ya(|
00000b50  49 29 2b 48 49 0d 06 2c  18 df 20 58 61 28 49 2b  |I)+HI..,.. Xa(I+|
00000b60  31 29 2c 59 61 28 49 2b  31 29 2b 48 49 0d 06 36  |1),Ya(I+1)+HI..6|
00000b70  0f e6 20 34 32 20 c8 9c  20 31 32 38 0d 06 40 22  |.. 42 .. 128..@"|
00000b80  ec 20 58 62 28 49 29 2c  59 62 28 49 29 3a df 20  |. Xb(I),Yb(I):. |
00000b90  58 62 28 49 29 2c 59 62  28 49 29 2b 48 49 0d 06  |Xb(I),Yb(I)+HI..|
00000ba0  4a 18 df 20 58 62 28 49  2b 31 29 2c 59 62 28 49  |J.. Xb(I+1),Yb(I|
00000bb0  2b 31 29 2b 48 49 0d 06  54 05 ed 0d 06 5e 05 3a  |+1)+HI..T....^.:|
00000bc0  0d 06 68 16 c8 99 36 2c  31 31 33 2c 66 72 3a 66  |..h...6,113,fr:f|
00000bd0  72 3d 33 2d 66 72 0d 06  72 06 c8 96 0d 06 7c 0a  |r=3-fr..r.....|.|
00000be0  fd 20 5a 3c 3e 30 0d 06  86 05 3a 0d 06 90 0d f2  |. Z<>0....:.....|
00000bf0  66 61 64 65 5f 6f 75 74  0d 06 9a 05 db 0d 06 a4  |fade_out........|
00000c00  05 e0 0d 06 ae 05 3a 0d  06 b8 0e dd f2 66 61 64  |......:......fad|
00000c10  65 5f 6f 75 74 0d 06 c2  40 f4 20 2a 2a 2a 20 46  |e_out...@. *** F|
00000c20  61 64 65 73 20 74 68 65  20 73 63 72 65 65 6e 20  |ades the screen |
00000c30  62 79 20 41 4e 44 69 6e  67 20 69 74 20 77 69 74  |by ANDing it wit|
00000c40  68 20 73 68 61 64 65 73  20 6f 66 20 67 72 65 79  |h shades of grey|
00000c50  21 20 2a 2a 2a 0d 06 cc  18 c8 99 20 22 48 6f 75  |! ***...... "Hou|
00000c60  72 67 6c 61 73 73 5f 53  6d 61 73 68 22 0d 06 d6  |rglass_Smash"...|
00000c70  10 ee 20 85 20 f2 65 72  72 6f 72 3a e0 0d 06 e0  |.. . .error:....|
00000c80  0a c8 91 20 30 2c 30 0d  06 ea 21 f4 20 2a 2a 2a  |... 0,0...!. ***|
00000c90  20 47 72 61 62 20 73 63  72 65 65 6e 20 74 6f 20  | Grab screen to |
00000ca0  66 61 64 65 20 2a 2a 2a  0d 06 f4 36 c8 99 22 4f  |fade ***...6.."O|
00000cb0  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00000cc0  31 36 2c 66 61 64 65 25  2c 22 70 69 63 22 2c 30  |16,fade%,"pic",0|
00000cd0  2c 30 2c 30 2c 31 32 38  30 2c 31 30 32 34 0d 06  |,0,0,1280,1024..|
00000ce0  fe 05 3a 0d 07 08 0e e3  20 49 3d 31 20 b8 20 31  |..:..... I=1 . 1|
00000cf0  36 0d 07 12 0e c8 99 36  2c 31 31 32 2c 66 72 0d  |6......6,112,fr.|
00000d00  07 1c 2d c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..-.. "OS_Sprite|
00000d10  4f 70 22 2c 32 35 36 2b  33 34 2c 66 61 64 65 25  |Op",256+34,fade%|
00000d20  2c 22 70 69 63 22 2c 30  2c 30 2c 30 0d 07 26 0a  |,"pic",0,0,0..&.|
00000d30  c8 8e 20 49 20 ca 0d 07  30 15 c9 20 31 3a e6 32  |.. I ...0.. 1:.2|
00000d40  2c 36 33 20 c8 9c 20 33  2a 36 34 0d 07 3a 15 c9  |,63 .. 3*64..:..|
00000d50  20 32 3a e6 32 2c 36 33  20 c8 9c 20 32 2a 36 34  | 2:.2,63 .. 2*64|
00000d60  0d 07 44 15 c9 20 33 3a  e6 32 2c 36 33 20 c8 9c  |..D.. 3:.2,63 ..|
00000d70  20 31 2a 36 34 0d 07 4e  15 c9 20 34 3a e6 32 2c  | 1*64..N.. 4:.2,|
00000d80  36 33 20 c8 9c 20 30 2a  36 34 0d 07 58 15 c9 20  |63 .. 0*64..X.. |
00000d90  35 3a e6 32 2c 34 32 20  c8 9c 20 33 2a 36 34 0d  |5:.2,42 .. 3*64.|
00000da0  07 62 15 c9 20 36 3a e6  32 2c 34 32 20 c8 9c 20  |.b.. 6:.2,42 .. |
00000db0  32 2a 36 34 0d 07 6c 15  c9 20 37 3a e6 32 2c 34  |2*64..l.. 7:.2,4|
00000dc0  32 20 c8 9c 20 31 2a 36  34 0d 07 76 15 c9 20 38  |2 .. 1*64..v.. 8|
00000dd0  3a e6 32 2c 34 32 20 c8  9c 20 30 2a 36 34 0d 07  |:.2,42 .. 0*64..|
00000de0  80 15 c9 20 39 3a e6 32  2c 32 31 20 c8 9c 20 33  |... 9:.2,21 .. 3|
00000df0  2a 36 34 0d 07 8a 15 c9  31 30 3a e6 32 2c 32 31  |*64.....10:.2,21|
00000e00  20 c8 9c 20 32 2a 36 34  0d 07 94 15 c9 31 31 3a  | .. 2*64.....11:|
00000e10  e6 32 2c 32 31 20 c8 9c  20 31 2a 36 34 0d 07 9e  |.2,21 .. 1*64...|
00000e20  15 c9 31 32 3a e6 32 2c  32 31 20 c8 9c 20 30 2a  |..12:.2,21 .. 0*|
00000e30  36 34 0d 07 a8 15 c9 31  33 3a e6 32 2c 30 30 20  |64.....13:.2,00 |
00000e40  c8 9c 20 33 2a 36 34 0d  07 b2 15 c9 31 34 3a e6  |.. 3*64.....14:.|
00000e50  32 2c 30 30 20 c8 9c 20  32 2a 36 34 0d 07 bc 15  |2,00 .. 2*64....|
00000e60  c9 31 35 3a e6 32 2c 30  30 20 c8 9c 20 31 2a 36  |.15:.2,00 .. 1*6|
00000e70  34 0d 07 c6 15 c9 31 36  3a e6 32 2c 30 30 20 c8  |4.....16:.2,00 .|
00000e80  9c 20 30 2a 36 34 0d 07  d0 05 cb 0d 07 da 17 c8  |. 0*64..........|
00000e90  93 20 c8 90 20 30 2c 30  2c 31 32 38 30 2c 31 30  |. .. 0,0,1280,10|
00000ea0  32 34 0d 07 e4 16 c8 99  36 2c 31 31 33 2c 66 72  |24......6,113,fr|
00000eb0  3a 66 72 3d 33 2d 66 72  0d 07 ee 09 c8 96 3a c8  |:fr=3-fr......:.|
00000ec0  96 0d 07 f8 05 ed 0d 08  02 05 db 0d 08 0c 05 e1  |................|
00000ed0  0d 08 16 05 3a 0d 08 20  15 dd f2 63 72 65 61 74  |....:.. ...creat|
00000ee0  65 5f 62 61 63 6b 64 72  6f 70 0d 08 2a 15 e3 20  |e_backdrop..*.. |
00000ef0  59 3d 30 20 b8 20 31 30  32 34 20 88 20 31 36 0d  |Y=0 . 1024 . 16.|
00000f00  08 34 20 72 3d 28 59 2f  31 36 29 3a 67 3d 59 2f  |.4 r=(Y/16):g=Y/|
00000f10  31 32 3a 62 3d 31 39 32  2b 28 59 2f 33 30 29 0d  |12:b=192+(Y/30).|
00000f20  08 3e 30 c8 99 20 73 65  74 5f 67 63 6f 6c 25 2c  |.>0.. set_gcol%,|
00000f30  28 72 3c 3c 38 29 2b 28  67 3c 3c 31 36 29 2b 28  |(r<<8)+(g<<16)+(|
00000f40  62 3c 3c 32 34 29 2c 2c  2c 26 31 30 30 2c 30 0d  |b<<24),,,&100,0.|
00000f50  08 48 17 c8 93 20 c8 90  20 30 2c 59 2c 31 32 38  |.H... .. 0,Y,128|
00000f60  30 2c 31 30 32 34 0d 08  52 3d f4 4d 4f 56 45 20  |0,1024..R=.MOVE |
00000f70  30 2c 59 3a 4d 4f 56 45  20 31 32 38 30 2c 59 2b  |0,Y:MOVE 1280,Y+|
00000f80  38 30 3a 50 4c 4f 54 20  38 35 2c 30 2c 31 30 32  |80:PLOT 85,0,102|
00000f90  34 3a 50 4c 4f 54 20 38  35 2c 31 32 38 30 2c 31  |4:PLOT 85,1280,1|
00000fa0  30 32 34 0d 08 5c 05 ed  0d 08 66 05 3a 0d 08 70  |024..\....f.:..p|
00000fb0  11 e6 20 32 2c 34 32 20  c8 9c 20 32 35 35 0d 08  |.. 2,42 .. 255..|
00000fc0  7a 14 e3 20 58 3d 30 20  b8 20 31 32 37 39 20 88  |z.. X=0 . 1279 .|
00000fd0  20 34 0d 08 84 17 57 3d  28 28 9b 28 58 2f 34 30  | 4....W=((.(X/40|
00000fe0  29 29 2a 32 30 29 2b 33  30 0d 08 8e 1f ec 20 58  |))*20)+30..... X|
00000ff0  2c 34 31 32 3a df 20 58  2c 37 34 30 2b 28 b5 28  |,412:. X,740+(.(|
00001000  58 2f 36 30 29 2a 57 29  0d 08 98 05 ed 0d 08 a2  |X/60)*W)........|
00001010  05 3a 0d 08 ac 14 e6 20  32 2c 34 32 20 c8 9c 20  |.:..... 2,42 .. |
00001020  32 35 35 2d 36 34 0d 08  b6 17 e3 20 58 3d 31 32  |255-64..... X=12|
00001030  38 30 20 b8 20 32 35 36  30 20 88 20 34 0d 08 c0  |80 . 2560 . 4...|
00001040  17 57 3d 28 28 9b 28 58  2f 36 30 29 29 2a 31 30  |.W=((.(X/60))*10|
00001050  29 2b 32 30 0d 08 ca 29  ec 20 58 2d 31 32 38 30  |)+20...). X-1280|
00001060  2c 34 31 32 3a df 20 58  2d 31 32 38 30 2c 36 38  |,412:. X-1280,68|
00001070  30 2b 28 b5 28 58 2f 36  30 29 2a 57 29 0d 08 d4  |0+(.(X/60)*W)...|
00001080  05 ed 0d 08 de 05 3a 0d  08 e8 15 e6 20 32 2c 34  |......:..... 2,4|
00001090  32 20 c8 9c 20 32 35 35  2d 31 32 38 0d 08 f2 17  |2 .. 255-128....|
000010a0  e3 20 58 3d 32 35 36 30  20 b8 20 33 38 34 30 20  |. X=2560 . 3840 |
000010b0  88 20 34 0d 08 fc 16 57  3d 28 28 9b 28 58 2f 38  |. 4....W=((.(X/8|
000010c0  30 29 29 2a 31 30 29 2b  35 0d 09 06 29 ec 20 58  |0))*10)+5...). X|
000010d0  2d 32 35 36 30 2c 34 31  32 3a df 20 58 2d 32 35  |-2560,412:. X-25|
000010e0  36 30 2c 36 30 30 2b 28  b5 28 58 2f 36 30 29 2a  |60,600+(.(X/60)*|
000010f0  57 29 0d 09 10 05 ed 0d  09 1a 05 3a 0d 09 24 14  |W).........:..$.|
00001100  72 3d 31 39 30 3a 67 3d  31 39 30 3a 62 3d 38 30  |r=190:g=190:b=80|
00001110  0d 09 2e 30 c8 99 20 73  65 74 5f 67 63 6f 6c 25  |...0.. set_gcol%|
00001120  2c 28 72 3c 3c 38 29 2b  28 67 3c 3c 31 36 29 2b  |,(r<<8)+(g<<16)+|
00001130  28 62 3c 3c 32 34 29 2c  2c 2c 26 31 30 30 2c 30  |(b<<24),,,&100,0|
00001140  0d 09 38 14 c8 8f 20 c8  90 20 33 32 30 2c 38 37  |..8... .. 320,87|
00001150  30 2c 36 34 0d 09 42 05  3a 0d 09 4c 09 63 7a 25  |0,64..B.:..L.cz%|
00001160  3d 30 0d 09 56 0e c8 91  20 36 34 30 2c 35 31 32  |=0..V... 640,512|
00001170  0d 09 60 0b f3 20 77 25  2c 68 25 0d 09 6a 0e de  |..`.. w%,h%..j..|
00001180  20 68 28 77 25 2c 68 25  29 0d 09 74 11 74 3d 31  | h(w%,h%)..t.t=1|
00001190  30 30 2f 28 77 25 2a 68  25 29 0d 09 7e 08 63 25  |00/(w%*h%)..~.c%|
000011a0  3d 30 0d 09 88 0f e3 20  78 25 3d 31 20 b8 20 77  |=0..... x%=1 . w|
000011b0  25 0d 09 92 14 e3 20 79  25 3d 68 25 20 b8 20 31  |%..... y%=h% . 1|
000011c0  20 88 20 2d 31 0d 09 9c  09 63 25 2b 3d 31 0d 09  | . -1....c%+=1..|
000011d0  a6 34 f4 68 28 78 25 2c  79 25 29 3d 28 28 28 53  |.4.h(x%,y%)=(((S|
000011e0  49 4e 28 78 25 2f 35 29  2a 31 30 29 2b 28 43 4f  |IN(x%/5)*10)+(CO|
000011f0  53 28 79 25 2f 31 35 29  2a 31 30 29 29 2f 32 29  |S(y%/15)*10))/2)|
00001200  2b 31 0d 09 b0 0c 61 6e  67 3d 78 25 2f 38 0d 09  |+1....ang=x%/8..|
00001210  ba 25 68 28 78 25 2c 79  25 29 3d 28 9b 28 61 6e  |.%h(x%,y%)=(.(an|
00001220  67 29 2a 37 29 2b 35 2b  28 b5 28 79 25 2f 36 29  |g)*7)+5+(.(y%/6)|
00001230  2a 32 29 0d 09 c4 05 ed  0d 09 ce 05 ed 0d 09 d8  |*2).............|
00001240  0c dc 20 35 30 2c 31 30  30 0d 09 e2 13 72 3d 32  |.. 50,100....r=2|
00001250  35 35 3a 67 3d 30 3a 62  3d 32 35 35 0d 09 ec 05  |55:g=0:b=255....|
00001260  3a 0d 09 f6 26 78 73 25  3d 32 35 36 30 2f 77 25  |:...&xs%=2560/w%|
00001270  3a 79 73 25 3d 32 30 34  38 2f 68 25 3a 68 73 25  |:ys%=2048/h%:hs%|
00001280  3d 38 30 30 2f 31 31 0d  0a 00 16 6f 78 25 3d 36  |=800/11....ox%=6|
00001290  34 30 3a 6f 73 25 3d 30  3a 63 25 3d 30 0d 0a 0a  |40:os%=0:c%=0...|
000012a0  16 e3 20 79 25 3d 31 20  b8 20 68 25 2d 33 30 20  |.. y%=1 . h%-30 |
000012b0  88 20 31 0d 0a 14 15 e3  20 78 25 3d 31 20 b8 20  |. 1..... x%=1 . |
000012c0  77 25 2d 31 20 88 20 31  0d 0a 1e 09 63 25 2b 3d  |w%-1 . 1....c%+=|
000012d0  31 0d 0a 28 25 63 31 3d  68 28 78 25 2c 79 25 29  |1..(%c1=h(x%,y%)|
000012e0  2a 31 36 3a 63 32 3d 68  28 78 25 2b 31 2c 79 25  |*16:c2=h(x%+1,y%|
000012f0  2b 31 29 2a 31 36 0d 0a  32 1a 6c 3d 28 28 63 31  |+1)*16..2.l=((c1|
00001300  2a 31 29 2d 28 63 32 2a  31 2e 35 29 29 2b 36 34  |*1)-(c2*1.5))+64|
00001310  0d 0a 3c 13 6c 32 3d 32  35 35 2d 28 6c 32 2a 2e  |..<.l2=255-(l2*.|
00001320  37 35 29 0d 0a 46 1d e7  20 6c 3c 31 20 6c 3d 31  |75)..F.. l<1 l=1|
00001330  20 8b 20 e7 20 6c 3e 32  35 35 20 6c 3d 32 35 35  | . . l>255 l=255|
00001340  0d 0a 50 21 e7 20 6c 32  3c 31 20 6c 32 3d 31 20  |..P!. l2<1 l2=1 |
00001350  8b 20 e7 20 6c 32 3e 32  35 35 20 6c 32 3d 32 35  |. . l2>255 l2=25|
00001360  35 0d 0a 5a 29 72 3d 31  39 32 2d 28 6c 32 2a 32  |5..Z)r=192-(l2*2|
00001370  29 3a 67 3d 32 35 35 2d  28 6c 2a 33 29 3a 62 3d  |):g=255-(l*3):b=|
00001380  31 32 30 2d 28 6c 32 2a  32 29 0d 0a 64 12 72 2d  |120-(l2*2)..d.r-|
00001390  3d 28 68 25 2d 79 25 29  2a 31 2e 35 0d 0a 6e 10  |=(h%-y%)*1.5..n.|
000013a0  67 2d 3d 28 68 25 2d 79  25 29 2a 31 0d 0a 78 13  |g-=(h%-y%)*1..x.|
000013b0  62 2b 3d 28 68 25 2d 79  25 29 2a 33 2e 31 35 0d  |b+=(h%-y%)*3.15.|
000013c0  0a 82 1d e7 20 72 3e 32  35 35 20 72 3d 32 35 35  |.... r>255 r=255|
000013d0  20 8b 20 e7 20 72 3c 38  20 72 3d 38 0d 0a 8c 1d  | . . r<8 r=8....|
000013e0  e7 20 67 3e 32 35 35 20  67 3d 32 35 35 20 8b 20  |. g>255 g=255 . |
000013f0  e7 20 67 3c 30 20 67 3d  30 0d 0a 96 1d e7 20 62  |. g<0 g=0..... b|
00001400  3e 32 35 35 20 62 3d 32  35 35 20 8b 20 e7 20 62  |>255 b=255 . . b|
00001410  3c 30 20 62 3d 30 0d 0a  a0 30 c8 99 20 73 65 74  |<0 b=0...0.. set|
00001420  5f 67 63 6f 6c 25 2c 28  72 3c 3c 38 29 2b 28 67  |_gcol%,(r<<8)+(g|
00001430  3c 3c 31 36 29 2b 28 62  3c 3c 32 34 29 2c 2c 2c  |<<16)+(b<<24),,,|
00001440  26 31 30 30 2c 30 0d 0a  aa 2d f2 33 44 28 78 25  |&100,0...-.3D(x%|
00001450  2a 78 73 25 2d 6f 78 25  2c 68 28 78 25 2c 79 25  |*xs%-ox%,h(x%,y%|
00001460  29 2a 68 73 25 2c 79 25  2a 79 73 25 2d 6f 73 25  |)*hs%,y%*ys%-os%|
00001470  2c 31 29 0d 0a b4 33 f2  33 44 28 78 25 2a 78 73  |,1)...3.3D(x%*xs|
00001480  25 2d 6f 78 25 2c 68 28  78 25 2c 79 25 2b 31 29  |%-ox%,h(x%,y%+1)|
00001490  2a 68 73 25 2c 28 79 25  2b 31 29 2a 79 73 25 2d  |*hs%,(y%+1)*ys%-|
000014a0  6f 73 25 2c 31 29 0d 0a  be 33 f2 33 44 28 28 78  |os%,1)...3.3D((x|
000014b0  25 2b 31 29 2a 78 73 25  2d 6f 78 25 2c 68 28 78  |%+1)*xs%-ox%,h(x|
000014c0  25 2b 31 2c 79 25 29 2a  68 73 25 2c 79 25 2a 79  |%+1,y%)*hs%,y%*y|
000014d0  73 25 2d 6f 73 25 2c 32  29 0d 0a c8 39 f2 33 44  |s%-os%,2)...9.3D|
000014e0  28 28 78 25 2b 31 29 2a  78 73 25 2d 6f 78 25 2c  |((x%+1)*xs%-ox%,|
000014f0  68 28 78 25 2b 31 2c 79  25 2b 31 29 2a 68 73 25  |h(x%+1,y%+1)*hs%|
00001500  2c 28 79 25 2b 31 29 2a  79 73 25 2d 6f 73 25 2c  |,(y%+1)*ys%-os%,|
00001510  32 29 0d 0a d2 05 ed 0d  0a dc 05 ed 0d 0a e6 05  |2)..............|
00001520  3a 0d 0a f0 0a c8 91 20  30 2c 30 0d 0a fa 05 3a  |:...... 0,0....:|
00001530  0d 0b 04 27 f4 20 2a 2a  2a 20 47 52 41 42 20 42  |...'. *** GRAB B|
00001540  41 43 4b 44 52 4f 50 20  41 53 20 41 20 53 50 52  |ACKDROP AS A SPR|
00001550  49 54 45 20 2a 2a 2a 0d  0b 0e 36 c8 99 22 4f 53  |ITE ***...6.."OS|
00001560  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 31  |_SpriteOp",256+1|
00001570  36 2c 66 61 64 65 25 2c  22 70 69 63 22 2c 30 2c  |6,fade%,"pic",0,|
00001580  30 2c 30 2c 31 32 38 30  2c 31 30 32 34 0d 0b 18  |0,0,1280,1024...|
00001590  05 3a 0d 0b 22 05 e1 0d  0b 2c 05 3a 0d 0b 36 15  |.:.."....,.:..6.|
000015a0  dd f2 33 44 28 78 25 2c  79 25 2c 7a 25 2c 74 25  |..3D(x%,y%,z%,t%|
000015b0  29 0d 0b 40 2c 6e 7a 25  3d 7a 25 2b 63 7a 25 3a  |)..@,nz%=z%+cz%:|
000015c0  f4 49 46 20 6e 7a 25 3c  30 20 4f 52 20 6e 7a 25  |.IF nz%<0 OR nz%|
000015d0  3e 31 35 30 30 20 45 4e  44 50 52 4f 43 0d 0b 4a  |>1500 ENDPROC..J|
000015e0  1a 61 25 3d 28 28 78 25  2d 36 34 30 29 2f 31 30  |.a%=((x%-640)/10|
000015f0  30 30 29 2a 6e 7a 25 0d  0b 54 1a 62 25 3d 28 28  |00)*nz%..T.b%=((|
00001600  79 25 2d 35 31 32 29 2f  31 30 30 30 29 2a 6e 7a  |y%-512)/1000)*nz|
00001610  25 0d 0b 5e 12 e7 20 74  25 3d 31 20 ec 20 61 25  |%..^.. t%=1 . a%|
00001620  2c 62 25 0d 0b 68 15 e7  20 74 25 3d 32 20 f0 20  |,b%..h.. t%=2 . |
00001630  38 35 2c 61 25 2c 62 25  0d 0b 72 24 e7 20 74 25  |85,a%,b%..r$. t%|
00001640  3d 33 20 c8 93 20 c8 90  20 61 25 2c 62 25 2c 6e  |=3 .. .. a%,b%,n|
00001650  7a 25 2f 31 30 2c 6e 7a  25 2f 31 30 0d 0b 7c 12  |z%/10,nz%/10..|.|
00001660  e7 20 74 25 3d 34 20 df  20 61 25 2c 62 25 0d 0b  |. t%=4 . a%,b%..|
00001670  86 05 e1 0d 0b 90 05 3a  0d 0b 9a 0b dd f2 65 72  |.......:......er|
00001680  72 6f 72 0d 0b a4 18 c8  99 20 22 48 6f 75 72 67  |ror...... "Hourg|
00001690  6c 61 73 73 5f 53 6d 61  73 68 22 0d 0b ae 0c e7  |lass_Smash".....|
000016a0  20 9f 3d 31 37 20 8c 0d  0b b8 07 eb 20 eb 0d 0b  | .=17 ...... ...|
000016b0  c2 05 cc 0d 0b cc 07 eb  20 eb 0d 0b d6 1b fb 33  |........ ......3|
000016c0  20 c8 9c 20 32 35 35 3a  f1 20 27 27 27 22 4f 68  | .. 255:. '''"Oh|
000016d0  20 6e 6f 21 22 0d 0b e0  31 f4 20 20 20 20 31 32  | no!"...1.    12|
000016e0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000016f0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00001700  35 36 37 38 39 30 0d 0b  ea 07 fb 36 33 0d 0b f4  |567890.....63...|
00001710  31 f1 27 22 41 20 68 6f  72 72 69 64 69 62 6c 65  |1.'"A horridible|
00001720  20 65 72 72 6f 72 20 68  61 73 20 6a 75 73 74 20  | error has just |
00001730  6f 63 63 75 72 65 64 2c  20 61 6e 64 22 3b 0d 0b  |occured, and";..|
00001740  fe 29 f1 20 22 64 75 65  20 74 6f 20 74 68 65 20  |.). "due to the |
00001750  6c 61 63 6b 20 6f 66 20  61 20 64 65 63 65 6e 74  |lack of a decent|
00001760  20 65 72 72 6f 72 22 0d  0c 08 26 f1 20 22 68 61  | error"...&. "ha|
00001770  6e 64 6c 65 72 2c 20 52  6f 70 65 20 42 72 69 64  |ndler, Rope Brid|
00001780  67 65 20 6d 75 73 74 20  65 78 69 74 22 0d 0c 12  |ge must exit"...|
00001790  18 f1 20 22 69 6d 6d 65  64 69 61 74 6c 65 79 2e  |.. "immediatley.|
000017a0  2e 2e 22 27 27 0d 0c 1c  07 fb 31 32 0d 0c 26 1f  |.."''.....12..&.|
000017b0  f6 3a f1 20 22 20 61 74  20 6c 69 6e 65 20 22 3b  |.:. " at line ";|
000017c0  9e 27 27 27 27 27 27 27  27 27 27 0d 0c 30 08 fb  |.''''''''''..0..|
000017d0  20 31 35 0d 0c 3a 05 cd  0d 0c 44 05 e1 0d ff     | 15..:....D....|
000017df