home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / ccdd.dir / 00044_PopupMovieScript.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  3.0 KB  |  108 lines
  1. on popupcode
  2.   global gFromFrame, gOldLine, gLowlightColor, languagechosen
  3.   cursor(4)
  4.   set the member of sprite 47 to member "CCDDBanner" of castLib languagechosen
  5.   set the ink of sprite 47 to 36
  6.   set the locH of sprite 47 to 6
  7.   set the locV of sprite 47 to 456
  8.   set the blend of sprite 44 to 25
  9.   set the visible of sprite 48 to 0
  10.   updateStage()
  11.   set the visible of sprite 40 to 0
  12.   ContentsStop()
  13. end
  14.  
  15. on setsection sectionno
  16.   global sectionnumber
  17.   cursor(4)
  18.   set sectionnumber to sectionno
  19.   go("tiledown" & sectionno)
  20.   set the blend of sprite 41 to 25
  21.   set the blend of sprite 42 to 25
  22.   set the blend of sprite 43 to 25
  23.   repeat with i = 21 to 31
  24.     set the visible of sprite i to 1
  25.   end repeat
  26. end
  27.  
  28. on myNoEscape
  29.   if the keyCode = 53 then
  30.     dontPassEvent()
  31.     updateStage()
  32.     go("quitting")
  33.   end if
  34. end
  35.  
  36. on startMovie
  37.   global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount
  38.   set the exitLock to 1
  39.   set the keyDownScript to "myNoEscape"
  40.   set the name of castLib "English" to languagechosen
  41.   set the fileName of castLib languagechosen to the pathName & languagechosen & ".cst"
  42.   set gHighlightColor to 21
  43.   set gLowlightColor to 3
  44.   set currentSection to 3
  45.   set the visible of sprite 40 to 0
  46.   set the visible of sprite 48 to 0
  47. end
  48.  
  49. on setup
  50.   global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount
  51.   puppetSprite(41, 1)
  52.   puppetSprite(42, 1)
  53.   puppetSprite(43, 1)
  54.   puppetSprite(44, 1)
  55.   puppetSprite(45, 1)
  56.   puppetSprite(46, 1)
  57.   puppetSprite(48, 1)
  58.   set the member of sprite 44 to member "popupPrevious" of castLib languagechosen
  59.   set the ink of sprite 44 to 36
  60.   set the locH of sprite 44 to 159
  61.   set the locV of sprite 44 to 412
  62.   set the member of sprite 45 to member "popupcontents" of castLib languagechosen
  63.   set the ink of sprite 45 to 36
  64.   set the locH of sprite 45 to 270
  65.   set the locV of sprite 45 to 412
  66.   set the member of sprite 46 to member "popupcover" of castLib languagechosen
  67.   set the ink of sprite 46 to 36
  68.   set the locH of sprite 46 to 382
  69.   set the locV of sprite 46 to 412
  70.   set the member of sprite 48 to member "popuptext" of castLib languagechosen
  71.   set the ink of sprite 48 to 36
  72.   set the locH of sprite 48 to 180
  73.   set the locV of sprite 48 to 39
  74.   puppetSprite(47, 1)
  75.   set the member of sprite 47 to member "CCDDBanner" of castLib languagechosen
  76.   set the ink of sprite 47 to 36
  77.   set the locH of sprite 47 to 6
  78.   set the locV of sprite 47 to 456
  79.   if languagechosen = "greek" then
  80.     set fontused to "arial greek"
  81.   else
  82.     set fontused to "arial"
  83.   end if
  84.   set the textFont of member "CCDDAdvice" to fontused
  85. end
  86.  
  87. on stopMovie
  88.   global gLastMovie, gLastFrame
  89.   set gLastMovie to the movieName
  90.   set gLastFrame to the frame
  91.   puppetSprite(41, 0)
  92.   puppetSprite(42, 0)
  93.   puppetSprite(43, 0)
  94.   puppetSprite(44, 0)
  95.   puppetSprite(45, 0)
  96.   puppetSprite(46, 0)
  97.   puppetSprite(48, 0)
  98.   sound stop 1
  99.   sound stop 2
  100. end
  101.  
  102. on ContentsStart
  103. end
  104.  
  105. on ContentsStop
  106.   cursor(0)
  107. end
  108.