home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / grooveM.dxr / 00345.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  2.4 KB  |  64 lines
  1. on groove_mem pos
  2.   global virTracklIst, volValList, volPosList, stateTrackList, panValList, panPosList, keepList, audioList, gpag, gBlue, gSync
  3.   if the lineCount of member "grooveMem" >= pos then
  4.     cursor(4)
  5.     set the loc of sprite 3 to point(529, 239)
  6.     set the loc of sprite 4 to point(543, 239)
  7.     updateStage()
  8.     repeat with i = 1 to 8
  9.       if getAt(virTracklIst, i) <> -1 then
  10.         put "=" into word 1 of line getAt(virTracklIst, i) of field "fieldAudio"
  11.       end if
  12.     end repeat
  13.     set numero to the name of member the memberNum of sprite (29 + pos)
  14.     set numero to integer(chars(numero, 2, length(numero)))
  15.     repeat with i = 1 to 8
  16.       set infoAudio to word i of line numero of field "grooveMem"
  17.       if (infoAudio <> "0") and getPos(audioList, chars(infoAudio, 13, length(infoAudio))) then
  18.         setAt(virTracklIst, i, getPos(audioList, chars(infoAudio, 13, length(infoAudio))))
  19.         setAt(volValList, i, integer(chars(infoAudio, 1, 3)))
  20.         setAt(volPosList, i, integer(chars(infoAudio, 4, 6)))
  21.         setAt(panValList, i, integer(chars(infoAudio, 7, 9)))
  22.         setAt(panPosList, i, integer(chars(infoAudio, 10, 12)))
  23.         setAt(stateTrackList, i, "on")
  24.         set onNum to "on" & i
  25.         puppetSprite(40 + i, 1)
  26.         set the member of sprite (40 + i) to the number of member onNum
  27.         updateStage()
  28.         next repeat
  29.       end if
  30.       setAt(virTracklIst, i, -1)
  31.       setAt(volValList, i, 28)
  32.       setAt(volPosList, i, 239)
  33.       setAt(panValList, i, 64)
  34.       setAt(panPosList, i, 239)
  35.       setAt(stateTrackList, i, "off")
  36.       puppetSprite(40 + i, 0)
  37.     end repeat
  38.     if the controlDown then
  39.       set gSync to 1
  40.       set the memberNum of sprite 54 to the number of member "HRledSync"
  41.       updateStage()
  42.     end if
  43.     repeat with i = 1 to 8
  44.       if gSync then
  45.         IKVolumeSync2(i, getAt(volValList, i))
  46.         IKPanSync2(i, getAt(panValList, i))
  47.         IKPlaySync(i, getAt(virTracklIst, i))
  48.         next repeat
  49.       end if
  50.       IKVolumeSync(i, getAt(volValList, i))
  51.       IKPanSync(i, getAt(panValList, i))
  52.       IKPlay(i, getAt(virTracklIst, i))
  53.     end repeat
  54.     repeat with i = 1 to 8
  55.       if getAt(virTracklIst, i) <> -1 then
  56.         put i into word 1 of line getAt(virTracklIst, i) of field "fieldAudio"
  57.         set the foreColor of word 1 of line getAt(virTracklIst, i) of field "fieldAudio" to gBlue
  58.       end if
  59.     end repeat
  60.   end if
  61.   set keepList to [0, 0, 0, 0, 0, 0, 0, 0]
  62.   cursor(-1)
  63. end
  64.