Computer Buyer 1995 November/SHOWCASE.ISO/files/gallery.dir/00006_Script_6

Text File | 1995-06-12 | 687b | 20 lines

global cDemoQT, gPauseSprite, gPlaySprite, gStopSprite
on mouseDown
  puppetSprite (the clickon), 1
  set the castNum of sprite gStopSprite = the number of cast "stopGallery lit"
  repeat while the stilldown
    updatestage
  end repeat
end

on mouseUp
  put the clickOn into whichSprite
  puppetSprite whichSprite, 1
  set the movieTime of sprite cDemoQT = 0
  set the movieRate of sprite cDemoQT = 0
  go to the frame + 1
  set the castNum of sprite gStopSprite = the number of cast "stopGallery"
  set the castnum of sprite gPauseSprite = the number of cast "pauseGallery"
  set the castNum of sprite gPlaySprite = the number of cast "playGallery"
  updatestage
end