home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazine 28 Bonus
/
CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin
/
data
/
shared.dir
/
03019_Script_PRELOAD
< prev
next >
Wrap
Text File
|
1996-06-21
|
2KB
|
90 lines
-- ---------------------------------------------------------------
-- Handler preloadTo
on preloadTo subSectionEnd, interruptFlag
watchCursor
if interruptFlag then setAnimationInterruptable(subSectionEnd)
unload 1, the frame
preload the frame + 1, subSectionEnd
normalCursor
end
-- ---------------------------------------------------------------
-- Handler ProcessFramePreloadToSpecial preloads part of an animation
-- but goes to the end of the whole animation when interrupted
on ProcessFramePreloadToSpecial subSectionEnd, interruptFlag, animationEnd
watchCursor
if interruptFlag then setAnimationInterruptable(animationEnd)
unload 1 , the frame
preload the frame + 1, subSectionEnd
ProcessFrame
normalCursor
end
-- ---------------------------------------------------------------
-- Handler PreloadToSpecial preloads part of an animation
-- but goes to the end of the whole animation when interrupted
on PreloadToSpecial subSectionEnd, interruptFlag, animationEnd
watchCursor
if interruptFlag then setAnimationInterruptable(animationEnd)
unload 1 , the frame
preload the frame + 1, subSectionEnd
normalCursor
end
-- Handler interruptAnimation
on interruptAnimation
global animationEndMarker, menuBar
global button1TextSprite, button2TextSprite, button3TextSprite
-- get a temp value in case the next marker is also an animation
set toMarker = animationEndMarker
-- clear the globals
set animationEndMarker = EMPTY
set the mouseDownScript = EMPTY
if menuBar&&button1TextSprite&&button2TextSprite&&button3TextSprite contains string(the clickon) then
doMenuClicked
else
go toMarker
pass
end if
end
-- ---------------------------------------------------------------
-- Handler setAnimationInterruptable
on setAnimationInterruptable subSectionEnd
global animationEndMarker
set animationEndMarker = subSectionEnd
set the mouseDownScript = "interruptAnimation"
end
-- ---------------------------------------------------------------
-- Handler setMouseDownScriptEmpty for animations that are not
-- interrupted.
on setMouseDownScriptEmpty
set the mouseDownScript = EMPTY
end
-- ---------------------------------------------------------------
-- Handler endAnimation
on endAnimation
setMouseDownScriptEmpty
end