home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / deathwishii.amos / deathwishii.amosSourceCode < prev    next >
AMOS Source Code  |  1994-01-01  |  2KB  |  70 lines
  1. '******************************************  
  2. ' Deathwish Demo 2 By Michael Tregonning 
  3. '******************************************  
  4. ' This Demo demonstrates Screen Offsets &
  5. ' Movement between more than one screen. 
  6. '******************************************  
  7. ' To quit just press Ctrl-C during movement
  8. '******************************************
  9. Cls 0
  10. Hide On 
  11. Screen Open 0,320,768,32,Lowres
  12. Unpack 8 To 0
  13. Screen Hide 0
  14. Unpack 9 To 1
  15. Channel 1 To Screen Display 1
  16. Amal 1,"M 0,45,1"
  17. Amal On 1
  18. Double Buffer 
  19. Screen Show 0
  20. Screen 1
  21. DROID$="A 0,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(7,4)(8,4)(9,4)(10,4)(11,4)(12,4)(13,4)(14,4)(15,4) ;"
  22. DROID$=DROID$+"A: M -360,0,720 ; J A"
  23. Bob 1,330,134,1
  24. Bob 2,390,134,1
  25. Bob 3,450,134,1
  26. Channel 1 To Bob 1
  27. Channel 4 To Bob 2
  28. Channel 5 To Bob 3
  29. Amal 1,DROID$
  30. Amal 4,DROID$
  31. Amal 5,DROID$
  32. Amal On 
  33. Track Loop On 
  34. Track Play 3
  35. Channel 2 To Screen Offset 0
  36. S1$="A: M 0,35,70 "
  37. S2$="A: M 0,45,90 "
  38. Do 
  39. Amal 2,S1$
  40. Wait 200
  41. Amal On 2
  42. Wait 250
  43. C=0
  44. Repeat 
  45.    Amal 2,S2$
  46.    Amal On 2
  47.    Wait 200
  48.    Inc C
  49.    If X Bob(1)<0 Then Bob 1,330,134,1
  50. If X Bob(2)<-30 Then Bob 2,330,134,1
  51. If X Bob(3)<-30 Then Bob 3,330,134,1
  52. Until C=4
  53. Amal 2,"M 0,215,645"
  54. Amal On 2
  55. P=0
  56. Repeat 
  57. If X Bob(1)<-30 Then Bob 1,330,134,1
  58. If X Bob(2)<-30 Then Bob 2,330,134,1
  59. If X Bob(3)<-30 Then Bob 3,330,134,1
  60. P=P+1
  61. Wait Vbl 
  62. Until P=500
  63. Wait 270
  64. Amal 2,"M 0,51,90"
  65. Amal On 2
  66. Wait 130 : Screen Offset 0,0,0
  67. If X Bob(1)<-30 Then Bob 1,330,134,1
  68. If X Bob(2)<-30 Then Bob 2,330,134,1
  69. If X Bob(3)<-30 Then Bob 3,330,134,1
  70. Loop