home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 2 / cd.iso / mac / share / Funkit / FunKit / funkit8.Dxr / 00023.ls < prev    next >
Encoding:
Text File  |  1997-07-03  |  498 b   |  15 lines
  1. on mouseUp
  2.   global gDrumList, gCurrentDrumBtn, gNewLoopLength, gbanknum
  3.   if gbanknum < 2 then
  4.     set gbanknum to gbanknum + 1
  5.     set the text of cast "bank btn" to "bank " & gbanknum
  6.   else
  7.     set gbanknum to 0
  8.     set the text of cast "bank btn" to "bank " & gbanknum
  9.   end if
  10.   set newnum to gCurrentDrumBtn + 90 + (gbanknum * 200)
  11.   set gDrumList to the name of cast newnum of castLib 2
  12.   preloadMember(member gDrumList of castLib 2)
  13.   set gNewLoopLength to calculatelooplength(newnum)
  14. end
  15.