home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 May / Pcwk5b99.iso / Documentation / Kai's Power Tools / Slide Show / SLIDESHO.EXE / SLIDESHO.dxr / 00003_handlers.ls < prev    next >
Encoding:
Text File  |  1998-03-18  |  489 b   |  17 lines
  1. on nextMovie
  2.   global movielist, currentindex, movielength
  3.   set currentindex to currentindex + 1
  4.   if currentindex > count(movielist) then
  5.     set currentindex to 1
  6.   end if
  7.   importFileInto(member 1, getNthFileNameInFolder(the moviePath, getAt(movielist, currentindex)))
  8.   if the type of member 1 = #digitalVideo then
  9.     if the preLoad of member 1 = 1 then
  10.       preloadMember(1)
  11.     end if
  12.     set movielength to the duration of member 1
  13.   else
  14.     set movielength to 240
  15.   end if
  16. end
  17.