SKIP - The Laundry Guide/LEVER_CD.iso/lever/ccmain.dir/00027_PopupMovieScript.ls

Text File | 1997-02-21 | 3.9 KB | 140 lines

on popupcode
  global gFromFrame, gOldLine, gLowlightColor, languagechosen
  cursor(4)
  set the member of sprite 47 to member "CCMBanner" 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
  updateStage()
  ContentsStop()
end

on setanimation
  global framecount, imagenumber
  set framecount to random(3) * 30
  set imagenumber to random(4)
  set the visible of sprite 21 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 24 to 0
  set the visible of sprite (20 + imagenumber) to 1
  go(the frame + 1)
end

on checkrollover frompos, topos
  global currentrollover
  set oldrollover to currentrollover
  repeat with i = frompos to topos
    if rollOver(i + 23) then
      set currentrollover to i
      exit repeat
    end if
  end repeat
  if currentrollover <> oldrollover then
    set the visible of sprite currentrollover to 1
    set the visible of sprite oldrollover to 0
    updateStage()
  else
    if not rollOver(currentrollover) then
      set the visible of sprite oldrollover to 0
    end if
  end if
end

on menurollover
  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
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, oldrollover
  set the exitLock to 1
  set the keyDownScript to "myNoEscape"
  set oldrollover to 0
  set the name of castLib "English" to languagechosen
  set the fileName of castLib languagechosen to the pathName & languagechosen & ".cst"
  set gHighlightColor to 97
  set gLowlightColor to 8
  set currentSection to 2
  set the visible of sprite 40 to 0
  set the visible of sprite 48 to 0
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)
  puppetSprite(47, 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 239
  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 350
  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 462
  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 261
  set the locV of sprite 48 to 39
  set the member of sprite 47 to member "CCMBanner" 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 "CCMDescript" to fontused
  set the textFont of member "CCMText1" to fontused
  set the textFont of member "CCMText2" to fontused
  set the textFont of member "CCMText3" to fontused
  set the textFont of member "CCMText4" 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)
end

on ContentsStart
end

on ContentsStop
  cursor(0)
end