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 / 00354.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  2.6 KB  |  81 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("grooveM6")
  5.     end tell
  6.   end if
  7. end
  8.  
  9. on mouseLeave
  10.   if the visible of window "Help" then
  11.     tell window "help"
  12.       go("start")
  13.     end tell
  14.   end if
  15. end
  16.  
  17. on mouseDown
  18.   global gTraccia, gOn, gSync, virTracklIst
  19.   if (gTraccia <> 0) and gOn and not gSync and not (the visible of window "help") then
  20.     if getAt(virTracklIst, gTraccia) <> -1 then
  21.       repeat while the mouseDown
  22.         set the memberNum of sprite 29 to the number of member "Hempty"
  23.         updateStage()
  24.       end repeat
  25.     end if
  26.   end if
  27. end
  28.  
  29. on rightMouseDown
  30.   global gOn, gSync, virTracklIst
  31.   if gOn and (virTracklIst <> [-1, -1, -1, -1, -1, -1, -1, -1]) and not gSync and not (the visible of window "help") then
  32.     repeat while the rightMouseDown
  33.       set the memberNum of sprite 29 to the number of member "Hempty"
  34.       updateStage()
  35.     end repeat
  36.   end if
  37. end
  38.  
  39. on mouseUp
  40.   global gTraccia, gNumField, gOn, gSync, gGreen, virTracklIst, stateTrackList, volValList, volPosList, panValList, panPosList, keepList, soloGroupList
  41.   if (gTraccia <> 0) and gOn and not gSync and not (the visible of window "help") then
  42.     if getAt(virTracklIst, gTraccia) <> -1 then
  43.       IKPlay(gTraccia, -1)
  44.       put "=" into word 1 of line getAt(virTracklIst, gTraccia) of field "fieldAudio"
  45.       set the foreColor of line getAt(virTracklIst, gTraccia) of field "fieldAudio" to gGreen
  46.       setAt(virTracklIst, gTraccia, -1)
  47.       setAt(stateTrackList, gTraccia, "off")
  48.       setAt(volValList, gTraccia, 28)
  49.       setAt(volPosList, gTraccia, 239)
  50.       setAt(panValList, gTraccia, 64)
  51.       setAt(panPosList, gTraccia, 239)
  52.       set controlT to "controlT" & gTraccia
  53.       set the memberNum of sprite (40 + gTraccia) to the number of member controlT
  54.       updateStage()
  55.       put " " into field "fieldFullName"
  56.       if getAt(keepList, gTraccia) then
  57.         setAt(keepList, gTraccia, 0)
  58.       end if
  59.       if getAt(soloGroupList, gTraccia) then
  60.         setAt(soloGroupList, gTraccia, 0)
  61.       end if
  62.       set the memberNum of sprite 29 to the number of member "empty"
  63.       updateStage()
  64.     end if
  65.   end if
  66.   set the editable of member "fieldBpm" to 0
  67. end
  68.  
  69. on rightMouseUp
  70.   global virTracklIst, gOn, gSolo, gSync
  71.   if (virTracklIst <> [-1, -1, -1, -1, -1, -1, -1, -1]) and gOn and not gSync and not (the visible of window "help") then
  72.     set the memberNum of sprite 29 to the number of member "empty"
  73.     updateStage()
  74.     openWin("YesNo")
  75.     tell window "YesNo"
  76.       go("delTrack")
  77.     end tell
  78.   end if
  79.   set the editable of member "fieldBpm" to 0
  80. end
  81.