Multipedia/Multipedia_SoftKey_1995.iso/opening/mptour.dir/00089_Script_89

Text File | 1995-11-30 | 661b | 31 lines

on startMovie
  global pauseSprite
  set pauseSprite = 45
end

on waitsound whichChannel
  repeat while (soundBusy(whichChannel)) and not (the mouseDown)
    updateStage
  end repeat
  checkPassClick
end waitSound

on waitVideo whichSprite
  repeat while (the movieRate of sprite whichSprite > 0) and not (the mouseDown)
    updateStage
  end repeat
  checkPassClick
end waitVideo

on checkPassClick
  global gPaused, gContinued, PauseSprite
  if gPaused then
    if the clickon = PauseSprite then
      continueDemo
    end if
  else if gContinued then
    if the clickon = PauseSprite then
      pauseDemo
    end if
  end if
end