home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / tvmain.dir / 00066_PopupMovieScript.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  4.0 KB  |  126 lines
  1. on myNoEscape
  2.   if the keyCode = 53 then
  3.     dontPassEvent()
  4.     updateStage()
  5.     go("quitting")
  6.   end if
  7. end
  8.  
  9. on startMovie
  10.   global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount, movieName, movieList, clickonCountry
  11.   set the exitLock to 1
  12.   set the keyDownScript to "myNoEscape"
  13.   set movieList to [2336, 26548, 1760, 1792, 3584, 2716, 2708, 3632, 3600, 4492]
  14.   set movieName to "notrunning"
  15.   set the visible of sprite 2 to 0
  16.   sound stop 1
  17.   sound stop 2
  18.   set the name of castLib "English" to languagechosen
  19.   set the fileName of castLib languagechosen to the pathName & languagechosen & ".cst"
  20.   set clickonCountry to 0
  21.   set the visible of sprite 23 to 0
  22.   set currentSection to 13
  23.   set the visible of sprite 40 to 0
  24.   set the visible of sprite 48 to 0
  25.   set the visible of sprite 4 to 0
  26.   set the visible of sprite 5 to 0
  27.   set the visible of sprite 6 to 0
  28.   set the visible of sprite 7 to 0
  29.   set the visible of sprite 9 to 0
  30.   set the foreColor of member "tvFrance" to 16
  31.   set the foreColor of member "tvUK" to 16
  32.   set the foreColor of member "tvCanada" to 16
  33.   set the foreColor of member "tvChina" to 16
  34.   set the foreColor of member "tvYemen" to 16
  35.   set the foreColor of member "tvEcuador" to 16
  36.   set the foreColor of member "tvGulf" to 16
  37.   set the foreColor of member "tvSriLanka" to 16
  38.   set the foreColor of member "tvIndia" to 16
  39.   set the foreColor of member "tvPoland" to 16
  40.   startnonmovie()
  41. end
  42.  
  43. on setup
  44.   global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount
  45.   puppetSprite(47, 1)
  46.   puppetSprite(41, 1)
  47.   puppetSprite(42, 1)
  48.   puppetSprite(43, 1)
  49.   puppetSprite(44, 1)
  50.   puppetSprite(45, 1)
  51.   puppetSprite(46, 1)
  52.   puppetSprite(48, 1)
  53.   set the member of sprite 44 to member "popupPrevious" of castLib languagechosen
  54.   set the ink of sprite 44 to 36
  55.   set the locH of sprite 44 to 159
  56.   set the locV of sprite 44 to 412
  57.   set the member of sprite 45 to member "popupcontents" of castLib languagechosen
  58.   set the ink of sprite 45 to 36
  59.   set the locH of sprite 45 to 270
  60.   set the locV of sprite 45 to 412
  61.   set the member of sprite 46 to member "popupcover" of castLib languagechosen
  62.   set the ink of sprite 46 to 36
  63.   set the locH of sprite 46 to 382
  64.   set the locV of sprite 46 to 412
  65.   set the member of sprite 48 to member "popuptext" of castLib languagechosen
  66.   set the ink of sprite 48 to 36
  67.   set the locH of sprite 48 to 180
  68.   set the locV of sprite 48 to 39
  69.   set the member of sprite 47 to member "TVmainbanner" of castLib languagechosen
  70.   set the ink of sprite 47 to 36
  71.   set the locH of sprite 47 to 6
  72.   set the locV of sprite 47 to 456
  73.   if languagechosen = "greek" then
  74.     set fontused to "arial greek"
  75.   else
  76.     set fontused to "arial"
  77.   end if
  78.   set the textFont of member "tvfrance" to fontused
  79.   set the textFont of member "tvuk" to fontused
  80.   set the textFont of member "tvcanada" to fontused
  81.   set the textFont of member "tvchina" to fontused
  82.   set the textFont of member "tvyemen" to fontused
  83.   set the textFont of member "tvecuador" to fontused
  84.   set the textFont of member "tvgulf" to fontused
  85.   set the textFont of member "tvsrilanka" to fontused
  86.   set the textFont of member "tvindia" to fontused
  87.   set the textFont of member "tvpoland" to fontused
  88. end
  89.  
  90. on stopMovie
  91.   global gLastMovie, gLastFrame
  92.   puppetSprite(23, 0)
  93.   set gLastMovie to the movieName
  94.   set gLastFrame to the frame
  95.   puppetSprite(2, 0)
  96.   puppetSprite(41, 0)
  97.   puppetSprite(42, 0)
  98.   puppetSprite(43, 0)
  99.   puppetSprite(44, 0)
  100.   puppetSprite(45, 0)
  101.   puppetSprite(46, 0)
  102.   puppetSprite(48, 0)
  103.   puppetSprite(12, 0)
  104.   puppetSprite(13, 0)
  105.   puppetSprite(14, 0)
  106.   stopnonmovie()
  107. end
  108.  
  109. on ContentsStart
  110.   if the castLibNum of sprite 37 = 1 then
  111.     set the volume of sprite 37 to 157
  112.     set the movieRate of sprite 37 to 0
  113.     set the visible of sprite 37 to 0
  114.     updateStage()
  115.   end if
  116. end
  117.  
  118. on ContentsStop
  119.   if the castLibNum of sprite 37 = 1 then
  120.     set the volume of sprite 37 to 157
  121.     set the visible of sprite 37 to 1
  122.     updateStage()
  123.     set the movieRate of sprite 37 to 1
  124.   end if
  125. end
  126.