home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactive 20 / CMi20.iso / pc / sampler.dir / 00016.ls < prev    next >
Encoding:
Text File  |  2000-03-28  |  2.3 KB  |  81 lines

  1. on mainRoller
  2.   repeat with x = 22 to 27
  3.     sprite(x).visible = 0
  4.   end repeat
  5.   repeat with x = 15 to 20
  6.     set the cursor of sprite x to 280
  7.   end repeat
  8.   repeat with x = 45 to 48
  9.     sprite(x).visible = 0
  10.   end repeat
  11.   repeat with x = 55 to 58
  12.     sprite(x).visible = 0
  13.   end repeat
  14.   sprite(38).visible = 0
  15.   if rollOver(15) then
  16.     sprite(22).visible = 1
  17.   else
  18.     if rollOver(16) then
  19.       sprite(23).visible = 1
  20.     else
  21.       if rollOver(17) then
  22.         sprite(24).visible = 1
  23.       else
  24.         if rollOver(18) then
  25.           sprite(25).visible = 1
  26.         else
  27.           if rollOver(19) then
  28.             sprite(26).visible = 1
  29.           else
  30.             if rollOver(20) then
  31.               sprite(27).visible = 1
  32.             else
  33.               if rollOver(39) then
  34.                 sprite(38).visible = 1
  35.               else
  36.                 if rollOver(49) then
  37.                   sprite(45).visible = 1
  38.                   sprite(55).visible = 1
  39.                   if soundBusy(1) then
  40.                   else
  41.                     puppetSound(1, "Bass Line 5 (B-E)")
  42.                   end if
  43.                 else
  44.                   if rollOver(50) then
  45.                     sprite(46).visible = 1
  46.                     sprite(56).visible = 1
  47.                     if soundBusy(1) then
  48.                     else
  49.                       puppetSound(1, "d8")
  50.                     end if
  51.                   else
  52.                     if rollOver(51) then
  53.                       sprite(47).visible = 1
  54.                       sprite(57).visible = 1
  55.                       if soundBusy(1) then
  56.                       else
  57.                         puppetSound(1, "CSTC19")
  58.                       end if
  59.                     else
  60.                       if rollOver(52) then
  61.                         sprite(48).visible = 1
  62.                         sprite(58).visible = 1
  63.                         if soundBusy(1) then
  64.                         else
  65.                           puppetSound(1, "clean_guitar_richclean_pattern3")
  66.                         end if
  67.                       else
  68.                         puppetSound(1, 0)
  69.                       end if
  70.                     end if
  71.                   end if
  72.                 end if
  73.               end if
  74.             end if
  75.           end if
  76.         end if
  77.       end if
  78.     end if
  79.   end if
  80. end
  81.