SKIP - The Laundry Guide/LEVER_CD.iso/lever/tvmain.dir/00047.ls

Text File | 1997-02-21 | 2.9 KB | 88 lines

on popupcode
  global gFromFrame, gOldLine, gLowlightColor, languagechosen
  set the member of sprite 47 to member "TVMAINBanner" of castLib languagechosen
  set the ink of sprite 47 to 36
  set the locH of sprite 47 to 6
  set the locV of sprite 47 to 456
  updateStage()
  set the blend of sprite 44 to 25
  set the visible of sprite 40 to 0
  set the visible of sprite 48 to 0
  ContentsStop()
end

on stopvideo
  unloadMember(the name of the member of sprite 37)
  set the movieRate of sprite 37 to 0
  set the visible of sprite 37 to 0
  updateStage()
  set the visible of sprite 23 to 0
end

on playvideo videoname
  global framecount, firstMovieRate
  set valueEx to videoname & "year"
  set the member of sprite 23 to member valueEx
  set the visible of sprite 23 to 1
  set framecount to 0
  set firstMovieRate to -1
  if the castLibNum of sprite 37 = 1 then
    stopvideo()
    set the castLibNum of sprite 37 to 0
  end if
  if the castLibNum of sprite 37 = 0 then
    set the visible of sprite 37 to 1
    puppetSprite(37, 1)
    set the member of sprite 37 to member videoname
    set the locH of sprite 37 to 357
    set the locV of sprite 37 to 302
    set the volume of sprite 37 to 157
    updateStage()
    set the movieRate of sprite 37 to 1
    set the visible of sprite 4 to 1
    set the visible of sprite 5 to 0
    set the visible of sprite 6 to 1
  else
    nothing()
  end if
  cursor(0)
  set the visible of sprite 23 to 1
end

on stopnonmovie
  repeat with count = 4 to 6
    puppetSprite(count, 0)
  end repeat
  puppetSprite(12, 0)
end

on startnonmovie
  global gWindowHandle, gDevType, gMoovName, movieName, languagechosen
  set gDevType to EMPTY
  set gMoovName to EMPTY
  set movieName to EMPTY
  set the text of field "tvindia" to the text of field "tvindia" of castLib languagechosen
  set the text of field "tvuk" to the text of field "tvuk" of castLib languagechosen
  set the text of field "tvfrance" to the text of field "tvfrance" of castLib languagechosen
  set the text of field "tvcanada" to the text of field "tvcanada" of castLib languagechosen
  set the text of field "tvchina" to the text of field "tvchina" of castLib languagechosen
  set the text of field "tvyemen" to the text of field "tvyemen" of castLib languagechosen
  set the text of field "tvecuador" to the text of field "tvecuador" of castLib languagechosen
  set the text of field "tvgulf" to the text of field "tvgulf" of castLib languagechosen
  set the text of field "tvsrilanka" to the text of field "tvsrilanka" of castLib languagechosen
  set the text of field "tvpoland" to the text of field "tvpoland" of castLib languagechosen
end

on checkcountrys
  global lastrollover, clickonCountry
  repeat with x = 12 to 21
    if the castNum of sprite x <> 0 then
      if rollOver(x) then
        set the foreColor of member the castNum of sprite x to 9
        next repeat
      end if
      set the foreColor of member the castNum of sprite x to 16
    end if
  end repeat
end