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