Director and Digital Video Pause

 

Compatibilities: Required Xtras: DirectMedia Xtra 2

This item has not yet been rated

This is Behaviour to play or pause the director movie as well as the digital video movie. You can control both the movies with a single click. This is toggling type button

property spritenum, mystate, myframe, myDVSpriteNum property RolloverCursor, Clickedmember, StandardMember on getPropertyDescriptionList me   if the currentspritenum = 0 then exit   theMember = sprite(the currentSpriteNum).member   theMemberNumber = theMember.number   digitalvideolist = searchdigitalvideosprite(me)   if digitalvideolist.count() < 0 then exit   set description = [:]   addProp description, #RolloverCursor, [#comment: "Set the Cursor To(On Rollver) :",#format:#cursor,#default:280]   addProp description, #Clickedmember, [#comment: "Set Clicked Member To :" ,#format:#Graphic,#default:member (theMemberNumber+1)]   addprop description, #myDVSpriteNum, [#comment:"Digital video Sprite",#format:#integer, #range: digitalvideolist,#default: digitalvideolist[1]]   return description end getPropertyDescriptionList on mouseEnter me   Sprite(Spritenum).cursor=RolloverCursor end on mouseLeave me   cursor -1 end on searchdigitalvideosprite me   set thedigitalvideomemlist = []   repeat with i=1 to the lastchannel     if sprite(i).member.type = #digitalvideo then       thedigitalvideomemlist.append(i)     end if   end repeat   return thedigitalvideomemlist end on beginsprite me   StandardMember = sprite(spritenum).member   savedCursor=sprite(spritenum).cursor   mystate=1 end on mouseup   case mystate of     1:  sprite(spritenum).member= Clickedmember       set the movierate of sprite myDVSpriteNum to 0       updatestage       pause       myframe=the frame       mystate=2       exit     2:   sprite(spritenum).member= StandardMember       set the movierate of sprite myDVSpriteNum to 1       updatestage       mystate=1       play frame myframe       exit   end case end

Upload Provided by ABCUpload ASP