/* 

   $VER: MPEGPlayAGA.filer 1.1 (2.4.95)

   Author:
    Matthias Scheler (tron@lyssa.pb.owl.de)

   Function:
    Plays MPEG files with Michael van Elst's mp V1.03.
    It pops up a requester asking to use HAM8 instead of the GRAY8.

   History:
    1.1   removed unnecessary ADDRESS 'FilerRexx'

   Requires:
    mp V1.03 or newer
    AGA

   Call:
    MPEGPlayAGA FILENAME

   Example for "Filer.RC":
    REXXCLASS "#?.mpg","","MPEGPlay %s"

*/

PARSE ARG FileName

OPTIONS RESULTS

'STATUS Playing MPEG Animation' FileName
PANEL OFF

/*

   For AGA machines

*/

QUESTBOX 'Play animation in HAM8 ?'
IF RESULT THEN EXEC 'mp -dither ham8' FileName
ELSE EXEC 'mp -dither gray8' FileName

PANEL ON
'HISTORY Played MPEG Animation' FileName