home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / how_many_bobs.amos / how_many_bobs.amosSourceCode < prev    next >
AMOS Source Code  |  1991-05-17  |  1KB  |  38 lines
  1. '***************************************************************************** 
  2. '*                                                                           *   
  3. '*           HOW MANY BOBS? WRITTEN BY STEVE BENNETT IN JANUARY 91           * 
  4. '*                                                                           *   
  5. '*     Well syntex beat me to showing off this routine but its still ace.    *     
  6. '*                                                                           *   
  7. '***************************************************************************** 
  8. Led Off 
  9. Degree 
  10. For T=0 To 4
  11.    Screen Open T,320,256,16,Lowres
  12.    Flash Off : Hide On 
  13.    Get Sprite Palette 
  14.    Cls 0
  15. Next T
  16. NUMBER=14
  17. Music 1
  18. HERE:
  19. T=-90 : A=0 : OFFSET=180
  20. Repeat 
  21.    Inc A : If A=5 Then A=0
  22.    If OFFSET=0 Then OFFSET=-90
  23.    If OFFSET=-180
  24.       Repeat 
  25.          For R=1 To 50 : For T=4 To 0 Step -1 : Wait Vbl : Screen To Front T : Next T : Next R
  26.          For R=1 To 50 : For T=0 To 4 : Wait Vbl : Screen To Front T : Next T : Next R
  27.       Until Mouse Key
  28.    End If 
  29.    Wait Vbl 
  30.    Screen To Front A : Screen A
  31.    Paste Bob T-20,(Sin(T+20)*OFFSET+100),NUMBER
  32.    Paste Bob 80,110,11
  33.    Inc T : Inc T : If T=340 : T=-90 : For J=1 To 10 : Dec OFFSET : Dec OFFSET : Dec OFFSET : Next J : Inc NUMBER : End If 
  34.    If NUMBER=18 Then NUMBER=14
  35. Until Mouse Click
  36. Input NUMBER
  37. For T=0 To 4 : Screen T : Cls 0 : Next T
  38. Goto HERE