home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / filer-3.14.lha / Filer / Rexx / MPEGPlayAGA.filer < prev    next >
Encoding:
Text File  |  1993-11-27  |  702 b   |  44 lines
  1. /* 
  2.  
  3.    $VER: MPEGPlayAGA.filer 1.0 (20.11.93)
  4.  
  5.    Author:
  6.     Matthias Scheler (tron@lyssa.pb.owl.de)
  7.  
  8.    Function:
  9.     Plays MPEG files with Michael van Elst's mp V1.03.
  10.     It pops up a requester asking to use HAM8 instead of the GRAY8.
  11.  
  12.    Requires:
  13.     mp V1.03 or newer
  14.     AGA
  15.  
  16.    Call:
  17.     MPEGPlayAGA FILENAME
  18.  
  19.    Example for "Filer.RC":
  20.     REXXCLASS "#?.mpg","","MPEGPlay %s"
  21.  
  22. */
  23.  
  24. PARSE ARG FileName
  25.  
  26. ADDRESS 'FilerRexx'
  27. OPTIONS RESULTS
  28.  
  29. 'STATUS Playing MPEG Animation' FileName
  30. PANEL OFF
  31.  
  32. /*
  33.  
  34.    For AGA machines
  35.  
  36. */
  37.  
  38. QUESTBOX 'Play animation in HAM8 ?'
  39. IF RESULT THEN EXEC 'mp -dither ham8' FileName
  40. ELSE EXEC 'mp -dither gray8' FileName
  41.  
  42. PANEL ON
  43. 'HISTORY Played MPEG Animation' FileName
  44.