home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 4 / AUCD4.iso / acornuser / 1998 / nov1998 / regulars / StarInfo / Stoner / BreakDown (.txt) next >
RISC OS BBC BASIC V Source  |  1998-01-08  |  1KB  |  57 lines
  1. tl=1:sc=0:z=1:
  2. :m%=80:n%=32:
  3. bk%(15,40):
  4. (-l*4):bk%()=
  5. a*2+1:
  6. 2,a+1)"Break";
  7. 26," ");"Down!":
  8. b(a,b,
  9. (61)+1):bk%(a,b)=
  10. ,:tt=100*z:
  11. 239-tt:x=
  12. (10)+2:y=
  13. (23):
  14. bk%(x,y)=
  15. x(x,y) 
  16.  b-=1
  17. 11,1)"Level "
  18. (l)" Score "
  19. (sc):
  20. 15,3)"Target "
  21. (100/l)):x=640:y=1000:dx=0:dy=-1::
  22. 640,0:
  23. x-24,y-24,48 
  24.  4,4:
  25. x,y,24:
  26. x,y,24:
  27. 69,x-8,y+8:
  28. 4,4,48 
  29. x-24,y-24
  30. m,n,o:dx=(m-640)/4:x=x+dx+(-dx 
  31. (x<220
  32. x>1060)):y+=dy:dy=dy-1+(1
  33. dy<-14):v=x/m%:w=y/n%:
  34. bk%(v,w)=
  35.  dy=-dy:bk%(v,w)=
  36. x(v,w):sc+=1
  37. 11,1)"Level "
  38. (l)" Score "
  39. Bt=0:
  40. bk%(a,b)=
  41.  t+=1:
  42. x(a,b):
  43. 10,5)"Blocks Left "
  44. ,:q=t<101/l:z=z-.05:
  45.  l+=1:j=
  46. +150:
  47. 14,13)"Game Over !"''''
  48. b(x,y,c%):x=x*m%:y=y*n%:o=x+m%/2:p=y+n%/2:
  49. x+m%,y:
  50. 85,x+m%,y+n%:
  51. 85,x+m%,y:
  52. 85,x,y+n%:
  53. x+m%,y+n%:
  54. 85,x,y+n%:
  55. x(x%,y%):
  56. x%*m%,y%*n%,m%,n%:bk%(x%,y%)=
  57.