home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd525 / starstruck / starstrucklevel-1.amos / starstrucklevel-1.amosSourceCode < prev   
AMOS Source Code  |  1978-02-21  |  2KB  |  47 lines
  1. 'Demo Version Of First Level!! 
  2. Music 1
  3. ANOTHER_GO:
  4. Bob Off : Sprite Off : Hide On : Make Mask : Led Off 
  5. Screen Open 1,320,300,8,Lowres : Curs Off : Cls 8
  6. Double Buffer 
  7. Sprite 0,285,-50,1 : Channel 1 To Sprite 0 : Amal 1,6
  8. Sprite 4,280,-200,3 : Channel 2 To Sprite 4 : Amal 2,7
  9. Sprite 6,280,-200,3 : Channel 3 To Sprite 6 : Amal 3,8
  10. Sprite 8,280,-200,3 : Channel 4 To Sprite 8 : Amal 4,9
  11. Sprite 10,280,-200,3 : Channel 5 To Sprite 10 : Amal 5,10
  12. Bob 0,-20,40,11 : Channel 6 To Bob 0 : Amal 6,1
  13. Bob 1,-20,40,12 : Channel 7 To Bob 1 : Amal 7,2
  14. Bob 2,-20,40,11 : Channel 8 To Bob 2 : Amal 8,3
  15. Bob 3,-20,40,12 : Channel 9 To Bob 3 : Amal 9,4
  16. Bob 4,-20,40,11 : Channel 10 To Bob 4 : Amal 10,5
  17. Bob 5,20,-100,4 : Channel 11 To Bob 5 : Bob Off 5
  18. Screen Open 0,320,600,8,Lowres : Curs Off : Cls 0 : Unpack 6 To 0
  19. Channel 0 To Screen Offset 0 : Amal 0,0
  20. Get Sprite Palette : Dual Playfield 0,1
  21. Screen 1 : Gr Writing 0 : Ink 14 : Text 7,7,"Level 1"
  22. L=3 : Text 87,7,"Lives=" : Text 126,7,Str$(L)
  23. Amal On 
  24. RESTART:
  25. Do 
  26. For N=0 To 4
  27. If Spritebob Col(0,N To N)=-1 and I Bob(N)<34 Then Anim N+6,"(4,4)(5,4)(6,4)(7,4)(8,4)(9,4)(10,4)(34,4)" : Gosub DEAD
  28. If Bobsprite Col(N,4 To 11)=-1 and I Bob(N)<34 Then Wait 1 : If I Bob(N)>10 Then Sam Play 1,1,13000 : Anim N+6,"(4,4)(5,4)(6,4)(7,4)(8,4)(9,4)(10,4)(34,4)" : Anim On 
  29. Next N
  30. Loop 
  31. DEAD:
  32. Amal Freeze 1 : Sprite 0,X Sprite(0),Y Sprite(0),34
  33. Sam Play 1,1,13000 : Bob 5,X Sprite(0)-129,Y Sprite(0)-45,4
  34. Anim 11,"(4,4)(5,4)(6,4)(7,4)(8,4)(9,4)(10,4)(34,4)"
  35. Anim On 
  36. For C=1 To 160
  37. For F=4 To 10 Step 2
  38. If Y Sprite(F)<30 Then Amal Freeze F/2
  39. Next F
  40. Next C
  41. Bob Off 5 : Ink 8 : Text 126,7,Str$(L) : L=L-1 : Ink 14 : Text 126,7,Str$(L)
  42. If L=0 Then OVER
  43. Wait 50 : Sprite 0,X Sprite(0),Y Sprite(0),1 : Amal On : Wait 50
  44. Gosub RESTART
  45. Procedure OVER
  46. Amal Off : Wait 50 : Gosub ANOTHER_GO
  47. End Proc