home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / Internal_31_video.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  806 b   |  24 lines
  1. on DoMovie movieName
  2.   global RecipeNum
  3.   set the visible of sprite 41 to 1
  4.   if field "videoLib" contains movieName then
  5.     duplicate(member movieName of castLib "Videos", member 200 of castLib "Videos")
  6.     set the pausedAtStart of member 200 of castLib "Videos" to 1
  7.     set the controller of member 200 of castLib "Videos" to 1
  8.     preloadMember(member 200 of castLib "Videos")
  9.     startTimer()
  10.     set the movieRate of sprite 41 to 0
  11.   else
  12.     set the member of sprite 40 to member RecipeNum of castLib "slideNW"
  13.     set the visible of sprite 40 to 1
  14.   end if
  15. end
  16.  
  17. on createVideoLib
  18.   repeat with i = 1 to 148
  19.     if the type of member i of castLib "videos" = #digitalVideo then
  20.       put the name of member i of castLib "videos" & ".mov" into line i of field "videoLib"
  21.     end if
  22.   end repeat
  23. end
  24.