home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 4 / AUCD4.iso / acornuser / 1998 / nov1998 / regulars / StarInfo / Stoner / Footy (.txt) < prev   
RISC OS BBC BASIC V Source  |  1997-11-05  |  1KB  |  50 lines
  1.  Paddle Football
  2.  Nigel Stoner
  3. 8+128:
  4. bat% 32:
  5. rb:hm%=0:aw%=0:s%=1:t%=
  6. +9100
  7. 6,112,s%:s%=s%
  8. 6,113,s%:
  9. 38,1)
  10. (hm%);" ";
  11. (aw%);" T ";
  12. ((t%-
  13. )/100))
  14. 0,340,128,340:
  15. 1148,340,128,340:
  16. bx%,by%,20:
  17. bat%!0-32,bat%!4-32,64:
  18. bat%!8-32,bat%!12-32,64:
  19. bat%!16-32,bat%!20-32,64:
  20. bat%!24-32,bat%!28-32,64
  21. bx%=bx%+dx:by%=by%+dy:by%=by%+(4
  22. by%<20):dx=dx-(dx*2
  23. (bx%>1260
  24. bx%<20)):dy=dy-(dy*2
  25. (by%>1004
  26. by%<20)):
  27. (bx%<24
  28. bx%>1256)
  29. (by%>340
  30. by%<684)
  31. aw%+=-1*(bx%<24):hm%+=-1*(bx%>1256):
  32. diff%=-(bat%!20-by%)/6:bat%!20+=diff%:bat%!28+=diff%:
  33.  mx%,my%,mb%:bat%!4=my%:bat%!12=my%:
  34. (bat%!a%-bx%)+
  35. (bat%!(a%+4)-by%)<64 
  36. 37,1)"Score "
  37. (hm%);" ";
  38. (aw%):
  39. 6,112,s%:s%=s%
  40. 6,113,s%
  41. it:dy=(by%-bat%!(a%+4))/4:dx=
  42. (40)-20:
  43.  a%/8 < 2 
  44. (dx) 
  45.  dx=-
  46. 7:bx%=640:by%=512:
  47. (40)-20:
  48. dx<>0:dy=
  49. (40)-20:bat%!0=36:bat%!4=512:bat%!8=860:bat%!12=512:bat%!16=1244:bat%!20=512:bat%!24=420:bat%!28=512:
  50.