home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / ccsg.dir / 00236_PopupMovieScript.ls < prev    next >
Encoding:
Text File  |  1997-02-27  |  4.7 KB  |  153 lines
  1. on setsection sectionname, hCoord, vCoord
  2.   global languagechosen, firstpage, gCurrentSection, gLastSection, gLastMovie, oldHCoord, oldVCoord
  3.   cursor(4)
  4.   set oldHCoord to hCoord
  5.   set oldVCoord to vCoord
  6.   set gLastSection to gCurrentSection
  7.   set gCurrentSection to sectionname
  8.   set gLastMovie to EMPTY
  9.   set firstpage to 1
  10.   set the visible of sprite 10 to 0
  11.   set the visible of sprite 13 to 0
  12.   if the frame = 4 then
  13.     set the member of sprite 2 to member "blanker"
  14.     puppetSprite(11, 0)
  15.     set the visible of sprite 9 to 0
  16.     updateStage()
  17.     set the visible of sprite 14 to 0
  18.   end if
  19.   set the member of sprite 10 to member ("CCSGTitle" & sectionname) of castLib languagechosen
  20.   set the ink of sprite 10 to 36
  21.   set the locH of sprite 10 to hCoord
  22.   set the locV of sprite 10 to vCoord
  23.   set the text of member "CCSGhint" to the text of member ("CCSG" & sectionname & "hint") of castLib languagechosen
  24.   set the text of member "CCSGhint2" to the text of member ("CCSG" & sectionname & "hint") of castLib languagechosen
  25.   go(sectionname)
  26. end
  27.  
  28. on startMovie
  29.   global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount, lastrollover, novideo
  30.   set languagechosen to "english"
  31.   set the visible of sprite 3 to 0
  32.   set the name of castLib "English" to languagechosen
  33.   set the fileName of castLib languagechosen to the pathName & languagechosen & ".cst"
  34.   set gHighlightColor to 32
  35.   set gLowlightColor to 249
  36.   set currentSection to 7
  37.   set lastrollover to 1
  38.   set novideo to 0
  39.   puppetSprite(47, 1)
  40.   puppetSprite(44, 1)
  41.   puppetSprite(45, 1)
  42. end
  43.  
  44. on setup
  45.   global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount, lastrollover, novideo
  46.   set the visible of sprite 40 to 0
  47.   set the visible of sprite 48 to 0
  48.   puppetSprite(41, 1)
  49.   puppetSprite(42, 1)
  50.   puppetSprite(43, 1)
  51.   puppetSprite(44, 1)
  52.   puppetSprite(45, 1)
  53.   puppetSprite(46, 1)
  54.   puppetSprite(48, 1)
  55.   set the member of sprite 44 to member "popupPrevious" of castLib languagechosen
  56.   set the ink of sprite 44 to 36
  57.   set the locH of sprite 44 to 159
  58.   set the locV of sprite 44 to 412
  59.   set the member of sprite 45 to member "popupcontents" of castLib languagechosen
  60.   set the ink of sprite 45 to 36
  61.   set the locH of sprite 45 to 270
  62.   set the locV of sprite 45 to 412
  63.   set the member of sprite 46 to member "popupcover" of castLib languagechosen
  64.   set the ink of sprite 46 to 36
  65.   set the locH of sprite 46 to 382
  66.   set the locV of sprite 46 to 412
  67.   set the text of member "popuptext" to the text of member "popuptext" of castLib languagechosen
  68.   set the member of sprite 48 to member "popuptext" of castLib languagechosen
  69.   set the ink of sprite 48 to 36
  70.   set the locH of sprite 48 to 180
  71.   set the locV of sprite 48 to 39
  72.   set the member of sprite 47 to member "CCSGBanner" of castLib languagechosen
  73.   set the ink of sprite 47 to 36
  74.   set the locH of sprite 47 to 6
  75.   set the locV of sprite 47 to 456
  76.   puppetSprite(4, 1)
  77.   puppetSprite(5, 1)
  78.   puppetSprite(6, 1)
  79.   puppetSprite(7, 1)
  80.   puppetSprite(8, 1)
  81.   puppetSprite(15, 1)
  82.   puppetSprite(16, 1)
  83.   puppetSprite(17, 1)
  84.   puppetSprite(18, 1)
  85.   puppetSprite(19, 1)
  86.   puppetSprite(20, 1)
  87.   puppetSprite(21, 1)
  88.   puppetSprite(22, 1)
  89.   puppetSprite(23, 1)
  90.   puppetSprite(24, 1)
  91.   puppetSprite(25, 1)
  92.   puppetSprite(26, 1)
  93.   puppetSprite(27, 1)
  94.   puppetSprite(28, 1)
  95.   puppetSprite(29, 1)
  96.   puppetSprite(30, 1)
  97.   puppetSprite(31, 1)
  98.   puppetSprite(32, 1)
  99.   puppetSprite(33, 1)
  100.   puppetSprite(34, 1)
  101.   puppetSprite(35, 1)
  102.   puppetSprite(36, 1)
  103.   puppetSprite(37, 1)
  104.   puppetSprite(38, 1)
  105.   puppetSprite(39, 1)
  106.   puppetSprite(47, 1)
  107. end
  108.  
  109. on stopMovie
  110.   global gLastMovie, gLastFrame, gWindowHandle
  111.   set gLastMovie to the movieName
  112.   set gLastFrame to the frame
  113.   puppetSprite(41, 0)
  114.   puppetSprite(42, 0)
  115.   puppetSprite(43, 0)
  116.   puppetSprite(44, 0)
  117.   puppetSprite(45, 0)
  118.   puppetSprite(46, 0)
  119.   puppetSprite(48, 0)
  120. end
  121.  
  122. on playmovie position
  123.   global gDevType, gMoovName, gWindowHandle, movieName, novideo
  124.   if novideo = 0 then
  125.     cursor(4)
  126.     set movieName to the pathName & "stains.avi"
  127.     mci("open" && movieName && "alias movie type AVIVideo style child parent " && gWindowHandle(mGetActive))
  128.     if the result <> 1 then
  129.       set novideo to 1
  130.     else
  131.       mci("put movie window at " & the stageLeft + 278 & " " & the stageTop + 32 & " 240 180")
  132.       mci("play movie from " & position)
  133.     end if
  134.     cursor(0)
  135.   end if
  136. end
  137.  
  138. on ContentsStart
  139.   global restartposition
  140.   if the frame = 4 then
  141.     set the movieRate of sprite 9 to 0
  142.     set the visible of sprite 9 to 0
  143.   end if
  144. end
  145.  
  146. on ContentsStop
  147.   global restartposition
  148.   if the frame = 4 then
  149.     set the movieRate of sprite 9 to 1
  150.     set the visible of sprite 9 to 1
  151.   end if
  152. end
  153.