home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / demo8.amos / demo8.amosSourceCode < prev    next >
AMOS Source Code  |  1991-02-11  |  2KB  |  95 lines
  1. Load "Robots:Music/Music3"
  2. Load "Robots:Bobs/Bobs2.abk"
  3. Screen Open 0,320,512,8,Lowres
  4. Flash Off : Hide : Curs Off 
  5. Palette 0,$202,$404,$606,$808,$B0D,$D0D,$F0F,$2,$4,$6,$8,$B,$D,$F,$1F
  6. Screen Open 1,320,512,8,Lowres
  7. Screen Display 0,140,,,256
  8. Screen Display 1,140,,,256
  9. Wait Vbl 
  10. Dual Playfield 0,1
  11. Cls 0
  12. Screen 0
  13. Gosub GROUND
  14. '
  15. Screen 1
  16. Gosub VAN
  17. '
  18. Channel 1 To Screen Offset 1
  19. Channel 0 To Screen Offset 0
  20. A$="Loop:M 0,235,90;M 0,-235,90:Jump Loop"
  21. B$="Loop:M 0,235,50;M 0,-235,50:Jump Loop"
  22. Amal 1,A$
  23. Amal 0,B$
  24. Amal On 
  25. '
  26. Screen 0
  27. '
  28. Unpack 12 To 3 : Screen To Back 3
  29. Unpack 13 To 4 : Screen To Back 4
  30. Unpack 14 To 2 : Screen To Back 2
  31. Screen Open 5,320,256,2,Lowres : Curs Off : Screen To Back 5 : Flash 0,"(000,5)(fff,2)"
  32. '
  33. '
  34. Volume 0
  35. Music 1
  36. For N=0 To 63 : Wait 2
  37.    Volume N
  38. Next N
  39. '
  40. Wait 100
  41. Screen 3 : Bob 1,167,31,1
  42. Screen To Front 3
  43. Goto ROO
  44. '
  45. GROUND:
  46. Ink 0 : Bar 0,0 To 320,512
  47. Unpack 10,0,0
  48. Return 
  49. '
  50. VAN:
  51. Ink 0 : Bar 0,0 To 320,512
  52. Unpack 10,0,0
  53. Return 
  54. '
  55. ROO:
  56. If Mouse Key=1 Then PAUL
  57. '
  58. Gosub LEDS
  59. Wait Vbl 
  60. Goto ROO
  61. LEDS:
  62. If Mouse Key=1 Then PAUL
  63. X2=Vumeter(3)
  64. X1=Vumeter(0)
  65. X4=Vumeter(2)
  66. X3=Vumeter(1)
  67. If Mouse Key=1 Then PAUL
  68. If X2>V2 Then Screen 3 : Bob 2,167,31,2 : Wait 8 : Bob Off 2
  69. If Mouse Key=1 Then PAUL
  70. If X1>V1 Then Screen 3 : Bob 2,167,31,2 : Wait 8 : Bob Off 2
  71. If Mouse Key=1 Then PAUL
  72. If X4>V4 Then V4=Rnd(5)
  73. If Mouse Key=1 Then PAUL
  74. If X3>V3 Then Dual Priority 1,0
  75. If Mouse Key=1 Then PAUL
  76. If X2>V2 Then Dual Priority 0,1
  77. If Mouse Key=1 Then PAUL
  78. '
  79. Screen To Front V4 : Randomize Timer
  80. If Mouse Key=1 Then PAUL
  81. '
  82. Return 
  83. '
  84. Procedure PAUL
  85.    For V=63 To 0 Step -1
  86.       Volume V : Wait 2
  87.    Next V
  88.    Music Off : Erase 3 : Erase 1
  89.    For S=0 To 5
  90.       Screen S
  91.       Fade 5 : Wait 75
  92.       Screen Close S
  93.    Next S
  94.    Run "Robots:Demo4.Amos"
  95. End Proc