c:copy c:copy t:copy
t:copy >nil: c:delete T:del
echo "c*N"
Requestfile >env:MPname DRAWER RAM: PATTERN #?.(mpeg|mpg) TITLE="Choose MPEG to convert"
if warn
   echo >env:msg "Operation canceled....!"
   skip end
endif
if not exists $MPname
   echo >env:msg "File does not exist....!"
   skip end
endif
Requestfile >env:MPdest DRAWER SYS: FILE Default.anim5 TITLE="Choose destination path."
if warn
   echo >env:msg "Operation canceled....!"
   skip end
endif
Requestchoice >env:mode "" "Choose output mode" EHB Ham6 Ham8 EHB_scale Ham6_scale Ham8_scale Abort
if $mode eq 0
   echo >env:msg "Operation canceled....!"
   skip end
endif
if val $mode GT 3
   Requestchoice >nil: "" "Once the mpeg is split you will be asked to enter your scale." OK
endif
assign MPT: MPtemp
t:copy >nil: convertMPimage T:cmi
t:copy >nil: RRname t:RRname
T:del >nil: MPtemp/#?
ripley $MPname save MPtemp/pic%d
ECHO "*N MPEG is split, now renaming pics."
cd MPtemp
list >t:ConPics lformat "t:RRname %s"
execute T:ConPics
cd /

if val $mode GT 3
   t:CMI noprogress format ILBM24 MPT:pic.00000 to t:iff
   SmartScale ask t:iff
endif

if $mode eq 4
   if $YIN eq $YOUT
      echo >env:mode 1 
   else
      list >t:ConPics sort name MPT: lformat "t:copy %s%s t:ppm*Nt:CMI noprogress format EHB x $XOUT y $YOUT t:ppm to t:iff*Nt:copy t:iff %s%s*Necho %s"
   endif
endif

if $mode eq 5
   if $YIN eq $YOUT
      echo >env:mode 2 
   else
      list >t:ConPics sort name MPT: lformat "t:copy %s%s t:ppm*Nt:CMI noprogress format ham6 x $XOUT y $YOUT t:ppm to t:iff*Nt:copy t:iff %s%s*Necho %s"
   endif
endif

if $mode eq 6
   if $YIN eq $YOUT
      echo >env:mode 3 
   else
      list >t:ConPics sort name MPT: lformat "t:copy %s%s t:ppm*Nt:CMI noprogress format ham8 x $XOUT y $YOUT t:ppm to t:iff*Nt:copy t:iff %s%s*Necho %s"
   endif
endif

if $mode eq 1
   list >t:ConPics sort name MPT: lformat "t:copy %s%s t:ppm*Nt:CMI noprogress format EHB t:ppm to t:iff*Nt:copy t:iff %s%s*Necho %s"
endif

if $mode eq 2
   list >t:ConPics sort name MPT: lformat "t:copy %s%s t:ppm*Nt:CMI noprogress format ham6 t:ppm to t:iff*Nt:copy t:iff %s%s*Necho %s"
endif

if $mode eq 3
   list >t:ConPics sort name MPT: lformat "t:copy %s%s t:ppm*Nt:CMI noprogress format ham8 t:ppm to t:iff*Nt:copy t:iff %s%s*Necho %s"
endif

ECHO "*N Now converting pics.*N*N"
execute T:ConPics
echo ""

t:del >nil: t:ppm t:iff t:cmi t:RRname env:FT
list sort name >T:ConPics MPtemp lformat "0 %s%s"
mkanim using T:conpics to $MPdest
T:del >nil: t:conpics MPtemp/#? env:xin env:yin env:din env:xout env:yout
echo >env:msg "Mpeg2anim successfully completed."
lab end
Requestchoice >nil: "" "$msg" OK
t:del >nil: env:msg env:mode env:MP#? t:copy t:del
assign MPT: REMOVE
endcli