home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1996 Counselor / COMPUSERVE.ISO / resource / schulung.dir / 00012.ls < prev    next >
Encoding:
Text File  |  1996-06-06  |  515 b   |  19 lines
  1. on initVideo
  2.   global Videotime, videoSprite
  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 video of cast videoName to 1
  9.   set the movieRate of sprite videoSprite to 1
  10. end
  11.  
  12. on endVideo
  13.   global videoSprite
  14.   set the visible of sprite videoSprite to 0
  15.   set the movieRate of sprite videoSprite to 0
  16.   puppetSprite(videoSprite, 0)
  17.   updateStage()
  18. end
  19.