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

Text File | 1996-06-21 | 4KB | 125 lines

-- -----------------------------------------------------------
-- Handler waitSound

on waitSound soundChannel
  repeat while (not (the mouseDown)) and soundBusy(soundChannel)
    processFrame
    updateStage
  end repeat
end

-- -----------------------------------------------------------
-- Handler waitSoundNoProcess

on waitSoundNoProcess soundChannel
  repeat while (not (the mouseDown)) and soundBusy(soundChannel)
    -- processFrame
    updateStage
  end repeat
end

-- -----------------------------------------------------------
-- Handler waitSoundPuppetZero

on waitSoundPuppetZero soundChannel
  repeat while (not (the mouseDown)) and soundBusy(soundChannel)
    updateStage
  end repeat
  puppetSound 0
end

-- -----------------------------------------------------------
-- Handler waitTicks

on waitTicks howMany
  put the ticks into startTicks
  repeat while the ticks < startTicks + howMany
    processFrame
  end repeat
end

-- -----------------------------------------------------------
-- -----------------------------------------------------------
-- Handler waitTicksNoProcess

on waitTicksNoProcess howMany
  put the ticks into startTicks
  repeat while the ticks < startTicks + howMany
    if the mouseDown then
      exit
    end if

  end repeat

end

-- -----------------------------------------------------------
-- Handler waitVideo just waits for a video

on waitVideo whichSprite
  set the movierate of sprite whichsprite = 1
  repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0)
    processFrame
    updatestage
  end repeat
end

-- -----------------------------------------------------------
-- Handler prepareVideo

on prepareVideo whichSprite
  processFrame
  set the movierate of sprite whichsprite = 0
  set the movieTime of sprite whichSprite to 0
end

-- -----------------------------------------------------------
-- Handler waitVideoNoProcess just waits for a video

on waitVideoNoProcess whichSprite
  set the movierate of sprite whichsprite = 1
  repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0)
    updatestage
  end repeat
end

-- -----------------------------------------------------------
-- Handler prepareVideoNoProcess

on prepareVideoNoProcess whichSprite
  set the movierate of sprite whichsprite = 0
  set the movieTime of sprite whichSprite to 0
end

-- -----------------------------------------------------------
-- Handler waitVideoJumpStart waits for a video, and jumps to start if interrupted
-- ET 30/4/95

on waitVideoJumpStart whichSprite
  set the movierate of sprite whichsprite = 1
  repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0)
    processFrame
    updatestage
  end repeat
  set jumpTime = 0
  set the movieTime of sprite whichSprite = jumpTime
  updateStage
end

-- -----------------------------------------------------------
-- Handler waitVideoJumpEnd waits for a video, and jumps to end if interrupted
-- ET 30/4/95

on waitVideoJumpEnd whichSprite
  set the movierate of sprite whichsprite = 1
  repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0)
    processFrame
    updatestage
  end repeat
  set jumpTime = the duration of cast (the castNum of sprite whichSprite)
  set the movieTime of sprite whichSprite = jumpTime
  updateStage
end