home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd127 / 4 / 4.amosSourceCode next >
Encoding:
AMOS Source Code  |  1990-08-11  |  1.2 KB  |  62 lines
  1. Screen Open 0,380,380,4,Lowres
  2. Break Off : Flash Off : Hide On : Curs Off : Paper 0 : Ink 2 : Cls 
  3. Locate ,2
  4. Centre "Right Mousebutton For address'!"
  5. STARS
  6. Procedure STARS
  7.    Screen 0
  8.    Channel 8 To Bob 8
  9.    Channel 9 To Bob 9
  10.    Channel 10 To Bob 10
  11.    Get Sprite Palette 
  12.    '
  13.    Double Buffer 
  14.    Bob 8,25,104,1
  15.    Amal 8,"Anim 0,(1,3)(2,3)(3,3)(4,3)(5,3)(6,3)(7,3)(8,3)(9,3)(10,3);"
  16.    '
  17.    Bob 9,150,110,11
  18.    Amal 9,"Anim 0,(11,3)(12,3)(13,3)(14,3)(15,3)(16,3)(17,3)(18,3)(19,3)(20,3);"
  19.    '
  20.    Bob 10,270,110,21
  21.    Amal 10,"Anim 0,(21,3)(22,3)(23,3)(24,3)(25,3)(26,3)(27,3)(28,3)(29,3)(30,3);"
  22.    Amal On 
  23.    '
  24.    Repeat 
  25.    Until Mouse Key=2
  26.    WOOSH
  27.    MAINDEMO
  28. End Proc
  29. Procedure MAINDEMO
  30.    Bob Off 
  31.    Hide On 
  32.    Curs Off 
  33.    Cls 0
  34.    Flash Off 
  35.    Unpack 5 To 1
  36.    Screen To Back 1
  37.    '
  38.    '
  39.    Music 1
  40.    Tempo 17
  41.    Screen 0
  42.    Get Palette 1
  43.    Repeat 
  44.       If Vumeter(1)>50 Then STF1
  45.    Until Mouse Key=1
  46.    For MUZ=62 To 0 Step -1
  47.       Mvolume MUZ
  48.       For T=1 To 500 : Next T
  49.    Next MUZ
  50.    End 
  51. End Proc
  52. Procedure STF1
  53.    Screen To Back 1
  54.    Wait 4
  55.    Screen To Front 1
  56. End Proc
  57. Procedure WOOSH
  58.    For CTR=$FFF To $0 Step -$111
  59.       Colour 0,CTR
  60.       For T=1 To 500 : Next T
  61.    Next CTR
  62. End Proc