home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / cchfs.dir / 00088_PopupMovieScript.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  4.7 KB  |  160 lines
  1. on popupcode
  2.   global gFromFrame, gOldLine, gLowlightColor, languagechosen
  3.   cursor(4)
  4.   set the member of sprite 47 to member "CCHFSBanner" 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.   updateStage()
  9.   set the blend of sprite 44 to 25
  10.   set the visible of sprite 48 to 0
  11.   set the visible of sprite 40 to 0
  12.   updateStage()
  13.   ContentsStop()
  14. end
  15.  
  16. on evaluate
  17.   global gHighlightColor, gLowlightColor, gOldLine, languagechosen, framecount
  18.   if the visible of sprite 48 = 1 then
  19.     if framecount <> 0 then
  20.       set framecount to framecount - 1
  21.     end if
  22.     if rollOver(48) then
  23.       set tempmouseline to the mouseLine
  24.       if tempmouseline <> 20 then
  25.         set the locV of sprite 47 to 23 + (tempmouseline * 17)
  26.       end if
  27.     end if
  28.   else
  29.     repeat with i = 12 to 16
  30.       if rollOver(i + 22) then
  31.         set the visible of sprite i to 1
  32.         next repeat
  33.       end if
  34.       set the visible of sprite i to 0
  35.     end repeat
  36.     cursor(0)
  37.     if rollOver(44) then
  38.       set the blend of sprite 41 to 75
  39.     else
  40.       set the blend of sprite 41 to 25
  41.     end if
  42.     if rollOver(45) then
  43.       set the blend of sprite 42 to 75
  44.     else
  45.       set the blend of sprite 42 to 25
  46.     end if
  47.     if rollOver(46) then
  48.       set the blend of sprite 43 to 75
  49.     else
  50.       set the blend of sprite 43 to 25
  51.     end if
  52.   end if
  53. end
  54.  
  55. on myNoEscape
  56.   if the keyCode = 53 then
  57.     dontPassEvent()
  58.     updateStage()
  59.     go("quitting")
  60.   end if
  61. end
  62.  
  63. on startMovie
  64.   global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount
  65.   set the exitLock to 1
  66.   set the keyDownScript to "myNoEscape"
  67.   set the name of castLib "English" to languagechosen
  68.   set the fileName of castLib languagechosen to the pathName & languagechosen & ".cst"
  69.   set currentSection to 11
  70.   puppetSprite(29, 1)
  71.   puppetSprite(30, 1)
  72.   set the visible of sprite 40 to 0
  73.   set the visible of sprite 48 to 0
  74. end
  75.  
  76. on setup
  77.   global gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount
  78.   puppetSprite(41, 1)
  79.   puppetSprite(42, 1)
  80.   puppetSprite(43, 1)
  81.   puppetSprite(44, 1)
  82.   puppetSprite(45, 1)
  83.   puppetSprite(46, 1)
  84.   puppetSprite(48, 1)
  85.   set the member of sprite 44 to member "popupPrevious" of castLib languagechosen
  86.   set the ink of sprite 44 to 36
  87.   set the locH of sprite 44 to 159
  88.   set the locV of sprite 44 to 412
  89.   set the member of sprite 45 to member "popupcontents" of castLib languagechosen
  90.   set the ink of sprite 45 to 36
  91.   set the locH of sprite 45 to 270
  92.   set the locV of sprite 45 to 412
  93.   set the member of sprite 46 to member "popupcover" of castLib languagechosen
  94.   set the ink of sprite 46 to 36
  95.   set the locH of sprite 46 to 382
  96.   set the locV of sprite 46 to 412
  97.   set the member of sprite 48 to member "popuptext" of castLib languagechosen
  98.   set the ink of sprite 48 to 36
  99.   set the locH of sprite 48 to 180
  100.   set the locV of sprite 48 to 39
  101.   set the member of sprite 47 to member "CCHFSBanner" of castLib languagechosen
  102.   set the ink of sprite 47 to 36
  103.   set the locH of sprite 47 to 6
  104.   set the locV of sprite 47 to 456
  105.   puppetSprite(47, 1)
  106.   set the visible of sprite 12 to 0
  107.   set the visible of sprite 13 to 0
  108.   set the visible of sprite 14 to 0
  109.   set the visible of sprite 15 to 0
  110.   set the visible of sprite 16 to 0
  111.   if languagechosen = "greek" then
  112.     set fontused to "arial greek"
  113.   else
  114.     set fontused to "arial"
  115.   end if
  116.   set the textFont of member "section1" to fontused
  117.   set the textFont of member "section2" to fontused
  118.   set the textFont of member "section3" to fontused
  119.   set the textFont of member "section4" to fontused
  120.   set the textFont of member "section5" to fontused
  121.   set the textFont of member "CCHFSSKTText1" to fontused
  122.   set the textFont of member "CCHFSDText1" to fontused
  123.   set the textFont of member "CCHFSWText1" to fontused
  124.   set the textFont of member "CCHFSWText2" to fontused
  125.   set the textFont of member "CCHFSSText1" to fontused
  126.   set the textFont of member "CCHFSSText2" to fontused
  127.   set the textFont of member "CCHFSSText3" to fontused
  128.   set the textFont of member "CCHFSSText4" to fontused
  129.   set the textFont of member "CCHFSTText1" to fontused
  130.   set the textFont of member "CCHFSTText2" to fontused
  131.   set the textFont of member "CCHFSTText3" to fontused
  132. end
  133.  
  134. on stopMovie
  135.   global gLastMovie, gLastFrame
  136.   set gLastMovie to the movieName
  137.   set gLastFrame to the frame
  138.   puppetSprite(41, 0)
  139.   puppetSprite(42, 0)
  140.   puppetSprite(43, 0)
  141.   puppetSprite(44, 0)
  142.   puppetSprite(45, 0)
  143.   puppetSprite(46, 0)
  144.   puppetSprite(48, 0)
  145.   sound stop 1
  146.   sound stop 2
  147. end
  148.  
  149. on ContentsStart
  150.   set the visible of sprite 2 to 0
  151.   updateStage()
  152. end
  153.  
  154. on ContentsStop
  155.   if the frame = 3 then
  156.     set the visible of sprite 2 to 1
  157.   end if
  158.   cursor(0)
  159. end
  160.