home *** CD-ROM | disk | FTP | other *** search
/ Knitting Made Easy / Knitting.iso / App / Patterns.dxr / Internal_12.ls < prev    next >
Encoding:
Text File  |  2002-04-18  |  712 b   |  24 lines
  1. on exitFrame
  2.   global videoStart, videoEnd, cuelist, cuelist2, cueEnd
  3.   cueStart = FindNextLabel()
  4.   cuelist = (the member of sprite 20).cuePointNames
  5.   cpName = getOne(cuelist, cueStart)
  6.   cuelist2 = (the member of sprite 20).cuePointTimes
  7.   videoStart = getAt(cuelist2, cpName)
  8.   cueEnd = the frameLabel & "End"
  9.   cpName = getOne(cuelist, cueEnd)
  10.   videoEnd = getAt(cuelist2, cpName)
  11.   videoEnd = videoEnd + 5
  12.   sort(cuelist2)
  13.   videoplaysegment(sprite(20), videoStart, videoEnd)
  14.   videopause(sprite(20))
  15.   videoseek(sprite(20), videoStart)
  16.   videopause(sprite(20))
  17.   videoplay(sprite(20))
  18.   videopause(sprite(20))
  19.   videoplay(sprite(20))
  20.   repeat while sprite(20).mediaBusy = 0
  21.     nothing()
  22.   end repeat
  23. end
  24.