home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 21 / cdromtoday-21.iso / pc / multbird / startp.dir / 00002_Script_2 < prev    next >
Text File  |  1995-06-27  |  4KB  |  149 lines
  1. on startMovie
  2.   global homeDir,cdROMDrive,testFile,localDir,cdName
  3.   
  4.   ------------------------------
  5.   -- This may change!
  6.   ------------------------------
  7.   
  8.   set the colorDepth = 8
  9.   
  10.   if not(the machineType=256) then
  11.     global black
  12.     initRearWindow()
  13.     coverDesktop(black)
  14.   end if
  15.   
  16.   set homeDir=the pathName
  17.   set localDir=the pathName
  18.   
  19. end startMovie
  20.  
  21.  
  22.  
  23. --------------------------------------------------------------------------
  24. --               THIS CODE IS FOR THE REAR WINDOW XOBJECT
  25. --                           DO NOT TOUCH
  26. --------------------------------------------------------------------------
  27.  
  28. -- RearWindow XObject
  29. -- by David Jackson-Shields
  30. -- vers. 1.0.2 (10/11/93)
  31. --
  32. -- ⌐ 1992-94 by Macromedia, Inc. and David Jackson-Shields
  33. -- All Rights Reserved
  34.  
  35.  
  36. on initRearWindow
  37.   
  38.   global rwObj, gMaxColors, deskTopPattern, black
  39.   
  40.   set x = the colorDepth
  41.   
  42.   --  assign maximum index colors for the color depth setting:
  43.   if x >= 8 then set gMaxColors = 255
  44.   if x = 4 then set gMaxColors =  15
  45.   if x = 2 then set gMaxColors =   3
  46.   if x = 1 then set gMaxColors =   0
  47.   
  48.   -- You must open an external library file if you do not have
  49.   -- the "RearWindow" XCOD resource in the movie using ResEdit:
  50.   if factory( "RearWindow" ) = 0 then
  51.     OpenXLib "RearWindow.XObj"
  52.   end if
  53.   
  54.   initGlobals
  55.   if objectP( rwObj ) then rwObj( mDispose )
  56.   makeObjIfNeeded
  57.   
  58. end initRearWindow
  59.  
  60. --
  61.  
  62. on releaseRearWindow
  63.   if not(the machineType=256) then
  64.     
  65.     global rwObj
  66.     if objectP( rwObj ) then
  67.       rwObj( mDispose )
  68.     end if
  69.     
  70.     -- You must Close the Xlib if you do not have
  71.     -- the XCOD resource installed in the movie with ResEdit:
  72.     CloseXLib
  73.   end if
  74.   
  75.   
  76. end releaseRearWindow
  77.  
  78. --
  79.  
  80. on initGlobals
  81.   
  82.   -- these 1-bit pattern values are constantized in this example movie
  83.   -- for use when  calling the coverDesktop handler from button scripts:
  84.   global white, ltGray, gray, dkGray, black, deskTopPattern
  85.   
  86.   set white   =  -1
  87.   set ltGray  =  -2
  88.   set Gray    =  -3
  89.   set dkGray  =  -4
  90.   set black   =  -5
  91.   
  92.   -- The Finder Desktop pattern is the default case. To specify the
  93.   -- Finder Desktop, use any negative integer less than -5:
  94.   
  95.   set deskTopPattern = -99
  96.   
  97. end initGlobals
  98.  
  99.  
  100. -- fills the RearWindow with 1-bit patterns or the DeskTop pattern:
  101.  
  102. on coverDesktop patVar
  103.   
  104.   global rwObj
  105.   makeObjIfNeeded 
  106.   rwObj( mPatToWindow, patVar )
  107.   
  108. end coverDesktop
  109.  
  110. --
  111.  
  112.  
  113. on makeObjIfNeeded
  114.   
  115.   global rwObj
  116.   if not objectP( rwObj ) then
  117.     
  118.     -- "M" indicates multiple monitors, "S" is for single monitor configuration.
  119.     -- ONLY use "S" if there is not enough room for multiple monitors.
  120.     -- So first...letÆs try it with multiple-monitor configuration:
  121.     set rwObj = RearWindow( mNew, "M" )    
  122.     if value( rwObj ) < 0 then
  123.       alert "System error" && rwObj && ¼
  124.             "trying to create the RearWindow object in RAM (multiple-monitor config)."
  125.       stopMovie
  126.       exit
  127.     end if
  128.     
  129.     if the freeBlock < rwObj( mGetMemoryNeeded ) then
  130.       -- delete the object and create it again with a single-monitor config...
  131.       if objectP( rwObj ) then
  132.         rwObj( mDispose )
  133.         set rwObj = RearWindow( mNew, "S" )
  134.       end if
  135.       
  136.       if value( rwObj ) < 0 then
  137.         alert "System error" && rwObj && ¼
  138.             "trying to create the RearWindow object in RAM (single-monitor config)."
  139.         stopMovie
  140.         exit
  141.       end if
  142.       
  143.     end if
  144.   end if
  145.   
  146. end makeObjIfNeeded
  147. --------------------------------------------------------------------------------
  148. --              
  149. --------------------------------------------------------------------------------