Computer Music Interactif 7/cd.iso/pc/PC/Demos/GroovMak/data1.cab/Program_Executable_Files/Media/grooveM.dxr/00644.ls

Text File | 1999-09-17 | 1005 b | 41 lines

on mouseEnter
  if the visible of window "Help" then
    tell window "help"
      go("stop")
    end tell
  end if
end

on mouseLeave
  if the visible of window "Help" then
    tell window "help"
      go("start")
    end tell
  end if
end

on mouseDown
  global dentro
  if (IKGetCurrentBeat() <> -1) and not (the visible of window "help") then
    set x to the mouseH
    set y to the mouseV
    if not (((x >= 292) and (x <= 349) and (y >= 182) and (y <= 202)) or ((x >= 293) and (x <= 349) and (y >= 249) and (y <= 269)) or ((x >= 280) and (x <= 362) and (y >= 220) and (y <= 228))) then
      set dentro to 1
      repeat while the mouseDown
        set the memberNum of sprite 36 to the number of member "HredMix"
        updateStage()
      end repeat
    else
      set dentro to 0
    end if
  end if
end

on mouseUp
  global dentro
  if dentro and (IKGetCurrentBeat() <> -1) and not (the visible of window "help") then
    clickRedMix()
  end if
  set the editable of member "fieldBpm" to 0
end