home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Bounce_Ball.asc < prev    next >
Text File  |  1996-01-21  |  1KB  |  44 lines
  1. '--------------------------------------------------------------------------- 
  2. '             BOUNCING BALL EFFECT BY JOHN HARDIE (JOK/NFA)  
  3. '--------------------------------------------------------------------------- 
  4. '
  5. '
  6. BS=160 : Rem                      ****SIZE OF BALL
  7. '
  8. Screen Open 0,360,300,2,0
  9. Screen Display 0,,20,,
  10. Flash Off : Curs Off : Hide : Cls 0
  11. '
  12. Circle BS/2,BS/2,BS/2-4 : Paint BS/2,BS/2
  13. Get Bob 1,0,0 To BS,BS
  14. Colour 1,$FFF : Cls 0
  15. For A=1 To 500 : Plot Rnd(400),Rnd(400) : Next A
  16. Locate 0,10 : Centre "BOUNCING (BOB) BALL"
  17. Double Buffer 
  18. '--------------------------------------------------------------------------- 
  19. '
  20. Y#=240
  21. C#=1
  22. S=1 : Rem                                ***** SPEED OF BALL 
  23. '
  24. Do 
  25. Bob 1,X,Y#,1
  26. '
  27. A#=A#+1.21 : Y#=Y#+A#
  28. Add X,S
  29. '
  30. If X>=350-BS : S=-Rnd(16)+1 : End If 
  31. If X<0 : S=Rnd(16)+1 : End If 
  32. If Y Bob(1)>300-BS : Y#=300-BS : A#=-20 : C#=C#+1 : End If 
  33. If A#<=-C# : A#=-C# : End If 
  34. If A#>=C# : A#=C# : End If 
  35. If Mouse Key : Erase 1 : Edit : End If 
  36. '
  37. Wait Vbl 
  38. Loop 
  39.  
  40.  
  41.  
  42.  
  43.  
  44.