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 / 00347.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  990 b   |  28 lines
  1. on putKeep N
  2.   global virTracklIst, audioList, keepList, gBlue, gRed
  3.   if getPos(virTracklIst, N) then
  4.     if getAt(keepList, integer(word 1 of line N of field "fieldAudio")) then
  5.       set the foreColor of word 1 of line N of field "fieldAudio" to gBlue
  6.       setAt(keepList, integer(line N of field "fieldAudio"), 0)
  7.     else
  8.       set cat to chars(getAt(audioList, N), 1, length(getAt(audioList, N)) - 2)
  9.       if char 1 of cat = "U" then
  10.         set cat to chars(cat, 2, length(cat))
  11.       end if
  12.       set numKeep to 0
  13.       repeat with i = 1 to 8
  14.         if getAt(keepList, i) then
  15.           set temp to getAt(audioList, getAt(virTracklIst, i))
  16.           if offset(cat, temp) then
  17.             set numKeep to numKeep + 1
  18.           end if
  19.         end if
  20.       end repeat
  21.       if numKeep < 4 then
  22.         set the foreColor of word 1 of line N of field "fieldAudio" to gRed
  23.         setAt(keepList, integer(word 1 of line N of field "fieldAudio"), 1)
  24.       end if
  25.     end if
  26.   end if
  27. end
  28.