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 / 00358.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.4 KB  |  52 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("volume")
  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 gOn, gFade, gDb, gGreen
  19.   if gOn and not gFade and not (the visible of window "help") then
  20.     set start to integer(field "fieldMasterVol") - 16
  21.     repeat while the mouseDown
  22.       case the frame of
  23.         2, 3:
  24.           set the memberNum of sprite 13 to the number of member "Hvol"
  25.           set the ink of sprite 13 to 36
  26.           set the loc of sprite 13 to point(548, 464)
  27.         6, 7, 10, 11:
  28.           set the memberNum of sprite 10 to the number of member "Hvol"
  29.           set the loc of sprite 10 to point(548, 464)
  30.           set the ink of sprite 10 to 36
  31.       end case
  32.       updateStage()
  33.       set masterVol to start + (480 - the mouseV)
  34.       if masterVol > gDb then
  35.         set masterVol to gDb
  36.       end if
  37.       if masterVol < 0 then
  38.         set masterVol to 0
  39.       end if
  40.       put masterVol into field "fieldMasterVol"
  41.       set the textFont of member "fieldMasterVol" to "IK10"
  42.       set the foreColor of member "fieldMasterVol" to gGreen
  43.       IKMasterVolume(integer(field "fieldMasterVol"))
  44.     end repeat
  45.   end if
  46. end
  47.  
  48. on mouseUp
  49.   set the editable of member "fieldBpm" to 0
  50.   puppetSprite(13, 0)
  51. end
  52.