home *** CD-ROM | disk | FTP | other *** search
/ LAUNCH 2 / LAUNCH.BIN / mac / SONY / SHARED.DIR / 01044_Script_1044 < prev    next >
Text File  |  1995-06-07  |  1KB  |  67 lines
  1. --INIT scripts
  2.  
  3. on INTBUGFIX
  4.   global gBugFix
  5.   
  6.   if voidp(gBugFix) and the machineType <> 256 then
  7.     put TRUE into gBugFix
  8.     if the colorDepth = 16 then 
  9.       set the colorDepth = 8
  10.       set the colorDepth = 16
  11.     end if
  12.   end if
  13.   
  14. end
  15.  
  16.  
  17.  
  18. on INITMOVIE
  19.   --cursor(gRegCursor)
  20.   --initRearWindow 255
  21.   set the exitLock to true
  22.   set the keyDownScript to "CheckQuit"
  23. end
  24.  
  25. ---------
  26.  
  27. on INITGLOBALS 
  28.   -- global gVar
  29.   -- set gVar=1  
  30. end
  31.  
  32. ---------
  33.  
  34. on INITCURSORS
  35.   global gRollCursor,gRollCursorMatte
  36.   -- cursor 0
  37.   -- set gRegCursor to [the number of cast "RegCursor"]
  38.   set gRollCursor to the number of cast "RollCursor"
  39.   set gRollCursorMatte to the number of cast "RollCursorMatte"
  40.   -- set gBusyCursor to [the number of cast "BusyCursor"]
  41. end 
  42.  
  43.  
  44. on CheckQuit
  45.   global gRearWinObj
  46.   
  47.   if the key = "q" and the commandDown then
  48.     if objectp(gRearWinObj) then
  49.       gRearWinObj(mDispose)
  50.     end if
  51.     
  52.     unLoadCast
  53.     quit
  54.   end if
  55. end
  56.  
  57.  
  58. on DisposeQuit
  59.   global gRearWinObj
  60.   
  61.   if objectp(gRearWinObj) then
  62.     gRearWinObj(mDispose)
  63.   end if
  64.   
  65.   unLoadCast
  66.   quit
  67. end