� >Bats
'� Spookily written by Philip Mellor
� Oooh-err challenge
(
2� � �spooked_out
<
F(�"How many bats (default 15) ? "bats
P+� bats<=0 bats=15:�"(Using default 15)"
Z4spooky_sky=�yesno("Draw the spooky sky? (Y/N) ")
d:spooky_ground=�yesno("Draw the spooky ground? (Y/N) ")
nX� spooky_ground � spooky_tree=�yesno("Draw the spooky tree? (Y/N) ") � spooky_tree=�
xEslower=�yesno("Slow down (handy for very fast machines)? (Y/N) ")
�0vga=�yesno("Use hi-res screen mode? (Y/N) ")
�
�spooky_random_numbers=�(-�)
�
�� vga �21:�20:� � �15:�12:�
�
�&� Define the spooky colour palette
�� 0,0,0,192
�� 1,255,255,144
�� I=2 � 15
� � I,0,0,192-(I*(192/15))
��
�

)� Set up the data for the spooky bats

D� bx(bats),by(bats),ba(bats),bf(bats),bg(bats),bs(bats),bc(bats)

dir=�(2)

"� I=1 � bats

, �create_bat(I)

6 bc(I)=�(14)+1

@�

J

T� spooky_sky �

^� Y=0 � 700 � 16

h( b=(((192/700)*(700-Y))*.2)+(192*.8)

r= ș "ColourTrans_SetGCOL",(0<<8)+(0<<16)+(b<<24),,,&100,0

| ȓ Ȑ 0,Y+400,1280,32

��

�

�� Draw the spooky stars

�� I=1 � 200

� � 1

� � �(2)=1 � 8+�(5)

� Ȓ �(1279),�(1024)

��

�

�� The spooky moon

�� 1:ȏ Ȑ 960,780,72

�� 2:ȏ Ȑ 920,780,72

�
�

� spooky_ground �
&
0� A spooky fence
:
X=-64:� 3
D�
N X+=�(16)+20
X& Y1=(�(((1280-X)-200)/1060)*80)+24
b) Y2=(�(((1280-X)-180)/1060)*80)+24+40
l � �(20)=1 Y2=Y1+�(8)
v! � X,Y1:� X+�r(8),Y1+64+�(16)
� � BY 2,0:� X+2,Y1
�" � X,Y1+40+�(8):� X+24,Y2+�(8)
�� X>1280
�
��
�
�� spooky_tree �
�� Plot the spooky tree
�ȑ 0,112
��tree(320,0,�(1)*2,52,8)
�
ȑ 0,0
��
�
� spooky_ground �
!� Plot the spooky gravestones
�cross(100,55,1,3,112,8)
 �cross(380,88,-2,2,80,4)
*�cross(500,80,10,4,128,13)
4�cross(720,75,-8,7,160,15)
>�cross(780,82,-1,3,108,10)
H�cross(1100,72,12,6,132,13)
R
\� Plot the spooky ground
f� 15:ȝ Ȑ 700,0,1000,120
p�
z
�P� Set up a spooky sprite block and grab the spooky screen as a spooky sprite
�%sprsize%=1024*162:� spr% sprsize%
�2spr%!0=sprsize%:spr%!4=0:spr%!8=16:spr%!12=16:
�:ș"OS_SpriteOp",256+16,spr%,"backdrop",0,0,0,1279,1023
�
�fr=1
��
� ș6,112,fr
�1 ș"OS_SpriteOp",256+34,spr%,"backdrop",0,0,0
�
� � I=1 � bats
�
�  � Draw a spooky bat
!  bf=�(bf(I)*45):bf(I)+=bg(I)
#  x1=bx(I)+(19*��(ba(I)+90+bf))
#  y1=by(I)+(19*��(ba(I)+90+bf))
$#  x2=bx(I)+(19*��(ba(I)+90-bf))
.#  y2=by(I)+(19*��(ba(I)+90-bf))
8  x3=bx(I)+(4*��(ba(I)-90))
B  y3=by(I)+(4*��(ba(I)-90))
L"  � bc(I):� bc(I)<15 bc(I)+=.5
V1  � x1,y1:� bx(I),by(I):� 85,x3,y3:� 85,x2,y2
`
j  � Move the spooky bat
t  bx(I)+=bs(I)*��ba(I)
~  by(I)+=bs(I)*��ba(I)
�
�D  � Check to see if the spooky bat has spookily moved off-screen
�B  � bx(I)<0 � bx(I)>1280 � by(I)<0 � by(I)>1024 �create_bat(I)
�
�  �
�
� ș6,113,fr:fr=3-fr:Ȗ
� � slower Ȗ
�
��0
�
��


2� Spookily create a new bat/replace an old one
��create_bat(I)
# bx(I)=�(1279):by(I)=�(924)+100
( bc(I)=2
2 bs(I)=�(14)+4
<- � dir=1 ba(I)=�(45)+45 � ba(I)=225+�(45)
F" bf(I)=�(1):bg(I)=(�(1)*.6)+.2
P � �(4)=1 dir=�(2)
Z�
d
n� Spooky recursive tree!
x��tree(x,y,a,r,s)
�$ � x1,y1,x2,y2,x3,y3,x4,y4,r2,ra
� r2=r*.6
� � y>800 � � r>24 r=24+�(8)
�	 � 15
� �
�
  r2=r*.6
�  � �(10)=1 r2=r*.6
�  � �(8)=1 a+=�r(1)*4
�  x+=(s*(��a))
�  y+=(s*(��a))
�  r-=(�(1)*.4)+.2
�  a+=�r(1)*1
�  rc=r*.9:
  � rc<2 rc=2
  � rc>13 rc=13
D  � �x*.65,y*.75)<rc � ȓ Ȑ x*.65-(r*.3),y*.75-(r*.3),r*.6,r*.6
"  ra=a � 360
,)  � ra>=0 � ra<60 � ra<=0 � ra>=-60 �
6   rr=12
@   � r<32 rr=18
J   � r<14 rr=26
T  �
^   rr=40
h  �
r
|  � r2>4 �
�   � r>40 r2=r2*((r2/64)*2)
�B   � �(rr)=1 � r2>4 �tree(x,y,a+�r(62),(r)+�r2(r/4),s):r2=r*.6
�  �
�4� r<10 � x*.7<0 � y*.7<0 � x*.7>1279 � y*.7>1024
��
�
�-� Spooky random positive/negative numbers
�
� �r(ran)
�  � �(2)=1 =�(ran) � =-�(ran)
�� �r2(ran)
�  � �(3)=1 =�(ran) � =-�(ran)
�
� � Spooky gravestone plotting
��cross(X,Y,A,R,S,C)
 � C
 X1=X+(R*��(A-90))
& Y1=Y+(R*��(A-90))
0 X2=X+(R*��(A+90))
: Y2=Y+(R*��(A+90))
D P=X+(S*��(A))
N Q=Y+(S*��(A))
X X3=P+(R*��(A-90))
b Y3=Q+(R*��(A-90))
l X4=P+(R*��(A+90))
v Y4=Q+(R*��(A+90))
� M=X+((.75*S)*��(A))
� N=Y+((.75*S)*��(A))
� P1=M+((.25*S)*��(A-90))
� Q1=N+((.25*S)*��(A-90))
� P2=M+((.25*S)*��(A+90))
� Q2=N+((.25*S)*��(A+90))
� � X1,Y1:� X2,Y2
� � 85,X3,Y3:� 85,X4,Y4
� � P1,Q1:� P2,Q2
� � P1+4,Q1-2:� P2+4,Q2-2
��
�
�%� The Spooky Spanish Inquisition?
ݤyesno(question$)
� question$;
�I$=�:��"YyNn",I$)>0
 &� �"Yy",I$) � "Yes":=� � � "No":=�
*<� Ah, but no-one expects the Spooky Spanish Inquisition!
4
>� Spooky error handler
H��spooked_out
R� �=17 �
\3� �:�'''"Quitting? Are you too SCARED???"''''''
f�
p4� �:�'''"Help! A spooky type error has occured:"
z�'�$;" @ line ";�''''''
��
��
��
�

00000000  0d 00 0a 0b f4 20 3e 42  61 74 73 0d 00 14 27 f4  |..... >Bats...'.|
00000010  20 53 70 6f 6f 6b 69 6c  79 20 77 72 69 74 74 65  | Spookily writte|
00000020  6e 20 62 79 20 50 68 69  6c 69 70 20 4d 65 6c 6c  |n by Philip Mell|
00000030  6f 72 0d 00 1e 18 f4 20  4f 6f 6f 68 2d 65 72 72  |or..... Oooh-err|
00000040  20 63 68 61 6c 6c 65 6e  67 65 0d 00 28 04 0d 00  | challenge..(...|
00000050  32 14 ee 20 85 20 f2 73  70 6f 6f 6b 65 64 5f 6f  |2.. . .spooked_o|
00000060  75 74 0d 00 3c 04 0d 00  46 28 e8 22 48 6f 77 20  |ut..<...F(."How |
00000070  6d 61 6e 79 20 62 61 74  73 20 28 64 65 66 61 75  |many bats (defau|
00000080  6c 74 20 31 35 29 20 3f  20 22 62 61 74 73 0d 00  |lt 15) ? "bats..|
00000090  50 2b e7 20 62 61 74 73  3c 3d 30 20 62 61 74 73  |P+. bats<=0 bats|
000000a0  3d 31 35 3a f1 22 28 55  73 69 6e 67 20 64 65 66  |=15:."(Using def|
000000b0  61 75 6c 74 20 31 35 29  22 0d 00 5a 34 73 70 6f  |ault 15)"..Z4spo|
000000c0  6f 6b 79 5f 73 6b 79 3d  a4 79 65 73 6e 6f 28 22  |oky_sky=.yesno("|
000000d0  44 72 61 77 20 74 68 65  20 73 70 6f 6f 6b 79 20  |Draw the spooky |
000000e0  73 6b 79 3f 20 28 59 2f  4e 29 20 22 29 0d 00 64  |sky? (Y/N) ")..d|
000000f0  3a 73 70 6f 6f 6b 79 5f  67 72 6f 75 6e 64 3d a4  |:spooky_ground=.|
00000100  79 65 73 6e 6f 28 22 44  72 61 77 20 74 68 65 20  |yesno("Draw the |
00000110  73 70 6f 6f 6b 79 20 67  72 6f 75 6e 64 3f 20 28  |spooky ground? (|
00000120  59 2f 4e 29 20 22 29 0d  00 6e 58 e7 20 73 70 6f  |Y/N) ")..nX. spo|
00000130  6f 6b 79 5f 67 72 6f 75  6e 64 20 8c 20 73 70 6f  |oky_ground . spo|
00000140  6f 6b 79 5f 74 72 65 65  3d a4 79 65 73 6e 6f 28  |oky_tree=.yesno(|
00000150  22 44 72 61 77 20 74 68  65 20 73 70 6f 6f 6b 79  |"Draw the spooky|
00000160  20 74 72 65 65 3f 20 28  59 2f 4e 29 20 22 29 20  | tree? (Y/N) ") |
00000170  8b 20 73 70 6f 6f 6b 79  5f 74 72 65 65 3d a3 0d  |. spooky_tree=..|
00000180  00 78 45 73 6c 6f 77 65  72 3d a4 79 65 73 6e 6f  |.xEslower=.yesno|
00000190  28 22 53 6c 6f 77 20 64  6f 77 6e 20 28 68 61 6e  |("Slow down (han|
000001a0  64 79 20 66 6f 72 20 76  65 72 79 20 66 61 73 74  |dy for very fast|
000001b0  20 6d 61 63 68 69 6e 65  73 29 3f 20 28 59 2f 4e  | machines)? (Y/N|
000001c0  29 20 22 29 0d 00 82 30  76 67 61 3d a4 79 65 73  |) ")...0vga=.yes|
000001d0  6e 6f 28 22 55 73 65 20  68 69 2d 72 65 73 20 73  |no("Use hi-res s|
000001e0  63 72 65 65 6e 20 6d 6f  64 65 3f 20 28 59 2f 4e  |creen mode? (Y/N|
000001f0  29 20 22 29 0d 00 8c 04  0d 00 96 1f 73 70 6f 6f  |) ")........spoo|
00000200  6b 79 5f 72 61 6e 64 6f  6d 5f 6e 75 6d 62 65 72  |ky_random_number|
00000210  73 3d b3 28 2d 91 29 0d  00 a0 04 0d 00 aa 1f e7  |s=.(-.).........|
00000220  20 76 67 61 20 eb 32 31  3a eb 32 30 3a 87 20 8b  | vga .21:.20:. .|
00000230  20 eb 31 35 3a eb 31 32  3a 87 0d 00 b4 04 0d 00  | .15:.12:.......|
00000240  be 26 f4 20 44 65 66 69  6e 65 20 74 68 65 20 73  |.&. Define the s|
00000250  70 6f 6f 6b 79 20 63 6f  6c 6f 75 72 20 70 61 6c  |pooky colour pal|
00000260  65 74 74 65 0d 00 c8 0f  fb 20 30 2c 30 2c 30 2c  |ette..... 0,0,0,|
00000270  31 39 32 0d 00 d2 13 fb  20 31 2c 32 35 35 2c 32  |192..... 1,255,2|
00000280  35 35 2c 31 34 34 0d 00  dc 0e e3 20 49 3d 32 20  |55,144..... I=2 |
00000290  b8 20 31 35 0d 00 e6 1d  20 fb 20 49 2c 30 2c 30  |. 15.... . I,0,0|
000002a0  2c 31 39 32 2d 28 49 2a  28 31 39 32 2f 31 35 29  |,192-(I*(192/15)|
000002b0  29 0d 00 f0 05 ed 0d 00  fa 04 0d 01 04 29 f4 20  |)............). |
000002c0  53 65 74 20 75 70 20 74  68 65 20 64 61 74 61 20  |Set up the data |
000002d0  66 6f 72 20 74 68 65 20  73 70 6f 6f 6b 79 20 62  |for the spooky b|
000002e0  61 74 73 0d 01 0e 44 de  20 62 78 28 62 61 74 73  |ats...D. bx(bats|
000002f0  29 2c 62 79 28 62 61 74  73 29 2c 62 61 28 62 61  |),by(bats),ba(ba|
00000300  74 73 29 2c 62 66 28 62  61 74 73 29 2c 62 67 28  |ts),bf(bats),bg(|
00000310  62 61 74 73 29 2c 62 73  28 62 61 74 73 29 2c 62  |bats),bs(bats),b|
00000320  63 28 62 61 74 73 29 0d  01 18 0c 64 69 72 3d b3  |c(bats)....dir=.|
00000330  28 32 29 0d 01 22 10 e3  20 49 3d 31 20 b8 20 62  |(2)..".. I=1 . b|
00000340  61 74 73 0d 01 2c 13 20  f2 63 72 65 61 74 65 5f  |ats..,. .create_|
00000350  62 61 74 28 49 29 0d 01  36 12 20 62 63 28 49 29  |bat(I)..6. bc(I)|
00000360  3d b3 28 31 34 29 2b 31  0d 01 40 05 ed 0d 01 4a  |=.(14)+1..@....J|
00000370  04 0d 01 54 12 e7 20 73  70 6f 6f 6b 79 5f 73 6b  |...T.. spooky_sk|
00000380  79 20 8c 0d 01 5e 14 e3  20 59 3d 30 20 b8 20 37  |y ...^.. Y=0 . 7|
00000390  30 30 20 88 20 31 36 0d  01 68 28 20 62 3d 28 28  |00 . 16..h( b=((|
000003a0  28 31 39 32 2f 37 30 30  29 2a 28 37 30 30 2d 59  |(192/700)*(700-Y|
000003b0  29 29 2a 2e 32 29 2b 28  31 39 32 2a 2e 38 29 0d  |))*.2)+(192*.8).|
000003c0  01 72 3d 20 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |.r= .. "ColourTr|
000003d0  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 28 30 3c  |ans_SetGCOL",(0<|
000003e0  3c 38 29 2b 28 30 3c 3c  31 36 29 2b 28 62 3c 3c  |<8)+(0<<16)+(b<<|
000003f0  32 34 29 2c 2c 2c 26 31  30 30 2c 30 0d 01 7c 1a  |24),,,&100,0..|.|
00000400  20 c8 93 20 c8 90 20 30  2c 59 2b 34 30 30 2c 31  | .. .. 0,Y+400,1|
00000410  32 38 30 2c 33 32 0d 01  86 05 ed 0d 01 90 04 0d  |280,32..........|
00000420  01 9a 1b f4 20 44 72 61  77 20 74 68 65 20 73 70  |.... Draw the sp|
00000430  6f 6f 6b 79 20 73 74 61  72 73 0d 01 a4 0f e3 20  |ooky stars..... |
00000440  49 3d 31 20 b8 20 32 30  30 0d 01 ae 08 20 e6 20  |I=1 . 200.... . |
00000450  31 0d 01 b8 16 20 e7 20  b3 28 32 29 3d 31 20 e6  |1.... . .(2)=1 .|
00000460  20 38 2b b3 28 35 29 0d  01 c2 17 20 c8 92 20 b3  | 8+.(5).... .. .|
00000470  28 31 32 37 39 29 2c b3  28 31 30 32 34 29 0d 01  |(1279),.(1024)..|
00000480  cc 05 ed 0d 01 d6 04 0d  01 e0 15 f4 20 54 68 65  |............ The|
00000490  20 73 70 6f 6f 6b 79 20  6d 6f 6f 6e 0d 01 ea 18  | spooky moon....|
000004a0  e6 20 31 3a c8 8f 20 c8  90 20 39 36 30 2c 37 38  |. 1:.. .. 960,78|
000004b0  30 2c 37 32 0d 01 f4 18  e6 20 32 3a c8 8f 20 c8  |0,72..... 2:.. .|
000004c0  90 20 39 32 30 2c 37 38  30 2c 37 32 0d 01 fe 04  |. 920,780,72....|
000004d0  0d 02 08 05 cd 0d 02 12  04 0d 02 1c 15 e7 20 73  |.............. s|
000004e0  70 6f 6f 6b 79 5f 67 72  6f 75 6e 64 20 8c 0d 02  |pooky_ground ...|
000004f0  26 04 0d 02 30 14 f4 20  41 20 73 70 6f 6f 6b 79  |&...0.. A spooky|
00000500  20 66 65 6e 63 65 0d 02  3a 0d 58 3d 2d 36 34 3a  | fence..:.X=-64:|
00000510  e6 20 33 0d 02 44 05 f5  0d 02 4e 10 20 58 2b 3d  |. 3..D....N. X+=|
00000520  b3 28 31 36 29 2b 32 30  0d 02 58 26 20 59 31 3d  |.(16)+20..X& Y1=|
00000530  28 9b 28 28 28 31 32 38  30 2d 58 29 2d 32 30 30  |(.(((1280-X)-200|
00000540  29 2f 31 30 36 30 29 2a  38 30 29 2b 32 34 0d 02  |)/1060)*80)+24..|
00000550  62 29 20 59 32 3d 28 9b  28 28 28 31 32 38 30 2d  |b) Y2=(.(((1280-|
00000560  58 29 2d 31 38 30 29 2f  31 30 36 30 29 2a 38 30  |X)-180)/1060)*80|
00000570  29 2b 32 34 2b 34 30 0d  02 6c 19 20 e7 20 b3 28  |)+24+40..l. . .(|
00000580  32 30 29 3d 31 20 59 32  3d 59 31 2b b3 28 38 29  |20)=1 Y2=Y1+.(8)|
00000590  0d 02 76 21 20 ec 20 58  2c 59 31 3a df 20 58 2b  |..v! . X,Y1:. X+|
000005a0  a4 72 28 38 29 2c 59 31  2b 36 34 2b b3 28 31 36  |.r(8),Y1+64+.(16|
000005b0  29 0d 02 80 16 20 df 20  42 59 20 32 2c 30 3a df  |).... . BY 2,0:.|
000005c0  20 58 2b 32 2c 59 31 0d  02 8a 22 20 ec 20 58 2c  | X+2,Y1..." . X,|
000005d0  59 31 2b 34 30 2b b3 28  38 29 3a df 20 58 2b 32  |Y1+40+.(8):. X+2|
000005e0  34 2c 59 32 2b b3 28 38  29 0d 02 94 0c fd 20 58  |4,Y2+.(8)..... X|
000005f0  3e 31 32 38 30 0d 02 9e  04 0d 02 a8 05 cd 0d 02  |>1280...........|
00000600  b2 04 0d 02 bc 13 e7 20  73 70 6f 6f 6b 79 5f 74  |....... spooky_t|
00000610  72 65 65 20 8c 0d 02 c6  1a f4 20 50 6c 6f 74 20  |ree ...... Plot |
00000620  74 68 65 20 73 70 6f 6f  6b 79 20 74 72 65 65 0d  |the spooky tree.|
00000630  02 d0 0c c8 91 20 30 2c  31 31 32 0d 02 da 1c f2  |..... 0,112.....|
00000640  74 72 65 65 28 33 32 30  2c 30 2c b3 28 31 29 2a  |tree(320,0,.(1)*|
00000650  32 2c 35 32 2c 38 29 0d  02 e4 0a c8 91 20 30 2c  |2,52,8)...... 0,|
00000660  30 0d 02 ee 05 cd 0d 02  f8 04 0d 03 02 15 e7 20  |0.............. |
00000670  73 70 6f 6f 6b 79 5f 67  72 6f 75 6e 64 20 8c 0d  |spooky_ground ..|
00000680  03 0c 21 f4 20 50 6c 6f  74 20 74 68 65 20 73 70  |..!. Plot the sp|
00000690  6f 6f 6b 79 20 67 72 61  76 65 73 74 6f 6e 65 73  |ooky gravestones|
000006a0  0d 03 16 1c f2 63 72 6f  73 73 28 31 30 30 2c 35  |.....cross(100,5|
000006b0  35 2c 31 2c 33 2c 31 31  32 2c 38 29 0d 03 20 1c  |5,1,3,112,8).. .|
000006c0  f2 63 72 6f 73 73 28 33  38 30 2c 38 38 2c 2d 32  |.cross(380,88,-2|
000006d0  2c 32 2c 38 30 2c 34 29  0d 03 2a 1e f2 63 72 6f  |,2,80,4)..*..cro|
000006e0  73 73 28 35 30 30 2c 38  30 2c 31 30 2c 34 2c 31  |ss(500,80,10,4,1|
000006f0  32 38 2c 31 33 29 0d 03  34 1e f2 63 72 6f 73 73  |28,13)..4..cross|
00000700  28 37 32 30 2c 37 35 2c  2d 38 2c 37 2c 31 36 30  |(720,75,-8,7,160|
00000710  2c 31 35 29 0d 03 3e 1e  f2 63 72 6f 73 73 28 37  |,15)..>..cross(7|
00000720  38 30 2c 38 32 2c 2d 31  2c 33 2c 31 30 38 2c 31  |80,82,-1,3,108,1|
00000730  30 29 0d 03 48 1f f2 63  72 6f 73 73 28 31 31 30  |0)..H..cross(110|
00000740  30 2c 37 32 2c 31 32 2c  36 2c 31 33 32 2c 31 33  |0,72,12,6,132,13|
00000750  29 0d 03 52 04 0d 03 5c  1c f4 20 50 6c 6f 74 20  |)..R...\.. Plot |
00000760  74 68 65 20 73 70 6f 6f  6b 79 20 67 72 6f 75 6e  |the spooky groun|
00000770  64 0d 03 66 1d e6 20 31  35 3a c8 9d 20 c8 90 20  |d..f.. 15:.. .. |
00000780  37 30 30 2c 30 2c 31 30  30 30 2c 31 32 30 0d 03  |700,0,1000,120..|
00000790  70 05 cd 0d 03 7a 04 0d  03 84 50 f4 20 53 65 74  |p....z....P. Set|
000007a0  20 75 70 20 61 20 73 70  6f 6f 6b 79 20 73 70 72  | up a spooky spr|
000007b0  69 74 65 20 62 6c 6f 63  6b 20 61 6e 64 20 67 72  |ite block and gr|
000007c0  61 62 20 74 68 65 20 73  70 6f 6f 6b 79 20 73 63  |ab the spooky sc|
000007d0  72 65 65 6e 20 61 73 20  61 20 73 70 6f 6f 6b 79  |reen as a spooky|
000007e0  20 73 70 72 69 74 65 0d  03 8e 25 73 70 72 73 69  | sprite...%sprsi|
000007f0  7a 65 25 3d 31 30 32 34  2a 31 36 32 3a de 20 73  |ze%=1024*162:. s|
00000800  70 72 25 20 73 70 72 73  69 7a 65 25 0d 03 98 32  |pr% sprsize%...2|
00000810  73 70 72 25 21 30 3d 73  70 72 73 69 7a 65 25 3a  |spr%!0=sprsize%:|
00000820  73 70 72 25 21 34 3d 30  3a 73 70 72 25 21 38 3d  |spr%!4=0:spr%!8=|
00000830  31 36 3a 73 70 72 25 21  31 32 3d 31 36 3a 0d 03  |16:spr%!12=16:..|
00000840  a2 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.:.."OS_SpriteOp|
00000850  22 2c 32 35 36 2b 31 36  2c 73 70 72 25 2c 22 62  |",256+16,spr%,"b|
00000860  61 63 6b 64 72 6f 70 22  2c 30 2c 30 2c 30 2c 31  |ackdrop",0,0,0,1|
00000870  32 37 39 2c 31 30 32 33  0d 03 ac 04 0d 03 b6 08  |279,1023........|
00000880  66 72 3d 31 0d 03 c0 05  f5 0d 03 ca 0f 20 c8 99  |fr=1......... ..|
00000890  36 2c 31 31 32 2c 66 72  0d 03 d4 31 20 c8 99 22  |6,112,fr...1 .."|
000008a0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
000008b0  2b 33 34 2c 73 70 72 25  2c 22 62 61 63 6b 64 72  |+34,spr%,"backdr|
000008c0  6f 70 22 2c 30 2c 30 2c  30 0d 03 de 04 0d 03 e8  |op",0,0,0.......|
000008d0  11 20 e3 20 49 3d 31 20  b8 20 62 61 74 73 0d 03  |. . I=1 . bats..|
000008e0  f2 04 0d 03 fc 19 20 20  f4 20 44 72 61 77 20 61  |......  . Draw a|
000008f0  20 73 70 6f 6f 6b 79 20  62 61 74 0d 04 06 21 20  | spooky bat...! |
00000900  20 62 66 3d 94 28 62 66  28 49 29 2a 34 35 29 3a  | bf=.(bf(I)*45):|
00000910  62 66 28 49 29 2b 3d 62  67 28 49 29 0d 04 10 23  |bf(I)+=bg(I)...#|
00000920  20 20 78 31 3d 62 78 28  49 29 2b 28 31 39 2a b5  |  x1=bx(I)+(19*.|
00000930  b2 28 62 61 28 49 29 2b  39 30 2b 62 66 29 29 0d  |.(ba(I)+90+bf)).|
00000940  04 1a 23 20 20 79 31 3d  62 79 28 49 29 2b 28 31  |..#  y1=by(I)+(1|
00000950  39 2a 9b b2 28 62 61 28  49 29 2b 39 30 2b 62 66  |9*..(ba(I)+90+bf|
00000960  29 29 0d 04 24 23 20 20  78 32 3d 62 78 28 49 29  |))..$#  x2=bx(I)|
00000970  2b 28 31 39 2a b5 b2 28  62 61 28 49 29 2b 39 30  |+(19*..(ba(I)+90|
00000980  2d 62 66 29 29 0d 04 2e  23 20 20 79 32 3d 62 79  |-bf))...#  y2=by|
00000990  28 49 29 2b 28 31 39 2a  9b b2 28 62 61 28 49 29  |(I)+(19*..(ba(I)|
000009a0  2b 39 30 2d 62 66 29 29  0d 04 38 1f 20 20 78 33  |+90-bf))..8.  x3|
000009b0  3d 62 78 28 49 29 2b 28  34 2a b5 b2 28 62 61 28  |=bx(I)+(4*..(ba(|
000009c0  49 29 2d 39 30 29 29 0d  04 42 1f 20 20 79 33 3d  |I)-90))..B.  y3=|
000009d0  62 79 28 49 29 2b 28 34  2a 9b b2 28 62 61 28 49  |by(I)+(4*..(ba(I|
000009e0  29 2d 39 30 29 29 0d 04  4c 22 20 20 e6 20 62 63  |)-90))..L"  . bc|
000009f0  28 49 29 3a e7 20 62 63  28 49 29 3c 31 35 20 62  |(I):. bc(I)<15 b|
00000a00  63 28 49 29 2b 3d 2e 35  0d 04 56 31 20 20 ec 20  |c(I)+=.5..V1  . |
00000a10  78 31 2c 79 31 3a ec 20  62 78 28 49 29 2c 62 79  |x1,y1:. bx(I),by|
00000a20  28 49 29 3a f0 20 38 35  2c 78 33 2c 79 33 3a f0  |(I):. 85,x3,y3:.|
00000a30  20 38 35 2c 78 32 2c 79  32 0d 04 60 04 0d 04 6a  | 85,x2,y2..`...j|
00000a40  1b 20 20 f4 20 4d 6f 76  65 20 74 68 65 20 73 70  |.  . Move the sp|
00000a50  6f 6f 6b 79 20 62 61 74  0d 04 74 1a 20 20 62 78  |ooky bat..t.  bx|
00000a60  28 49 29 2b 3d 62 73 28  49 29 2a b5 b2 62 61 28  |(I)+=bs(I)*..ba(|
00000a70  49 29 0d 04 7e 1a 20 20  62 79 28 49 29 2b 3d 62  |I)..~.  by(I)+=b|
00000a80  73 28 49 29 2a 9b b2 62  61 28 49 29 0d 04 88 04  |s(I)*..ba(I)....|
00000a90  0d 04 92 44 20 20 f4 20  43 68 65 63 6b 20 74 6f  |...D  . Check to|
00000aa0  20 73 65 65 20 69 66 20  74 68 65 20 73 70 6f 6f  | see if the spoo|
00000ab0  6b 79 20 62 61 74 20 68  61 73 20 73 70 6f 6f 6b  |ky bat has spook|
00000ac0  69 6c 79 20 6d 6f 76 65  64 20 6f 66 66 2d 73 63  |ily moved off-sc|
00000ad0  72 65 65 6e 0d 04 9c 42  20 20 e7 20 62 78 28 49  |reen...B  . bx(I|
00000ae0  29 3c 30 20 84 20 62 78  28 49 29 3e 31 32 38 30  |)<0 . bx(I)>1280|
00000af0  20 84 20 62 79 28 49 29  3c 30 20 84 20 62 79 28  | . by(I)<0 . by(|
00000b00  49 29 3e 31 30 32 34 20  f2 63 72 65 61 74 65 5f  |I)>1024 .create_|
00000b10  62 61 74 28 49 29 0d 04  a6 04 0d 04 b0 07 20 20  |bat(I)........  |
00000b20  ed 0d 04 ba 04 0d 04 c4  1a 20 c8 99 36 2c 31 31  |......... ..6,11|
00000b30  33 2c 66 72 3a 66 72 3d  33 2d 66 72 3a c8 96 0d  |3,fr:fr=3-fr:...|
00000b40  04 ce 10 20 e7 20 73 6c  6f 77 65 72 20 c8 96 0d  |... . slower ...|
00000b50  04 d8 04 0d 04 e2 06 fd  30 0d 04 ec 04 0d 04 f6  |........0.......|
00000b60  05 e0 0d 05 00 04 0d 05  0a 32 f4 20 53 70 6f 6f  |.........2. Spoo|
00000b70  6b 69 6c 79 20 63 72 65  61 74 65 20 61 20 6e 65  |kily create a ne|
00000b80  77 20 62 61 74 2f 72 65  70 6c 61 63 65 20 61 6e  |w bat/replace an|
00000b90  20 6f 6c 64 20 6f 6e 65  0d 05 14 13 dd f2 63 72  | old one......cr|
00000ba0  65 61 74 65 5f 62 61 74  28 49 29 0d 05 1e 23 20  |eate_bat(I)...# |
00000bb0  62 78 28 49 29 3d b3 28  31 32 37 39 29 3a 62 79  |bx(I)=.(1279):by|
00000bc0  28 49 29 3d b3 28 39 32  34 29 2b 31 30 30 0d 05  |(I)=.(924)+100..|
00000bd0  28 0c 20 62 63 28 49 29  3d 32 0d 05 32 12 20 62  |(. bc(I)=2..2. b|
00000be0  73 28 49 29 3d b3 28 31  34 29 2b 34 0d 05 3c 2d  |s(I)=.(14)+4..<-|
00000bf0  20 e7 20 64 69 72 3d 31  20 62 61 28 49 29 3d b3  | . dir=1 ba(I)=.|
00000c00  28 34 35 29 2b 34 35 20  8b 20 62 61 28 49 29 3d  |(45)+45 . ba(I)=|
00000c10  32 32 35 2b b3 28 34 35  29 0d 05 46 22 20 62 66  |225+.(45)..F" bf|
00000c20  28 49 29 3d b3 28 31 29  3a 62 67 28 49 29 3d 28  |(I)=.(1):bg(I)=(|
00000c30  b3 28 31 29 2a 2e 36 29  2b 2e 32 0d 05 50 16 20  |.(1)*.6)+.2..P. |
00000c40  e7 20 b3 28 34 29 3d 31  20 64 69 72 3d b3 28 32  |. .(4)=1 dir=.(2|
00000c50  29 0d 05 5a 05 e1 0d 05  64 04 0d 05 6e 1c f4 20  |)..Z....d...n.. |
00000c60  53 70 6f 6f 6b 79 20 72  65 63 75 72 73 69 76 65  |Spooky recursive|
00000c70  20 74 72 65 65 21 0d 05  78 15 dd f2 74 72 65 65  | tree!..x...tree|
00000c80  28 78 2c 79 2c 61 2c 72  2c 73 29 0d 05 82 24 20  |(x,y,a,r,s)...$ |
00000c90  ea 20 78 31 2c 79 31 2c  78 32 2c 79 32 2c 78 33  |. x1,y1,x2,y2,x3|
00000ca0  2c 79 33 2c 78 34 2c 79  34 2c 72 32 2c 72 61 0d  |,y3,x4,y4,r2,ra.|
00000cb0  05 8c 0c 20 72 32 3d 72  2a 2e 36 0d 05 96 1f 20  |... r2=r*.6.... |
00000cc0  e7 20 79 3e 38 30 30 20  8c 20 e7 20 72 3e 32 34  |. y>800 . . r>24|
00000cd0  20 72 3d 32 34 2b b3 28  38 29 0d 05 a0 09 20 e6  | r=24+.(8).... .|
00000ce0  20 31 35 0d 05 aa 06 20  f5 0d 05 b4 0d 20 20 72  | 15.... .....  r|
00000cf0  32 3d 72 2a 2e 36 0d 05  be 17 20 20 e7 20 b3 28  |2=r*.6....  . .(|
00000d00  31 30 29 3d 31 20 72 32  3d 72 2a 2e 36 0d 05 c8  |10)=1 r2=r*.6...|
00000d10  19 20 20 e7 20 b3 28 38  29 3d 31 20 61 2b 3d a4  |.  . .(8)=1 a+=.|
00000d20  72 28 31 29 2a 34 0d 05  d2 12 20 20 78 2b 3d 28  |r(1)*4....  x+=(|
00000d30  73 2a 28 b5 b2 61 29 29  0d 05 dc 12 20 20 79 2b  |s*(..a))....  y+|
00000d40  3d 28 73 2a 28 9b b2 61  29 29 0d 05 e6 15 20 20  |=(s*(..a))....  |
00000d50  72 2d 3d 28 b3 28 31 29  2a 2e 34 29 2b 2e 32 0d  |r-=(.(1)*.4)+.2.|
00000d60  05 f0 10 20 20 61 2b 3d  a4 72 28 31 29 2a 31 0d  |...  a+=.r(1)*1.|
00000d70  05 fa 0e 20 20 72 63 3d  72 2a 2e 39 3a 0d 06 04  |...  rc=r*.9:...|
00000d80  11 20 20 e7 20 72 63 3c  32 20 72 63 3d 32 0d 06  |.  . rc<2 rc=2..|
00000d90  0e 13 20 20 e7 20 72 63  3e 31 33 20 72 63 3d 31  |..  . rc>13 rc=1|
00000da0  33 0d 06 18 44 20 20 e7  20 b0 78 2a 2e 36 35 2c  |3...D  . .x*.65,|
00000db0  79 2a 2e 37 35 29 3c 72  63 20 8c 20 c8 93 20 c8  |y*.75)<rc . .. .|
00000dc0  90 20 78 2a 2e 36 35 2d  28 72 2a 2e 33 29 2c 79  |. x*.65-(r*.3),y|
00000dd0  2a 2e 37 35 2d 28 72 2a  2e 33 29 2c 72 2a 2e 36  |*.75-(r*.3),r*.6|
00000de0  2c 72 2a 2e 36 0d 06 22  10 20 20 72 61 3d 61 20  |,r*.6..".  ra=a |
00000df0  83 20 33 36 30 0d 06 2c  29 20 20 e7 20 72 61 3e  |. 360..,)  . ra>|
00000e00  3d 30 20 80 20 72 61 3c  36 30 20 84 20 72 61 3c  |=0 . ra<60 . ra<|
00000e10  3d 30 20 80 20 72 61 3e  3d 2d 36 30 20 8c 0d 06  |=0 . ra>=-60 ...|
00000e20  36 0c 20 20 20 72 72 3d  31 32 0d 06 40 13 20 20  |6.   rr=12..@.  |
00000e30  20 e7 20 72 3c 33 32 20  72 72 3d 31 38 0d 06 4a  | . r<32 rr=18..J|
00000e40  13 20 20 20 e7 20 72 3c  31 34 20 72 72 3d 32 36  |.   . r<14 rr=26|
00000e50  0d 06 54 07 20 20 cc 0d  06 5e 0c 20 20 20 72 72  |..T.  ...^.   rr|
00000e60  3d 34 30 0d 06 68 07 20  20 cd 0d 06 72 04 0d 06  |=40..h.  ...r...|
00000e70  7c 0e 20 20 e7 20 72 32  3e 34 20 8c 0d 06 86 1f  ||.  . r2>4 .....|
00000e80  20 20 20 e7 20 72 3e 34  30 20 72 32 3d 72 32 2a  |   . r>40 r2=r2*|
00000e90  28 28 72 32 2f 36 34 29  2a 32 29 0d 06 90 42 20  |((r2/64)*2)...B |
00000ea0  20 20 e7 20 b3 28 72 72  29 3d 31 20 80 20 72 32  |  . .(rr)=1 . r2|
00000eb0  3e 34 20 f2 74 72 65 65  28 78 2c 79 2c 61 2b a4  |>4 .tree(x,y,a+.|
00000ec0  72 28 36 32 29 2c 28 72  29 2b a4 72 32 28 72 2f  |r(62),(r)+.r2(r/|
00000ed0  34 29 2c 73 29 3a 72 32  3d 72 2a 2e 36 0d 06 9a  |4),s):r2=r*.6...|
00000ee0  07 20 20 cd 0d 06 a4 34  fd 20 72 3c 31 30 20 84  |.  ....4. r<10 .|
00000ef0  20 78 2a 2e 37 3c 30 20  84 20 79 2a 2e 37 3c 30  | x*.7<0 . y*.7<0|
00000f00  20 84 20 78 2a 2e 37 3e  31 32 37 39 20 84 20 79  | . x*.7>1279 . y|
00000f10  2a 2e 37 3e 31 30 32 34  0d 06 ae 05 e1 0d 06 b8  |*.7>1024........|
00000f20  04 0d 06 c2 2d f4 20 53  70 6f 6f 6b 79 20 72 61  |....-. Spooky ra|
00000f30  6e 64 6f 6d 20 70 6f 73  69 74 69 76 65 2f 6e 65  |ndom positive/ne|
00000f40  67 61 74 69 76 65 20 6e  75 6d 62 65 72 73 0d 06  |gative numbers..|
00000f50  cc 0d dd 20 a4 72 28 72  61 6e 29 0d 06 d6 20 20  |... .r(ran)...  |
00000f60  e7 20 b3 28 32 29 3d 31  20 3d b3 28 72 61 6e 29  |. .(2)=1 =.(ran)|
00000f70  20 8b 20 3d 2d b3 28 72  61 6e 29 0d 06 e0 0e dd  | . =-.(ran).....|
00000f80  20 a4 72 32 28 72 61 6e  29 0d 06 ea 20 20 e7 20  | .r2(ran)...  . |
00000f90  b3 28 33 29 3d 31 20 3d  b3 28 72 61 6e 29 20 8b  |.(3)=1 =.(ran) .|
00000fa0  20 3d 2d b3 28 72 61 6e  29 0d 06 f4 04 0d 06 fe  | =-.(ran).......|
00000fb0  20 f4 20 53 70 6f 6f 6b  79 20 67 72 61 76 65 73  | . Spooky graves|
00000fc0  74 6f 6e 65 20 70 6c 6f  74 74 69 6e 67 0d 07 08  |tone plotting...|
00000fd0  18 dd f2 63 72 6f 73 73  28 58 2c 59 2c 41 2c 52  |...cross(X,Y,A,R|
00000fe0  2c 53 2c 43 29 0d 07 12  08 20 e6 20 43 0d 07 1c  |,S,C).... . C...|
00000ff0  16 20 58 31 3d 58 2b 28  52 2a b5 b2 28 41 2d 39  |. X1=X+(R*..(A-9|
00001000  30 29 29 0d 07 26 16 20  59 31 3d 59 2b 28 52 2a  |0))..&. Y1=Y+(R*|
00001010  9b b2 28 41 2d 39 30 29  29 0d 07 30 16 20 58 32  |..(A-90))..0. X2|
00001020  3d 58 2b 28 52 2a b5 b2  28 41 2b 39 30 29 29 0d  |=X+(R*..(A+90)).|
00001030  07 3a 16 20 59 32 3d 59  2b 28 52 2a 9b b2 28 41  |.:. Y2=Y+(R*..(A|
00001040  2b 39 30 29 29 0d 07 44  12 20 50 3d 58 2b 28 53  |+90))..D. P=X+(S|
00001050  2a b5 b2 28 41 29 29 0d  07 4e 12 20 51 3d 59 2b  |*..(A))..N. Q=Y+|
00001060  28 53 2a 9b b2 28 41 29  29 0d 07 58 16 20 58 33  |(S*..(A))..X. X3|
00001070  3d 50 2b 28 52 2a b5 b2  28 41 2d 39 30 29 29 0d  |=P+(R*..(A-90)).|
00001080  07 62 16 20 59 33 3d 51  2b 28 52 2a 9b b2 28 41  |.b. Y3=Q+(R*..(A|
00001090  2d 39 30 29 29 0d 07 6c  16 20 58 34 3d 50 2b 28  |-90))..l. X4=P+(|
000010a0  52 2a b5 b2 28 41 2b 39  30 29 29 0d 07 76 16 20  |R*..(A+90))..v. |
000010b0  59 34 3d 51 2b 28 52 2a  9b b2 28 41 2b 39 30 29  |Y4=Q+(R*..(A+90)|
000010c0  29 0d 07 80 18 20 4d 3d  58 2b 28 28 2e 37 35 2a  |).... M=X+((.75*|
000010d0  53 29 2a b5 b2 28 41 29  29 0d 07 8a 18 20 4e 3d  |S)*..(A)).... N=|
000010e0  59 2b 28 28 2e 37 35 2a  53 29 2a 9b b2 28 41 29  |Y+((.75*S)*..(A)|
000010f0  29 0d 07 94 1c 20 50 31  3d 4d 2b 28 28 2e 32 35  |).... P1=M+((.25|
00001100  2a 53 29 2a b5 b2 28 41  2d 39 30 29 29 0d 07 9e  |*S)*..(A-90))...|
00001110  1c 20 51 31 3d 4e 2b 28  28 2e 32 35 2a 53 29 2a  |. Q1=N+((.25*S)*|
00001120  9b b2 28 41 2d 39 30 29  29 0d 07 a8 1c 20 50 32  |..(A-90)).... P2|
00001130  3d 4d 2b 28 28 2e 32 35  2a 53 29 2a b5 b2 28 41  |=M+((.25*S)*..(A|
00001140  2b 39 30 29 29 0d 07 b2  1c 20 51 32 3d 4e 2b 28  |+90)).... Q2=N+(|
00001150  28 2e 32 35 2a 53 29 2a  9b b2 28 41 2b 39 30 29  |(.25*S)*..(A+90)|
00001160  29 0d 07 bc 14 20 ec 20  58 31 2c 59 31 3a ec 20  |).... . X1,Y1:. |
00001170  58 32 2c 59 32 0d 07 c6  1a 20 f0 20 38 35 2c 58  |X2,Y2.... . 85,X|
00001180  33 2c 59 33 3a f0 20 38  35 2c 58 34 2c 59 34 0d  |3,Y3:. 85,X4,Y4.|
00001190  07 d0 14 20 ec 20 50 31  2c 51 31 3a df 20 50 32  |... . P1,Q1:. P2|
000011a0  2c 51 32 0d 07 da 1c 20  ec 20 50 31 2b 34 2c 51  |,Q2.... . P1+4,Q|
000011b0  31 2d 32 3a df 20 50 32  2b 34 2c 51 32 2d 32 0d  |1-2:. P2+4,Q2-2.|
000011c0  07 e4 05 e1 0d 07 ee 04  0d 07 f8 25 f4 20 54 68  |...........%. Th|
000011d0  65 20 53 70 6f 6f 6b 79  20 53 70 61 6e 69 73 68  |e Spooky Spanish|
000011e0  20 49 6e 71 75 69 73 69  74 69 6f 6e 3f 0d 08 02  | Inquisition?...|
000011f0  16 dd a4 79 65 73 6e 6f  28 71 75 65 73 74 69 6f  |...yesno(questio|
00001200  6e 24 29 0d 08 0c 10 f1  20 71 75 65 73 74 69 6f  |n$)..... questio|
00001210  6e 24 3b 0d 08 16 18 f5  49 24 3d be 3a fd a7 22  |n$;.....I$=.:.."|
00001220  59 79 4e 6e 22 2c 49 24  29 3e 30 0d 08 20 26 e7  |YyNn",I$)>0.. &.|
00001230  20 a7 22 59 79 22 2c 49  24 29 20 f1 20 22 59 65  | ."Yy",I$) . "Ye|
00001240  73 22 3a 3d b9 20 8b 20  f1 20 22 4e 6f 22 3a 3d  |s":=. . . "No":=|
00001250  a3 0d 08 2a 3c f4 20 41  68 2c 20 62 75 74 20 6e  |...*<. Ah, but n|
00001260  6f 2d 6f 6e 65 20 65 78  70 65 63 74 73 20 74 68  |o-one expects th|
00001270  65 20 53 70 6f 6f 6b 79  20 53 70 61 6e 69 73 68  |e Spooky Spanish|
00001280  20 49 6e 71 75 69 73 69  74 69 6f 6e 21 0d 08 34  | Inquisition!..4|
00001290  04 0d 08 3e 1a f4 20 53  70 6f 6f 6b 79 20 65 72  |...>.. Spooky er|
000012a0  72 6f 72 20 68 61 6e 64  6c 65 72 0d 08 48 11 dd  |ror handler..H..|
000012b0  f2 73 70 6f 6f 6b 65 64  5f 6f 75 74 0d 08 52 0c  |.spooked_out..R.|
000012c0  e7 20 9f 3d 31 37 20 8c  0d 08 5c 33 eb 20 eb 3a  |. .=17 ...\3. .:|
000012d0  f1 27 27 27 22 51 75 69  74 74 69 6e 67 3f 20 41  |.'''"Quitting? A|
000012e0  72 65 20 79 6f 75 20 74  6f 6f 20 53 43 41 52 45  |re you too SCARE|
000012f0  44 3f 3f 3f 22 27 27 27  27 27 27 0d 08 66 05 cc  |D???"''''''..f..|
00001300  0d 08 70 34 eb 20 eb 3a  f1 27 27 27 22 48 65 6c  |..p4. .:.'''"Hel|
00001310  70 21 20 41 20 73 70 6f  6f 6b 79 20 74 79 70 65  |p! A spooky type|
00001320  20 65 72 72 6f 72 20 68  61 73 20 6f 63 63 75 72  | error has occur|
00001330  65 64 3a 22 0d 08 7a 1b  f1 27 f6 24 3b 22 20 40  |ed:"..z..'.$;" @|
00001340  20 6c 69 6e 65 20 22 3b  9e 27 27 27 27 27 27 0d  | line ";.''''''.|
00001350  08 84 05 cd 0d 08 8e 05  e0 0d 08 98 05 e1 0d ff  |................|
00001360