home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LAUNCH 3
/
LAUNCH.BIN
/
pc
/
sony
/
shared.dir
/
01044_Script_1044
< prev
next >
Wrap
Text File
|
1995-06-07
|
1KB
|
67 lines
--INIT scripts
on INTBUGFIX
global gBugFix
if voidp(gBugFix) and the machineType <> 256 then
put TRUE into gBugFix
if the colorDepth = 16 then
set the colorDepth = 8
set the colorDepth = 16
end if
end if
end
on INITMOVIE
--cursor(gRegCursor)
--initRearWindow 255
set the exitLock to true
set the keyDownScript to "CheckQuit"
end
---------
on INITGLOBALS
-- global gVar
-- set gVar=1
end
---------
on INITCURSORS
global gRollCursor,gRollCursorMatte
-- cursor 0
-- set gRegCursor to [the number of cast "RegCursor"]
set gRollCursor to the number of cast "RollCursor"
set gRollCursorMatte to the number of cast "RollCursorMatte"
-- set gBusyCursor to [the number of cast "BusyCursor"]
end
on CheckQuit
global gRearWinObj
if the key = "q" and the commandDown then
if objectp(gRearWinObj) then
gRearWinObj(mDispose)
end if
unLoadCast
quit
end if
end
on DisposeQuit
global gRearWinObj
if objectp(gRearWinObj) then
gRearWinObj(mDispose)
end if
unLoadCast
quit
end