home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / pink_panther_demo.amos / pink_panther_demo.amosSourceCode < prev   
AMOS Source Code  |  1988-03-09  |  4KB  |  137 lines
  1. '          The Pink Panther Demo v1.0
  2. '
  3. '           by David Brown  (c) 1991 
  4. '
  5. Rem do this as AMOS tells me to !
  6. Screen Open 0,320,200,16,Lowres
  7. Curs Off : Flash Off : Hide : Cls 0
  8. '
  9. Screen Open 1,320,256,8,Lowres
  10. Curs Off : Flash Off : Hide 
  11. Unpack 1 To 1
  12. Wait 250 : Fade 4 : Wait 50
  13. Screen Hide 1
  14. Set Rainbow 0,0,32,"(1,1,1)","",""
  15. Set Rainbow 1,0,32,"(8,1,8)","(1,1,8)",""
  16. Set Rainbow 2,0,4097,"","",""
  17. '
  18. Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *
  19. Set Rainbow 3,0,34,"","",""
  20. Rainbow 3,0,267,34
  21. Restore RDATA
  22. For C=0 To 33 : Read CVA : Rain(3,C)=CVA : Next C
  23. RDATA:
  24. Data $0,$0,$0,$0,$0,$0,$400,$500
  25. Data $600,$701,$802,$903,$A04,$B05,$C06,$D07
  26. Data $E08,$F19,$F19,$E08,$D07,$C06,$B05,$A04
  27. Data $903,$802,$701,$600,$500,$400,$300,$200
  28. Data $300,$200,$300,$200,$0,$0,$0,$0
  29. R=3600
  30. For Y=1 To 256 Step 2
  31.    Wait Vbl 
  32.    Rain(2,Y)=(Y/2)+R
  33.    Rain(2,Y+1)=Y/2+R
  34. Next Y
  35. 'View  
  36. ' rem ************* scrolling text goes here ****************
  37. SC$="    Hi!!   Welcome to my first Demo-style program written using      AMOS v1.21 (c)1990 Mandarin/Jawx    |"
  38. SC$=SC$+"          by David R P Brown          |  Yes! I know it's hard to read the middle text - that's the idea.  "
  39. SC$=SC$+"The Demo took me 2 weeks to write, the music was composed on MED 3.00 with the kind help of a friend Caroline Welch. "
  40. SC$=SC$+"The samples were taken from several of the Pink Panther films - using Master Sound V1.1. "
  41. SC$=SC$+"I wanted to use a 2D starfield but it was too slow.. Maybe next time.. "
  42. SC$=SC$+"I've included some great samples - they certainly add a special "
  43. SC$=SC$+"something to an otherwise basic demo (get it?!)  I hope you enjoy my little offering & until I return with "
  44. SC$=SC$+"my next 'Pink' Demo I shall bid you farewell ..... Good Bye ....          The Pink Panther Demo (c)David Brown 1991|"
  45. SC$=SC$+"    Press the Left mouse button to Quit Demo|                                           "
  46. LSC=Len(SC$)
  47. Rem *********Logo and Graphics screen**********  
  48. '
  49. Screen Open 1,352,259,16,Lowres : Rem Main Scrn
  50. Palette 0,$F00,$E00,$D00,$C00,$DBB,$FEE,$200,$411,$611,$722,$922,$A33,$C33,$E33,$F44
  51. Flash Off : Cls 0 : Get Palette 0
  52. '
  53. Def Scroll 1,1,239 To 348,247,-2,0
  54. Screen Open 3,380,57,16,Lowres : Cls 0
  55. Palette 0,$F00,$E00,$D00,$C00,$DBB,$FEE,$200,$411,$611,$722,$922,$A33,$C33,$E33,$F44
  56. Flash Off : Cls 0
  57. Rainbow 0,1,140,16
  58. Rainbow 1,1,140,16
  59. Rainbow 2,1,50,100
  60. '
  61. Rem Set up AMAL strings for moving rainbows and logo 
  62. A$="Begin: Move 0,120,50  ; Move 0,-120,100 ; Jump Begin"
  63. B$="Begin: Move 0,120,150 ; Move 0,-120,175 ; Jump Begin"
  64. Channel 5 To Rainbow 0
  65. Channel 6 To Rainbow 1
  66. Amal 5,A$ : Amal 6,B$
  67. Amal On 
  68. 'View  
  69. Y$="Loop: Move 128,0,50; Move -128,0,150 ;Jump Loop"
  70. Z$="Loop: Move 80,0,30 ; Move -80,0,30 ; Jump Loop"
  71. Channel 1 To Screen Offset 3
  72. Channel 3 To Rainbow 2
  73. Amal 1,Z$
  74. Amal 3,Y$
  75. Screen Display 3,158,63,296,
  76. Screen 1 : Gr Writing 0
  77. '
  78. Rem ************* TEXT FOR TOP OF SCREEN ************* 
  79. Screen 3 : Gr Writing 0
  80. Ink 7,0 : Text 95,33,"The  Pink  Panther  Demo"
  81. Ink 6,0 : Text 96,32,"The  Pink  Panther  Demo"
  82. Ink 6,0 : Text 96,46,"Written using AMOS v1.21"
  83. Ink 6,0 : Text 96,56,"(C) 1990 JAWX / MANDARIN"
  84. Screen 1
  85. '
  86. Rem ************* TEXT FOR MIDDLE OF SCREEN *************  
  87. Colour 2,$0 : Ink 2,0
  88. Text 10,125,"  T H E  P I N K  P A N T H E R  D E M O"
  89. Text 10,135,"           (c) 1991 David Brown"
  90. Text 10,160,"      MED 3.00 Used to compose Song"
  91. Text 10,170,"  MASTERSOUND V1.1 used to grab samples "
  92. Text 10,190,"         **** With Thanks to ****"
  93. Text 10,200,"      My Brother  For Buying me AMOS"
  94. Text 10,210,"   My Mum for patience &  great coffees"
  95. Text 10,220,"   Caroline Welch for her musical Help!"
  96. '
  97. Rem ***************** SWITCH ON MUSIC & AMAL *************   
  98. View 
  99. Music 1 : Tempo 12 : Led Off 
  100. Amal On 
  101. '
  102. Rem *********** SCROLL TEXT ROUTINE ***************  
  103. Colour 1,$FFF : Ink 1,0
  104. S=0 : CNT=0
  105. Do 
  106.    SRLTXT:
  107.    Wait Vbl : Scroll 1
  108.    If Mouse Click Then Gosub DEMO_STOP
  109.    Inc S
  110.    If S>4
  111.       S=1
  112.       Add CNT,1,1 To LSC
  113.       Gosub NXTLET
  114.    End If 
  115. Loop 
  116. '
  117. NXTLET:
  118. E$=Mid$(SC$,CNT,1)
  119. If E$="|" Then Wait 50 : E$=""
  120. Text 334,245,E$
  121. Return 
  122. '
  123. Rem *********End of Demo***********
  124. DEMO_STOP:
  125. Amal Off : Fade 4 : Wait 50
  126. Screen 0 : Fade 3 : Screen 1 : Fade 4 : Screen 3 : Fade 3
  127. Rainbow 0,0,0,0
  128. Rainbow 1,0,0,0
  129. Rainbow 2,0,0,0
  130. Rainbow 3,0,0,0
  131. For MV=63 To 0 Step -1 : Wait 2 : Mvolume MV : Next MV
  132. Curs Off : Flash Off : Hide 
  133. Unpack 1 To 1
  134. Wait 250 : Fade 4 : Wait 50
  135. 'End 
  136. System 
  137. '