home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 2 / cd.iso / mac / share / Funkit / FunKit / funkit16.Dxr / 00003.ls < prev    next >
Encoding:
Text File  |  1997-07-03  |  945 b   |  31 lines
  1. on checksamples
  2.   global gDrumList, gDrumLength, gCurrentDrumBtn, gDrumFillin, gDrumFillinLength, gNewLoopLength, gFillinName, gbanknum
  3.   if (gDrumFillin > 0) and (the timer > (gDrumLength - 1)) then
  4.     set gFillinName to the name of cast gDrumFillin of castLib 2
  5.     puppetSound(1, cast gFillinName)
  6.     startTimer()
  7.     updateStage()
  8.     set gDrumFillinLength to calculatelooplength(gDrumFillin)
  9.     set gDrumFillin to 0
  10.   else
  11.     if gDrumFillinLength > 0 then
  12.       if the timer > (gDrumFillinLength - 1) then
  13.         set gDrumFillinLength to 0
  14.         puppetSound(1, cast gDrumList)
  15.         startTimer()
  16.         updateStage()
  17.       end if
  18.     else
  19.       if the timer > (gDrumLength - 1) then
  20.         puppetSound(1, cast gDrumList)
  21.         startTimer()
  22.         updateStage()
  23.         if gNewLoopLength > 0 then
  24.           set gDrumLength to gNewLoopLength
  25.           set gNewLoopLength to 0
  26.         end if
  27.       end if
  28.     end if
  29.   end if
  30. end
  31.