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