home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 4
/
AUCD4.iso
/
acornuser
/
1998
/
nov1998
/
regulars
/
StarInfo
/
Stoner
/
BreakDown
(
.txt
)
next >
Wrap
RISC OS BBC BASIC V Source
|
1998-01-08
|
1KB
|
57 lines
tl=1:sc=0:z=1:
:m%=80:n%=32:
bk%(15,40):
(-l*4):bk%()=
a*2+1:
2,a+1)"Break";
26," ");"Down!":
b(a,b,
(61)+1):bk%(a,b)=
,:tt=100*z:
239-tt:x=
(10)+2:y=
(23):
bk%(x,y)=
x(x,y)
b-=1
11,1)"Level "
(l)" Score "
(sc):
15,3)"Target "
(100/l)):x=640:y=1000:dx=0:dy=-1::
640,0:
x-24,y-24,48
4,4:
x,y,24:
x,y,24:
69,x-8,y+8:
4,4,48
x-24,y-24
m,n,o:dx=(m-640)/4:x=x+dx+(-dx
(x<220
x>1060)):y+=dy:dy=dy-1+(1
dy<-14):v=x/m%:w=y/n%:
bk%(v,w)=
dy=-dy:bk%(v,w)=
x(v,w):sc+=1
11,1)"Level "
(l)" Score "
Bt=0:
bk%(a,b)=
t+=1:
x(a,b):
10,5)"Blocks Left "
,:q=t<101/l:z=z-.05:
l+=1:j=
+150:
14,13)"Game Over !"''''
b(x,y,c%):x=x*m%:y=y*n%:o=x+m%/2:p=y+n%/2:
x+m%,y:
85,x+m%,y+n%:
85,x+m%,y:
85,x,y+n%:
x+m%,y+n%:
85,x,y+n%:
x(x%,y%):
x%*m%,y%*n%,m%,n%:bk%(x%,y%)=