home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / MenuSong.dxr / 00102.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  2.9 KB  |  84 lines
  1. on handlesprite
  2.   global gPath
  3.   set the visible of sprite 12 to 0
  4.   set the visible of sprite 50 to 0
  5.   set the visible of sprite 51 to 0
  6.   set the visible of sprite 53 to 0
  7. end
  8.  
  9. on createGlobalVariable
  10.   global gSong, gFirstNum, gLoadMix, gLoadSeq, gReturn, gOnSynth, gClick, gPlaySeq, gYesQuit, gMix, gGreen, gBlue, gClickNet, gClickDati, checkStream
  11.   set checkStream to 0
  12.   set gGreen to 75
  13.   set gBlue to 151
  14.   set gYesQuit to 0
  15.   set gSong to EMPTY
  16.   set gFirstNum to 0
  17.   set gLoadMix to EMPTY
  18.   set gLoadSeq to EMPTY
  19.   set gReturn to EMPTY
  20.   set gOnSynth to 0
  21.   set gClick to EMPTY
  22.   set gPlaySeq to 0
  23.   set gMix to 1
  24.   set gClickNet to 0
  25.   set gClickDati to 0
  26. end
  27.  
  28. on createList
  29.   global virTracklIst, volPosList, volValList, panPosList, panValList, stateTrackList, markerList, vmixlist, synthList, loadSynthList, soloGroupList, randomizeList
  30.   set virTracklIst to [-1, -1, -1, -1, -1, -1, -1, -1]
  31.   set volPosList to [239, 239, 239, 239, 239, 239, 239, 239]
  32.   set volValList to [28, 28, 28, 28, 28, 28, 28, 28]
  33.   set panPosList to [239, 239, 239, 239, 239, 239, 239, 239]
  34.   set panValList to [64, 64, 64, 64, 64, 64, 64, 64]
  35.   set stateTrackList to ["off", "off", "off", "off", "off", "off", "off", "off"]
  36.   set markerList to []
  37.   set vmixlist to [EMPTY, EMPTY, EMPTY, EMPTY]
  38.   set synthList to []
  39.   set loadSynthList to []
  40.   set soloGroupList to [0, 0, 0, 0, 0, 0, 0, 0]
  41.   set randomizeList to []
  42. end
  43.  
  44. on writeField
  45.   global gPath, gGreen, gBlue
  46.   put EMPTY into field "fieldElencoSongHD"
  47.   set tList to DirectoryToList(gPath & "Song\")
  48.   sort(tList)
  49.   repeat with i = 1 to count(tList)
  50.     set nome to getAt(tList, i)
  51.     if (charToNum(char 1 of nome) >= 97) and (charToNum(char 1 of nome) <= 122) then
  52.       set cartella to numToChar(charToNum(char 1 of nome) - 32)
  53.     else
  54.       set cartella to char 1 of nome
  55.     end if
  56.     repeat with j = 2 to length(nome) - 1
  57.       if (charToNum(char j of nome) >= 65) and (charToNum(char j of nome) <= 90) then
  58.         set cartella to cartella & numToChar(charToNum(char j of nome) + 32)
  59.         next repeat
  60.       end if
  61.       set cartella to cartella & char j of nome
  62.     end repeat
  63.     put cartella & RETURN after field "fieldElencoSongHD"
  64.   end repeat
  65.   set the scrollTop of member "fieldElencoSongHD" to 0
  66.   set the textFont of member "fieldElencoSongHD" to "IK10"
  67.   set the foreColor of member "fieldElencoSongHD" to 0
  68.   set the textSize of member "fieldElencoSongHD" to 13
  69.   put EMPTY into field "fieldBpm"
  70.   put EMPTY into field "fieldMarkerSeq"
  71.   put EMPTY into field "fieldState"
  72.   put EMPTY into field "fieldDescription"
  73.   put EMPTY into field "fieldLibrary"
  74.   put EMPTY into field "fieldTitle"
  75.   put EMPTY into field "fieldCopy"
  76.   put EMPTY into field "fieldLic"
  77.   put EMPTY into field "fieldElencoSongCD"
  78.   put EMPTY into field "fieldElencoSongNET"
  79.   put EMPTY into field "grooveMem"
  80.   set the foreColor of member "fieldMasterVol" to gGreen
  81.   set the textFont of member "fieldSynth" to "IK10"
  82.   set the foreColor of member "fieldSynth" to gBlue
  83. end
  84.