--MpegXtra Simple control
property videoSprite -- the sprite number that is getting controlled
property videoCommand -- the command to be issued
on DoControl me
case ( the VideoCommand of me ) of:
#Play:
videoplay(sprite the videoSprite of me)
#Pause:
videopause(sprite the videoSprite of me)
#Rewind:
videostop(sprite the videoSprite of me)
videoseek(sprite the videoSprite of me, the segmentstart of sprite the videoSprite of me)
end case
end
on mouseUp me
DoControl me
end
---
on getPropertyDescriptionList
set p_list = [ #videoCommand: [ #comment: "Action:",#format: #symbol, #range: [ #Play, #Pause, #Rewind],#default: #Play ], #videoSprite: [ #comment: "MpegXtra Sprite Channel:", #format: #integer, #default: 1] ]
return p_list
end
on getBehaviorDescription
return "Used to create Play, Pause, and Rewind control buttons for a MpegXtra video sprite. " & RETURN & "PARAMETERS:" & RETURN & "Action - Choose the action to perform on mouseUP ( Play, Pause, Rewind )." & RETURN & "DirectMedia Sprite Channel - Enter the number of sprite channel of the MpegXtra video that is being controlled."
end
|