home *** CD-ROM | disk | FTP | other *** search
/ DIGIZINE 1 / DIGIZINE.BIN / main / sony / shared.dir / 01044_Script_1044 < prev    next >
Text File  |  1995-09-06  |  2KB  |  77 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.   ---THIS IS THE SCRIPT TO GET OUT OF THE FOLDER BACK TO THE ORIGINAL
  67.  
  68. put the pathname into currentpath
  69. put (length(the pathname)-4) into begnum
  70. --the number subtracted is the number of characters in the folder's name containing this movie
  71. delete char (begnum) to (length(the pathname)) of currentpath
  72. -- delete the last folder name from the end of the path 
  73. go to "homepage" of movie currentpath & "mIntro"
  74. -- currentpath is a text string containing the pathname with the current folder deleted
  75.  
  76.  
  77. end