Wait for DigitalVideo End

 

Compatibilities:

This item has not yet been rated

Wait for DigitalVideo End

---- written for Director 8 --- ---- Kumar.K kumark@icode.com ---- --- Custom Properties --- property TheSprite,whatnext --- Get Behavior Description List --- on getPropertyDescriptionList me   if not the currentspritenum=0 then exit   DigitalvideoSpriteList=searchDigitalVideo (me)   descriptionlist = [:]   actionlist=["Go NextFrame","Go Next Marker","Go Previous Marker","Go Loop","Exit"]   if DigitalvideoSpriteList.count > 0 then     addprop descriptionlist,#TheSprite,[#comment:"Digital Video Sprite Number :",       #format:#String,#range:DigitalvideoSpriteList,#default:DigitalvideoSpriteList[1]]   else     addprop descriptionlist,#TheSprite,[#comment:"Digital Video Sprite Number :",#format:#Integer,#range:[#min:1,max:the lastchannel],#default:1]   end if   addprop descriptionlist,#whatnext,[#comment:"What Next ?",#format:#string,#range:actionlist,#default:actionlist[1]]   return descriptionlist end getPropertyDescriptionList --- Get Behavior Description List --- -- Get Behavior description -- on getBehaviorDescription   return "This Behavior waits on a frame till Digital Video Sprite Plays Finishing" & RETURN & RETURN &   "Parameters" & RETURN &   "* Digital Video Sprite." & RETURN &   "* What after Digital Video finishes playing." end -- Get Behavior description -- -- events -- on prepareframe   if the loop of  member (sprite(TheSprite).member) = true then     the loop of  member (sprite(TheSprite).member) =false   end if end on ExitFrame   if member(sprite(TheSprite).member).type=#digitalvideo or member(sprite(TheSprite).member).type=#QuickTimeMedia then     if the movietime of sprite TheSprite < the duration of member(sprite(TheSprite).member) then       go the frame     else       case whatnext of         "Go NextFrame":Go The frame+1         "Go Next Marker":Go Next         "Go Previous Marker":Go Previous         "Go Loop":Go Loop         "Exit":quit       end case     end if       end if end -- events -- ------ Availbale for only Frame Script ------ on isOKToAttach (me, aSpriteType, aSpriteNum)   case aSpriteType of     #graphic:       return false     #script:       return True   end case end isOKToAttach ------ Availbale for only Frame Script ------ ------ Search for QT/AVI Sprite ------ on searchDigitalVideo me   DigitalvideoSpriteList = []   repeat with i = 1 to the lastchannel     if member(sprite(i).member).type=#digitalvideo or member(sprite(i).member).type=#QuickTimeMedia then       DigitalvideoSpriteList.append(i)     end if   end repeat   return DigitalvideoSpriteList end ------ Search for QT/AVI Sprite ------