home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / acid.amos / acid.amosSourceCode next >
Encoding:
AMOS Source Code  |  1991-01-29  |  2.6 KB  |  111 lines
  1. Close Editor 
  2. Dir$="Robots2:"
  3. Load "MUSIC/MUS2"
  4. Led Off 
  5. BEGIN
  6. Music 1
  7. LBAR
  8. Auto View On : Screen To Front 6
  9. Wait 1000
  10. Bob Off : Amal Off : Screen Close 6
  11. '
  12. Unpack 15 To 5
  13. Flash 1,"(FFF,1)(000,1)(0F0,1)(000,1)"
  14. Flash 2,"(000,1)(F00,1)(000,1)(FFF,1)"
  15. '
  16. YAAH
  17. '
  18. Procedure BEGIN
  19.    Auto View Off 
  20.    Unpack 10 To 0
  21.    Hide On 
  22.    Unpack 11 To 1
  23.    Unpack 12 To 2
  24.    Flash 1,"(111,2)(222,2)(444,2)(666,2)(888,2)(BBB,2)(DDD,2)"
  25.    Flash 2,"(222,2)(444,2)(666,2)(888,2)(BBB,2)(DDD,2)(111,2)"
  26.    Flash 3,"(444,2)(666,2)(888,2)(BBB,2)(DDD,2)(111,2)(222,2)"
  27.    Flash 4,"(666,2)(888,2)(BBB,2)(DDD,2)(111,2)(222,2)(444,2)"
  28.    Flash 5,"(888,2)(BBB,2)(DDD,2)(111,2)(222,2)(444,2)(666,2)"
  29.    Flash 6,"(BBB,2)(DDD,2)(111,2)(222,2)(444,2)(666,2)(888,2)"
  30.    Flash 7,"(DDD,2)(111,2)(222,2)(444,2)(666,2)(888,2)(BBB,2)"
  31.    Unpack 13 To 3
  32.    Unpack 14 To 4
  33.    Flash 1,"(FFF,1)(000,1)(F00,1)(000,1)"
  34.    Flash 2,"(000,1)(00F,1)(000,1)(FFF,1)"
  35. End Proc
  36. '
  37. Procedure YAAH
  38.    ROO:
  39.    '
  40.    Gosub LEDS
  41.    Wait Vbl 
  42.    Randomize Timer
  43.    Goto ROO
  44.    LEDS:
  45.    V0=Vumeter(0)
  46.    V1=Vumeter(1)
  47.    V2=Vumeter(2)
  48.    V3=Vumeter(3)
  49.    P=1
  50.    '
  51.    If V0>P Then Screen 0 : Shift Up 1,1,31,1
  52.    If V1>P Then Screen 0 : Shift Down 1,1,31,1
  53.    If Mouse Key=1 Then PAUL
  54.    Wait 2
  55.    If V2>P Then Screen 1 : Shift Up 1,1,31,1
  56.    If V3>P Then Screen 1 : Shift Down 1,1,31,1
  57.    If Mouse Key=1 Then PAUL
  58.    Wait 2
  59.    If V2>P Then Screen 3 : Shift Up 1,2,15,1
  60.    If V3>P Then Screen 3 : Shift Down 1,2,15,1
  61.    '
  62.    If Mouse Key=1 Then PAUL
  63.    If V0>P Then A=Rnd(5)
  64.    Screen To Front A : Randomize Timer
  65.    '
  66.    Return 
  67. End Proc
  68. '
  69. Procedure PAUL
  70.    For B=63 To 0 Step -1
  71.       Volume B : Wait 2
  72.    Next B
  73.    Music Off : Volume 63 : Erase 3
  74.    For S=0 To 5
  75.       Screen Close S
  76.    Next S
  77.    Run "AutoExec.Amos"
  78. End Proc
  79. '
  80. Procedure LBAR
  81.    Screen Open 6,320,256,2,Lowres : Flash Off : Curs Off : Hide On : Palette $0,$FFF
  82.    Hot Spot 1,0,2
  83.    Hot Spot 2,0,3
  84.    Hot Spot 3,0,6
  85.    Hot Spot 4,0,9
  86.    Hot Spot 5,0,12
  87.    Hot Spot 6,0,20
  88.    Hot Spot 7,0,21
  89.    '
  90.    Bob 1,0,30,1
  91.    Bob 2,0,90,1
  92.    Bob 3,0,160,1
  93.    Bob 4,0,229,1
  94.    Channel 1 To Bob 1
  95.    Channel 2 To Bob 2
  96.    Channel 3 To Bob 3
  97.    Channel 4 To Bob 4
  98.    A$="AU(Let R6=Vu(0) ; If R6=0 eXit D else A)"
  99.    A$=A$+"A: A 1,(7,2)(6,2)(5,2)(4,2)(3,2)(2,2)(1,2) ; W"
  100.    Amal 1,A$
  101.    B$="AU(Let R7=Vu(1) ; If R7=0 eXit D else B)"
  102.    B$=B$+"B: A 1,(7,2)(6,2)(5,2)(4,2)(3,2)(2,2)(1,2) ; W"
  103.    Amal 2,B$
  104.    C$="AU(Let R6=Vu(2) ; If R6=0 eXit D else C)"
  105.    C$=C$+"C: A 1,(7,2)(6,2)(5,2)(4,2)(3,2)(2,2)(1,2) ; W"
  106.    Amal 3,C$
  107.    D$="AU(Let R7=Vu(3) ; If R7=0 eXit D else E)"
  108.    D$=D$+"E: A 1,(7,2)(6,2)(5,2)(4,2)(3,2)(2,2)(1,2) ; W"
  109.    Amal 4,D$
  110.    Amal On 
  111. End Proc