Wait for DigitalVideo Cuepoint

 

Compatibilities:

This item has not yet been rated

Wait for DigitalVideo Cuepoint

---- written for Director 8 --- ---- Kumar.K kumark@icode.com ---- --- Custom Properties --- property TheSprite,whatnext,cuename,cuetrue --- 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,#cuename,[#comment:"Cue Point Name :",#format:#string,#default:"Enter CuePoint Name Here"]     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 for CuePoint of a Digital Video Sprite " & RETURN & RETURN &   "Parameters" & RETURN &   "* Digital Video Sprite." & RETURN &   "* CuePoint Name." & RETURN &   "* What after Digital Video finishes playing CuePoint." end -- Get Behavior description -- -- events -- on prepareframe   if cuetrue=false and (member(sprite(TheSprite).member).type=#digitalvideo or member(sprite(TheSprite).member).type=#QuickTimeMedia) then     thecuepointnamelist=member(sprite(TheSprite).member).cuePointNames     repeat with i=1 to thecuepointnamelist.count       if thecuepointnamelist[i]=cuename then         cuetrue=true       else         cuetrue=false       end if     end repeat   end if end on ExitFrame   if (member(sprite(TheSprite).member).type=#digitalvideo or member(sprite(TheSprite).member).type=#QuickTimeMedia) and cuetrue= true then     if  (isPastCuePoint(sprite TheSprite, cuename)=1) then       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     else       go the frame     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 ------