SKIP - The Laundry Guide/LEVER_CD.iso/lever/envmain.dir/00339_PopupMovieScript.ls

Text File | 1997-02-21 | 8.1 KB | 264 lines

on popupcode
  global gFromFrame, gOldLine, gLowlightColor, languagechosen
  cursor(4)
  setbanner(0)
  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 setbanner bannerno
  global languagechosen, lastbanner
  if bannerno = 0 then
    set bannerno to lastbanner
  end if
  set lastbanner to bannerno
  set the member of sprite 47 to member ("envmainbanner" & bannerno) 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
end

on tractor
  global languagechosen
  set the member of sprite 10 to member "envtexttitle5" of castLib languagechosen
  go("tractor")
end

on house
  global languagechosen
  set the member of sprite 10 to member "envtexttitle6" of castLib languagechosen
  go("house")
end

on sewer
  global languagechosen
  set the member of sprite 10 to member "envtexttitle3" of castLib languagechosen
  go("sewer")
end

on water
  global languagechosen
  set the member of sprite 10 to member "envtexttitle4" of castLib languagechosen
  go("water")
end

on lorry
  global languagechosen
  set the member of sprite 10 to member "envtexttitle2" of castLib languagechosen
  go("lorry")
end

on factory1
  global languagechosen
  set the member of sprite 10 to member "envtexttitle1" of castLib languagechosen
  go("factory")
end

on pylon
  global languagechosen
  set the member of sprite 10 to member "envtexttitle7" of castLib languagechosen
  go("pylon")
end

on setnavigation number
  global languagechosen
  myNoEscape()
  case number of
    0:
      set the castLibNum of sprite 35 to 0
      set the castLibNum of sprite 36 to 0
      set the castLibNum of sprite 37 to 0
      set the visible of sprite 19 to 0
      set the visible of sprite 29 to 0
      set the visible of sprite 30 to 0
      puppetSprite(31, 0)
      puppetSprite(33, 0)
      puppetSprite(34, 0)
    1:
      set the castLibNum of sprite 36 to 0
      set the castLibNum of sprite 37 to 0
      set the visible of sprite 29 to 0
      set the visible of sprite 30 to 0
      set the member of sprite 35 to member "EnvMainOK" of castLib languagechosen
      set the ink of sprite 35 to 36
      set the locH of sprite 35 to 270
      set the locV of sprite 35 to 414
      set the blend of sprite 19 to 25
      set the visible of sprite 19 to 1
    2:
      set the visible of sprite 29 to 0
      set the castLibNum of sprite 37 to 0
      set the member of sprite 35 to member "EnvMainOK" of castLib languagechosen
      set the ink of sprite 35 to 36
      set the locH of sprite 35 to 270
      set the locV of sprite 35 to 414
      set the member of sprite 36 to member "EnvMainNext" of castLib languagechosen
      set the ink of sprite 36 to 36
      set the locH of sprite 36 to 385
      set the locV of sprite 36 to 414
      set the blend of sprite 19 to 25
      set the visible of sprite 19 to 1
      set the blend of sprite 30 to 25
      set the visible of sprite 30 to 1
    3:
      set the castLibNum of sprite 36 to 0
      set the visible of sprite 30 to 0
      set the member of sprite 35 to member "EnvMainOK" of castLib languagechosen
      set the ink of sprite 35 to 36
      set the locH of sprite 35 to 270
      set the locV of sprite 35 to 414
      set the member of sprite 37 to member "EnvMainPrevious" of castLib languagechosen
      set the ink of sprite 37 to 36
      set the locH of sprite 37 to 160
      set the locV of sprite 37 to 414
      set the blend of sprite 37 to 25
      set the blend of sprite 19 to 25
      set the visible of sprite 19 to 1
      set the blend of sprite 29 to 25
      set the visible of sprite 29 to 1
    4:
      set the member of sprite 35 to member "EnvMainOK" of castLib languagechosen
      set the ink of sprite 35 to 36
      set the locH of sprite 35 to 270
      set the locV of sprite 35 to 414
      set the member of sprite 36 to member "EnvMainNext" of castLib languagechosen
      set the ink of sprite 36 to 36
      set the locH of sprite 36 to 385
      set the locV of sprite 36 to 414
      set the member of sprite 37 to member "EnvMainPrevious" of castLib languagechosen
      set the ink of sprite 37 to 36
      set the locH of sprite 37 to 160
      set the locV of sprite 37 to 414
      set the blend of sprite 19 to 25
      set the visible of sprite 19 to 1
      set the blend of sprite 29 to 25
      set the visible of sprite 29 to 1
      set the blend of sprite 30 to 25
      set the visible of sprite 30 to 1
      puppetSprite(31, 0)
      puppetSprite(33, 0)
      puppetSprite(34, 0)
  end case
  cursor(0)
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"
  sound stop 1
  sound stop 2
  set the name of castLib "English" to languagechosen
  set the fileName of castLib languagechosen to the pathName & languagechosen & ".cst"
  puppetSound(1, "birds")
  set currentSection to 14
  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(47, 1)
  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
  if languagechosen = "greek" then
    set fontused to "arial greek"
  else
    set fontused to "arial"
  end if
  set the textFont of member "envhousetext3" to fontused
  set the textFont of member "envsewertext1b" to fontused
  set the textFont of member "envsludgetext" to fontused
  set the textFont of member "envhousetext1" to fontused
  set the textFont of member "envhousetext2" to fontused
  set the textFont of member "envwatertext" to fontused
  set the textFont of member "envtext" to fontused
  set the textFont of member "envpylontext1" to fontused
  set the textFont of member "envpylonyaxis" to fontused
  set the textFont of member "envpylontext2" to fontused
  set the textFont of member "envlorrytext" to fontused
  set the textFont of member "envsewertext1" to fontused
  set the textFont of member "envsewertext2" to fontused
  set the textFont of member "envmanutext1" to fontused
  set the textFont of member "envmanutext2" to fontused
  set the textFont of member "envmanutext3" to fontused
  set the textFont of member "envmanutext4" to fontused
  set the textFont of member "envmanutext5" to fontused
  set the textFont of member "envmanutext6" to fontused
  setbanner(1)
end

on stopMovie
  global gLastMovie, gLastFrame
  sound stop 1
  sound stop 2
  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)
  puppetSprite(32, 0)
  puppetSprite(18, 0)
end

on ContentsStart
end

on ContentsStop
  cursor(0)
end

on checkbuttons
  if rollOver(19) then
    set the blend of sprite 19 to 75
  else
    set the blend of sprite 19 to 25
  end if
  if rollOver(29) then
    set the blend of sprite 29 to 75
  else
    set the blend of sprite 29 to 25
  end if
  if rollOver(30) then
    set the blend of sprite 30 to 75
  else
    set the blend of sprite 30 to 25
  end if
end