SKIP - The Laundry Guide/LEVER_CD.iso/lever/ccfcl.dir/00126_PopupMovieScript.ls

Text File | 1997-02-21 | 5.0 KB | 165 lines

on checkdial
  global languagechosen
  if rollOver(10) then
    set the visible of sprite 10 to 1
    set the member of sprite 7 to member "CCFCLDialTextWash" of castLib languagechosen
    set the ink of sprite 7 to 36
    set the locH of sprite 7 to 47
    set the locV of sprite 7 to 88
  else
    set the visible of sprite 10 to 0
    if rollOver(11) then
      set the visible of sprite 11 to 1
      set the member of sprite 7 to member "CCFCLDialTextBleach" of castLib languagechosen
      set the ink of sprite 7 to 36
      set the locH of sprite 7 to 47
      set the locV of sprite 7 to 88
    else
      set the visible of sprite 11 to 0
      if rollOver(12) then
        set the visible of sprite 12 to 1
        set the member of sprite 7 to member "CCFCLDialTextDryClean" of castLib languagechosen
        set the ink of sprite 7 to 36
        set the locH of sprite 7 to 47
        set the locV of sprite 7 to 88
      else
        set the visible of sprite 12 to 0
        if rollOver(13) then
          set the visible of sprite 13 to 1
          set the member of sprite 7 to member "CCFCLDialTextDrying" of castLib languagechosen
          set the ink of sprite 7 to 36
          set the locH of sprite 7 to 47
          set the locV of sprite 7 to 88
        else
          set the visible of sprite 13 to 0
          if rollOver(14) then
            set the visible of sprite 14 to 1
            set the member of sprite 7 to member "CCFCLDialTextIroning" of castLib languagechosen
            set the ink of sprite 7 to 36
            set the locH of sprite 7 to 47
            set the locV of sprite 7 to 88
          else
            set the visible of sprite 14 to 0
            set the member of sprite 7 to member "CCFCLDialText"
          end if
        end if
      end if
    end if
  end if
end

on evaluate
  global gHighlightColor, gLowlightColor, gOldLine, languagechosen
  if the visible of sprite 48 = 1 then
    if rollOver(48) then
      set tempmouseline to the mouseLine
      if tempmouseline <> 20 then
        set the locV of sprite 47 to 23 + (tempmouseline * 17)
      end if
    end if
  else
    if rollOver(44) then
      set the blend of sprite 41 to 75
    else
      set the blend of sprite 41 to 25
    end if
    if rollOver(45) then
      set the blend of sprite 42 to 75
    else
      set the blend of sprite 42 to 25
    end if
    if rollOver(46) then
      set the blend of sprite 43 to 75
    else
      set the blend of sprite 43 to 25
    end if
  end if
end

on myNoEscape
  if the keyCode = 53 then
    dontPassEvent()
    updateStage()
    go("quitting")
  end if
end

on startMovie
  global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount
  set the exitLock to 1
  set the keyDownScript to "myNoEscape"
  set the name of castLib "English" to languagechosen
  set the fileName of castLib languagechosen to the pathName & languagechosen & ".cst"
  set gHighlightColor to 27
  set gLowlightColor to 8
  set currentSection to 6
  set the visible of sprite 40 to 0
  set the visible of sprite 48 to 0
  puppetSprite(30, 1)
  set the member of sprite 30 to member "CCFCLTitleExplain" of castLib languagechosen
  set the ink of sprite 30 to 36
  set the locH of sprite 30 to 24
  set the locV of sprite 30 to 308
end

on setup
  global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount
  puppetSprite(41, 1)
  puppetSprite(42, 1)
  puppetSprite(43, 1)
  puppetSprite(44, 1)
  puppetSprite(45, 1)
  puppetSprite(46, 1)
  puppetSprite(48, 1)
  set the member of sprite 44 to member "popupPrevious" of castLib languagechosen
  set the ink of sprite 44 to 36
  set the locH of sprite 44 to 159
  set the locV of sprite 44 to 412
  set the member of sprite 45 to member "popupcontents" of castLib languagechosen
  set the ink of sprite 45 to 36
  set the locH of sprite 45 to 270
  set the locV of sprite 45 to 412
  set the member of sprite 46 to member "popupcover" of castLib languagechosen
  set the ink of sprite 46 to 36
  set the locH of sprite 46 to 382
  set the locV of sprite 46 to 412
  set the member of sprite 48 to member "popuptext" of castLib languagechosen
  set the ink of sprite 48 to 36
  set the locH of sprite 48 to 180
  set the locV of sprite 48 to 39
  puppetSprite(47, 1)
  set the member of sprite 47 to member "CCFCLBanner" 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
  if languagechosen = "greek" then
    set fontused to "arial greek"
  else
    set fontused to "arial"
  end if
  set the textFont of member "CCFCLSectionTitle" to fontused
  set the textFont of member "CCFCLSectionText" to fontused
end

on stopMovie
  global gLastMovie, gLastFrame
  set gLastMovie to the movieName
  set gLastFrame to the frame
  puppetSprite(41, 0)
  puppetSprite(42, 0)
  puppetSprite(43, 0)
  puppetSprite(44, 0)
  puppetSprite(45, 0)
  puppetSprite(46, 0)
  puppetSprite(48, 0)
  sound stop 1
  sound stop 2
end

on ContentsStart
end

on ContentsStop
  cursor(0)
end