; Grunt rc1
;
;  Skript pro vystrihovani sekvenci a konverzi
;
;  ghh 2008
;
;  Ted uz snad tochu vic z gruntu

requestchoicemui >Env:Answer  title "Grunt" body "Muzes menit format videa*n nebo rozdelit na frames" gadgets "_Frames|Conver_t|_Cancel"

  IF $Answer EQ "0"

    echo "The End"

  ENDIF

  IF $Answer EQ "1"

    REQUESTFILE >ENV:file TITLE "Load video..." DRAWER ram:

    ;echo "Zkoumam soubor"

    ;mplayer:mplayer -vo null -ao null -identify -frames 0 $file

    muirequeststring >ENV:pfmat TITLE "Frames format" BODY "*ecVyber format...*n Zvuk bude v pcm*n jpeg*n png*n tga*n pnm*n md5sum"

    muirequeststring >ENV:start TITLE "Start" BODY "*ecNapis cas zacatku*n ve formatu 00:00:00" ACCEPT="1234567890:" MAXLEN=8

    muirequeststring >ENV:konec TITLE "End" BODY "*ecNapis kolik h:m:s chces enkodovat*n *eipozn. od pozice start viz vyse*n *enve formatu 00:00:00" ACCEPT="1234567890:" MAXLEN=8

    REQUESTFILE >ENV:opath TITLE "Save..." DRAWER "(Vyber/stvor pouze adresar)" DRAWERSONLY

    cd $opath

    mplayer:mplayer -vo $pfmat -ao pcm -ss $start -endpos $konec $file

  ENDIF

  IF $Answer EQ "2"

    REQUESTFILE >ENV:file TITLE "Load video..." DRAWER ram:

    muirequeststring >ENV:start TITLE "Start" BODY "*ecNapis cas zacatku*n ve formatu 00:00:00" ACCEPT="1234567890:" MAXLEN=8

    muirequeststring >ENV:konec TITLE "End" BODY "*ecNapis kolik h:m:s chces enkodovat*n *eipozn. od pozice start viz vyse*n *enve formatu 00:00:00" ACCEPT="1234567890:" MAXLEN=8

    muirequeststring >ENV:video TITLE "Video" BODY "*ecVyber vystupni format pro video*n*elcopy - *eiwithout re-encoding*n *enframeno - *eispecial audio only*n *enraw - *eiuncompressed video*n *ennuv - *einuppel video*n *enlavc - *ei*eblibavcodec best quality!*n *enx264 - *eiH.264 encoding*n *ebZa format muzete pridat jeste dalsi parametry"

    muirequeststring >ENV:audio TITLE "Audio" BODY "*ecVyber vystupni format pro zvuk*n*elcopy - *eiwithout re-encoding*n *enpcm - *eiuncompressed PCM audio*n *enmp3lame - *eiMP3 using libmp3lame*n *enlavc - *eiFFmpeg audio encoder (MP2, AC3,...)*n *enfaac - *eiFAAC AAC audio encoder*n *ebZa format muzete pridat jeste dalsi parametry"

    REQUESTFILE >ENV:output TITLE "Save" DRAWER ram:

    echo "Ted by se mel s Kromovou pomoci spustit mencoder podle zadani"


    mplayer:mencoder $file -ss $start -endpos $konec -ovc $video -oac $audio -o $output

  ENDIF

;konec