home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1996 Counselor / COMPUSERVE.ISO / resource / online.dir / 00027.ls < prev    next >
Encoding:
Text File  |  1996-06-06  |  498 b   |  18 lines
  1. on initVideo
  2.   global Videotime, videoSprite, videoName
  3.   set videoSprite to 1
  4.   puppetSprite(videoSprite, 1)
  5.   set videoCast to the castNum of sprite videoSprite
  6.   set videoName to the name of cast videoCast
  7.   set Videotime to the duration of cast videoName
  8.   set the movieRate of sprite videoSprite to 1
  9. end
  10.  
  11. on endVideo
  12.   global videoSprite, videoName
  13.   set the visible of sprite videoSprite to 0
  14.   set the movieRate of sprite videoSprite to 0
  15.   puppetSprite(videoSprite, 0)
  16.   updateStage()
  17. end
  18.