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

Text File | 1995-08-23 | 13.1 KB | 547 lines

on doHelp
  global CDPath, lastChannel, movieLocation
  repeat while the mouseDown
    nothing()
  end repeat
  if the frame > label("text") then
    textHelp()
  else
    if the frame > label("video") then
      set the movieRate of sprite 16 to 0
      videoHelp()
    else
      if the frame > label("photo") then
        photoHelp()
      else
        if the frame > 1 then
          menuHelp()
        end if
      end if
    end if
  end if
  set the visible of sprite 43 to 0
  set the movieRate of sprite 42 to 0
  set the movieTime of sprite 42 to 1
end

on menuHelp
  set the movieTime of sprite 42 to 1
  set the movieRate of sprite 42 to 1
  repeat while the movieTime of sprite 42 < 270
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(150, 125, 546, 360)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
  end repeat
  repeat while the movieTime of sprite 42 < 580
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 164, 135, 235)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
  end repeat
  repeat while not (the mouseDown)
    globalRollOver(44, 48)
    updateStage()
    if the movieTime of sprite 42 >= the duration of cast the castNum of sprite 42 then
      exit repeat
    end if
  end repeat
  set the visible of sprite 43 to 0
end

on textHelp
  set the movieTime of sprite 42 to 1
  set the movieRate of sprite 42 to 1
  repeat while the movieTime of sprite 42 < 260
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(575, 109, 617, 387)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 600
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(362, 398, 404, 424)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 770
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(148, 118, 543, 399)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 12
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 3
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 1980
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 231, 94, 289)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 2340
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 345, 94, 403)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 2700
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 164, 125, 235)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
  end repeat
  repeat while the movieTime of sprite 42 < 2970
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(250, 3, 637, 66)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while not (the mouseDown)
    globalRollOver(44, 48)
    updateStage()
    if the movieTime of sprite 42 >= the duration of cast the castNum of sprite 42 then
      exit repeat
    end if
  end repeat
  set the visible of sprite 43 to 0
end

on videoHelp
  set the movieTime of sprite 42 to 1
  set the movieRate of sprite 42 to 1
  repeat while the movieTime of sprite 42 < 260
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(231, 371, 595, 398)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 600
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(330, 392, 372, 419)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 900
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 288, 94, 347)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 1200
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 231, 94, 289)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 1460
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 164, 125, 235)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
  end repeat
  repeat while the movieTime of sprite 42 < 1680
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(250, 3, 637, 66)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while not (the mouseDown)
    globalRollOver(44, 48)
    updateStage()
    if the movieTime of sprite 42 >= the duration of cast the castNum of sprite 42 then
      exit repeat
    end if
  end repeat
  set the visible of sprite 43 to 0
end

on photoHelp
  set the movieTime of sprite 42 to 1
  set the movieRate of sprite 42 to 1
  repeat while the movieTime of sprite 42 < 260
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(151, 400, 582, 427)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 600
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(133, 83, 602, 368)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 1000
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(414, 378, 601, 409)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 1230
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 288, 94, 347)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 1600
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 345, 94, 403)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while the movieTime of sprite 42 < 1860
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(1, 164, 125, 235)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
  end repeat
  repeat while the movieTime of sprite 42 < 2070
    globalRollOver(44, 48)
    updateStage()
    if the mouseDown then
      exit
    end if
  end repeat
  set the rect of sprite 43 to rect(250, 3, 637, 66)
  set the visible of sprite 43 to 1
  repeat with i = 1 to 18
    startTimer()
    set the visible of sprite 43 to not (the visible of sprite 43)
    updateStage()
    repeat while the timer < 5
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
    end if
  end repeat
  repeat while not (the mouseDown)
    globalRollOver(44, 48)
    updateStage()
    if the movieTime of sprite 42 >= the duration of cast the castNum of sprite 42 then
      exit repeat
    end if
  end repeat
  set the visible of sprite 43 to 0
end