PC/CD Review 59/PCR59.iso/scifi_2d/movies/shared.dir/01102.ls

Text File | 1995-06-25 | 523 b | 28 lines

on mouseDown
  repeat while the mouseDown
    set mouse1 to the mouseH
    if mouse1 < 335 then
      set mouse1 to 335
    else
      if mouse1 > 470 then
        set mouse1 to 470
      end if
    end if
    set the locH of sprite 30 to mouse1
    updateStage()
  end repeat
end

on mouseUp
  set mousePos to the mouseH
  set level to integer((mousePos - 335) / 0.52800000000000014)
  if level > 255 then
    set level to 255
  else
    if level < 0 then
      set level to 0
    end if
  end if
  setMusicVol(level)
end