;mpeg_play GUI file viewer V1.0
;©1995 Ivan Smith
;For WorBench 3.X+ ONLY!
;Requestchoice and Request File must be in you C: dir.

;setup the ENVvars dir for X11 Stuff
IF NOT EXISTS ENV:X11
MAKEDIR >NIL: ENV:X11
ENDIF
;Set the actual variables - add your variables here for window
;playback on WB or other custom screens. Read the DOCS for mpeg_play.
SETENV X11/gfxcard 1
SETENV X11/askmode 1
;Home(Start)
LAB start
;Audio Enabled or not?
C:Requestchoice >env:Loperat "Options""MPEG PLAYBACK*nCyBERgraphics""once""loop"
;Variables for Requestchoice
IF $Loperat eq "0"
skip loop
ENDIF
IF $Loperat eq "1"
skip once
ENDIF
IF $Loperat eq "2"
C:endcli
ENDIF
;Call the better vision player
LAB loop
;Ask for a file name
C:Requestfile >env:Xfilename TITLE "Select an MPEG stream"
Stack 50000
mpeg_play -loop $Xfilename
C:endcli
skip start
;Call the Audio version
LAB once
Stack 50000
;Ask for a file name
C:Requestfile >env:Xfilename TITLE "Select an MPEG Stream"
C:mpeg_play $Xfilename
C:endcli
skip start

;END