home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 301-325 / apd304 / bouncearound.amos / bouncearound.amosSourceCode
AMOS Source Code  |  1978-08-29  |  7KB  |  254 lines
  1. Dir$=":"
  2. '''''''''''''''''''''''''
  3. '       Fizzy Pop       '
  4. '     Bounce Around     '  
  5. '    Music Sensitive    '  
  6. '         Demo.         '
  7. '      Version One      '
  8. '                       '
  9. '''''''''''''''''''''''''
  10. Hide On 
  11. ROTATE
  12. SETUP
  13. SSCROLL
  14. Procedure SETUP
  15.    Hide On 
  16.    Screen Close 0
  17.    Load "FizzyPops.Abk"
  18.    Screen Open 1,320,10,32,Lowres
  19.    Screen Hide 1
  20.    Flash Off 
  21.    Get Sprite Palette 
  22.    Screen Open 0,370,300,32,Lowres
  23.    Screen Display 0,120,30,,
  24.    Cls 0
  25.    Flash Off 
  26.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  27.    Double Buffer 
  28.    Bob 5,0,0,1
  29.    Bob 6,0,0,1
  30.    Bob 4,64*1,240,3
  31.    Bob 3,64*2,240,3
  32.    Bob 2,64*3,240,3
  33.    Bob 1,64*4,240,3
  34.    Limit Bob 5,0,0 To 345,151
  35.    Limit Bob 6,0,151 To 345,300
  36.    Channel 1 To Bob 5
  37.    Channel 2 To Bob 5
  38.    Channel 3 To Bob 4
  39.    Channel 4 To Bob 3
  40.    Channel 5 To Bob 2
  41.    Channel 6 To Bob 1
  42.    Channel 7 To Bob 6
  43.    Channel 8 To Bob 6
  44.    '
  45.    A$="A0,(1,10)(2,10);"
  46.    A$=A$+"Loop: Move 130,0,130 ; Move -130,0,130 ; Jump Loop"
  47.    H$="A0,(4,10)(5,10);"
  48.    H$=H$+"Loop: Move 130,0,130 ; Move -130,0,130 ; Jump Loop"
  49.    '
  50.    B$="Let R0=10 ; Let R1=0"
  51.    B$=B$+"AUtotest(Let RA=Y ; If R1=1 X ; If Y>160 Jump J ; If Y<1 Jump I ; If Y>150 Jump I ; eXit ; "
  52.    B$=B$+"I: Let R0=0-R0 ; Direct Start ; J: Let R0=10 ; Direct Pop )"
  53.    B$=B$+"Start: Let R0=R0+2 ; Move 0,R0/10,2 ; Jump Start ; "
  54.    B$=B$+"Pop: Let R1=1 ; Move 0,0-Y,Y/2 ; Let R1=0 ; Jump Start"
  55.    '
  56.    C$="AUtotest(Let R0=V(0)*4 ; If R0=0 eXit Let Y=240-R0 Direct Fizzy)"
  57.    C$=C$+"Fizzy: Move 0,R0,R0/4 Wizzy: Jump Wizzy"
  58.    '
  59.    D$="AUtotest(Let R0=V(1)*4 ; If R0=0 eXit Let Y=240-R0 Direct Qizzy)"
  60.    D$=D$+"Qizzy: Move 0,R0,R0/4 Fizzy: Jump Fizzy"
  61.    '
  62.    E$="AUtotest(Let R0=V(2)*4 ; If R0=0 eXit Let Y=240-R0 Direct Wizzy)"
  63.    E$=E$+"Wizzy: Move 0,R0,R0/4 Qizzy: Jump Qizzy"
  64.    '
  65.    F$="AUtotest(Let R0=V(3)*4 ; If R0=0 eXit Let Y=240-R0 Direct Eizzy)"
  66.    F$=F$+"Eizzy: Move 0,R0,R0/4 Wizzy: Jump Wizzy"
  67.    '
  68.    G$="Loop: Let Y=300-RA ; Jump Loop"
  69.    Amal 1,A$
  70.    Amal 2,B$
  71.    Amal 3,C$
  72.    Amal 4,D$
  73.    Amal 5,E$
  74.    Amal 6,F$
  75.    Amal 7,H$
  76.    Amal 8,G$
  77.    Fade 15 To 1
  78.    Screen Close 1
  79.    RW
  80.    Ink 1
  81.    For F=0 To 100
  82.       Plot Rnd(350),Rnd(70)+20
  83.    Next F
  84. End Proc
  85. Procedure SSCROLL
  86.    On Error Proc ERR
  87.    A$="<<<Music Maestro!>>>   This Is The <<Fizzy Pop>> Bounce Around Music Sensitive Music Demo!   "
  88.    A$=A$+"Click Your MouseyButton If You Want To Change The Soundtrack By The Way!  "
  89.    A$=A$+"Does Anyone Out There Have The Game  Treasure Island Dizzy  Did You Know That If You Stand "
  90.    A$=A$+"On The Beach And Type  ICANFLY  Then You Can Fly   Did You Also Know That If You Stand On The "
  91.    A$=A$+"Bridge And Fly Up Then You Will Come To The Hidden Screens From The Title Screen And Note Reader "
  92.    A$=A$+"   Well Now You Do!   "
  93.    A$=A$+"   Do You Like The Reflection Bounce Effect?     It Took A While To Perfect But The Result Is Quite "
  94.    A$=A$+"Impressive Isnt It?    "
  95.    A$=A$+" <<<<<Reading This Expands Your Mind!>>>>>    "
  96.    Paper 0
  97.    Curs Off 
  98.    Print " "
  99.    Def Scroll 1,0,3 To 370,17,-5,0
  100.    Dir$="Music/"
  101.    Read T$
  102.    Load T$
  103.    Music 1
  104.    Mvolume 63
  105.    Amal On 
  106.    Do 
  107.       For F=1 To Len(A$)
  108.          Locate 42,1
  109.          Scroll 1
  110.          Print Mid$(A$,F,1);
  111.          Scroll 1
  112.          If Mouse Click<>0 Then Gosub TUNE
  113.       Next F
  114.    Loop 
  115.    TUNE:
  116.    Read T$
  117.    If T$="#" Then Restore : Read T$
  118.    For V=60 To 0 Step -1
  119.       Mvolume V
  120.       Wait 2
  121.    Next V
  122.    Erase 3
  123.    Amal Freeze 
  124.    Load T$
  125.    Amal On 
  126.    Mvolume 60
  127.    Music 1
  128.    Return 
  129.    Data "Viewpoint.Abk","Dum-De-Dum-Dum.Abk","Insanity.Abk","MountainKing.Abk","GPF.ABK","ElevatorMusakRamix.Abk"
  130.    Data "#"
  131. End Proc
  132. Procedure RW
  133.    Rem
  134.    Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *
  135.    Rem  *  Yup, you can blame good ol' Spadge for this one...  *
  136.    Rem
  137.    Set Rainbow 0,0,290,"","",""
  138.    Rainbow 0,0,200,290
  139.    Colour Back 0
  140.    Restore RDATA
  141.    For C=0 To 253 : Read CVA : Rain(0,C)=CVA
  142.    Next C : View 
  143.    For F=200 To 0 Step -1
  144.       Rainbow 0,0,F,290
  145.       Wait Vbl 
  146.    Next F
  147.    RDATA:
  148.    Data $0,$0,$0,$0,$0,$0,$0,$0
  149.    Data $0,$0,$0,$0,$0,$0,$0,$0
  150.    Data $0,$0,$0,$0,$0,$0,$0,$0
  151.    Data $0,$0,$0,$0,$0,$0,$0,$0
  152.    Data $0,$0,$0,$0,$0,$0,$0,$0
  153.    Data $0,$0,$0,$0,$0,$0,$0,$0
  154.    Data $0,$0,$0,$0,$0,$0,$0,$0
  155.    Data $0,$0,$0,$0,$0,$0,$0,$0
  156.    Data $0,$0,$0,$0,$0,$0,$0,$0
  157.    Data $0,$0,$0,$0,$0,$0,$0,$0
  158.    Data $0,$0,$0,$0,$0,$0,$0,$0
  159.    Data $0,$0,$0,$0,$0,$0,$0,$0
  160.    Data $0,$0,$1,$1,$1,$1,$1,$1
  161.    Data $1,$1,$2,$2,$2,$2,$2,$2
  162.    Data $2,$2,$3,$3,$3,$3,$3,$3
  163.    Data $3,$3,$4,$4,$4,$4,$4,$4
  164.    Data $4,$4,$5,$5,$5,$5,$5,$5
  165.    Data $5,$5,$6,$6,$6,$6,$6,$6
  166.    Data $6,$6,$7,$7,$7,$7,$7,$7
  167.    Data $7,$7,$8,$8,$8,$8,$8,$8
  168.    Data $8,$8,$9,$9,$9,$9,$9,$9
  169.    Data $9,$9,$A,$A,$A,$A,$A,$A
  170.    Data $A,$A,$B,$B,$B,$B,$B,$B
  171.    Data $B,$B,$C,$C,$C,$C,$C,$C
  172.    Data $C,$C,$D,$D,$D,$D,$D,$D
  173.    Data $D,$D,$E,$E,$E,$E,$E,$E
  174.    Data $E,$E,$F,$F,$F,$F,$F,$F
  175.    Data $F,$F,$F,$F,$F,$F,$F,$F
  176.    Data $F,$F,$F,$F,$F,$F,$F,$F
  177.    Data $F,$F,$F,$F,$F,$F,$F,$F
  178.    Data $F,$F,$F,$F,$F,$F,$F,$F
  179.    Data $F,$F,$F,$F,$F,$F,$F,$F
  180.    Data $F,$F,$F,$F,$F,$F,$F,$F
  181.    Data $F,$F,$F,$F,$F,$F,$F,$F
  182.    Rem
  183.    Rem  * Alter the values in the RAINBOW and SET RAINBOW * 
  184.    Rem  * to position and control the rainbows. See the   * 
  185.    Rem  * manual to check on Y positioning, Length and    * 
  186.    Rem  * which colour it is to effect.. Have fun!        * 
  187. End Proc
  188. Procedure ROTATE
  189.    Screen Open 3,320,20,32,Lowres
  190.    Curs Off 
  191.    Cls 0
  192.    Flash Off 
  193.    Load Iff "Rotatory.IFF",2
  194.    Screen 3
  195.    Get Palette 2
  196.    Screen 2
  197.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  198.    Screen Open 0,320,48,2,Lowres
  199.    Palette 0,0
  200.    Flash Off : Curs Off : Cls 0
  201.    Centre At(,0)+"Fizzy  Pop"
  202.    Centre At(,5)+" Presents"
  203.    Screen Open 1,320,48,2,Lowres
  204.    Palette 0,0
  205.    Flash Off : Curs Off : Cls 0
  206.    Wait Vbl 
  207.    Dual Playfield 0,1
  208.    Def Scroll 1,0,0 To 320,56,0,-1
  209.    Def Scroll 2,0,0 To 320,56,0,1
  210.    Def Scroll 3,0,10 To 320,44,0,-1
  211.    Def Scroll 4,0,10 To 320,44,0,1
  212.    Def Scroll 5,0,20 To 320,34,0,-1
  213.    Def Scroll 6,0,20 To 320,34,0,1
  214.    Wait 50
  215.    Screen 2
  216.    Fade 5 To 3
  217.    Screen Close 3
  218.    Wait 75
  219.    Screen 0
  220.    Fade 10,0,2624
  221.    Timer=0
  222.    Do 
  223.       Screen Copy 0,0,0,320,1 To 1,0,1
  224.       Screen Copy 1,0,47,320,48 To 0,0,47
  225.       Screen 0
  226.       Wait 2
  227.       Scroll 1
  228.       Scroll 3
  229.       Scroll 5
  230.       Screen 1
  231.       Scroll 2
  232.       Scroll 4
  233.       Scroll 6
  234.       Exit If Mouse Key
  235.       Exit If Timer>1000
  236.    Loop 
  237.    Screen 2
  238.    Fade 5
  239.    Wait 75
  240.    Screen 0
  241.    Fade 10
  242.    Wait 150
  243.    For F=63 To 0 Step -1
  244.       Mvolume F
  245.       Wait 1
  246.    Next F
  247. End Proc
  248. Procedure ERR
  249.    Locate 0,1
  250.    Cline 
  251.    Centre "Out Of Memory!"
  252.    Wait 10
  253.    Resume Next 
  254. End Proc