The Weather Channel - Everything Weather/TheWeatherChannel-EverythingWeather-Win31.iso/twcia/winters/winters.dxr/00048.ls

Text File | 1995-08-22 | 556 b | 21 lines

on mouseDown
  global start, duration, ratio
  if the movieRate of sprite 16 = 0 then
    set the castNum of sprite 28 to 132
    set the movieRate of sprite 16 to 1
  else
    set the castNum of sprite 28 to 131
    set the movieRate of sprite 16 to 0
  end if
  updateStage()
  if the mouseDown then
    repeat while the mouseDown
      set x to the mouseH
      set the locH of sprite 28 to x
      updateStage()
      set x to the locH of sprite 28
      set the movieTime of sprite 16 to integer(((x - start) / ratio) + 1)
    end repeat
  end if
end