home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 2 / cd.iso / mac / share / Funkit / FunKit / funkit16.Dxr / 00024.ls < prev    next >
Encoding:
Text File  |  1997-07-03  |  865 b   |  32 lines
  1. on mouseDown
  2.   set the cursor of sprite 45 to [301, 302]
  3. end
  4.  
  5. on mouseUp
  6.   global gDrumList, gCurrentDrumBtn, gNewLoopLength, gbanknum, gLastbanknum
  7.   set oldnum to gbanknum
  8.   if gbanknum = 0 then
  9.     set gbanknum to 1
  10.     set the castNum of sprite 45 to 65
  11.   else
  12.     if gbanknum = 1 then
  13.       if gLastbanknum = 0 then
  14.         set gbanknum to 2
  15.         set the castNum of sprite 45 to 66
  16.       else
  17.         set gbanknum to 0
  18.         set the castNum of sprite 45 to 64
  19.       end if
  20.     else
  21.       set gbanknum to 1
  22.       set the castNum of sprite 45 to 65
  23.     end if
  24.   end if
  25.   set gLastbanknum to oldnum
  26.   set newnum to gCurrentDrumBtn + 90 + (gbanknum * 200)
  27.   set gDrumList to the name of cast newnum of castLib 2
  28.   preloadMember(member gDrumList of castLib 2)
  29.   set gNewLoopLength to calculatelooplength(newnum)
  30.   set the cursor of sprite 45 to [303, 304]
  31. end
  32.