/* MS_ExportSeq ©1998 by Felix Schwarz
   Exports a sequence from MovieShop and saves it via Ultraconv.
 */

    options results

    cachedir="UConv:Work2/"

    /* Get the options */

    address command "UConv:Commands/ucrxstart"
    
    address 'UConv'

    SCREENTOFRONT

    FLEXOPT "UConv:ReqDesc/MShopExpSeq"
    fopt=result
    
    GETENTRY "|" 0 fopt
    format=result

    GETENTRY "|" 1 fopt
    scale=result

    GETENTRY "|" 2 fopt
    anim=result
    
    SELECT
     WHEN format=0 THEN SAY 'Ok, change nothing'
     WHEN format=1 THEN OUTFORMATBYNAME "ANIM5"
     WHEN format=2 THEN OUTFORMATBYNAME "FLI"
     WHEN format=3 THEN OUTFORMATBYNAME "MPEG"
     WHEN format=4 THEN OUTFORMATBYNAME "QT"
     WHEN format=5 THEN OUTFORMATBYNAME "XFA"
    END
     
    SELECT
     WHEN scale=0 THEN SAY 'Ok, change nothing'
     WHEN scale=1 THEN SETSCALE 320 240 0 0
     WHEN scale=2 THEN SETSCALE 640 480 0 0
     WHEN scale=3 THEN SETSCALE 1 2 1 0
     WHEN scale=4 THEN SETSCALE 2 1 1 0
     WHEN scale=5 THEN SETSCALE 100 50 2 0
     WHEN scale=6 THEN SETSCALE 50 100 2 0
    END
    
    IF scale>0 THEN SCALEREQ ON NOGUI

    /* Export the files from MovieShop */
    
    address 'MOVIESHOP'
    SCREENTOFRONT
    EXPORTMETHOD RAWJPEG
    EXPORTEXTENSION ".%06ld"
    EXPORTBLOCK "UConv:Work2/MS_EXP"

    /* Now pass the files to UConv */

    address 'UConv'
    SCREENTOFRONT
    FIRSTINFILE "UConv:Work2/MS_EXP.000001"
    BLOCKMAINGUI ON
    FIRSTOUTFILE anim
    CONVERT
    BLOCKMAINGUI OFF

    address command "delete UConv:Work2/MS_EXP.#?"
    
    /* Finished!! */
    
    EXIT