home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / totallyamos / issue4 / source_progs / newbouncybob / newbouncybob.amos / newbouncybob.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-04-25  |  1.0 KB  |  42 lines
  1. '
  2. 'If you move this prog off the ta disk remove the line below or  
  3. 'change it to the name of the new disk.
  4. '
  5. Dir$="Totally_amos_may_92:source_progs/newbouncybob"
  6. '
  7. BOUNCYBOB
  8. Procedure BOUNCYBOB
  9. Screen Open 0,320,256,32,Lowres : Double Buffer : Flash Off : Curs Off 
  10. Hide : Get Sprite Palette 
  11. Degree : R1=0 : R2=153 : R3=314 : R4=69
  12. Palette 0,0 : Shift Up 1,8,16,1 : Bob Off 8 : Get Sprite Palette : Palette 0,0
  13. Autoback 0 : Bob Update Off : LOP=180
  14. Do 
  15.    Shift Up 1,8,16,1
  16.    For Z=0 To 280 Step 2
  17.       Screen Swap 
  18.       Wait Vbl 
  19.       Bob Clear 
  20.       Y#=Sin(LOP)
  21.       Bob 8,Z,Y#*160+200,2
  22.       Bob 9,280-Z,Y#*100+200,1
  23.       Bob 7,130,Y#*180+200,3
  24.       LOP=LOP+2
  25.       If LOP>360 Then LOP=180 : Bell 1
  26.       Bob Draw 
  27.    Next Z
  28.       Shift Down 1,8,16,1
  29.    For Z=280 To 0 Step -2
  30.       Screen Swap 
  31.       Wait Vbl 
  32.       Bob Clear 
  33.       Y#=Sin(LOP)
  34.       Bob 8,Z,Y#*160+200,2
  35.       Bob 9,280-Z,Y#*100+200,1
  36.       Bob 7,130,Y#*180+200,3
  37.       LOP=LOP+2
  38.       If LOP>360 Then LOP=180 : Bell 1
  39.       Bob Draw 
  40.    Next Z
  41. Loop 
  42. End Proc