CD-ROM Magazine 28 Bonus/CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin/data/shared.dir/03019_Script_PRELOAD

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