home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd465 / autoexec.amos / autoexec.amosSourceCode
AMOS Source Code  |  1993-01-08  |  677b  |  33 lines
  1. Hide On 
  2. Close Workbench 
  3. Screen Open 0,320,256,32,Lowres
  4. Dir$="DF0:"
  5. Load Iff "Spinworlds.iff"
  6. Load "Really_Funky.Abk"
  7. Music 1
  8. Double Buffer 
  9. Get Palette 0
  10. Flash Off 
  11. Load "BigWorld.Abk"
  12. Get Sprite Palette 
  13. Bob 2,75,65,2
  14. Bob 1,165,95,1
  15. Bob 3,60,255,3
  16. Channel 1 To Bob 1
  17. Channel 3 To Bob 3
  18. Amal 3,"Move 0,-80,600 ;"
  19. V=60
  20. For X=0 To 6 : Priority On 
  21. If X=1 Then Amal On 3
  22. If X>4 Then V=V-15 : Volume V
  23. Amal 1,"Move -120,0,120 ; P ; P ; Let X=X+2 ; P ; P ; Let X=X+2 ; P ; P ;"
  24. Amal On 1
  25. Wait 130
  26. Priority Off 
  27. Amal 1,"Move 120,0,120 ; P ; P ; Let X=X-2 ; P ; P ; Let X=X-2 ; P ; P ;"
  28. Amal On 1
  29. If X>4 Then V=V-10 : Volume V
  30. Wait 130
  31. Next X
  32. Amal Off 
  33. Run "OurLittleHeroDisk.Amos"