home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / fizzy_pop.amos / fizzy_pop.amosSourceCode
AMOS Source Code  |  1988-01-19  |  5KB  |  180 lines
  1. '''''''''''''''''''''''''''''''
  2. '          Fizzy Pop          '
  3. '    Dancing Diet Coke Can    '
  4. '         Music  Demo         '
  5. '                             '
  6. '''''''''''''''''''''''''''''''
  7. '            V2.0             '  
  8. '                             '
  9. '''''''''''''''''''''''''''''''
  10. DLOGO
  11. FIZZY_POP
  12. Procedure FIZZY_POP
  13.    Hide On 
  14.    Curs Off 
  15.    Auto View Off 
  16.    Load Iff "Can.Pic.2",0
  17.    Screen Clone 1
  18.    Screen 0
  19.    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
  20.    Paper 0
  21.    Print " "
  22.    Locate 0,17
  23.    Double Buffer 
  24.    Flash Off 
  25.    Curs Off 
  26.    M=26 : Rem Number Of Messages 
  27.    Dim M$(M)
  28.    For F=1 To M
  29.       Read M$(F)
  30.    Next F
  31.    ME=1
  32.    For F=1 To 4
  33.       Bob F,75*(F-1)+20,130,3
  34.    Next F
  35.    Auto View On 
  36.    Fade 10 To 1
  37.    Screen Close 1
  38.    Colour 8,0
  39.    Wait 150
  40.    Shift Up 5,16,18,1
  41.    A$="Loop: If V(0)<>0 Jump An; Jump Loop; An: Anim 1,(4,3)(5,3)(4,3)(3,3)(2,3)(1,3)(2,3)(3,3) ; Jump Loop"
  42.    B$="Loop: If V(1)<>0 Jump An; Jump Loop; An: Anim 1,(4,3)(5,3)(4,3)(3,3)(2,3)(1,3)(2,3)(3,3) ; Jump Loop"
  43.    C$="Loop: If V(2)<>0 Jump An; Jump Loop; An: Anim 1,(2,3)(1,3)(2,3)(3,3)(4,3)(5,3)(4,3)(3,3) ; Jump Loop"
  44.    D$="Loop: If V(3)<>0 Jump An; Jump Loop; An: Anim 1,(2,3)(1,3)(2,3)(3,3)(4,3)(5,3)(4,3)(3,3) ; Jump Loop"
  45.    Channel 1 To Bob 1
  46.    Channel 2 To Bob 2
  47.    Channel 3 To Bob 3
  48.    Channel 4 To Bob 4
  49.    Amal 1,A$
  50.    Amal 2,B$
  51.    Amal 3,C$
  52.    Amal 4,D$
  53.    Amal On 
  54.    Pen 8
  55.    Do 
  56.       ST:
  57.       Fade 2,,,,,,,,,
  58.       Wait 30
  59.       Read A$
  60.       If A$="end" Then Restore 1 : Read A$
  61.       Colour 8,0
  62.       Cline 
  63.       Centre "Loading..."
  64.       Fade 2,,,,,,,,,3072
  65.       Wait 30
  66.       Erase 3
  67.       If Exist(A$)
  68.          Load A$,3
  69.       Else 
  70.          Fade 2,,,,,,,,,
  71.          Wait 30
  72.          Cline 
  73.          Centre "Cannot Find "+Mid$(A$,0,(Len(A$)-3))
  74.          Fade 2,,,,,,,,,3072
  75.          Wait 250
  76.          Fade 2,,,,,,,,,
  77.          Wait 30
  78.          Goto ST
  79.       End If 
  80.       Fade 2,,,,,,,,,
  81.       N$=Mid$(A$,0,(Len(A$)-3))
  82.       Wait 250
  83.       Timer=0
  84.       Gosub MESS
  85.       Music 1
  86.       Do 
  87.          If Timer>250 Then Gosub MESS
  88.          Exit If Mouse Key
  89.       Loop 
  90.       For F=63 To 0 Step -1
  91.          Mvolume F
  92.          Wait 2
  93.       Next F
  94.       Music Off 
  95.       Erase 3
  96.       Mvolume 63
  97.    Loop 
  98.    MESS:
  99.    Fade 2,,,,,,,,,$0
  100.    Wait 30
  101.    If M$(ME)="NAMEOFSONG"
  102.       Cline : Centre N$
  103.    Else 
  104.       Cline : Centre M$(ME)+"  "
  105.    End If 
  106.    Inc ME
  107.    If ME=M+1 Then ME=1
  108.    Timer=0
  109.    Fade 2,,,,,,,,,3072
  110.    Return 
  111.    Data "Fizzy Pop","Music Demo","Fizzy Pop Are","Mog And Darkman!","You Are Listning To..","NAMEOFSONG","Why Not Check Out","Super Scooter","& Fizzy Logo","On The Other Disks?","Dont You Think That","Bar VUMeters Are Boaring?","So Do I!"
  112.    Data "Thats Why I Decided On","Dancing Cans","Which Are Much More Interesting","The Cans Are Animated","In AMAL","While The Main Program","Looks After The Messages.","And Now For A Poem","Jack And Jill Went Up The Hill"
  113.    Data "To Fetch A Birthday Prezzy","Jack Fell Down","And So Did Jill","They'd Both Been On The Bevvy!"
  114.    1 Data "Quasi-Tyro.Abk","Sui Generis.Abk","Subterainien Temptations.Abk","Jolifications.Abk","PianoMania.Abk","TinkaBell.Abk","Fizzyness.Abk","DLOGOTUNE.ABK"
  115.    Data "end"
  116. End Proc
  117. Procedure DLOGO
  118.    Auto View On 
  119.    Load Iff "Fizzy_Pop_Logo.IFF",0
  120.    Load "DLOGOTUNE.ABK"
  121.    Locate 13,26
  122.    Paper 0
  123.    Pen 9
  124.    Print "Music Demo."
  125.    Screen Clone 1
  126.    Screen Hide 1
  127.    Load "can_sprites_2.abk"
  128.    Screen 0
  129.    Flash Off 
  130.    Hide On 
  131.    Curs Off 
  132.    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
  133.    Auto View On 
  134.    Fade 10 To 1
  135.    Screen Close 1
  136.    Timer=0
  137.    FAD=0
  138.    Wait 100
  139.    Data 1,1,1,1,1,0,0,0,-1,-1,-1,-1,-1,0,0,1,1,1,1,1,0,0,0,-1,-1,-1,-1,-1,0,0,1,1,1,1,1,0,0,0,-1,-1,-1,-1,-1,0,0
  140.    Dim A(45)
  141.    Dim B(45)
  142.    For F=1 To 45
  143.       Read A
  144.       A(F)=A
  145.       B(F)=F
  146.    Next F
  147.    F=1
  148.    Set Rainbow 1,0,60,"(2,1,15)(2,-1,15)","",""
  149.    Set Rainbow 2,0,60,"","(2,1,15)(2,-1,15)",""
  150.    Set Rainbow 3,0,60,"","","(2,1,15)(2,-1,15)"
  151.    Rainbow 1,0,50,60
  152.    Rainbow 2,0,50,60
  153.    Rainbow 3,0,50,60
  154.    Channel 1 To Rainbow 1
  155.    Channel 2 To Rainbow 2
  156.    Channel 3 To Rainbow 3
  157.    Amal 1,"Loop: M 0,250,Z(63)+20; M 0,-250,Z(63)+20; J Loop"
  158.    Amal 2,"Loop: M 0,250,Z(31)+20; M 0,-250,Z(31)+20; J Loop"
  159.    Amal 3,"Loop: M 0,250,Z(15)+20; M 0,-250,Z(15)+20; J Loop"
  160.    Amal On 
  161.    Music 1
  162.    Do 
  163.       For F=1 To 45
  164.          Def Scroll 1,60,169+F To 268,170+F,A(B(F)),0
  165.          Scroll 1
  166.          Add B(F),1,1 To 45
  167.       Next F
  168.       If Timer>950 Then If FAD=0 Then FAD=1 : Fade 10 : Timer=0
  169.       If FAD=1 Then If Timer>150 Then Exit 
  170.    Loop 
  171.    Music Off 
  172.    Erase 3
  173.    Amal Off 
  174.    Amal 1,"M 0,350,Z(63)+20"
  175.    Amal 2,"M 0,350,Z(31)+20"
  176.    Amal 3,"M 0,350,Z(15)+20"
  177.    Amal On 
  178.    Wait 100
  179.    Amal Off 
  180. End Proc