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