SDA Knowledge Base - User contributions [en]

Anri-chan/Source/build deps.sh

2008-12-24T22:47:48Z

SelbyMD: use xcodebuild rather than applescript to build afconvert

<pre><nowiki>
#!/bin/bash
#anri4 support binary build script
#tested on g4 powerbook under osx 10.4
#
#requirements:
#mp4box, mplayer/mencoder, wget, and x264 build without extra programs
#afconvert source should already be present on your system
#ffmpeg requires svn and gnu make 3.81 or newer (as make)

#sanitize local environment, you might need to change this
mkdir -p bin log src zip
ln -f "$(which svn)" bin/svn
ln -f "$(which make)" bin/make
unset CFLAGS CPPFLAGS CXXFLAGS LDFLAGS DYLD_LIBRARY_PATH PKG_CONFIG_PATH
export PATH="$PWD/bin:/bin:/sbin:/usr/bin:/usr/sbin"
hash -r

#the patch stops afconvert from exiting with an error when failing to shorten
#the length of a sound file, but i might actually need to fix the bug
#rather than just comment it out. only testing will tell...
build-afconvert () {
local dir=AudioFileTools
local fulldir=/Developer/Examples/CoreAudio/Services/$dir
if [ ! -e $fulldir ]; then
echo "afconvert source not found, cannot build"
return
fi
rm -rf src/$dir bin/afconvert
cp -R $fulldir src/$dir
cd src
patch -p0 <<'END_OF_PATCH'
diff -Nru AudioFileTools/Utility/CAAudioFileConverter.cpp AudioFileTools-patched/Utility/CAAudioFileConverter.cpp
--- AudioFileTools/Utility/CAAudioFileConverter.cpp 2008-11-06 23:49:03.000000000 -0500
+++ AudioFileTools-patched/Utility/CAAudioFileConverter.cpp 2008-11-06 23:50:22.000000000 -0500
@@ -372,7 +372,7 @@
break;
}

- if (decoding) {
+ if (0) {
// fix up the destination file's length if necessary and possible
SInt64 nframes = mSrcFile.GetNumberFrames();
if (nframes != 0) {
END_OF_PATCH
xcodebuild -project $dir/$dir.xcode -target afconvert
ln $dir/build/afconvert ../bin/afconvert
cd ..
}

#if you see a complaint about vm_allocate failing
#upgrade built-in make (gnu make 3.80) to 3.81 or newer
#remember to define it (and svn) above if it isn't in the path
build-ffmpeg () {
local ffmpeg=ffmpeg-r15761
local url=svn://svn.mplayerhq.hu/ffmpeg/trunk
rm -rf src/ffmpeg bin/ffmpeg
cd src
if [ -e ../zip/$ffmpeg.tar.bz2 ]; then
tar -xjf ../zip/$ffmpeg.tar.bz2
else
svn export -r 15761 $url ffmpeg
tar -cf ../zip/$ffmpeg.tar ffmpeg
bzip2 ../zip/$ffmpeg.tar
fi
cd ffmpeg
./configure
make
ln ffmpeg ../../bin/ffmpeg
cd ../..
}

build-mencoder () {
echo "mencoder is built by mplayer, so use that target instead"
}

#-force_cpusubtype_ALL is listed as darwin only, so a linux build might need to change this
build-mplayer () {
local mplayer=MPlayer-1.0rc2
local url=http://www11.mplayerhq.hu/MPlayer/releases/
rm -rf src/$mplayer bin/mplayer bin/mencoder
if [ ! -e zip/$mplayer.tar.bz2 ]; then
curl $url/$mplayer.tar.bz2 -o zip/$mplayer.tar.bz2
fi
cd src
tar -xjf ../zip/$mplayer.tar.bz2
cd $mplayer
CFLAGS=-force_cpusubtype_ALL ./configure --enable-largefiles --disable-freetype --disable-fontconfig --disable-gl --disable-openal --disable-x11
make
ln mplayer ../../bin/mplayer
ln mencoder ../../bin/mencoder
cd ../..
}

#the -soname option to the dynamic lib build command is invalid on osx,
#and we only want to use the static lib anyway, so the patch just comments it out,
#makes mp4box link against the static lib, and fixes a namespace collision.
build-mp4box () {
local gpac=gpac-2008-11-01
local url=-d:pserver:anonymous:@gpac.cvs.sourceforge.net:/cvsroot/gpac
rm -rf src/gpac bin/mp4box
cd src
if [ -e ../zip/$gpac.tar.bz2 ]; then
tar -xjf ../zip/$gpac.tar.bz2
else
cvs $url login
cvs -z3 $url export -D 2008-11-01 gpac
tar -cf ../zip/$gpac.tar gpac
bzip2 ../zip/$gpac.tar
fi
patch -p0 <<'END_OF_PATCH'
diff -Nru gpac/applications/mp4box/Makefile gpac-patched/applications/mp4box/Makefile
--- gpac/applications/mp4box/Makefile 2008-10-06 05:41:13.000000000 -0400
+++ gpac-patched/applications/mp4box/Makefile 2008-11-02 23:25:41.000000000 -0500
@@ -35,8 +35,8 @@
else
EXT=
PROG=MP4Box
-#LINKFLAGS+=-lgpac_static $(EXTRALIBS) $(GPAC_SH_FLAGS) -lz
-LINKFLAGS+=-lgpac -lz $(OGL_LIBS)
+LINKFLAGS+=-lgpac_static $(EXTRALIBS) $(GPAC_SH_FLAGS) -lz
+#LINKFLAGS+=-lgpac -lz $(OGL_LIBS)
endif

diff -Nru gpac/src/Makefile gpac-patched/src/Makefile
--- gpac/src/Makefile 2008-10-06 08:58:56.000000000 -0400
+++ gpac-patched/src/Makefile 2008-11-02 23:27:29.000000000 -0500
@@ -206,7 +206,7 @@
$(LIB): $(LIBGPAC_UTILS) $(LIBGPAC_IETF) $(LIBGPAC_BIFS) $(LIBGPAC_ODF) $(LIBGPAC_LASER) $(LIBGPAC_ISOM) $(LIBGPAC_SCENEMANAGER) $(LIBGPAC_TERMINAL) compositor scenegraph mediatools mcrypt $(OBJSPIC)
ar cr ../bin/gcc/libgpac_static.a $(OBJS)
ranlib ../bin/gcc/libgpac_static.a
- $(CC) $(SHFLAGS) -Wl,-soname,$(LIB) $(LDFLAGS) -o ../bin/gcc/$@ $(OBJSPIC) $(EXTRALIBS)
+ #$(CC) $(SHFLAGS) -Wl,-soname,$(LIB) $(LDFLAGS) -o ../bin/gcc/$@ $(OBJSPIC) $(EXTRALIBS)

dep: depend

diff -Nru gpac/src/scenegraph/base_scenegraph.c gpac-patched/src/scenegraph/base_scenegraph.c
--- gpac/src/scenegraph/base_scenegraph.c 2008-10-31 09:42:57.000000000 -0400
+++ gpac-patched/src/scenegraph/base_scenegraph.c 2008-11-03 00:39:19.000000000 -0500
@@ -1601,7 +1601,7 @@
return 0;
}

-char szNameBuffer[1024];
+static char szNameBuffer[1024];
GF_EXPORT
const char *gf_node_get_class_name(GF_Node *node)
{
diff -Nru gpac/src/scenegraph/xml_ns.c gpac-patched/src/scenegraph/xml_ns.c
--- gpac/src/scenegraph/xml_ns.c 2008-10-24 09:06:24.000000000 -0400
+++ gpac-patched/src/scenegraph/xml_ns.c 2008-11-03 00:39:43.000000000 -0500
@@ -391,7 +391,7 @@
return DOM_String_datatype;
}

-char szNameBuffer[1024];
+static char szNameBuffer[1024];

const char*gf_svg_get_attribute_name(GF_Node *node, u32 tag)
{
END_OF_PATCH
cd gpac
chmod 700 configure
./configure --disable-ssl --disable-opengl
make lib
make -C applications/mp4box
ln bin/gcc/MP4Box ../../bin/mp4box
cd ../..
}

build-wget () {
local wget=wget-1.11.4
local url=ftp://ftp.gnu.org/gnu/wget
rm -rf src/$wget bin/wget
if [ ! -e zip/$wget.tar.bz2 ]; then
curl $url/$wget.tar.bz2 -o zip/$wget.tar.bz2
fi
cd src
tar -xjf ../zip/$wget.tar.bz2
cd $wget
./configure --disable-rpath --without-ssl
make
ln src/wget ../../bin/wget
cd ../..
}

#info on versions used by anri
#0.59.859 ce13bb6 ce13bb6e8108657599433031df9c260c9f81b49d 2008-05-20
#0.64.995 2324c70 2324c7074585b8b3f56e49ae41df9cbca06f6185 2008-09-29
#fetch tarball from the next day to include the specified revision
#the patch removes the dependency on git to determine the revision
build-x264 () {
local x264=x264-snapshot-20080521-2245
local url=ftp://ftp.videolan.org/pub/videolan/x264/snapshots
if [ ! -e src/gpac ]; then
echo "gpac not found but needed for mp4 output"
echo "build mp4box first, then build x264 without deleting src/gpac"
return
fi
rm -rf src/$x264 bin/x264
if [ ! -e zip/$x264.tar.bz2 ]; then
curl $url/$x264.tar.bz2 -o zip/$x264.tar.bz2
fi
cd src
tar -xjf ../zip/$x264.tar.bz2
patch -p0 <<'END_OF_PATCH'
diff -Nru x264-snapshot-20080521-2245/version.sh x264-patched/version.sh
--- x264-snapshot-20080521-2245/version.sh 2008-05-21 16:45:10.000000000 -0400
+++ x264-patched/version.sh 2008-12-04 14:13:25.000000000 -0500
@@ -1,4 +1,7 @@
#!/bin/sh
+echo "#define X264_VERSION \" r859\"" >> config.h
+echo "#define X264_POINTVER \"0.59.859\"" >> config.h
+exit
git-rev-list HEAD | sort > config.git-hash
LOCALVER=`wc -l config.git-hash | awk '{print $1}'`
if [ $LOCALVER \> 1 ] ; then
END_OF_PATCH
cd $x264
CFLAGS="-I$PWD/../gpac/include" LDFLAGS="-L$PWD/../gpac/bin/gcc" ./configure --enable-mp4-output
make
ln x264 ../../bin/x264
cd ../..
}

programs=(afconvert ffmpeg mencoder mplayer mp4box wget x264)
for arg; do
for program in ${programs[*]}; do
if [[ $program == $arg || $arg == "all" ]]; then
echo "$program build started"
time build-$program >log/$program.out 2>log/$program.err
echo "$program build finished"
fi
done
done
</nowiki></pre>

Anri-chan/Source/mp4nerf.pl

2008-12-06T22:48:02Z

SelbyMD: fixed a bug parsing inside atoms with 64 bit lengths

<pre><nowiki>
#!/usr/bin/perl
use warnings;
use strict 'subs';
package mp4nerf;

$action = 'nerf'; # default when called from anri
{ no warnings 'once'; *anri::mp4nerf = *mp4nerf; }
exit &mp4batchnerf(@ARGV) unless defined caller();

sub mp4batchnerf {
$verbose = 1;
$action = 'print'; # default when called stand-alone
&pout("MP4 audio track disabler\n");
&pout("beta 0.2, DJ Grenola & SelbyMD\n\n");
&pout("This software comes with no warranty.\n\n");
unless (grep {-e} @_) {
&perr("Usage: mp4nerf.pl <MP4 file> [ <MP4 file> ... ] to print track information\n");
&perr("Usage: mp4nerf.pl -n <MP4 file> [ <MP4 file> ... ] to disable commentary\n");
&perr("Usage: mp4nerf.pl -u <MP4 file> [ <MP4 file> ... ] to re-enable commentary\n");
return 1;
}
for $arg (@_) {
if ($arg eq '-p') { $action = 'print' }
elsif ($arg eq '-u') { $action = 'unnerf' }
elsif ($arg eq '-n') { $action = 'nerf' }
elsif ($arg eq '-x') { $action = 'nerf' }
else { $files++; $errors += &mp4nerf($arg) }
}
if ($errors) {
&perr("[-] There were errors during processing. [${errors}/${files}]\n");
} else {
&pout("[+] All files processed successfully.\n");
}
return $errors;
}

sub mp4nerf {
$mp4file = shift;
$matches = 0;
$tracks_to_skip = ($action eq 'nerf') ? 1 : 0;
unless (open(FH, '+<:raw', $mp4file)) {
&perr(qq([-] Failed to open file "${mp4file}".\n\n));
return 1;
}
&pout(qq([+] Scanning file "${mp4file}".\n));
@traks = &getatomtree([qw(moov trak)], [0, -s $mp4file]);
unless (@traks) {
&perr(qq([-] No tracks found. Maybe this isn't an mp4 file.\n\n));
close(FH);
return 1;
}
for $trak (@traks) {
($tkhd) = &getatoms('tkhd', @$trak);
($offset, $id, $status, $type) = ($$tkhd[0], &id($tkhd), &status($tkhd), &type($trak));
unless (defined($id) and defined($status)) {
&perr(qq([-] Error reading from file "${mp4file}".\n\n));
close(FH);
return 1;
}
printf("[+] Track %d (%7s,%8s) at 0x%08x, ", $id, $type, $status, $$trak[0] - 8) if $verbose;
if ($type ne 'audio') {
&pout("ignored.\n");
} elsif (++$matches <= $tracks_to_skip) {
&pout("skipped.\n");
} elsif (($action eq 'nerf') and ($status eq 'enabled')) {
&pout("attempting to disable ...\n");
if (nerf($offset)) {
&pout("[+] Nerfed successfully.\n");
} else {
&perr("[-] Failed to nerf this track.\n\n");
close(FH);
return 1;
}
} elsif (($action eq 'unnerf') and ($status eq 'disabled')) {
&pout("attempting to enable ...\n");
if (unnerf($offset)) {
&pout("[+] Unnerfed successfully.\n");
} else {
&perr("[-] Failed to unnerf this track.\n\n");
close(FH);
return 1;
}
} else {
&pout("no action taken.\n");
}
}
&pout(qq([+] File "$mp4file" processed successfully.\n\n));
close(FH);
return 0;
}

sub pout { print STDOUT @_ if $verbose }
sub perr { print STDERR @_ }

sub myread { sysseek(FH, $_[1], 0) and ( sysread(FH, $_[0], $_[2]) == $_[2]) }
sub mywrite { sysseek(FH, $_[1], 0) and (syswrite(FH, $_[0], $_[2]) == $_[2]) }

sub nerf { &myread($temp, $_[0] + 3, 1) and &mywrite(pack('C', unpack('C', $temp) & 0xFE), $_[0] + 3, 1) }
sub unnerf { &myread($temp, $_[0] + 3, 1) and &mywrite(pack('C', unpack('C', $temp) | 0x01), $_[0] + 3, 1) }

sub isvideo { &getatomtree([qw(mdia minf vmhd)], $_[0]) }
sub isaudio { &getatomtree([qw(mdia minf smhd)], $_[0]) }

sub type { &isaudio ? 'audio' : &isvideo ? 'video' : 'unknown' }
sub id { &myread($temp, $_[0][0] + 12, 4) ? unpack('N', $temp) : 0 }
sub status { &myread($temp, $_[0][0] + 3, 1) ? ((unpack('C', $temp) % 2) ? 'enabled' : 'disabled') : undef }

sub getatoms {
($atomname, $start, $end) = @_;
@atoms = ();
use bytes;
while ($start < $end) {
last unless &myread($temp, $start, 8);
($size, $name) = unpack('NA4', $temp);
if ($size == 1) { # might not have 'Q', so do this manually
last unless &myread($temp, $start + 8, 8);
$size = unpack('N', substr($temp, 0, 4)) * 2**32 + unpack('N', substr($temp, 4, 4));
if ($size < 16) { $size = (-s $mp4file) - $start }
if ($name eq $atomname) { push @atoms, [$start + 16, $start + $size] }
} else {
if ($size < 8) { $size = (-s $mp4file) - $start }
if ($name eq $atomname) { push @atoms, [$start + 8, $start + $size] }
}
$start += $size;
}
@atoms;
}

sub getatomtree {
@tree = ($_[1]);
for my $atomname (@{$_[0]}) {
last unless @tree;
@tree = map { &getatoms($atomname, @$_) } @tree;
}
@tree;
}

1;
</nowiki></pre>

Anri-chan/Source/build deps.sh

2008-12-05T01:04:00Z

SelbyMD: x264 synced with nate's windows binary (r859)

<pre><nowiki>
#!/bin/bash
#anri4 support binary build script
#tested on g4 powerbook under osx 10.4
#
#requirements:
#mp4box, mplayer/mencoder, wget, and x264 build without extra programs
#afconvert source should already be present on your system
#ffmpeg requires svn and gnu make 3.81 or newer (as make)

#sanitize local environment, you might need to change this
mkdir -p bin log src zip
ln -f "$(which svn)" bin/svn
ln -f "$(which make)" bin/make
unset CFLAGS CPPFLAGS CXXFLAGS LDFLAGS DYLD_LIBRARY_PATH PKG_CONFIG_PATH
export PATH="$PWD/bin:/bin:/sbin:/usr/bin:/usr/sbin"
hash -r

#this is a bit inefficient, since i don't know how to build just afconvert,
#so either manually tell xcode to stop after afconvert builds or wait it out.
#the patch stops afconvert from exiting with an error when failing to shorten
#the length of a sound file, but i might actually need to fix the bug
#rather than just comment it out. only testing will tell...
build-afconvert () {
local dir=AudioFileTools
local fulldir=/Developer/Examples/CoreAudio/Services/$dir
if [ ! -e $fulldir ]; then
echo "afconvert source not found, cannot build"
return
fi
rm -rf src/$dir bin/afconvert
cp -R $fulldir src/$dir
cd src
patch -p0 <<'END_OF_PATCH'
diff -Nru AudioFileTools/Utility/CAAudioFileConverter.cpp AudioFileTools-patched/Utility/CAAudioFileConverter.cpp
--- AudioFileTools/Utility/CAAudioFileConverter.cpp 2008-11-06 23:49:03.000000000 -0500
+++ AudioFileTools-patched/Utility/CAAudioFileConverter.cpp 2008-11-06 23:50:22.000000000 -0500
@@ -372,7 +372,7 @@
break;
}

- if (decoding) {
+ if (0) {
// fix up the destination file's length if necessary and possible
SInt64 nframes = mSrcFile.GetNumberFrames();
if (nframes != 0) {
END_OF_PATCH
osascript <<END_OF_APPLESCRIPT
tell application "Xcode"
activate
open posix file "$PWD/$dir/$dir.xcode"
with timeout of 300 seconds
build
end timeout
quit
end tell
END_OF_APPLESCRIPT
ln $dir/build/afconvert ../bin/afconvert
cd ..
}

#if you see a complaint about vm_allocate failing
#upgrade built-in make (gnu make 3.80) to 3.81 or newer
#remember to define it (and svn) above if it isn't in the path
build-ffmpeg () {
local ffmpeg=ffmpeg-r15761
local url=svn://svn.mplayerhq.hu/ffmpeg/trunk
rm -rf src/ffmpeg bin/ffmpeg
cd src
if [ -e ../zip/$ffmpeg.tar.bz2 ]; then
tar -xjf ../zip/$ffmpeg.tar.bz2
else
svn export -r 15761 $url ffmpeg
tar -cf ../zip/$ffmpeg.tar ffmpeg
bzip2 ../zip/$ffmpeg.tar
fi
cd ffmpeg
./configure
make
ln ffmpeg ../../bin/ffmpeg
cd ../..
}

build-mencoder () {
echo "mencoder is built by mplayer, so use that target instead"
}

#-force_cpusubtype_ALL is listed as darwin only, so a linux build might need to change this
build-mplayer () {
local mplayer=MPlayer-1.0rc2
local url=http://www11.mplayerhq.hu/MPlayer/releases/
rm -rf src/$mplayer bin/mplayer bin/mencoder
if [ ! -e zip/$mplayer.tar.bz2 ]; then
curl $url/$mplayer.tar.bz2 -o zip/$mplayer.tar.bz2
fi
cd src
tar -xjf ../zip/$mplayer.tar.bz2
cd $mplayer
CFLAGS=-force_cpusubtype_ALL ./configure --enable-largefiles --disable-freetype --disable-fontconfig --disable-gl --disable-openal --disable-x11
make
ln mplayer ../../bin/mplayer
ln mencoder ../../bin/mencoder
cd ../..
}

#the -soname option to the dynamic lib build command is invalid on osx,
#and we only want to use the static lib anyway, so the patch just comments it out,
#makes mp4box link against the static lib, and fixes a namespace collision.
build-mp4box () {
local gpac=gpac-2008-11-01
local url=-d:pserver:anonymous:@gpac.cvs.sourceforge.net:/cvsroot/gpac
rm -rf src/gpac bin/mp4box
cd src
if [ -e ../zip/$gpac.tar.bz2 ]; then
tar -xjf ../zip/$gpac.tar.bz2
else
cvs $url login
cvs -z3 $url export -D 2008-11-01 gpac
tar -cf ../zip/$gpac.tar gpac
bzip2 ../zip/$gpac.tar
fi
patch -p0 <<'END_OF_PATCH'
diff -Nru gpac/applications/mp4box/Makefile gpac-patched/applications/mp4box/Makefile
--- gpac/applications/mp4box/Makefile 2008-10-06 05:41:13.000000000 -0400
+++ gpac-patched/applications/mp4box/Makefile 2008-11-02 23:25:41.000000000 -0500
@@ -35,8 +35,8 @@
else
EXT=
PROG=MP4Box
-#LINKFLAGS+=-lgpac_static $(EXTRALIBS) $(GPAC_SH_FLAGS) -lz
-LINKFLAGS+=-lgpac -lz $(OGL_LIBS)
+LINKFLAGS+=-lgpac_static $(EXTRALIBS) $(GPAC_SH_FLAGS) -lz
+#LINKFLAGS+=-lgpac -lz $(OGL_LIBS)
endif

diff -Nru gpac/src/Makefile gpac-patched/src/Makefile
--- gpac/src/Makefile 2008-10-06 08:58:56.000000000 -0400
+++ gpac-patched/src/Makefile 2008-11-02 23:27:29.000000000 -0500
@@ -206,7 +206,7 @@
$(LIB): $(LIBGPAC_UTILS) $(LIBGPAC_IETF) $(LIBGPAC_BIFS) $(LIBGPAC_ODF) $(LIBGPAC_LASER) $(LIBGPAC_ISOM) $(LIBGPAC_SCENEMANAGER) $(LIBGPAC_TERMINAL) compositor scenegraph mediatools mcrypt $(OBJSPIC)
ar cr ../bin/gcc/libgpac_static.a $(OBJS)
ranlib ../bin/gcc/libgpac_static.a
- $(CC) $(SHFLAGS) -Wl,-soname,$(LIB) $(LDFLAGS) -o ../bin/gcc/$@ $(OBJSPIC) $(EXTRALIBS)
+ #$(CC) $(SHFLAGS) -Wl,-soname,$(LIB) $(LDFLAGS) -o ../bin/gcc/$@ $(OBJSPIC) $(EXTRALIBS)

dep: depend

diff -Nru gpac/src/scenegraph/base_scenegraph.c gpac-patched/src/scenegraph/base_scenegraph.c
--- gpac/src/scenegraph/base_scenegraph.c 2008-10-31 09:42:57.000000000 -0400
+++ gpac-patched/src/scenegraph/base_scenegraph.c 2008-11-03 00:39:19.000000000 -0500
@@ -1601,7 +1601,7 @@
return 0;
}

-char szNameBuffer[1024];
+static char szNameBuffer[1024];
GF_EXPORT
const char *gf_node_get_class_name(GF_Node *node)
{
diff -Nru gpac/src/scenegraph/xml_ns.c gpac-patched/src/scenegraph/xml_ns.c
--- gpac/src/scenegraph/xml_ns.c 2008-10-24 09:06:24.000000000 -0400
+++ gpac-patched/src/scenegraph/xml_ns.c 2008-11-03 00:39:43.000000000 -0500
@@ -391,7 +391,7 @@
return DOM_String_datatype;
}

-char szNameBuffer[1024];
+static char szNameBuffer[1024];

const char*gf_svg_get_attribute_name(GF_Node *node, u32 tag)
{
END_OF_PATCH
cd gpac
chmod 700 configure
./configure --disable-ssl --disable-opengl
make lib
make -C applications/mp4box
ln bin/gcc/MP4Box ../../bin/mp4box
cd ../..
}

build-wget () {
local wget=wget-1.11.4
local url=ftp://ftp.gnu.org/gnu/wget
rm -rf src/$wget bin/wget
if [ ! -e zip/$wget.tar.bz2 ]; then
curl $url/$wget.tar.bz2 -o zip/$wget.tar.bz2
fi
cd src
tar -xjf ../zip/$wget.tar.bz2
cd $wget
./configure --disable-rpath --without-ssl
make
ln src/wget ../../bin/wget
cd ../..
}

#info on versions used by anri
#0.59.859 ce13bb6 ce13bb6e8108657599433031df9c260c9f81b49d 2008-05-20
#0.64.995 2324c70 2324c7074585b8b3f56e49ae41df9cbca06f6185 2008-09-29
#fetch tarball from the next day to include the specified revision
#the patch removes the dependency on git to determine the revision
build-x264 () {
local x264=x264-snapshot-20080521-2245
local url=ftp://ftp.videolan.org/pub/videolan/x264/snapshots
if [ ! -e src/gpac ]; then
echo "gpac not found but needed for mp4 output"
echo "build mp4box first, then build x264 without deleting src/gpac"
return
fi
rm -rf src/$x264 bin/x264
if [ ! -e zip/$x264.tar.bz2 ]; then
curl $url/$x264.tar.bz2 -o zip/$x264.tar.bz2
fi
cd src
tar -xjf ../zip/$x264.tar.bz2
patch -p0 <<'END_OF_PATCH'
diff -Nru x264-snapshot-20080521-2245/version.sh x264-patched/version.sh
--- x264-snapshot-20080521-2245/version.sh 2008-05-21 16:45:10.000000000 -0400
+++ x264-patched/version.sh 2008-12-04 14:13:25.000000000 -0500
@@ -1,4 +1,7 @@
#!/bin/sh
+echo "#define X264_VERSION \" r859\"" >> config.h
+echo "#define X264_POINTVER \"0.59.859\"" >> config.h
+exit
git-rev-list HEAD | sort > config.git-hash
LOCALVER=`wc -l config.git-hash | awk '{print $1}'`
if [ $LOCALVER \> 1 ] ; then
END_OF_PATCH
cd $x264
CFLAGS="-I$PWD/../gpac/include" LDFLAGS="-L$PWD/../gpac/bin/gcc" ./configure --enable-mp4-output
make
ln x264 ../../bin/x264
cd ../..
}

programs=(afconvert ffmpeg mencoder mplayer mp4box wget x264)
for arg; do
for program in ${programs[*]}; do
if [[ $program == $arg || $arg == "all" ]]; then
echo "$program build started"
time build-$program >log/$program.out 2>log/$program.err
echo "$program build finished"
fi
done
done
</nowiki></pre>

Anri-chan/Source/config old.ini

2008-11-11T20:40:30Z

SelbyMD: @avifiles and $avidir

<pre><nowiki>
$language = "english";

$gba_crop_left = 43;
$gba_crop_top = 39;
$gba_crop_right = 44;
$gba_crop_bottom = 41;

$gb_crop_left = 80;
$gb_crop_top = 48;
$gb_crop_right = 80;
$gb_crop_bottom = 48;

#for mplayer/mencoder
$really_quiet = "-really-quiet";

#sample settings for auto mode, needs commenting
#boolean vars can be either 1/0 or $lang{y/n}
$auto=0;
if ($auto) {
@menuchoices=(1,2);
$driveletter='D';
$dvdripto='game';
$dvdsource=1;
@dvdchoices=qw(game);
@avifiles=('D:/tmp/desktop/avidir/test.avi');
$avidir='D:/tmp/desktop/avidir';
$projname='game';
$startframe=1022;
$dfnd=0;
$dfnd_set=1;
$d=1;
$f=1;
$twod=0;
$nes=0;
$gb=0;
$gba=0;
$prog=0;
$fieldorder=1;
$vhs=0;
$onepixel=0;
$deflicker=0;
$maxaudiobitrate=256000;
$make_nmf=1;
$trim=1;
@trimarr=(1000,1100,2000,2100,5000,5100,6000,6100);
$statid=1;
@statidlines=('name','game','type and time');
@encodethese=qw(lq mq hq iq xq lqavi mqavi);
}
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-11-11T20:34:41Z

SelbyMD: q_avi auto

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#default
$language = "english";

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...
require Win32;

#get the name of the work directory. this is the desktop by default under windows
$desktop = Win32::GetFolderPath(Win32::CSIDL_DESKTOPDIRECTORY());

#get the path to program files so we can build the anri program directory
$programfiles = Win32::GetFolderPath(Win32::CSIDL_PROGRAM_FILES());

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#goes after a drive letter
$colon = ':';

#black hole
$nul = 'NUL';

#to start programs/open urls
$start = "START";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else { #we're on unix
#desktop location and other os-dependent stuff
if ("$^O" eq "darwin") {
$desktop = glob("~/Desktop");
$path_to_verdana = "/Library/Fonts/Verdana.ttf";
} else {
### FIXME NON-MAC UNIX DESKTOP LOCATION, PATH TO VERDANA
}

#anri program directory ### FIXME ###
$anri_dir = `pwd`;
chomp($anri_dir);

#our encoders - invocation names only - path will be prepended later ...
$x264 = 'x264';
$afconvert = 'afconvert';
#for mp4box
# print "export DYLD_LIBRARY_PATH=${anri_dir}\n";
$mp4box = 'mp4box';
$ffmpeg = 'ffmpeg';

#some anri support files
$avidemux = $anri_dir.'/avidemux2_qt4.app/Contents/Resources/script';
$mplayer = "mplayer";
$mencoder = "mencoder";
$really_quiet = "-really-quiet"; #for mencoder
$wget = "wget";

#dunno about this
$dvdripto_parentdir = "${anri_dir}/dvdripto"; ### FIXME

#not needed under unix
$colon = '';

#black hole
$nul = '/dev/null';

#to start programs/open urls
$start = "open";

#color initialization
require Term::ANSIColor;
import Term::ANSIColor qw(color);
$cecho = "echo";

#fewer colors to choose from than under windows if we want to maintain portability ...
$black_on_gray = color("black on_white");
$gray_on_black = color("white on_black");
$white_on_black = color("white on_black");
$aqua_on_black = color("green on_black");
$blue_on_black = color("blue on_black");
$teal_on_gray = color("green on_white");
$navy_on_gray = color("blue on_white");
$maroon_on_gray = color("magenta on_white");
$maroon_on_silver = color("magenta on_white");
$white_on_gray = color("white on_black");
$red_on_gray = color("red on_white");

$reset_color = "\"${cecho}\" ".color("reset");

#os-specific commands
$clear = "clear";
}

#make sure we can find anri's libs
push @INC, $anri_dir;

#load config file
require 'config.ini' if -e 'config.ini';

#localization
require 'lang_english.pl';
#after having loaded english, load preferred language by using $language variable from config file, would be cool if we could set this in the installer
require "lang_${language}.pl" if $language ne "english";

#FIXME LOGFILE STUFF

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

&out_cls;
@mainmenu = (
[$lang{MAINMENU_RIPDVD}, '&rip_dvd'],
[$lang{MAINMENU_STARTNEWPROJECT}, '&project'],
[$lang{MAINMENU_EXTRACTSAMPLE}, '&proc_sample'],
[$lang{MAINMENU_STATIDPREVIEW}, '&statid_sample'],
[$lang{MAINMENU_EXIT}, 'exit 0'],
);
while (1) {
if (@menuchoices) {
eval($mainmenu[shift(@menuchoices)-1][1]);
} else {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{MAINMENU});
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "$lang{INVALID_INPUT}\n\n";
&out_menu(@mainmenu);
}
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins if $os eq 'windows';
&out_cls_section($lang{SECTION_SAMPLE_EXTRACTION});
q_boo($lang{QUESTION_DVDMPEG_SOURCE}, $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
if (! defined $startframe) {
&out_info($lang{INFO_SAMPLE_LENGTH});
&echo("");
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
if ($os eq 'windows') {
system("${start} \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
@sources = &pipe_prepare($projname, "sources");
$avidemuxarg = " --load";
for (@sources) {
$avidemuxargs .= "${avidemuxarg} \"${desktop}/anri_sample/${_}\"";
$avidemuxarg = " --append";
}
#system("sh \"${avidemux}\" ${avidemuxargs} &");
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if ($os ne 'windows') {
### remove .idx files
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF()\nSeparateFields()\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir($desktop);
#&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}$lang{SAMPLE_EXTRACTION_DONE}");
&echo("\n$lang{SAMPLE_EXTRACTION_README}");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Statid Sample
#
# Statid preview mode shows users how their statid will look without having
# to encode anything. A slimmed down version of the code from the main
# procedure and script_buildfiles is used. The same temporary project
# name and directory from sample extraction mode are used and deleted.
# The user is sent back to the main menu but currently will need
# to enter the statid information again during the main script.
############################################################################

sub statid_sample {
chdir($desktop);
$projname = 'anri_sample';
&make_projdir;
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_ABOUT_EACH_LINE});
if (!@statidlines) {
foreach $i (1 .. 3) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
}
&echotofile("global pal = false\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
$projtemp = "run = blankclip(width=640, height=480)";
$projtemp .= "statid=nate_statid_d1(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid\n";
&echotofile($projtemp,">>","${projname}.avs");
system("\"${vdub_dir}/${vdubgui}\" \"${projname}.avs\"");
chdir($desktop);
&rm("${desktop}/${projname}");
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{SECTION_PROJECT_SETUP});
if (! defined $projname) {
&out_info($lang{ENTER_PROJECT_NAME});
&echo("");
&echo("$lang{PROJECT_FILES_APPEAR_IN} ${navy_on_gray}${desktop}\\($lang{PROJECT_NAME})\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "$lang{PROJECT_NAME_ILLEGAL_CHARACTERS}\n\n";
print $prompt;
}
}
&make_projdir;
&load_plugins if $os eq 'windows';
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section($lang{MOVIE_SOURCE});
&out_info($lang{MOVIE_SOURCE_MPEG2_HINT});
&echo("");
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if (q_boo($lang{MPEG2_SOURCE_QUESTION}, $dvdsource)) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section($lang{SECTION_GAME_PROPERTIES});
if ((!$dvdsource) and (!$auto)) {
q_boo($lang{PC_GAME_QUESTION}, $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
} else {
&q_dfnd if !$dfnd_set;
if (!$dfnd_set) {
&echo("");
&out_info($lang{DF_EXPLAIN});
&echo("");
&out_info($lang{DF_FIND_AT_THIS_URL});
&out_info($lang{DFND_URL});
&echo("");
&out_info($lang{DF_IF_NOT_FOUND_THEN_WHAT});
&echo("");
if (! defined $d) {
&echo($lang{QUESTION_D});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if (! defined $f) {
&echo($lang{QUESTION_F});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
q_boo($lang{QUESTION_ND}, $twod) if ($f == 1);
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info($lang{QUESTION_SUBMIT_DFND_WHY});
&echo("");
system($start, 'http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0') if q_boo($lang{QUESTION_SUBMIT_DFND});
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section($lang{SECTION_VIDEO_PROPERTIES});
q_boo($lang{QUESTION_PROGRESSIVE_INTERLACED}, $prog);
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
if (! defined $fieldorder) {
&out_info($lang{FIELDORDER_VDUB_WINDOW_OPENS});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("${start} \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&out_info($lang{VDUB_WINDOW_CAN_CLOSE_NOW});
&rm("${projname}_fieldordertemp.avs");
}
&echo("");

#q_vhs
q_boo($lang{QUESTION_VHS}, $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_1PIXEL_BOB}, $onepixel) if ($f != 2);

q_boo($lang{QUESTION_NES}, $nes);
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_GBA}, $gba);
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_GB}, $gb);
$deflicker=1 if $gb;

q_boo($lang{QUESTION_DEFLICKERED}, $deflicker) if ($f != 2);
}

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. If the frame range is like 50 to 30 an error is shown, same if a '-'
# is inputted.
# Users can enter dummy values and edit project_job.bat later on and it will
# still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section($lang{SECTION_CONTENT_PROPERTIES});
if (! defined $trim) {
&out_info($lang{INFO_TRIM});
if (q_boo($lang{QUESTION_TRIM}, $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. Implemented basic checking if the frame range is valid.
############################################################################
&echo("");
&out_info($lang{TRIM_VDUB_WINDOW_OPENS});
&echo("");
&out_info($lang{TRIM_MULTIPLE_RANGES});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("${start} \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{TRIM_ILLEGAL_VALUE};
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info($lang{TRIM_NO_VALUES_ENTERED});
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error($lang{TRIM_ODD_NUMBER_OF_FRAMES});
@trimarr = ();
} else {
&out_info($lang{TRIM_DONE});
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg=$lang{TRIM_INVALID_INPUT_MUST_BE_FRAME_NUMBER};
} elsif ((@trimarr % 2) && ($trimarr[@trimarr-1] > $_)) {
$errormsg=$lang{TRIM_INVALID_RANGE};
} else {
push(@trimarr,$_);
&out_info($lang{TRIM_POINT_LOADED_SUCCESSFULLY}.' #'.@trimarr);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}
}

if (! defined $statid) {
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_INFO});
if (q_boo($lang{QUESTION_STATID}, $statid)) {
@statidlines = ();
&out_info($lang{STATID_ABOUT_EACH_LINE});
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
} else {
@statidlines = ('','','');
}
}

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
#$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section($lang{SECTION_READY_TO_ENCODE});
&out_info("$lang{SETTINGS_SAVED_TO_FILE} \"${projname}_job.bat\".");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if ($auto or q_boo($lang{QUESTION_ENCODE_NOW_OR})) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ/XQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section($lang{SECTION_ENCODING_OPTIONS});
%qualities = (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
lq => [ 1, \&twopass, "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
mq => [ 1, \&ipod, "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
hq => [ 1, \&twopass, "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
iq => [ (($d==1) && ($f==1)), \&twopass, "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
xq => [ (($d==1) && ($f==1)), \&twopass, "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
lqavi => [ 1, \&xvid, "Low quality XviD AVI", "_LQ", 128, 64000, "", 1,1],
mqavi => [ 1, \&xvid, "Medium quality XviD AVI", "", 512, 64000, "", 1,1],
);

if (!@encodethese) {
#&savesettings;
for (qw(lq mq hq iq xq lqavi mqavi)) {
my @t = @{ $qualities{$_} };
#if this quality is not disabled for these content properties - then ask the user if they want to make it
push(@encodethese, $_) if $t[0] and q_boo("$lang{QUESTION_CREATE_VIDEO} $t[2] (".($t[4]+($t[5]/1000))." kbit/sec)");
}
}

for (@encodethese) {
my $idtag = $qualities{$_}[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info($lang{NOW_ENCODING});
for (@encodethese) {
my @t = @{ $qualities{$_} };
print "now encoding $t[2] ($projname.$t[3].$nmf, $projname.$t[3], @t[4..8])\n";
$t[1]->($projname.$t[3].$nmf, $projname.$t[3], @t[4..8]);
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
if ($os eq 'windows') {
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
} else { #unix
&cp("${anri_dir}/ntsc_d1.tga","${desktop}/${projname}");
}
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs") if $os eq 'windows';
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

# simple multi-threaded map, currently used for nmf
# one thread is created per argument (excluding the first)
sub tmap (&@) {
require threads;
my $f = shift;
map { $_->join() } map { threads->create($f, $_) } @_;
}

sub nmf {
&out_cls_section($lang{SECTION_NMF});
&out_info($lang{NMF_INFO});
&echo("");
&out_info($lang{INFO_HQ_IQ_XQ_NMF});
&echo("");
if (q_boo($lang{QUESTION_CREATE_NMF},$make_nmf)) {
$nmf = '_nmf';
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$number_of_processors=$ENV{NUMBER_OF_PROCESSORS};
#Set lagarith to yv12 under doze
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs") if -e "${projname}_HQ_nmf.avs";
#:nmf_vdubloop
#counterB
@nmfcommands = ();
$alignedsplice = "";
foreach $i (1 .. $number_of_processors) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&echotofile("avisource(\"${projname}_HQIQXQ_${i}.avi\")\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_${i}.avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*".($i-1).".000), floor(last.framecount/${number_of_processors}.000*${i}.000)-1)\n",">>","${projname}_HQIQXQ_${i}.avs");
push @nmfcommands, qq("${vdub_dir}/${vdubcli}" "${projname}_HQIQXQ_${i}.avs" /i "${anri_dir}/nmf.vcf" "${projname}_HQIQXQ_${i}.avi");
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
#for now lq and nq ignore the nmf
&cp("${projname}_LQ.avs","${projname}_LQ_nmf.avs");
&cp("${projname}_LQ_xvid.avs","${projname}_LQ_xvid_nmf.avs");
&cp("${projname}.avs","${projname}_nmf.avs");
&cp("${projname}_xvid.avs","${projname}_xvid_nmf.avs");
&echo($lang{ENCODING_NMF});
tmap { system($_) } @nmfcommands;
&echo("");
&out_info($lang{NMF_SUCCESSFULLY_CREATED});
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("\\++\\\n",">>","${projname}.avs") if $i > 0;
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width % 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";
if ($statid) {
$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid++run++statid\n";
} else {
$projtemp .= "run\n";
}
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs");
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs") if -e "${projname}_trimtemp.avs";
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [$lang{y}/$lang{n}]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
require Win32::TieRegistry;
import Win32::TieRegistry (Delimiter=>"/", ArrayValues=>0) unless defined $Registry;
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$secondarg = '.';
$secondarg = $_[1] if $_[1];

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${secondarg}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

sub trim($) { #from http://www.somacon.com/p114.php
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
if (defined $_[1]) {
if ($_[1] == 1 or $_[1] eq $lang{"y"}) { #for some reason {y} causes textwrangler's syntax highlighting to break
$_[1] = 1;
return 1;
} elsif ($_[1] == 0 or $_[1] eq $lang{n}) {
$_[1] = 0;
return 0;
}
}
&out_info($_[0]." [$lang{y}/$lang{n}]");
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput eq $lang{"y"}) {
$_[1] = 1;
return 1;
} elsif ($userinput eq $lang{n}) {
$_[1] = 0;
return 0;
} else {
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr ||= 320000;
&out_cls_section($lang{SECTION_AVI_SOURCE});
if (@avifiles) {
#nothing to do here
} elsif (defined $avidir) {
&q_avi_a;
} else {
&out_info($lang{AVI_SOURCE_INFO});
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info($lang{AVI_PATH_TO});
&out_info($lang{TYPE_N_TO_QUIT});
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{AVI_BAD_INPUT};
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg=$lang{AVI_NONE_ENTERED};
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg=$lang{AVI_NOT_AVI};
} elsif (! -e $_) {
$errormsg=$lang{FILE_NOT_FOUND};
} else {
push(@avifiles,$_);
&out_info($lang{AVI_LOADED_SUCCESSFULLY}.' #'.@avifiles);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
&out_info($lang{AVI_DIR_LOAD_INFO});
while (1) {
if (defined $avidir) {
$_ = $avidir;
} else {
print $prompt;
$_ = <STDIN>;
}
@avifiles = ();
chomp;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
if (m/^$/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_ENTER_PATH};
} elsif (m/^.[^:][^\\].*/ or $os ne 'windows') {
$errormsg=$lang{AVI_DIR_LOAD_MUST_BE_FULL_PATH};
} elsif (! -e $_) {
$errormsg=$lang{AVI_DIR_LOAD_DIR_DOES_NOT_EXIST};
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (glob("$avifolder/*.avi")) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = $lang{AVI_DIR_LOAD_NO_AVIS_FOUND_IN_DIR};
} else {
#Ask user if the list is good.
if ($auto or q_boo($lang{QUESTION_AVI_DIR_LOAD_CONTINUE_OR_RESCAN})) {
last;
} else {
$errormsg = $lang{AVI_DIR_LOAD_INFO};
}
}
}
undef $avidir;
&out_error($errormsg);
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info($lang{DFND_INFO});
q_boo($lang{QUESTION_USE_DFND_DATABASE}, $dfnd);
if ($dfnd) {
#:dfnd
&out_info($lang{INFO_CONNECTING_TO_DFND_DATABASE});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "'.$lang{DFND_URL}.'"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~s/\&amp\;/\&/g;
#right now only the accent in Pokemon and & need to be changed, but it'd be better for it to work with all utf chars
$title=~s/(\xc3\xa9)/chr(130)/eg;
$titles .= "".($i+1).": ${title}\n";
#printing at most 50 lines at a time
if(($i+1) % 50 == 0) {
print $titles;
$titles = '';
&out_info($lang{PRESS_ENTER_PAGE});
<STDIN>;
}
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg=$lang{DFND_MUST_CHOOSE_GAME};
} elsif (m/[^0-9]/) {
$errormsg=$lang{DFND_MUST_ENTER_GAME_NUMBER};
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg=$lang{INVALID_SELECTION};
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error($lang{DFND_COULD_NOT_CONNECT_TO_SDA});
&q_dfnd if q_boo($lang{QUESTION_DFND_COULD_NOT_CONNECT_TO_SDA_TRY_AGAIN});
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section($lang{SECTION_RIP_DVD});
if (! defined $driveletter) {
if ($os eq 'windows') {
&out_info($lang{QUESTION_DVD_DRIVE_LETTER});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_LETTER};
}
&out_error($errormsg);
print $prompt;
}
} else { #unix
&out_info($lang{QUESTION_DVD_DRIVE_PATH});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP_UNIX});
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_PATH};
}
&out_error($errormsg);
print $prompt;
}
}
}
#this is mainly because when you drag things onto a terminal window in os x it cats a space on the end of the path
$driveletter = &trim($driveletter);
if (defined $dvdripto) {
$dvdripto = "${dvdripto_parentdir}/${dvdripto}";
} else {
&echo("");
&out_info("$lang{DVD_INFO_ANRI_WILL_EXTRACT_TO_DIR} $lang{QUESTION_DVD_RIPTO_DIR_NAME}");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_RIPTO_DIR_NAME};
}
&out_error($errormsg);
print $prompt;
}
}
mkdir($dvdripto_parentdir) if !-e $dvdripto_parentdir; #paranoia
mkdir($dvdripto) if !-e $dvdripto;
&echo("");
&out_info($lang{DVD_INFO_ANRI_WILL_RIP_NOW});
if (!$auto) {
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
&echo("");
<STDIN>;
}
if (-e "${driveletter}${colon}/VIDEO_TS") {
$video_ts = "${driveletter}${colon}/VIDEO_TS";
if (glob("${video_ts}/VTS*.IFO")) {
&pgccount(glob("${video_ts}/VTS*.IFO"));

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info $lang{DVD_ADVANCED_MODE}
# SET s=
# SET /P s=$lang{DVD_TITLE_NUMBERS}
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 2.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${video_ts} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${video_ts}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo($lang{DVD_VIDEOTS_NOT_FOUND});
#GOTO DIE
}
}
if (!$auto) {
&out_info("$lang{DVD_FINISHED_RIPPING} $lang{PRESS_ENTER_TO_CONTINUE}");
<STDIN>;
}
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
@pgclist = ();
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
return 1;
}

sub index_dvd {
#we don't actually index anything under unix but we still need to pick from the ripped dvd sources, write the start of the main project .avs and set some variables
$maxaudiobr ||= 320000;

&out_cls_info($lang{DVD_INDEX_INFO_FILELIST});
&echo("");
&echo($lang{DVD_INDEX_WARNING});
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
@dvdfilemasksorig = @dvdfilemasks;
foreach $mask (@dvdfilemasksorig) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error($lang{DVD_INDEX_NO_FOLDERS_WITH_DVD_FILES_FOUND});
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

if (@dvdchoices) {
map { $_ = "${dvdripto_parentdir}/$_" } @dvdchoices;
} else {
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,$lang{INVALID_INPUT});
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"$lang{INVALID_SELECTION}: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}
}
&echo("");

&out_info($lang{DVD_INDEX_NOW_INDEXING});
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs") if $os eq 'windows';
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs") if $os eq 'windows';
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs") if $os eq 'windows';
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ m/^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
if ($os eq 'windows') {
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
#print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
#print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
#print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
#print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
### FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
} else { #unix
&cp($mpegfile,"${desktop}/${projname}");
&echotofile("MPEG2source(\"${1}.${2}\",upconv=1)\n",">>","${projname}.avs");
### FIXME get $maxaudiobr?
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

sub pipe_prepare($$) {
$basename = shift;
$mode = shift;

$avs = "${basename}.pipe";
system("rm", $avs) if -e $avs;
system("mkfifo", $avs);

open(AVS, "${basename}.avs"); #must be unix text when running sasami under unix ...
@avs = <AVS>;
close(AVS);
@sources = ();
@trims = ();
$f = 1;
for (@avs) {
chomp;
next if m/^#/;
push(@sources,$1) if m/^.*MPEG2source$"([^"]+)".*$/i;
push(@sources,$1) if m/^.*avisource\("([^"]+)".*$/i;
push(@sources,$1) if m/^.*directshowsource\("([^"]+)".*$/i;
$fieldorder = 1 if m/^AssumeTFF\($/i;
$fieldorder = 0 if m/^AssumeBFF/i;
$d = 1 if m/^global d1 = true/;
$d = 4 if m/^global d1 = false/;
$d = 4 if m/^separatefields$/i; #for sample extraction
$f = $1 if m/^changefps$f1\/([0-9])$/;
$deflicker = 1 if m/^nate_retard_bob_2/;
$vhs = 1 if m/^nate_vhs_head_change_erase/;
$onepixel = 1 if m/^nate_1_pixel_bob_fix/;
$nes = 1 if m/^nate_nes$/;
push(@trims,"$1,$2") if m/trim$([0-9]+),([0-9]+)$/;
$gba = 1 if m/^nate_gba$/;
$gb = 1 if m/^nate_gb$/;
#$resize = 1 if m/^lanczos4resize$/;
#nate format
$statidlines[0] = $1 if m/^statid1="""(.*)"""$/;
$statidlines[1] = $1 if m/^statid2="""(.*)"""$/;
$statidlines[2] = $1 if m/^statid3="""(.*)"""$/;
#anri format
(@statidlines) = ($1, $2, $3) if m/^statid=.*\(run,"([^"])","([^"])","([^"])"$/;
}
die 'sasami: no sources detected in .avs!' if @sources == 0;
return @sources if $mode eq 'sources';

open(JS, ">${basename}.js") or die "could not open ${basename}.js for writing";
print JS '//AD <- Needed to identify//'."\n\nvar app = new Avidemux();\n\n";
for (my $i = 0 ; $i < @sources ; $i++) {
print JS "app.forceUnpack();\n";
if ($i == 0) {
print JS "app.load(\"${desktop}/${projname}/${sources[$i]}\");\n";
} else {
print JS "app.append(\"${desktop}/${projname}/${sources[$i]}\");\n";
}
}

# @mencoderargslist = ();
# #build mencoder command to feed fifo
# if ($mode eq "video") {
# $mencoderargs = "\"${anri_dir}/${mencoder}\" ${really_quiet}";
# } elsif ($mode eq "audio") {
# $mencoderargs = "\"${anri_dir}/${mplayer}\" ${really_quiet}";
# }

print JS "\napp.clearSegments();\n";
my $sourcenum = 0;
my $previous_sourcelength = 0;
my $this_sourcelength;
foreach $source (@sources) {
#get vital info about source
my $mplayeridentify = <<SABRAC;
mplayer -identify -vo null -slave ${source} 2>&1 <<ENDOFSCRIPT
quit
ENDOFSCRIPT
SABRAC
for (qx($mplayeridentify)) {
chomp;
$width = $_ if s/ID_VIDEO_WIDTH=([0-9]+)/$1/;
$height = $_ if s/ID_VIDEO_HEIGHT=([0-9]+)/$1/;
$framerate = $_ if s/ID_VIDEO_FPS=([0-9.]+)/$1/;
$maxaudiobitrate = $_ if s/ID_AUDIO_BITRATE=([0-9]+)/$1/;
$this_sourcelength = &round($framerate * $_) if s/ID_LENGTH=([0-9.]+)/$1/;
}
# print "$width\n";
# print "$height\n";
# print "$framerate\n";
# print "$maxaudiobitrate\n";
$pal = ($height eq "576");
### FIXME moved from above the foreach source block because it depends on $pal being set - check only first source and then set?
$newframerate = ($pal ? (50/$f) : (59.94/$f)); #required for trimming

#trimming
# $framerate = 29.97;
# $framerate = 25 if $pal;
my $sourcelength = ($previous_sourcelength + $this_sourcelength);
for (@trims) {
if ($_) {
#print "popped: $_\n";
my $trimone = '';
my $trimtwo = '';
m/^(.*),(.*)$/;
if ($1) {
if ($1 < $sourcelength) {
$trimone = ($1 - $previous_sourcelength);
$trimtwo = ($this_sourcelength - $trimone + 1);
}
}
if ($2) {
if ($2 < $sourcelength) {
$trimone = 0 if !$trimone;
$trimtwo = ($2 - $previous_sourcelength - $trimone + 1);
}
}
if (($trimone ne '') && ($trimtwo ne '')) {
print JS "app.addSegment(${sourcenum},${trimone},${trimtwo});\n";
$_ = ",";
#keep second trim point in case we haven't reached it yet
$_ .= $2 if $2 > $sourcelength;
}
}
}
$previous_sourcelength = $sourcelength;
$sourcenum++;
}
print JS "\n";

# app.video.addFilter("crop","left=14","right=16","top=22","bottom=30");
# app.video.addFilter("mpresize","w=320","h=240","algo=2");
# app.video.addFilter("resamplefps","newfps=29970","use_linear=0");
# app.video.addFilter("YADIF","mode=3","order=1");
# app.video.addFilter("mcdeinterlace","mode=2","qp=1","initial_parity=0");
# app.video.addFilter("msharpen","mask=0","highq=1","strength=100","threshold=15");
# app.video.addFilter("addblack","left=0","right=0","top=0","bottom=2");
#one pixel bob
# if ($onepixel) {
# app.video.addFilter("crop","left=0","right=0","top=1","bottom=0");
# app.video.addFilter("addblack","left=0","right=0","top=0","bottom=1");
# $mencoderargs .= " -vf-add crop=${width}:".($height-1).":0:0,expand=${width}:${height}:0:1";
# $fieldorder = 0 if $fieldorder == 1;
# $fieldorder = 1 if $fieldorder == 0;
# }

if ($nes) {
print JS '//nes'."\n";
print JS 'app.video.addFilter("crop","left=8","right=0","top=0","bottom=0");'."\n";
print JS 'app.video.addFilter("addblack","left=8","right=0","top=0","bottom=0");'."\n";
print JS "\n";
#$mencoderargs .= " -vf-add crop=".($width-8).":${height}:8:0,expand=${width}:${height}:8:0" if $nes;
#-af channels=6:4:0:0:0:1:0:2:0:3 media.avi
#Would change the number of channels to 6 and set up 4 routes that copy channel 0 to channels 0 to 3. Channel 4 and 5 will contain silence.
}

print JS 'app.video.addFilter("mcdeinterlace","mode=2","qp=1","initial_parity='.$fieldorder.'");'."\n" if $d == 1;
#$mencoderargs .= " -vf-add yadif=3 -vf-add mcdeint=1:${fieldorder}" if $d == 1;
#$tfields = 0;
#$tfields = 4 if $deflicker;
print JS 'app.video.addFilter("YADIF","mode=3","order=1");'."\n" if $d == 4;
#$mencoderargs .= " -vf-add tfields=${tfields}" if $d == 4;

#i just eyeballed this - someone will need to sync the avisynth and mencoder sharpen filters
#print JS 'app.video.addFilter("msharpen","mask=0","highq=1","strength=100","threshold=15");'."\n" if $deflicker;
#$mencoderargs .= " -vf-add unsharp=l3x3:0.6:c3x3:0.6" if $deflicker;

if ($vhs) {
print JS '//vhs'."\n";
print JS 'app.video.addFilter("crop","left=0","right=0","top=0","bottom=12");'."\n";
print JS 'app.video.addFilter("addblack","left=0","right=0","top=0","bottom=12");'."\n";
print JS "\n";
#$mencoderargs .= " -vf-add crop=${width}:".($height-12).":0:0,expand=0:-12:0:0" if $vhs;
}

if ($gba) {
print JS 'app.video.addFilter("mpresize","w=320","h=240","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=320:240";
print JS 'app.video.addFilter("crop","left='.$gba_crop_left.'","right='.$gba_crop_right.'","top='.$gba_crop_top.'","bottom='.$gba_crop_bottom.'");'."\n";
#$mencoderargs .= " -vf-add crop=".(320-$gba_crop_right-$gba_crop_left).":".(240-$gba_crop_bottom-$gba_crop_top).":${gba_crop_left}:${gba_crop_top}";
print JS 'app.video.addFilter("mpresize","w=240","h=160","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=240:160";
$newwidth = 240;
$newheight = 160;
} elsif ($gb) {
print JS 'app.video.addFilter("mpresize","w=320","h=240","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=320:240";
print JS 'app.video.addFilter("crop","left='.$gb_crop_left.'","right='.$gb_crop_right.'","top='.$gb_crop_top.'","bottom='.$gb_crop_bottom.'");'."\n";
#$mencoderargs .= " -vf-add crop=".(320-$gb_crop_right-$gb_crop_left).":".(240-$gb_crop_bottom-$gb_crop_top).":${gb_crop_left}:${gb_crop_top}";
$newwidth = (320-$gb_crop_right-$gb_crop_left);
$newheight = (240-$gb_crop_bottom-$gb_crop_top);
}

$newwidth = (($d == 1) ? ($pal ? 704 : 640) : ($pal ? 352 : 320)) unless $newwidth;
$newheight = (($d == 1) ? ($pal ? 576 : 480) : ($pal ? 288 : 240)) unless $newheight;
#$mencoderargs .= " -vf-add framestep=${f}";
$x264newframerate = "--fps ${newframerate}";
$x264outext = '264';
$x264dimensions = "${newwidth}x${newheight}";
$ampersand = '&';
$mp4boxnewframerate = "-fps ${newframerate}";

print JS 'app.video.addFilter("mpresize","w='.$newwidth.'","h='.$newheight.'","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=${newwidth}:${newheight}";# if $resize;

if ($mode eq "video") {
print JS 'app.video.codec("YV12","CQ=1","0 ");'."\n";
print JS 'app.audio.load("NONE","");'."\n";
print JS 'app.setContainer("OGM");'."\n";
print JS 'app.save("'."${desktop}/${projname}/avidemux.pipe".'");'."\n";
} elsif ($mode eq "audio") {
print JS 'app.audio.codec("none",128,0,"");'."\n";
print JS 'app.audio.save("'."${avs}".'");'."\n";
}
print JS "\n".'setSuccess(1);'."\n".'app.Exit();'."\n";
close(JS);

# my $sourcesplit = '"'.$source.'"';
# my $littleo = "-o \"${avs}\"";
# $littleo = "-ao pcm:file=\"${avs}\":fast" if $mode eq "audio";
# if (@trimargsarr) {
# my $mencoderargstemp = '';
# while (my $trimargs = shift(@trimargsarr)) {
# $mencoderargstemp .= $mencoderargs." ${sourcesplit}".$trimargs." ${littleo}\n";
# }
# $mencoderargs = $mencoderargstemp;
# } else {
# $mencoderargs .= " ${sourcesplit} ${littleo}\n";
# }
#
# push(@mencoderargslist,$mencoderargs);

if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2])) {
require Imager;
$img = Imager->new;
$img->read(file=>"ntsc_d1.tga") or die "Cannot load statid image: ", $img->errstr;
$font = Imager::Font->new(file=>$path_to_verdana); #will need to be changed for non-mac unix ...
&statid_lines_write($statidlines[0], $img->getheight/2, 36, 'white' ) if $statidlines[0];
&statid_lines_write($statidlines[1], 360, 36, 'white' ) if $statidlines[1];
&statid_lines_write($statidlines[2], 400, 36, 'white' ) if $statidlines[2];
&statid_lines_write("Audio commentary on track 2", 460, 28, '#E1CE8B') if defined $audio_commentary;
$img->write(file=>'statid.tga')
or die 'Cannot save statid.tga: ', $img->errstr;
open(MF,">statid.txt") or die "Could not open statid.txt for appending!";
for (1..5) { #once for each second of the statid
for (1..$newframerate) { #once for each frame this second
print MF "statid.tga\n";
}
}
close(MF);
if ($mode eq "video") {
$statidmencoderargs = "\"${anri_dir}/${mencoder}\" ${really_quiet} -vf-add scale=${newwidth}:${newheight} -vf-add format=i420 -ovc raw -of rawvideo -nosound -ofps ${newframerate} mf://\@statid.txt -mf fps=${newframerate}:type=tga -o \"${avs}\"";
} elsif ($mode eq "audio") {
$statidmencoderargs = "\"${anri_dir}/${mplayer}\" ${really_quiet} -audiofile \"silence_stereo_48000.wav\" -vc null -ao pcm:file=\"${avs}\":fast mf://\@statid.txt -mf fps=${newframerate}:type=tga";
}
}
}

sub pipe_write {
print "opening ${avs} ...\n";
open(FIFO,">${avs}");
print("$statidmencoderargs\n") if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
system($statidmencoderargs) if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
if ($mode eq "video") {
print "making avidemux.pipe ...\n";
system("mkfifo", "avidemux.pipe");
print "made avidemux.pipe\n";
system("\"${anri_dir}/${mencoder}\" ${really_quiet} -vf-add format=i420 -ovc raw -of rawvideo -nosound -o \"${avs}\" avidemux.pipe &");
}
system("sh \"${avidemux}\" --run \"${basename}.js\""); #need the full path to the js for some reason
&rm("avidemux.pipe") if $mode eq "video";
print("$statidmencoderargs\n") if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
system($statidmencoderargs) if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
close(FIFO);
}

#statid line text, y-offset, text size, color
sub statid_lines_write {
$font->align(string => $_[0],
aa => 1,
size => $_[2],
color => $_[3],
x => $img->getwidth/2,
y => $_[1],
halign => 'center',
valign => 'center',
image => $img);
}

sub round {
return int($_[0] + .5 * ($_[0] <=> 0));
}

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
#VIDEO
$x264newframerate = '';
$x264outext = 'mp4';
$x264dimensions = '';
$ampersand = '';
$mp4boxnewframerate = '';
if ($os eq 'windows') {
$avs = $_[0].'.avs';
} else {
&pipe_prepare($_[0],"video");
$avs = $_[0].'.pipe';
}
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim ${x264newframerate} --output \"${_[1]}_video.${x264outext}\" \"${avs}\" ${x264dimensions} ${ampersand}");
print "x264 is going ...\n";
&pipe_write if $os ne 'windows';
print "pipe_write is going ...\n";
system("rm", $avs) if $os ne 'windows';

#AUDIO
$audioext = 'mp4';
if ($os eq 'windows') {
system("\"${vdub_dir}/${vdubcli}\" \"${avs}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.${audioext}\"");
} else {
&pipe_prepare($_[0],"audio");
system("\"${anri_dir}/${mplayer}\" -dumpstream -dumpfile \"${_[1]}_temp.wav\" \"${avs}\" &");
&pipe_write;
system("rm", $avs) if $os ne 'windows';
if ($faac) {
$audioext = 'aac';
#thanks grenola
$faacq = "-q 65 -c 8000"; #default is for mq/lq
$faacq = "-b 128" if $_[2] ge "128000";
$faacq = "-b 256" if $_[2] ge "256000";
system("\"${faac}\" --mpeg-vers 4 ${faacq} -o \"${_[1]}_audio.${audioext}\" \"${_[1]}_temp.wav\"");
} else { #afconvert's only going to work under os x
system("\"${anri_dir}/${afconvert}\" -f mp4f -d 'aac ' -b ${_[2]} -s 1 -v \"${_[1]}_temp.wav\" \"${_[1]}_audio.${audioext}\"");
}
}

#MUX
if ($os eq 'windows') {
system("\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
} else {
system("export DYLD_LIBRARY_PATH=\"${anri_dir}\";\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
}

#CLEANUP
if (${_[4]}) {
@todel = (
"${_[1]}_video.${x264outext}",
"${_[1]}_temp.wav",
"${_[1]}_audio.${audioext}",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
&x264(
@_,
'--level 4.1 --bframes 3 --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --analyse none --no-ssim',
'--level 4.1 --bframes 3 --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --ref 3 --mixed-refs --no-fast-pskip --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --me umh'
);
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
&x264(
@_,
'--vbv-bufsize 512 --vbv-maxrate 768 --level 1.3 --no-cabac --threads auto --thread-input --progress --no-psnr --analyse none --no-ssim',
'--vbv-bufsize 512 --vbv-maxrate 768 --level 1.3 --no-cabac --threads auto --thread-input --progress --no-psnr --analyse all --no-fast-pskip --subme 7 --trellis 2 --me umh'
);
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean, x264argsfirstpass, x264argssecondpass
sub x264 {
$x264args_pass2 = pop;
$x264args_pass1 = pop;

#VIDEO
$x264newframerate = '';
$x264outext = 'mp4';
$x264dimensions = '';
$ampersand = '';
$mp4boxnewframerate = '';
if ($os eq 'windows') {
$avs = $_[0].'.avs';
} else {
&pipe_prepare($_[0],"video");
$avs = $_[0].'.pipe';
}
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --qpmin ${_[4]} ${x264newframerate} ${x264args_pass1} --output ${nul} \"${avs}\" ${x264dimensions} ${ampersand}");
&pipe_write if $os ne 'windows';
#this is a hack to deal with the fact that sometimes x264 takes a while to finish encoding and write out the statsfile - thanks grenola!
while (!(-e "${_[1]}.stats")) {
print("Waiting for stats file ...\n");
sleep(1);
}
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --qpmin ${_[4]} ${x264newframerate} ${x264args_pass2} --output \"${_[1]}_video.${x264outext}\" \"${avs}\" ${x264dimensions} ${ampersand}");
&pipe_write if $os ne 'windows';
system("rm", $avs) if $os ne 'windows';

#AUDIO
$audioext = 'mp4';
if ($os eq 'windows') {
system("\"${vdub_dir}/${vdubcli}\" ${avs} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.${audioext}\"");
} else {
&pipe_prepare($_[0],"audio");
system("\"${anri_dir}/${mplayer}\" -dumpstream -dumpfile \"${_[1]}_temp.wav\" \"${avs}\" &");
&pipe_write;
system("rm", $avs) if $os ne 'windows';
if ($faac) {
$audioext = 'aac';
#thanks grenola
$faacq = "-q 65 -c 8000"; #default is for mq/lq
$faacq = "-b 128" if $_[3] ge "128000";
$faacq = "-b 256" if $_[3] ge "256000";
system("\"${faac}\" --mpeg-vers 4 ${faacq} -o \"${_[1]}_audio.${audioext}\" \"${_[1]}_temp.wav\"");
} else { #afconvert's only going to work under os x ...
system("\"${anri_dir}/${afconvert}\" -f mp4f -d 'aac ' -b ${_[3]} -s 1 -v \"${_[1]}_temp.wav\" \"${_[1]}_audio.${audioext}\"");
}
}

if ($os eq 'windows') {
system("\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
} else {
system("export DYLD_LIBRARY_PATH=\"${anri_dir}\";\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
}

#CLEANUP
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.${x264outext}",
"${_[1]}_temp.wav",
"${_[1]}_audio.${audioext}",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
$avs = $_[0].'.avs';
system("\"${anri_dir}/${xvid}\" -i \"${avs}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\" -progress");
system("\"${anri_dir}/${xvid}\" -i \"${avs}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -progress -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -ab ${_[3]} -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${avs}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source/config old.ini

2008-11-11T18:21:13Z

SelbyMD: added rip_dvd auto vars

<pre><nowiki>
$language = "english";

$gba_crop_left = 43;
$gba_crop_top = 39;
$gba_crop_right = 44;
$gba_crop_bottom = 41;

$gb_crop_left = 80;
$gb_crop_top = 48;
$gb_crop_right = 80;
$gb_crop_bottom = 48;

#for mplayer/mencoder
$really_quiet = "-really-quiet";

#sample settings for auto mode, needs commenting
#boolean vars can be either 1/0 or $lang{y/n}
$auto=0;
if ($auto) {
@menuchoices=(1,2);
@dvdchoices=qw(game);
$projname='game';
$dvdripto='game';
$driveletter='D';
$startframe=1022;
$dvdsource=1;
$dfnd=0;
$dfnd_set=1;
$d=1;
$f=1;
$twod=0;
$nes=0;
$gb=0;
$gba=0;
$prog=0;
$fieldorder=1;
$vhs=0;
$onepixel=0;
$deflicker=0;
$maxaudiobitrate=256000;
$make_nmf=1;
$trim=1;
@trimarr=(1000,1100,2000,2100,5000,5100,6000,6100);
$statid=1;
@statidlines=('name','game','type and time');
@encodethese=qw(lq mq hq iq xq lqavi mqavi);
}
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-11-11T18:15:45Z

SelbyMD: now rip_dvd can be automated too, that should just leave the q_avi set

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#default
$language = "english";

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...
require Win32;

#get the name of the work directory. this is the desktop by default under windows
$desktop = Win32::GetFolderPath(Win32::CSIDL_DESKTOPDIRECTORY());

#get the path to program files so we can build the anri program directory
$programfiles = Win32::GetFolderPath(Win32::CSIDL_PROGRAM_FILES());

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#goes after a drive letter
$colon = ':';

#black hole
$nul = 'NUL';

#to start programs/open urls
$start = "START";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else { #we're on unix
#desktop location and other os-dependent stuff
if ("$^O" eq "darwin") {
$desktop = glob("~/Desktop");
$path_to_verdana = "/Library/Fonts/Verdana.ttf";
} else {
### FIXME NON-MAC UNIX DESKTOP LOCATION, PATH TO VERDANA
}

#anri program directory ### FIXME ###
$anri_dir = `pwd`;
chomp($anri_dir);

#our encoders - invocation names only - path will be prepended later ...
$x264 = 'x264';
$afconvert = 'afconvert';
#for mp4box
# print "export DYLD_LIBRARY_PATH=${anri_dir}\n";
$mp4box = 'mp4box';
$ffmpeg = 'ffmpeg';

#some anri support files
$avidemux = $anri_dir.'/avidemux2_qt4.app/Contents/Resources/script';
$mplayer = "mplayer";
$mencoder = "mencoder";
$really_quiet = "-really-quiet"; #for mencoder
$wget = "wget";

#dunno about this
$dvdripto_parentdir = "${anri_dir}/dvdripto"; ### FIXME

#not needed under unix
$colon = '';

#black hole
$nul = '/dev/null';

#to start programs/open urls
$start = "open";

#color initialization
require Term::ANSIColor;
import Term::ANSIColor qw(color);
$cecho = "echo";

#fewer colors to choose from than under windows if we want to maintain portability ...
$black_on_gray = color("black on_white");
$gray_on_black = color("white on_black");
$white_on_black = color("white on_black");
$aqua_on_black = color("green on_black");
$blue_on_black = color("blue on_black");
$teal_on_gray = color("green on_white");
$navy_on_gray = color("blue on_white");
$maroon_on_gray = color("magenta on_white");
$maroon_on_silver = color("magenta on_white");
$white_on_gray = color("white on_black");
$red_on_gray = color("red on_white");

$reset_color = "\"${cecho}\" ".color("reset");

#os-specific commands
$clear = "clear";
}

#make sure we can find anri's libs
push @INC, $anri_dir;

#load config file
require 'config.ini' if -e 'config.ini';

#localization
require 'lang_english.pl';
#after having loaded english, load preferred language by using $language variable from config file, would be cool if we could set this in the installer
require "lang_${language}.pl" if $language ne "english";

#FIXME LOGFILE STUFF

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

&out_cls;
@mainmenu = (
[$lang{MAINMENU_RIPDVD}, '&rip_dvd'],
[$lang{MAINMENU_STARTNEWPROJECT}, '&project'],
[$lang{MAINMENU_EXTRACTSAMPLE}, '&proc_sample'],
[$lang{MAINMENU_STATIDPREVIEW}, '&statid_sample'],
[$lang{MAINMENU_EXIT}, 'exit 0'],
);
while (1) {
if (@menuchoices) {
eval($mainmenu[shift(@menuchoices)-1][1]);
} else {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{MAINMENU});
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "$lang{INVALID_INPUT}\n\n";
&out_menu(@mainmenu);
}
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins if $os eq 'windows';
&out_cls_section($lang{SECTION_SAMPLE_EXTRACTION});
q_boo($lang{QUESTION_DVDMPEG_SOURCE}, $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
if (! defined $startframe) {
&out_info($lang{INFO_SAMPLE_LENGTH});
&echo("");
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
if ($os eq 'windows') {
system("${start} \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
@sources = &pipe_prepare($projname, "sources");
$avidemuxarg = " --load";
for (@sources) {
$avidemuxargs .= "${avidemuxarg} \"${desktop}/anri_sample/${_}\"";
$avidemuxarg = " --append";
}
#system("sh \"${avidemux}\" ${avidemuxargs} &");
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if ($os ne 'windows') {
### remove .idx files
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF()\nSeparateFields()\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir($desktop);
#&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}$lang{SAMPLE_EXTRACTION_DONE}");
&echo("\n$lang{SAMPLE_EXTRACTION_README}");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Statid Sample
#
# Statid preview mode shows users how their statid will look without having
# to encode anything. A slimmed down version of the code from the main
# procedure and script_buildfiles is used. The same temporary project
# name and directory from sample extraction mode are used and deleted.
# The user is sent back to the main menu but currently will need
# to enter the statid information again during the main script.
############################################################################

sub statid_sample {
chdir($desktop);
$projname = 'anri_sample';
&make_projdir;
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_ABOUT_EACH_LINE});
if (!@statidlines) {
foreach $i (1 .. 3) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
}
&echotofile("global pal = false\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
$projtemp = "run = blankclip(width=640, height=480)";
$projtemp .= "statid=nate_statid_d1(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid\n";
&echotofile($projtemp,">>","${projname}.avs");
system("\"${vdub_dir}/${vdubgui}\" \"${projname}.avs\"");
chdir($desktop);
&rm("${desktop}/${projname}");
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{SECTION_PROJECT_SETUP});
if (! defined $projname) {
&out_info($lang{ENTER_PROJECT_NAME});
&echo("");
&echo("$lang{PROJECT_FILES_APPEAR_IN} ${navy_on_gray}${desktop}\\($lang{PROJECT_NAME})\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "$lang{PROJECT_NAME_ILLEGAL_CHARACTERS}\n\n";
print $prompt;
}
}
&make_projdir;
&load_plugins if $os eq 'windows';
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section($lang{MOVIE_SOURCE});
&out_info($lang{MOVIE_SOURCE_MPEG2_HINT});
&echo("");
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if (q_boo($lang{MPEG2_SOURCE_QUESTION}, $dvdsource)) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section($lang{SECTION_GAME_PROPERTIES});
if ((!$dvdsource) and (!$auto)) {
q_boo($lang{PC_GAME_QUESTION}, $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
} else {
&q_dfnd if !$dfnd_set;
if (!$dfnd_set) {
&echo("");
&out_info($lang{DF_EXPLAIN});
&echo("");
&out_info($lang{DF_FIND_AT_THIS_URL});
&out_info($lang{DFND_URL});
&echo("");
&out_info($lang{DF_IF_NOT_FOUND_THEN_WHAT});
&echo("");
if (! defined $d) {
&echo($lang{QUESTION_D});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if (! defined $f) {
&echo($lang{QUESTION_F});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
q_boo($lang{QUESTION_ND}, $twod) if ($f == 1);
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info($lang{QUESTION_SUBMIT_DFND_WHY});
&echo("");
system($start, 'http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0') if q_boo($lang{QUESTION_SUBMIT_DFND});
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section($lang{SECTION_VIDEO_PROPERTIES});
q_boo($lang{QUESTION_PROGRESSIVE_INTERLACED}, $prog);
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
if (! defined $fieldorder) {
&out_info($lang{FIELDORDER_VDUB_WINDOW_OPENS});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("${start} \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&out_info($lang{VDUB_WINDOW_CAN_CLOSE_NOW});
&rm("${projname}_fieldordertemp.avs");
}
&echo("");

#q_vhs
q_boo($lang{QUESTION_VHS}, $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_1PIXEL_BOB}, $onepixel) if ($f != 2);

q_boo($lang{QUESTION_NES}, $nes);
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_GBA}, $gba);
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_GB}, $gb);
$deflicker=1 if $gb;

q_boo($lang{QUESTION_DEFLICKERED}, $deflicker) if ($f != 2);
}

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. If the frame range is like 50 to 30 an error is shown, same if a '-'
# is inputted.
# Users can enter dummy values and edit project_job.bat later on and it will
# still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section($lang{SECTION_CONTENT_PROPERTIES});
if (! defined $trim) {
&out_info($lang{INFO_TRIM});
if (q_boo($lang{QUESTION_TRIM}, $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. Implemented basic checking if the frame range is valid.
############################################################################
&echo("");
&out_info($lang{TRIM_VDUB_WINDOW_OPENS});
&echo("");
&out_info($lang{TRIM_MULTIPLE_RANGES});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("${start} \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{TRIM_ILLEGAL_VALUE};
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info($lang{TRIM_NO_VALUES_ENTERED});
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error($lang{TRIM_ODD_NUMBER_OF_FRAMES});
@trimarr = ();
} else {
&out_info($lang{TRIM_DONE});
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg=$lang{TRIM_INVALID_INPUT_MUST_BE_FRAME_NUMBER};
} elsif ((@trimarr % 2) && ($trimarr[@trimarr-1] > $_)) {
$errormsg=$lang{TRIM_INVALID_RANGE};
} else {
push(@trimarr,$_);
&out_info($lang{TRIM_POINT_LOADED_SUCCESSFULLY}.' #'.@trimarr);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}
}

if (! defined $statid) {
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_INFO});
if (q_boo($lang{QUESTION_STATID}, $statid)) {
@statidlines = ();
&out_info($lang{STATID_ABOUT_EACH_LINE});
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
} else {
@statidlines = ('','','');
}
}

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
#$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section($lang{SECTION_READY_TO_ENCODE});
&out_info("$lang{SETTINGS_SAVED_TO_FILE} \"${projname}_job.bat\".");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if ($auto or q_boo($lang{QUESTION_ENCODE_NOW_OR})) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ/XQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section($lang{SECTION_ENCODING_OPTIONS});
%qualities = (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
lq => [ 1, \&twopass, "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
mq => [ 1, \&ipod, "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
hq => [ 1, \&twopass, "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
iq => [ (($d==1) && ($f==1)), \&twopass, "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
xq => [ (($d==1) && ($f==1)), \&twopass, "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
lqavi => [ 1, \&xvid, "Low quality XviD AVI", "_LQ", 128, 64000, "", 1,1],
mqavi => [ 1, \&xvid, "Medium quality XviD AVI", "", 512, 64000, "", 1,1],
);

if (!@encodethese) {
#&savesettings;
for (qw(lq mq hq iq xq lqavi mqavi)) {
my @t = @{ $qualities{$_} };
#if this quality is not disabled for these content properties - then ask the user if they want to make it
push(@encodethese, $_) if $t[0] and q_boo("$lang{QUESTION_CREATE_VIDEO} $t[2] (".($t[4]+($t[5]/1000))." kbit/sec)");
}
}

for (@encodethese) {
my $idtag = $qualities{$_}[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info($lang{NOW_ENCODING});
for (@encodethese) {
my @t = @{ $qualities{$_} };
print "now encoding $t[2] ($projname.$t[3].$nmf, $projname.$t[3], @t[4..8])\n";
$t[1]->($projname.$t[3].$nmf, $projname.$t[3], @t[4..8]);
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
if ($os eq 'windows') {
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
} else { #unix
&cp("${anri_dir}/ntsc_d1.tga","${desktop}/${projname}");
}
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs") if $os eq 'windows';
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

# simple multi-threaded map, currently used for nmf
# one thread is created per argument (excluding the first)
sub tmap (&@) {
require threads;
my $f = shift;
map { $_->join() } map { threads->create($f, $_) } @_;
}

sub nmf {
&out_cls_section($lang{SECTION_NMF});
&out_info($lang{NMF_INFO});
&echo("");
&out_info($lang{INFO_HQ_IQ_XQ_NMF});
&echo("");
if (q_boo($lang{QUESTION_CREATE_NMF},$make_nmf)) {
$nmf = '_nmf';
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$number_of_processors=$ENV{NUMBER_OF_PROCESSORS};
#Set lagarith to yv12 under doze
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs") if -e "${projname}_HQ_nmf.avs";
#:nmf_vdubloop
#counterB
@nmfcommands = ();
$alignedsplice = "";
foreach $i (1 .. $number_of_processors) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&echotofile("avisource(\"${projname}_HQIQXQ_${i}.avi\")\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_${i}.avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*".($i-1).".000), floor(last.framecount/${number_of_processors}.000*${i}.000)-1)\n",">>","${projname}_HQIQXQ_${i}.avs");
push @nmfcommands, qq("${vdub_dir}/${vdubcli}" "${projname}_HQIQXQ_${i}.avs" /i "${anri_dir}/nmf.vcf" "${projname}_HQIQXQ_${i}.avi");
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
#for now lq and nq ignore the nmf
&cp("${projname}_LQ.avs","${projname}_LQ_nmf.avs");
&cp("${projname}_LQ_xvid.avs","${projname}_LQ_xvid_nmf.avs");
&cp("${projname}.avs","${projname}_nmf.avs");
&cp("${projname}_xvid.avs","${projname}_xvid_nmf.avs");
&echo($lang{ENCODING_NMF});
tmap { system($_) } @nmfcommands;
&echo("");
&out_info($lang{NMF_SUCCESSFULLY_CREATED});
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("\\++\\\n",">>","${projname}.avs") if $i > 0;
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width % 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";
if ($statid) {
$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid++run++statid\n";
} else {
$projtemp .= "run\n";
}
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs");
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs") if -e "${projname}_trimtemp.avs";
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [$lang{y}/$lang{n}]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
require Win32::TieRegistry;
import Win32::TieRegistry (Delimiter=>"/", ArrayValues=>0) unless defined $Registry;
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$secondarg = '.';
$secondarg = $_[1] if $_[1];

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${secondarg}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

sub trim($) { #from http://www.somacon.com/p114.php
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
if (defined $_[1]) {
if ($_[1] == 1 or $_[1] eq $lang{"y"}) { #for some reason {y} causes textwrangler's syntax highlighting to break
$_[1] = 1;
return 1;
} elsif ($_[1] == 0 or $_[1] eq $lang{n}) {
$_[1] = 0;
return 0;
}
}
&out_info($_[0]." [$lang{y}/$lang{n}]");
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput eq $lang{"y"}) {
$_[1] = 1;
return 1;
} elsif ($userinput eq $lang{n}) {
$_[1] = 0;
return 0;
} else {
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section($lang{SECTION_AVI_SOURCE});
&out_info($lang{AVI_SOURCE_INFO});
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info($lang{AVI_PATH_TO});
&out_info($lang{TYPE_N_TO_QUIT});
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{AVI_BAD_INPUT};
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg=$lang{AVI_NONE_ENTERED};
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg=$lang{AVI_NOT_AVI};
} elsif (! -e $_) {
$errormsg=$lang{FILE_NOT_FOUND};
} else {
push(@avifiles,$_);
&out_info($lang{AVI_LOADED_SUCCESSFULLY}.' #'.@avifiles);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = $lang{AVI_DIR_LOAD_INFO};
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_ENTER_PATH};
} elsif (m/^.[^:][^\\].*/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_BE_FULL_PATH};
} elsif (! -e $_) {
$errormsg=$lang{AVI_DIR_LOAD_DIR_DOES_NOT_EXIST};
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = $lang{AVI_DIR_LOAD_NO_AVIS_FOUND_IN_DIR};
} else {
#Ask user if the list is good.
if (q_boo($lang{QUESTION_AVI_DIR_LOAD_CONTINUE_OR_RESCAN})) {
last;
} else {
$errormsg = $enterhelp;
}
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info($lang{DFND_INFO});
q_boo($lang{QUESTION_USE_DFND_DATABASE}, $dfnd);
if ($dfnd) {
#:dfnd
&out_info($lang{INFO_CONNECTING_TO_DFND_DATABASE});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "'.$lang{DFND_URL}.'"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~s/\&amp\;/\&/g;
#right now only the accent in Pokemon and & need to be changed, but it'd be better for it to work with all utf chars
$title=~s/(\xc3\xa9)/chr(130)/eg;
$titles .= "".($i+1).": ${title}\n";
#printing at most 50 lines at a time
if(($i+1) % 50 == 0) {
print $titles;
$titles = '';
&out_info($lang{PRESS_ENTER_PAGE});
<STDIN>;
}
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg=$lang{DFND_MUST_CHOOSE_GAME};
} elsif (m/[^0-9]/) {
$errormsg=$lang{DFND_MUST_ENTER_GAME_NUMBER};
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg=$lang{INVALID_SELECTION};
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error($lang{DFND_COULD_NOT_CONNECT_TO_SDA});
&q_dfnd if q_boo($lang{QUESTION_DFND_COULD_NOT_CONNECT_TO_SDA_TRY_AGAIN});
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section($lang{SECTION_RIP_DVD});
if (! defined $driveletter) {
if ($os eq 'windows') {
&out_info($lang{QUESTION_DVD_DRIVE_LETTER});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_LETTER};
}
&out_error($errormsg);
print $prompt;
}
} else { #unix
&out_info($lang{QUESTION_DVD_DRIVE_PATH});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP_UNIX});
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_PATH};
}
&out_error($errormsg);
print $prompt;
}
}
}
#this is mainly because when you drag things onto a terminal window in os x it cats a space on the end of the path
$driveletter = &trim($driveletter);
if (defined $dvdripto) {
$dvdripto = "${dvdripto_parentdir}/${dvdripto}";
} else {
&echo("");
&out_info("$lang{DVD_INFO_ANRI_WILL_EXTRACT_TO_DIR} $lang{QUESTION_DVD_RIPTO_DIR_NAME}");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_RIPTO_DIR_NAME};
}
&out_error($errormsg);
print $prompt;
}
}
mkdir($dvdripto_parentdir) if !-e $dvdripto_parentdir; #paranoia
mkdir($dvdripto) if !-e $dvdripto;
&echo("");
&out_info($lang{DVD_INFO_ANRI_WILL_RIP_NOW});
if (!$auto) {
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
&echo("");
<STDIN>;
}
if (-e "${driveletter}${colon}/VIDEO_TS") {
$video_ts = "${driveletter}${colon}/VIDEO_TS";
if (glob("${video_ts}/VTS*.IFO")) {
&pgccount(glob("${video_ts}/VTS*.IFO"));

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info $lang{DVD_ADVANCED_MODE}
# SET s=
# SET /P s=$lang{DVD_TITLE_NUMBERS}
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 2.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${video_ts} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${video_ts}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo($lang{DVD_VIDEOTS_NOT_FOUND});
#GOTO DIE
}
}
if (!$auto) {
&out_info("$lang{DVD_FINISHED_RIPPING} $lang{PRESS_ENTER_TO_CONTINUE}");
<STDIN>;
}
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
@pgclist = ();
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
return 1;
}

sub index_dvd {
#we don't actually index anything under unix but we still need to pick from the ripped dvd sources, write the start of the main project .avs and set some variables
$maxaudiobr ||= 320000;

&out_cls_info($lang{DVD_INDEX_INFO_FILELIST});
&echo("");
&echo($lang{DVD_INDEX_WARNING});
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
@dvdfilemasksorig = @dvdfilemasks;
foreach $mask (@dvdfilemasksorig) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error($lang{DVD_INDEX_NO_FOLDERS_WITH_DVD_FILES_FOUND});
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

if (@dvdchoices) {
map { $_ = "${dvdripto_parentdir}/$_" } @dvdchoices;
} else {
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,$lang{INVALID_INPUT});
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"$lang{INVALID_SELECTION}: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}
}
&echo("");

&out_info($lang{DVD_INDEX_NOW_INDEXING});
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs") if $os eq 'windows';
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs") if $os eq 'windows';
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs") if $os eq 'windows';
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ m/^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
if ($os eq 'windows') {
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
#print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
#print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
#print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
#print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
### FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
} else { #unix
&cp($mpegfile,"${desktop}/${projname}");
&echotofile("MPEG2source(\"${1}.${2}\",upconv=1)\n",">>","${projname}.avs");
### FIXME get $maxaudiobr?
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

sub pipe_prepare($$) {
$basename = shift;
$mode = shift;

$avs = "${basename}.pipe";
system("rm", $avs) if -e $avs;
system("mkfifo", $avs);

open(AVS, "${basename}.avs"); #must be unix text when running sasami under unix ...
@avs = <AVS>;
close(AVS);
@sources = ();
@trims = ();
$f = 1;
for (@avs) {
chomp;
next if m/^#/;
push(@sources,$1) if m/^.*MPEG2source$"([^"]+)".*$/i;
push(@sources,$1) if m/^.*avisource\("([^"]+)".*$/i;
push(@sources,$1) if m/^.*directshowsource\("([^"]+)".*$/i;
$fieldorder = 1 if m/^AssumeTFF\($/i;
$fieldorder = 0 if m/^AssumeBFF/i;
$d = 1 if m/^global d1 = true/;
$d = 4 if m/^global d1 = false/;
$d = 4 if m/^separatefields$/i; #for sample extraction
$f = $1 if m/^changefps$f1\/([0-9])$/;
$deflicker = 1 if m/^nate_retard_bob_2/;
$vhs = 1 if m/^nate_vhs_head_change_erase/;
$onepixel = 1 if m/^nate_1_pixel_bob_fix/;
$nes = 1 if m/^nate_nes$/;
push(@trims,"$1,$2") if m/trim$([0-9]+),([0-9]+)$/;
$gba = 1 if m/^nate_gba$/;
$gb = 1 if m/^nate_gb$/;
#$resize = 1 if m/^lanczos4resize$/;
#nate format
$statidlines[0] = $1 if m/^statid1="""(.*)"""$/;
$statidlines[1] = $1 if m/^statid2="""(.*)"""$/;
$statidlines[2] = $1 if m/^statid3="""(.*)"""$/;
#anri format
(@statidlines) = ($1, $2, $3) if m/^statid=.*\(run,"([^"])","([^"])","([^"])"$/;
}
die 'sasami: no sources detected in .avs!' if @sources == 0;
return @sources if $mode eq 'sources';

open(JS, ">${basename}.js") or die "could not open ${basename}.js for writing";
print JS '//AD <- Needed to identify//'."\n\nvar app = new Avidemux();\n\n";
for (my $i = 0 ; $i < @sources ; $i++) {
print JS "app.forceUnpack();\n";
if ($i == 0) {
print JS "app.load(\"${desktop}/${projname}/${sources[$i]}\");\n";
} else {
print JS "app.append(\"${desktop}/${projname}/${sources[$i]}\");\n";
}
}

# @mencoderargslist = ();
# #build mencoder command to feed fifo
# if ($mode eq "video") {
# $mencoderargs = "\"${anri_dir}/${mencoder}\" ${really_quiet}";
# } elsif ($mode eq "audio") {
# $mencoderargs = "\"${anri_dir}/${mplayer}\" ${really_quiet}";
# }

print JS "\napp.clearSegments();\n";
my $sourcenum = 0;
my $previous_sourcelength = 0;
my $this_sourcelength;
foreach $source (@sources) {
#get vital info about source
my $mplayeridentify = <<SABRAC;
mplayer -identify -vo null -slave ${source} 2>&1 <<ENDOFSCRIPT
quit
ENDOFSCRIPT
SABRAC
for (qx($mplayeridentify)) {
chomp;
$width = $_ if s/ID_VIDEO_WIDTH=([0-9]+)/$1/;
$height = $_ if s/ID_VIDEO_HEIGHT=([0-9]+)/$1/;
$framerate = $_ if s/ID_VIDEO_FPS=([0-9.]+)/$1/;
$maxaudiobitrate = $_ if s/ID_AUDIO_BITRATE=([0-9]+)/$1/;
$this_sourcelength = &round($framerate * $_) if s/ID_LENGTH=([0-9.]+)/$1/;
}
# print "$width\n";
# print "$height\n";
# print "$framerate\n";
# print "$maxaudiobitrate\n";
$pal = ($height eq "576");
### FIXME moved from above the foreach source block because it depends on $pal being set - check only first source and then set?
$newframerate = ($pal ? (50/$f) : (59.94/$f)); #required for trimming

#trimming
# $framerate = 29.97;
# $framerate = 25 if $pal;
my $sourcelength = ($previous_sourcelength + $this_sourcelength);
for (@trims) {
if ($_) {
#print "popped: $_\n";
my $trimone = '';
my $trimtwo = '';
m/^(.*),(.*)$/;
if ($1) {
if ($1 < $sourcelength) {
$trimone = ($1 - $previous_sourcelength);
$trimtwo = ($this_sourcelength - $trimone + 1);
}
}
if ($2) {
if ($2 < $sourcelength) {
$trimone = 0 if !$trimone;
$trimtwo = ($2 - $previous_sourcelength - $trimone + 1);
}
}
if (($trimone ne '') && ($trimtwo ne '')) {
print JS "app.addSegment(${sourcenum},${trimone},${trimtwo});\n";
$_ = ",";
#keep second trim point in case we haven't reached it yet
$_ .= $2 if $2 > $sourcelength;
}
}
}
$previous_sourcelength = $sourcelength;
$sourcenum++;
}
print JS "\n";

# app.video.addFilter("crop","left=14","right=16","top=22","bottom=30");
# app.video.addFilter("mpresize","w=320","h=240","algo=2");
# app.video.addFilter("resamplefps","newfps=29970","use_linear=0");
# app.video.addFilter("YADIF","mode=3","order=1");
# app.video.addFilter("mcdeinterlace","mode=2","qp=1","initial_parity=0");
# app.video.addFilter("msharpen","mask=0","highq=1","strength=100","threshold=15");
# app.video.addFilter("addblack","left=0","right=0","top=0","bottom=2");
#one pixel bob
# if ($onepixel) {
# app.video.addFilter("crop","left=0","right=0","top=1","bottom=0");
# app.video.addFilter("addblack","left=0","right=0","top=0","bottom=1");
# $mencoderargs .= " -vf-add crop=${width}:".($height-1).":0:0,expand=${width}:${height}:0:1";
# $fieldorder = 0 if $fieldorder == 1;
# $fieldorder = 1 if $fieldorder == 0;
# }

if ($nes) {
print JS '//nes'."\n";
print JS 'app.video.addFilter("crop","left=8","right=0","top=0","bottom=0");'."\n";
print JS 'app.video.addFilter("addblack","left=8","right=0","top=0","bottom=0");'."\n";
print JS "\n";
#$mencoderargs .= " -vf-add crop=".($width-8).":${height}:8:0,expand=${width}:${height}:8:0" if $nes;
#-af channels=6:4:0:0:0:1:0:2:0:3 media.avi
#Would change the number of channels to 6 and set up 4 routes that copy channel 0 to channels 0 to 3. Channel 4 and 5 will contain silence.
}

print JS 'app.video.addFilter("mcdeinterlace","mode=2","qp=1","initial_parity='.$fieldorder.'");'."\n" if $d == 1;
#$mencoderargs .= " -vf-add yadif=3 -vf-add mcdeint=1:${fieldorder}" if $d == 1;
#$tfields = 0;
#$tfields = 4 if $deflicker;
print JS 'app.video.addFilter("YADIF","mode=3","order=1");'."\n" if $d == 4;
#$mencoderargs .= " -vf-add tfields=${tfields}" if $d == 4;

#i just eyeballed this - someone will need to sync the avisynth and mencoder sharpen filters
#print JS 'app.video.addFilter("msharpen","mask=0","highq=1","strength=100","threshold=15");'."\n" if $deflicker;
#$mencoderargs .= " -vf-add unsharp=l3x3:0.6:c3x3:0.6" if $deflicker;

if ($vhs) {
print JS '//vhs'."\n";
print JS 'app.video.addFilter("crop","left=0","right=0","top=0","bottom=12");'."\n";
print JS 'app.video.addFilter("addblack","left=0","right=0","top=0","bottom=12");'."\n";
print JS "\n";
#$mencoderargs .= " -vf-add crop=${width}:".($height-12).":0:0,expand=0:-12:0:0" if $vhs;
}

if ($gba) {
print JS 'app.video.addFilter("mpresize","w=320","h=240","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=320:240";
print JS 'app.video.addFilter("crop","left='.$gba_crop_left.'","right='.$gba_crop_right.'","top='.$gba_crop_top.'","bottom='.$gba_crop_bottom.'");'."\n";
#$mencoderargs .= " -vf-add crop=".(320-$gba_crop_right-$gba_crop_left).":".(240-$gba_crop_bottom-$gba_crop_top).":${gba_crop_left}:${gba_crop_top}";
print JS 'app.video.addFilter("mpresize","w=240","h=160","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=240:160";
$newwidth = 240;
$newheight = 160;
} elsif ($gb) {
print JS 'app.video.addFilter("mpresize","w=320","h=240","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=320:240";
print JS 'app.video.addFilter("crop","left='.$gb_crop_left.'","right='.$gb_crop_right.'","top='.$gb_crop_top.'","bottom='.$gb_crop_bottom.'");'."\n";
#$mencoderargs .= " -vf-add crop=".(320-$gb_crop_right-$gb_crop_left).":".(240-$gb_crop_bottom-$gb_crop_top).":${gb_crop_left}:${gb_crop_top}";
$newwidth = (320-$gb_crop_right-$gb_crop_left);
$newheight = (240-$gb_crop_bottom-$gb_crop_top);
}

$newwidth = (($d == 1) ? ($pal ? 704 : 640) : ($pal ? 352 : 320)) unless $newwidth;
$newheight = (($d == 1) ? ($pal ? 576 : 480) : ($pal ? 288 : 240)) unless $newheight;
#$mencoderargs .= " -vf-add framestep=${f}";
$x264newframerate = "--fps ${newframerate}";
$x264outext = '264';
$x264dimensions = "${newwidth}x${newheight}";
$ampersand = '&';
$mp4boxnewframerate = "-fps ${newframerate}";

print JS 'app.video.addFilter("mpresize","w='.$newwidth.'","h='.$newheight.'","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=${newwidth}:${newheight}";# if $resize;

if ($mode eq "video") {
print JS 'app.video.codec("YV12","CQ=1","0 ");'."\n";
print JS 'app.audio.load("NONE","");'."\n";
print JS 'app.setContainer("OGM");'."\n";
print JS 'app.save("'."${desktop}/${projname}/avidemux.pipe".'");'."\n";
} elsif ($mode eq "audio") {
print JS 'app.audio.codec("none",128,0,"");'."\n";
print JS 'app.audio.save("'."${avs}".'");'."\n";
}
print JS "\n".'setSuccess(1);'."\n".'app.Exit();'."\n";
close(JS);

# my $sourcesplit = '"'.$source.'"';
# my $littleo = "-o \"${avs}\"";
# $littleo = "-ao pcm:file=\"${avs}\":fast" if $mode eq "audio";
# if (@trimargsarr) {
# my $mencoderargstemp = '';
# while (my $trimargs = shift(@trimargsarr)) {
# $mencoderargstemp .= $mencoderargs." ${sourcesplit}".$trimargs." ${littleo}\n";
# }
# $mencoderargs = $mencoderargstemp;
# } else {
# $mencoderargs .= " ${sourcesplit} ${littleo}\n";
# }
#
# push(@mencoderargslist,$mencoderargs);

if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2])) {
require Imager;
$img = Imager->new;
$img->read(file=>"ntsc_d1.tga") or die "Cannot load statid image: ", $img->errstr;
$font = Imager::Font->new(file=>$path_to_verdana); #will need to be changed for non-mac unix ...
&statid_lines_write($statidlines[0], $img->getheight/2, 36, 'white' ) if $statidlines[0];
&statid_lines_write($statidlines[1], 360, 36, 'white' ) if $statidlines[1];
&statid_lines_write($statidlines[2], 400, 36, 'white' ) if $statidlines[2];
&statid_lines_write("Audio commentary on track 2", 460, 28, '#E1CE8B') if defined $audio_commentary;
$img->write(file=>'statid.tga')
or die 'Cannot save statid.tga: ', $img->errstr;
open(MF,">statid.txt") or die "Could not open statid.txt for appending!";
for (1..5) { #once for each second of the statid
for (1..$newframerate) { #once for each frame this second
print MF "statid.tga\n";
}
}
close(MF);
if ($mode eq "video") {
$statidmencoderargs = "\"${anri_dir}/${mencoder}\" ${really_quiet} -vf-add scale=${newwidth}:${newheight} -vf-add format=i420 -ovc raw -of rawvideo -nosound -ofps ${newframerate} mf://\@statid.txt -mf fps=${newframerate}:type=tga -o \"${avs}\"";
} elsif ($mode eq "audio") {
$statidmencoderargs = "\"${anri_dir}/${mplayer}\" ${really_quiet} -audiofile \"silence_stereo_48000.wav\" -vc null -ao pcm:file=\"${avs}\":fast mf://\@statid.txt -mf fps=${newframerate}:type=tga";
}
}
}

sub pipe_write {
print "opening ${avs} ...\n";
open(FIFO,">${avs}");
print("$statidmencoderargs\n") if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
system($statidmencoderargs) if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
if ($mode eq "video") {
print "making avidemux.pipe ...\n";
system("mkfifo", "avidemux.pipe");
print "made avidemux.pipe\n";
system("\"${anri_dir}/${mencoder}\" ${really_quiet} -vf-add format=i420 -ovc raw -of rawvideo -nosound -o \"${avs}\" avidemux.pipe &");
}
system("sh \"${avidemux}\" --run \"${basename}.js\""); #need the full path to the js for some reason
&rm("avidemux.pipe") if $mode eq "video";
print("$statidmencoderargs\n") if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
system($statidmencoderargs) if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
close(FIFO);
}

#statid line text, y-offset, text size, color
sub statid_lines_write {
$font->align(string => $_[0],
aa => 1,
size => $_[2],
color => $_[3],
x => $img->getwidth/2,
y => $_[1],
halign => 'center',
valign => 'center',
image => $img);
}

sub round {
return int($_[0] + .5 * ($_[0] <=> 0));
}

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
#VIDEO
$x264newframerate = '';
$x264outext = 'mp4';
$x264dimensions = '';
$ampersand = '';
$mp4boxnewframerate = '';
if ($os eq 'windows') {
$avs = $_[0].'.avs';
} else {
&pipe_prepare($_[0],"video");
$avs = $_[0].'.pipe';
}
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim ${x264newframerate} --output \"${_[1]}_video.${x264outext}\" \"${avs}\" ${x264dimensions} ${ampersand}");
print "x264 is going ...\n";
&pipe_write if $os ne 'windows';
print "pipe_write is going ...\n";
system("rm", $avs) if $os ne 'windows';

#AUDIO
$audioext = 'mp4';
if ($os eq 'windows') {
system("\"${vdub_dir}/${vdubcli}\" \"${avs}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.${audioext}\"");
} else {
&pipe_prepare($_[0],"audio");
system("\"${anri_dir}/${mplayer}\" -dumpstream -dumpfile \"${_[1]}_temp.wav\" \"${avs}\" &");
&pipe_write;
system("rm", $avs) if $os ne 'windows';
if ($faac) {
$audioext = 'aac';
#thanks grenola
$faacq = "-q 65 -c 8000"; #default is for mq/lq
$faacq = "-b 128" if $_[2] ge "128000";
$faacq = "-b 256" if $_[2] ge "256000";
system("\"${faac}\" --mpeg-vers 4 ${faacq} -o \"${_[1]}_audio.${audioext}\" \"${_[1]}_temp.wav\"");
} else { #afconvert's only going to work under os x
system("\"${anri_dir}/${afconvert}\" -f mp4f -d 'aac ' -b ${_[2]} -s 1 -v \"${_[1]}_temp.wav\" \"${_[1]}_audio.${audioext}\"");
}
}

#MUX
if ($os eq 'windows') {
system("\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
} else {
system("export DYLD_LIBRARY_PATH=\"${anri_dir}\";\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
}

#CLEANUP
if (${_[4]}) {
@todel = (
"${_[1]}_video.${x264outext}",
"${_[1]}_temp.wav",
"${_[1]}_audio.${audioext}",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
&x264(
@_,
'--level 4.1 --bframes 3 --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --analyse none --no-ssim',
'--level 4.1 --bframes 3 --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --ref 3 --mixed-refs --no-fast-pskip --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --me umh'
);
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
&x264(
@_,
'--vbv-bufsize 512 --vbv-maxrate 768 --level 1.3 --no-cabac --threads auto --thread-input --progress --no-psnr --analyse none --no-ssim',
'--vbv-bufsize 512 --vbv-maxrate 768 --level 1.3 --no-cabac --threads auto --thread-input --progress --no-psnr --analyse all --no-fast-pskip --subme 7 --trellis 2 --me umh'
);
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean, x264argsfirstpass, x264argssecondpass
sub x264 {
$x264args_pass2 = pop;
$x264args_pass1 = pop;

#VIDEO
$x264newframerate = '';
$x264outext = 'mp4';
$x264dimensions = '';
$ampersand = '';
$mp4boxnewframerate = '';
if ($os eq 'windows') {
$avs = $_[0].'.avs';
} else {
&pipe_prepare($_[0],"video");
$avs = $_[0].'.pipe';
}
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --qpmin ${_[4]} ${x264newframerate} ${x264args_pass1} --output ${nul} \"${avs}\" ${x264dimensions} ${ampersand}");
&pipe_write if $os ne 'windows';
#this is a hack to deal with the fact that sometimes x264 takes a while to finish encoding and write out the statsfile - thanks grenola!
while (!(-e "${_[1]}.stats")) {
print("Waiting for stats file ...\n");
sleep(1);
}
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --qpmin ${_[4]} ${x264newframerate} ${x264args_pass2} --output \"${_[1]}_video.${x264outext}\" \"${avs}\" ${x264dimensions} ${ampersand}");
&pipe_write if $os ne 'windows';
system("rm", $avs) if $os ne 'windows';

#AUDIO
$audioext = 'mp4';
if ($os eq 'windows') {
system("\"${vdub_dir}/${vdubcli}\" ${avs} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.${audioext}\"");
} else {
&pipe_prepare($_[0],"audio");
system("\"${anri_dir}/${mplayer}\" -dumpstream -dumpfile \"${_[1]}_temp.wav\" \"${avs}\" &");
&pipe_write;
system("rm", $avs) if $os ne 'windows';
if ($faac) {
$audioext = 'aac';
#thanks grenola
$faacq = "-q 65 -c 8000"; #default is for mq/lq
$faacq = "-b 128" if $_[3] ge "128000";
$faacq = "-b 256" if $_[3] ge "256000";
system("\"${faac}\" --mpeg-vers 4 ${faacq} -o \"${_[1]}_audio.${audioext}\" \"${_[1]}_temp.wav\"");
} else { #afconvert's only going to work under os x ...
system("\"${anri_dir}/${afconvert}\" -f mp4f -d 'aac ' -b ${_[3]} -s 1 -v \"${_[1]}_temp.wav\" \"${_[1]}_audio.${audioext}\"");
}
}

if ($os eq 'windows') {
system("\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
} else {
system("export DYLD_LIBRARY_PATH=\"${anri_dir}\";\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
}

#CLEANUP
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.${x264outext}",
"${_[1]}_temp.wav",
"${_[1]}_audio.${audioext}",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
$avs = $_[0].'.avs';
system("\"${anri_dir}/${xvid}\" -i \"${avs}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\" -progress");
system("\"${anri_dir}/${xvid}\" -i \"${avs}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -progress -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -ab ${_[3]} -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${avs}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-11-11T05:17:09Z

SelbyMD: forgot to remove mp4nerf.pl

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#default
$language = "english";

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...
require Win32;

#get the name of the work directory. this is the desktop by default under windows
$desktop = Win32::GetFolderPath(Win32::CSIDL_DESKTOPDIRECTORY());

#get the path to program files so we can build the anri program directory
$programfiles = Win32::GetFolderPath(Win32::CSIDL_PROGRAM_FILES());

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#goes after a drive letter
$colon = ':';

#black hole
$nul = 'NUL';

#to start programs/open urls
$start = "START";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else { #we're on unix
#desktop location and other os-dependent stuff
if ("$^O" eq "darwin") {
$desktop = glob("~/Desktop");
$path_to_verdana = "/Library/Fonts/Verdana.ttf";
} else {
### FIXME NON-MAC UNIX DESKTOP LOCATION, PATH TO VERDANA
}

#anri program directory ### FIXME ###
$anri_dir = `pwd`;
chomp($anri_dir);

#our encoders - invocation names only - path will be prepended later ...
$x264 = 'x264';
$afconvert = 'afconvert';
#for mp4box
# print "export DYLD_LIBRARY_PATH=${anri_dir}\n";
$mp4box = 'mp4box';
$ffmpeg = 'ffmpeg';

#some anri support files
$avidemux = $anri_dir.'/avidemux2_qt4.app/Contents/Resources/script';
$mplayer = "mplayer";
$mencoder = "mencoder";
$really_quiet = "-really-quiet"; #for mencoder
$wget = "wget";

#dunno about this
$dvdripto_parentdir = "${anri_dir}/dvdripto"; ### FIXME

#not needed under unix
$colon = '';

#black hole
$nul = '/dev/null';

#to start programs/open urls
$start = "open";

#color initialization
require Term::ANSIColor;
import Term::ANSIColor qw(color);
$cecho = "echo";

#fewer colors to choose from than under windows if we want to maintain portability ...
$black_on_gray = color("black on_white");
$gray_on_black = color("white on_black");
$white_on_black = color("white on_black");
$aqua_on_black = color("green on_black");
$blue_on_black = color("blue on_black");
$teal_on_gray = color("green on_white");
$navy_on_gray = color("blue on_white");
$maroon_on_gray = color("magenta on_white");
$maroon_on_silver = color("magenta on_white");
$white_on_gray = color("white on_black");
$red_on_gray = color("red on_white");

$reset_color = "\"${cecho}\" ".color("reset");

#os-specific commands
$clear = "clear";
}

#make sure we can find anri's libs
push @INC, $anri_dir;

#load config file
require 'config.ini' if -e 'config.ini';

#localization
require 'lang_english.pl';
#after having loaded english, load preferred language by using $language variable from config file, would be cool if we could set this in the installer
require "lang_${language}.pl" if $language ne "english";

#FIXME LOGFILE STUFF

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

&out_cls;
@mainmenu = (
[$lang{MAINMENU_RIPDVD}, '&rip_dvd'],
[$lang{MAINMENU_STARTNEWPROJECT}, '&project'],
[$lang{MAINMENU_EXTRACTSAMPLE}, '&proc_sample'],
[$lang{MAINMENU_STATIDPREVIEW}, '&statid_sample'],
[$lang{MAINMENU_EXIT}, 'exit 0'],
);
while (1) {
if (@menuchoices) {
eval($mainmenu[shift(@menuchoices)-1][1]);
} else {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{MAINMENU});
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "$lang{INVALID_INPUT}\n\n";
&out_menu(@mainmenu);
}
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins if $os eq 'windows';
&out_cls_section($lang{SECTION_SAMPLE_EXTRACTION});
q_boo($lang{QUESTION_DVDMPEG_SOURCE}, $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
if (! defined $startframe) {
&out_info($lang{INFO_SAMPLE_LENGTH});
&echo("");
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
if ($os eq 'windows') {
system("${start} \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
@sources = &pipe_prepare($projname, "sources");
$avidemuxarg = " --load";
for (@sources) {
$avidemuxargs .= "${avidemuxarg} \"${desktop}/anri_sample/${_}\"";
$avidemuxarg = " --append";
}
#system("sh \"${avidemux}\" ${avidemuxargs} &");
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if ($os ne 'windows') {
### remove .idx files
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF()\nSeparateFields()\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir($desktop);
#&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}$lang{SAMPLE_EXTRACTION_DONE}");
&echo("\n$lang{SAMPLE_EXTRACTION_README}");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Statid Sample
#
# Statid preview mode shows users how their statid will look without having
# to encode anything. A slimmed down version of the code from the main
# procedure and script_buildfiles is used. The same temporary project
# name and directory from sample extraction mode are used and deleted.
# The user is sent back to the main menu but currently will need
# to enter the statid information again during the main script.
############################################################################

sub statid_sample {
chdir($desktop);
$projname = 'anri_sample';
&make_projdir;
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_ABOUT_EACH_LINE});
if (!@statidlines) {
foreach $i (1 .. 3) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
}
&echotofile("global pal = false\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
$projtemp = "run = blankclip(width=640, height=480)";
$projtemp .= "statid=nate_statid_d1(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid\n";
&echotofile($projtemp,">>","${projname}.avs");
system("\"${vdub_dir}/${vdubgui}\" \"${projname}.avs\"");
chdir($desktop);
&rm("${desktop}/${projname}");
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{SECTION_PROJECT_SETUP});
if (! defined $projname) {
&out_info($lang{ENTER_PROJECT_NAME});
&echo("");
&echo("$lang{PROJECT_FILES_APPEAR_IN} ${navy_on_gray}${desktop}\\($lang{PROJECT_NAME})\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "$lang{PROJECT_NAME_ILLEGAL_CHARACTERS}\n\n";
print $prompt;
}
}
&make_projdir;
&load_plugins if $os eq 'windows';
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section($lang{MOVIE_SOURCE});
&out_info($lang{MOVIE_SOURCE_MPEG2_HINT});
&echo("");
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if (q_boo($lang{MPEG2_SOURCE_QUESTION}, $dvdsource)) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section($lang{SECTION_GAME_PROPERTIES});
if ((!$dvdsource) and (!$auto)) {
q_boo($lang{PC_GAME_QUESTION}, $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
} else {
&q_dfnd if !$dfnd_set;
if (!$dfnd_set) {
&echo("");
&out_info($lang{DF_EXPLAIN});
&echo("");
&out_info($lang{DF_FIND_AT_THIS_URL});
&out_info($lang{DFND_URL});
&echo("");
&out_info($lang{DF_IF_NOT_FOUND_THEN_WHAT});
&echo("");
if (! defined $d) {
&echo($lang{QUESTION_D});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if (! defined $f) {
&echo($lang{QUESTION_F});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
q_boo($lang{QUESTION_ND}, $twod) if ($f == 1);
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info($lang{QUESTION_SUBMIT_DFND_WHY});
&echo("");
system($start, 'http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0') if q_boo($lang{QUESTION_SUBMIT_DFND});
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section($lang{SECTION_VIDEO_PROPERTIES});
q_boo($lang{QUESTION_PROGRESSIVE_INTERLACED}, $prog);
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
if (! defined $fieldorder) {
&out_info($lang{FIELDORDER_VDUB_WINDOW_OPENS});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("${start} \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&out_info($lang{VDUB_WINDOW_CAN_CLOSE_NOW});
&rm("${projname}_fieldordertemp.avs");
}
&echo("");

#q_vhs
q_boo($lang{QUESTION_VHS}, $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_1PIXEL_BOB}, $onepixel) if ($f != 2);

q_boo($lang{QUESTION_NES}, $nes);
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_GBA}, $gba);
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_GB}, $gb);
$deflicker=1 if $gb;

q_boo($lang{QUESTION_DEFLICKERED}, $deflicker) if ($f != 2);
}

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. If the frame range is like 50 to 30 an error is shown, same if a '-'
# is inputted.
# Users can enter dummy values and edit project_job.bat later on and it will
# still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section($lang{SECTION_CONTENT_PROPERTIES});
if (! defined $trim) {
&out_info($lang{INFO_TRIM});
if (q_boo($lang{QUESTION_TRIM}, $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. Implemented basic checking if the frame range is valid.
############################################################################
&echo("");
&out_info($lang{TRIM_VDUB_WINDOW_OPENS});
&echo("");
&out_info($lang{TRIM_MULTIPLE_RANGES});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("${start} \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{TRIM_ILLEGAL_VALUE};
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info($lang{TRIM_NO_VALUES_ENTERED});
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error($lang{TRIM_ODD_NUMBER_OF_FRAMES});
@trimarr = ();
} else {
&out_info($lang{TRIM_DONE});
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg=$lang{TRIM_INVALID_INPUT_MUST_BE_FRAME_NUMBER};
} elsif ((@trimarr % 2) && ($trimarr[@trimarr-1] > $_)) {
$errormsg=$lang{TRIM_INVALID_RANGE};
} else {
push(@trimarr,$_);
&out_info($lang{TRIM_POINT_LOADED_SUCCESSFULLY}.' #'.@trimarr);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}
}

if (! defined $statid) {
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_INFO});
if (q_boo($lang{QUESTION_STATID}, $statid)) {
@statidlines = ();
&out_info($lang{STATID_ABOUT_EACH_LINE});
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
} else {
@statidlines = ('','','');
}
}

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
#$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section($lang{SECTION_READY_TO_ENCODE});
&out_info("$lang{SETTINGS_SAVED_TO_FILE} \"${projname}_job.bat\".");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if ($auto or q_boo($lang{QUESTION_ENCODE_NOW_OR})) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ/XQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section($lang{SECTION_ENCODING_OPTIONS});
%qualities = (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
lq => [ 1, \&twopass, "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
mq => [ 1, \&ipod, "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
hq => [ 1, \&twopass, "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
iq => [ (($d==1) && ($f==1)), \&twopass, "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
xq => [ (($d==1) && ($f==1)), \&twopass, "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
lqavi => [ 1, \&xvid, "Low quality XviD AVI", "_LQ", 128, 64000, "", 1,1],
mqavi => [ 1, \&xvid, "Medium quality XviD AVI", "", 512, 64000, "", 1,1],
);

if (!@encodethese) {
#&savesettings;
for (qw(lq mq hq iq xq lqavi mqavi)) {
my @t = @{ $qualities{$_} };
#if this quality is not disabled for these content properties - then ask the user if they want to make it
push(@encodethese, $_) if $t[0] and q_boo("$lang{QUESTION_CREATE_VIDEO} $t[2] (".($t[4]+($t[5]/1000))." kbit/sec)");
}
}

for (@encodethese) {
my $idtag = $qualities{$_}[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info($lang{NOW_ENCODING});
for (@encodethese) {
my @t = @{ $qualities{$_} };
print "now encoding $t[2] ($projname.$t[3].$nmf, $projname.$t[3], @t[4..8])\n";
$t[1]->($projname.$t[3].$nmf, $projname.$t[3], @t[4..8]);
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
if ($os eq 'windows') {
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
} else { #unix
&cp("${anri_dir}/ntsc_d1.tga","${desktop}/${projname}");
}
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs") if $os eq 'windows';
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

# simple multi-threaded map, currently used for nmf
# one thread is created per argument (excluding the first)
sub tmap (&@) {
require threads;
my $f = shift;
map { $_->join() } map { threads->create($f, $_) } @_;
}

sub nmf {
&out_cls_section($lang{SECTION_NMF});
&out_info($lang{NMF_INFO});
&echo("");
&out_info($lang{INFO_HQ_IQ_XQ_NMF});
&echo("");
if (q_boo($lang{QUESTION_CREATE_NMF},$make_nmf)) {
$nmf = '_nmf';
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$number_of_processors=$ENV{NUMBER_OF_PROCESSORS};
#Set lagarith to yv12 under doze
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs") if -e "${projname}_HQ_nmf.avs";
#:nmf_vdubloop
#counterB
@nmfcommands = ();
$alignedsplice = "";
foreach $i (1 .. $number_of_processors) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&echotofile("avisource(\"${projname}_HQIQXQ_${i}.avi\")\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_${i}.avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*".($i-1).".000), floor(last.framecount/${number_of_processors}.000*${i}.000)-1)\n",">>","${projname}_HQIQXQ_${i}.avs");
push @nmfcommands, qq("${vdub_dir}/${vdubcli}" "${projname}_HQIQXQ_${i}.avs" /i "${anri_dir}/nmf.vcf" "${projname}_HQIQXQ_${i}.avi");
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
#for now lq and nq ignore the nmf
&cp("${projname}_LQ.avs","${projname}_LQ_nmf.avs");
&cp("${projname}_LQ_xvid.avs","${projname}_LQ_xvid_nmf.avs");
&cp("${projname}.avs","${projname}_nmf.avs");
&cp("${projname}_xvid.avs","${projname}_xvid_nmf.avs");
&echo($lang{ENCODING_NMF});
tmap { system($_) } @nmfcommands;
&echo("");
&out_info($lang{NMF_SUCCESSFULLY_CREATED});
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("\\++\\\n",">>","${projname}.avs") if $i > 0;
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width % 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";
if ($statid) {
$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid++run++statid\n";
} else {
$projtemp .= "run\n";
}
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs");
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs") if -e "${projname}_trimtemp.avs";
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [$lang{y}/$lang{n}]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
require Win32::TieRegistry;
import Win32::TieRegistry (Delimiter=>"/", ArrayValues=>0) unless defined $Registry;
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$secondarg = '.';
$secondarg = $_[1] if $_[1];

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${secondarg}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

sub trim($) { #from http://www.somacon.com/p114.php
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
if (defined $_[1]) {
if ($_[1] == 1 or $_[1] eq $lang{"y"}) { #for some reason {y} causes textwrangler's syntax highlighting to break
$_[1] = 1;
return 1;
} elsif ($_[1] == 0 or $_[1] eq $lang{n}) {
$_[1] = 0;
return 0;
}
}
&out_info($_[0]." [$lang{y}/$lang{n}]");
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput eq $lang{"y"}) {
$_[1] = 1;
return 1;
} elsif ($userinput eq $lang{n}) {
$_[1] = 0;
return 0;
} else {
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section($lang{SECTION_AVI_SOURCE});
&out_info($lang{AVI_SOURCE_INFO});
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info($lang{AVI_PATH_TO});
&out_info($lang{TYPE_N_TO_QUIT});
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{AVI_BAD_INPUT};
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg=$lang{AVI_NONE_ENTERED};
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg=$lang{AVI_NOT_AVI};
} elsif (! -e $_) {
$errormsg=$lang{FILE_NOT_FOUND};
} else {
push(@avifiles,$_);
&out_info($lang{AVI_LOADED_SUCCESSFULLY}.' #'.@avifiles);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = $lang{AVI_DIR_LOAD_INFO};
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_ENTER_PATH};
} elsif (m/^.[^:][^\\].*/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_BE_FULL_PATH};
} elsif (! -e $_) {
$errormsg=$lang{AVI_DIR_LOAD_DIR_DOES_NOT_EXIST};
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = $lang{AVI_DIR_LOAD_NO_AVIS_FOUND_IN_DIR};
} else {
#Ask user if the list is good.
if (q_boo($lang{QUESTION_AVI_DIR_LOAD_CONTINUE_OR_RESCAN})) {
last;
} else {
$errormsg = $enterhelp;
}
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info($lang{DFND_INFO});
q_boo($lang{QUESTION_USE_DFND_DATABASE}, $dfnd);
if ($dfnd) {
#:dfnd
&out_info($lang{INFO_CONNECTING_TO_DFND_DATABASE});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "'.$lang{DFND_URL}.'"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~s/\&amp\;/\&/g;
#right now only the accent in Pokemon and \& need to be changed, but it'd be better for it to work with all utf chars
$title=~s/(\xc3\xa9)/chr(130)/eg;
$titles .= "".($i+1).": ${title}\n";
#printing at most 50 lines at a time
if(($i+1) % 50 == 0) {
print $titles;
$titles = '';
&out_info($lang{PRESS_ENTER_PAGE});
<STDIN>;
}
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg=$lang{DFND_MUST_CHOOSE_GAME};
} elsif (m/[^0-9]/) {
$errormsg=$lang{DFND_MUST_ENTER_GAME_NUMBER};
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg=$lang{INVALID_SELECTION};
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error($lang{DFND_COULD_NOT_CONNECT_TO_SDA});
&q_dfnd if q_boo($lang{QUESTION_DFND_COULD_NOT_CONNECT_TO_SDA_TRY_AGAIN});
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section($lang{SECTION_RIP_DVD});
if (!$auto) {
if ($os eq 'windows') {
&out_info($lang{QUESTION_DVD_DRIVE_LETTER});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_LETTER};
}
&out_error($errormsg);
print $prompt;
}
} else { #unix
&out_info($lang{QUESTION_DVD_DRIVE_PATH});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP_UNIX});
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_PATH};
}
&out_error($errormsg);
print $prompt;
}
}
}
#this is mainly because when you drag things onto a terminal window in os x it cats a space on the end of the path
$driveletter = &trim($driveletter);
&echo("");
&out_info("$lang{DVD_INFO_ANRI_WILL_EXTRACT_TO_DIR} $lang{QUESTION_DVD_RIPTO_DIR_NAME}");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto_parentdir) if !-e $dvdripto_parentdir; #paranoia
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_RIPTO_DIR_NAME};
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info($lang{DVD_INFO_ANRI_WILL_RIP_NOW});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
&echo("");
<STDIN>;

if (-e "${driveletter}${colon}/VIDEO_TS") {
$dvdsource = "${driveletter}${colon}/VIDEO_TS";
if (<${dvdsource}/VTS*.IFO>) {
&pgccount(<${dvdsource}/VTS*.IFO>);

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info $lang{DVD_ADVANCED_MODE}
# SET s=
# SET /P s=$lang{DVD_TITLE_NUMBERS}
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 2.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo($lang{DVD_VIDEOTS_NOT_FOUND});
#GOTO DIE
}
}
&out_info("$lang{DVD_FINISHED_RIPPING} $lang{PRESS_ENTER_TO_CONTINUE}");
<STDIN>;
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
@pgclist = ();
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
return 1;
}

sub index_dvd {
#we don't actually index anything under unix but we still need to pick from the ripped dvd sources, write the start of the main project .avs and set some variables
$maxaudiobr ||= 320000;

&out_cls_info($lang{DVD_INDEX_INFO_FILELIST});
&echo("");
&echo($lang{DVD_INDEX_WARNING});
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
@dvdfilemasksorig = @dvdfilemasks;
foreach $mask (@dvdfilemasksorig) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error($lang{DVD_INDEX_NO_FOLDERS_WITH_DVD_FILES_FOUND});
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

if (@dvdchoices) {
map { $_ = "${dvdripto_parentdir}/$_" } @dvdchoices;
} else {
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,$lang{INVALID_INPUT});
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"$lang{INVALID_SELECTION}: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}
}
&echo("");

&out_info($lang{DVD_INDEX_NOW_INDEXING});
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs") if $os eq 'windows';
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs") if $os eq 'windows';
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs") if $os eq 'windows';
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ m/^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
if ($os eq 'windows') {
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
#print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
#print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
#print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
#print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
### FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
} else { #unix
&cp($mpegfile,"${desktop}/${projname}");
&echotofile("MPEG2source(\"${1}.${2}\",upconv=1)\n",">>","${projname}.avs");
### FIXME get $maxaudiobr?
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

sub pipe_prepare($$) {
$basename = shift;
$mode = shift;

$avs = "${basename}.pipe";
system("rm", $avs) if -e $avs;
system("mkfifo", $avs);

open(AVS, "${basename}.avs"); #must be unix text when running sasami under unix ...
@avs = <AVS>;
close(AVS);
@sources = ();
@trims = ();
$f = 1;
for (@avs) {
chomp;
next if m/^#/;
push(@sources,$1) if m/^.*MPEG2source$"([^"]+)".*$/i;
push(@sources,$1) if m/^.*avisource\("([^"]+)".*$/i;
push(@sources,$1) if m/^.*directshowsource\("([^"]+)".*$/i;
$fieldorder = 1 if m/^AssumeTFF\($/i;
$fieldorder = 0 if m/^AssumeBFF/i;
$d = 1 if m/^global d1 = true/;
$d = 4 if m/^global d1 = false/;
$d = 4 if m/^separatefields$/i; #for sample extraction
$f = $1 if m/^changefps$f1\/([0-9])$/;
$deflicker = 1 if m/^nate_retard_bob_2/;
$vhs = 1 if m/^nate_vhs_head_change_erase/;
$onepixel = 1 if m/^nate_1_pixel_bob_fix/;
$nes = 1 if m/^nate_nes$/;
push(@trims,"$1,$2") if m/trim$([0-9]+),([0-9]+)$/;
$gba = 1 if m/^nate_gba$/;
$gb = 1 if m/^nate_gb$/;
#$resize = 1 if m/^lanczos4resize$/;
#nate format
$statidlines[0] = $1 if m/^statid1="""(.*)"""$/;
$statidlines[1] = $1 if m/^statid2="""(.*)"""$/;
$statidlines[2] = $1 if m/^statid3="""(.*)"""$/;
#anri format
(@statidlines) = ($1, $2, $3) if m/^statid=.*\(run,"([^"])","([^"])","([^"])"$/;
}
die 'sasami: no sources detected in .avs!' if @sources == 0;
return @sources if $mode eq 'sources';

open(JS, ">${basename}.js") or die "could not open ${basename}.js for writing";
print JS '//AD <- Needed to identify//'."\n\nvar app = new Avidemux();\n\n";
for (my $i = 0 ; $i < @sources ; $i++) {
print JS "app.forceUnpack();\n";
if ($i == 0) {
print JS "app.load(\"${desktop}/${projname}/${sources[$i]}\");\n";
} else {
print JS "app.append(\"${desktop}/${projname}/${sources[$i]}\");\n";
}
}

# @mencoderargslist = ();
# #build mencoder command to feed fifo
# if ($mode eq "video") {
# $mencoderargs = "\"${anri_dir}/${mencoder}\" ${really_quiet}";
# } elsif ($mode eq "audio") {
# $mencoderargs = "\"${anri_dir}/${mplayer}\" ${really_quiet}";
# }

print JS "\napp.clearSegments();\n";
my $sourcenum = 0;
my $previous_sourcelength = 0;
my $this_sourcelength;
foreach $source (@sources) {
#get vital info about source
my $mplayeridentify = <<SABRAC;
mplayer -identify -vo null -slave ${source} 2>&1 <<ENDOFSCRIPT
quit
ENDOFSCRIPT
SABRAC
for (qx($mplayeridentify)) {
chomp;
$width = $_ if s/ID_VIDEO_WIDTH=([0-9]+)/$1/;
$height = $_ if s/ID_VIDEO_HEIGHT=([0-9]+)/$1/;
$framerate = $_ if s/ID_VIDEO_FPS=([0-9.]+)/$1/;
$maxaudiobitrate = $_ if s/ID_AUDIO_BITRATE=([0-9]+)/$1/;
$this_sourcelength = &round($framerate * $_) if s/ID_LENGTH=([0-9.]+)/$1/;
}
# print "$width\n";
# print "$height\n";
# print "$framerate\n";
# print "$maxaudiobitrate\n";
$pal = ($height eq "576");
### FIXME moved from above the foreach source block because it depends on $pal being set - check only first source and then set?
$newframerate = ($pal ? (50/$f) : (59.94/$f)); #required for trimming

#trimming
# $framerate = 29.97;
# $framerate = 25 if $pal;
my $sourcelength = ($previous_sourcelength + $this_sourcelength);
for (@trims) {
if ($_) {
#print "popped: $_\n";
my $trimone = '';
my $trimtwo = '';
m/^(.*),(.*)$/;
if ($1) {
if ($1 < $sourcelength) {
$trimone = ($1 - $previous_sourcelength);
$trimtwo = ($this_sourcelength - $trimone + 1);
}
}
if ($2) {
if ($2 < $sourcelength) {
$trimone = 0 if !$trimone;
$trimtwo = ($2 - $previous_sourcelength - $trimone + 1);
}
}
if (($trimone ne '') && ($trimtwo ne '')) {
print JS "app.addSegment(${sourcenum},${trimone},${trimtwo});\n";
$_ = ",";
#keep second trim point in case we haven't reached it yet
$_ .= $2 if $2 > $sourcelength;
}
}
}
$previous_sourcelength = $sourcelength;
$sourcenum++;
}
print JS "\n";

# app.video.addFilter("crop","left=14","right=16","top=22","bottom=30");
# app.video.addFilter("mpresize","w=320","h=240","algo=2");
# app.video.addFilter("resamplefps","newfps=29970","use_linear=0");
# app.video.addFilter("YADIF","mode=3","order=1");
# app.video.addFilter("mcdeinterlace","mode=2","qp=1","initial_parity=0");
# app.video.addFilter("msharpen","mask=0","highq=1","strength=100","threshold=15");
# app.video.addFilter("addblack","left=0","right=0","top=0","bottom=2");
#one pixel bob
# if ($onepixel) {
# app.video.addFilter("crop","left=0","right=0","top=1","bottom=0");
# app.video.addFilter("addblack","left=0","right=0","top=0","bottom=1");
# $mencoderargs .= " -vf-add crop=${width}:".($height-1).":0:0,expand=${width}:${height}:0:1";
# $fieldorder = 0 if $fieldorder == 1;
# $fieldorder = 1 if $fieldorder == 0;
# }

if ($nes) {
print JS '//nes'."\n";
print JS 'app.video.addFilter("crop","left=8","right=0","top=0","bottom=0");'."\n";
print JS 'app.video.addFilter("addblack","left=8","right=0","top=0","bottom=0");'."\n";
print JS "\n";
#$mencoderargs .= " -vf-add crop=".($width-8).":${height}:8:0,expand=${width}:${height}:8:0" if $nes;
#-af channels=6:4:0:0:0:1:0:2:0:3 media.avi
#Would change the number of channels to 6 and set up 4 routes that copy channel 0 to channels 0 to 3. Channel 4 and 5 will contain silence.
}

print JS 'app.video.addFilter("mcdeinterlace","mode=2","qp=1","initial_parity='.$fieldorder.'");'."\n" if $d == 1;
#$mencoderargs .= " -vf-add yadif=3 -vf-add mcdeint=1:${fieldorder}" if $d == 1;
#$tfields = 0;
#$tfields = 4 if $deflicker;
print JS 'app.video.addFilter("YADIF","mode=3","order=1");'."\n" if $d == 4;
#$mencoderargs .= " -vf-add tfields=${tfields}" if $d == 4;

#i just eyeballed this - someone will need to sync the avisynth and mencoder sharpen filters
#print JS 'app.video.addFilter("msharpen","mask=0","highq=1","strength=100","threshold=15");'."\n" if $deflicker;
#$mencoderargs .= " -vf-add unsharp=l3x3:0.6:c3x3:0.6" if $deflicker;

if ($vhs) {
print JS '//vhs'."\n";
print JS 'app.video.addFilter("crop","left=0","right=0","top=0","bottom=12");'."\n";
print JS 'app.video.addFilter("addblack","left=0","right=0","top=0","bottom=12");'."\n";
print JS "\n";
#$mencoderargs .= " -vf-add crop=${width}:".($height-12).":0:0,expand=0:-12:0:0" if $vhs;
}

if ($gba) {
print JS 'app.video.addFilter("mpresize","w=320","h=240","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=320:240";
print JS 'app.video.addFilter("crop","left='.$gba_crop_left.'","right='.$gba_crop_right.'","top='.$gba_crop_top.'","bottom='.$gba_crop_bottom.'");'."\n";
#$mencoderargs .= " -vf-add crop=".(320-$gba_crop_right-$gba_crop_left).":".(240-$gba_crop_bottom-$gba_crop_top).":${gba_crop_left}:${gba_crop_top}";
print JS 'app.video.addFilter("mpresize","w=240","h=160","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=240:160";
$newwidth = 240;
$newheight = 160;
} elsif ($gb) {
print JS 'app.video.addFilter("mpresize","w=320","h=240","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=320:240";
print JS 'app.video.addFilter("crop","left='.$gb_crop_left.'","right='.$gb_crop_right.'","top='.$gb_crop_top.'","bottom='.$gb_crop_bottom.'");'."\n";
#$mencoderargs .= " -vf-add crop=".(320-$gb_crop_right-$gb_crop_left).":".(240-$gb_crop_bottom-$gb_crop_top).":${gb_crop_left}:${gb_crop_top}";
$newwidth = (320-$gb_crop_right-$gb_crop_left);
$newheight = (240-$gb_crop_bottom-$gb_crop_top);
}

$newwidth = (($d == 1) ? ($pal ? 704 : 640) : ($pal ? 352 : 320)) unless $newwidth;
$newheight = (($d == 1) ? ($pal ? 576 : 480) : ($pal ? 288 : 240)) unless $newheight;
#$mencoderargs .= " -vf-add framestep=${f}";
$x264newframerate = "--fps ${newframerate}";
$x264outext = '264';
$x264dimensions = "${newwidth}x${newheight}";
$ampersand = '&';
$mp4boxnewframerate = "-fps ${newframerate}";

print JS 'app.video.addFilter("mpresize","w='.$newwidth.'","h='.$newheight.'","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=${newwidth}:${newheight}";# if $resize;

if ($mode eq "video") {
print JS 'app.video.codec("YV12","CQ=1","0 ");'."\n";
print JS 'app.audio.load("NONE","");'."\n";
print JS 'app.setContainer("OGM");'."\n";
print JS 'app.save("'."${desktop}/${projname}/avidemux.pipe".'");'."\n";
} elsif ($mode eq "audio") {
print JS 'app.audio.codec("none",128,0,"");'."\n";
print JS 'app.audio.save("'."${avs}".'");'."\n";
}
print JS "\n".'setSuccess(1);'."\n".'app.Exit();'."\n";
close(JS);

# my $sourcesplit = '"'.$source.'"';
# my $littleo = "-o \"${avs}\"";
# $littleo = "-ao pcm:file=\"${avs}\":fast" if $mode eq "audio";
# if (@trimargsarr) {
# my $mencoderargstemp = '';
# while (my $trimargs = shift(@trimargsarr)) {
# $mencoderargstemp .= $mencoderargs." ${sourcesplit}".$trimargs." ${littleo}\n";
# }
# $mencoderargs = $mencoderargstemp;
# } else {
# $mencoderargs .= " ${sourcesplit} ${littleo}\n";
# }
#
# push(@mencoderargslist,$mencoderargs);

if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2])) {
require Imager;
$img = Imager->new;
$img->read(file=>"ntsc_d1.tga") or die "Cannot load statid image: ", $img->errstr;
$font = Imager::Font->new(file=>$path_to_verdana); #will need to be changed for non-mac unix ...
&statid_lines_write($statidlines[0], $img->getheight/2, 36, 'white' ) if $statidlines[0];
&statid_lines_write($statidlines[1], 360, 36, 'white' ) if $statidlines[1];
&statid_lines_write($statidlines[2], 400, 36, 'white' ) if $statidlines[2];
&statid_lines_write("Audio commentary on track 2", 460, 28, '#E1CE8B') if defined $audio_commentary;
$img->write(file=>'statid.tga')
or die 'Cannot save statid.tga: ', $img->errstr;
open(MF,">statid.txt") or die "Could not open statid.txt for appending!";
for (1..5) { #once for each second of the statid
for (1..$newframerate) { #once for each frame this second
print MF "statid.tga\n";
}
}
close(MF);
if ($mode eq "video") {
$statidmencoderargs = "\"${anri_dir}/${mencoder}\" ${really_quiet} -vf-add scale=${newwidth}:${newheight} -vf-add format=i420 -ovc raw -of rawvideo -nosound -ofps ${newframerate} mf://\@statid.txt -mf fps=${newframerate}:type=tga -o \"${avs}\"";
} elsif ($mode eq "audio") {
$statidmencoderargs = "\"${anri_dir}/${mplayer}\" ${really_quiet} -audiofile \"silence_stereo_48000.wav\" -vc null -ao pcm:file=\"${avs}\":fast mf://\@statid.txt -mf fps=${newframerate}:type=tga";
}
}
}

sub pipe_write {
print "opening ${avs} ...\n";
open(FIFO,">${avs}");
print("$statidmencoderargs\n") if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
system($statidmencoderargs) if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
if ($mode eq "video") {
print "making avidemux.pipe ...\n";
system("mkfifo", "avidemux.pipe");
print "made avidemux.pipe\n";
system("\"${anri_dir}/${mencoder}\" ${really_quiet} -vf-add format=i420 -ovc raw -of rawvideo -nosound -o \"${avs}\" avidemux.pipe &");
}
system("sh \"${avidemux}\" --run \"${basename}.js\""); #need the full path to the js for some reason
&rm("avidemux.pipe") if $mode eq "video";
print("$statidmencoderargs\n") if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
system($statidmencoderargs) if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
close(FIFO);
}

#statid line text, y-offset, text size, color
sub statid_lines_write {
$font->align(string => $_[0],
aa => 1,
size => $_[2],
color => $_[3],
x => $img->getwidth/2,
y => $_[1],
halign => 'center',
valign => 'center',
image => $img);
}

sub round {
return int($_[0] + .5 * ($_[0] <=> 0));
}

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
#VIDEO
$x264newframerate = '';
$x264outext = 'mp4';
$x264dimensions = '';
$ampersand = '';
$mp4boxnewframerate = '';
if ($os eq 'windows') {
$avs = $_[0].'.avs';
} else {
&pipe_prepare($_[0],"video");
$avs = $_[0].'.pipe';
}
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim ${x264newframerate} --output \"${_[1]}_video.${x264outext}\" \"${avs}\" ${x264dimensions} ${ampersand}");
print "x264 is going ...\n";
&pipe_write if $os ne 'windows';
print "pipe_write is going ...\n";
system("rm", $avs) if $os ne 'windows';

#AUDIO
$audioext = 'mp4';
if ($os eq 'windows') {
system("\"${vdub_dir}/${vdubcli}\" \"${avs}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.${audioext}\"");
} else {
&pipe_prepare($_[0],"audio");
system("\"${anri_dir}/${mplayer}\" -dumpstream -dumpfile \"${_[1]}_temp.wav\" \"${avs}\" &");
&pipe_write;
system("rm", $avs) if $os ne 'windows';
if ($faac) {
$audioext = 'aac';
#thanks grenola
$faacq = "-q 65 -c 8000"; #default is for mq/lq
$faacq = "-b 128" if $_[2] ge "128000";
$faacq = "-b 256" if $_[2] ge "256000";
system("\"${faac}\" --mpeg-vers 4 ${faacq} -o \"${_[1]}_audio.${audioext}\" \"${_[1]}_temp.wav\"");
} else { #afconvert's only going to work under os x
system("\"${anri_dir}/${afconvert}\" -f mp4f -d 'aac ' -b ${_[2]} -s 1 -v \"${_[1]}_temp.wav\" \"${_[1]}_audio.${audioext}\"");
}
}

#MUX
if ($os eq 'windows') {
system("\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
} else {
system("export DYLD_LIBRARY_PATH=\"${anri_dir}\";\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
}

#CLEANUP
if (${_[4]}) {
@todel = (
"${_[1]}_video.${x264outext}",
"${_[1]}_temp.wav",
"${_[1]}_audio.${audioext}",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
&x264(
@_,
'--level 4.1 --bframes 3 --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --analyse none --no-ssim',
'--level 4.1 --bframes 3 --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --ref 3 --mixed-refs --no-fast-pskip --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --me umh'
);
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
&x264(
@_,
'--vbv-bufsize 512 --vbv-maxrate 768 --level 1.3 --no-cabac --threads auto --thread-input --progress --no-psnr --analyse none --no-ssim',
'--vbv-bufsize 512 --vbv-maxrate 768 --level 1.3 --no-cabac --threads auto --thread-input --progress --no-psnr --analyse all --no-fast-pskip --subme 7 --trellis 2 --me umh'
);
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean, x264argsfirstpass, x264argssecondpass
sub x264 {
$x264args_pass2 = pop;
$x264args_pass1 = pop;

#VIDEO
$x264newframerate = '';
$x264outext = 'mp4';
$x264dimensions = '';
$ampersand = '';
$mp4boxnewframerate = '';
if ($os eq 'windows') {
$avs = $_[0].'.avs';
} else {
&pipe_prepare($_[0],"video");
$avs = $_[0].'.pipe';
}
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --qpmin ${_[4]} ${x264newframerate} ${x264args_pass1} --output ${nul} \"${avs}\" ${x264dimensions} ${ampersand}");
&pipe_write if $os ne 'windows';
#this is a hack to deal with the fact that sometimes x264 takes a while to finish encoding and write out the statsfile - thanks grenola!
while (!(-e "${_[1]}.stats")) {
print("Waiting for stats file ...\n");
sleep(1);
}
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --qpmin ${_[4]} ${x264newframerate} ${x264args_pass2} --output \"${_[1]}_video.${x264outext}\" \"${avs}\" ${x264dimensions} ${ampersand}");
&pipe_write if $os ne 'windows';
system("rm", $avs) if $os ne 'windows';

#AUDIO
$audioext = 'mp4';
if ($os eq 'windows') {
system("\"${vdub_dir}/${vdubcli}\" ${avs} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.${audioext}\"");
} else {
&pipe_prepare($_[0],"audio");
system("\"${anri_dir}/${mplayer}\" -dumpstream -dumpfile \"${_[1]}_temp.wav\" \"${avs}\" &");
&pipe_write;
system("rm", $avs) if $os ne 'windows';
if ($faac) {
$audioext = 'aac';
#thanks grenola
$faacq = "-q 65 -c 8000"; #default is for mq/lq
$faacq = "-b 128" if $_[3] ge "128000";
$faacq = "-b 256" if $_[3] ge "256000";
system("\"${faac}\" --mpeg-vers 4 ${faacq} -o \"${_[1]}_audio.${audioext}\" \"${_[1]}_temp.wav\"");
} else { #afconvert's only going to work under os x ...
system("\"${anri_dir}/${afconvert}\" -f mp4f -d 'aac ' -b ${_[3]} -s 1 -v \"${_[1]}_temp.wav\" \"${_[1]}_audio.${audioext}\"");
}
}

if ($os eq 'windows') {
system("\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
} else {
system("export DYLD_LIBRARY_PATH=\"${anri_dir}\";\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
}

#CLEANUP
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.${x264outext}",
"${_[1]}_temp.wav",
"${_[1]}_audio.${audioext}",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
$avs = $_[0].'.avs';
system("\"${anri_dir}/${xvid}\" -i \"${avs}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\" -progress");
system("\"${anri_dir}/${xvid}\" -i \"${avs}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -progress -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -ab ${_[3]} -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${avs}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source

2008-11-11T05:14:15Z

SelbyMD: regrouped some items, clarified descriptions, and cleaned up whitespace

[[Anri-chan]] is a set of Windows NT-series [http://en.wikipedia.org/wiki/Batch_file batch files] that bring together the functions of a number of movie editing and encoding applications to create movies suitable for publication on Speed Demos Archive.

===Anri-chan 4===
[[Anri-chan/Source/anri.pl|anri.pl]] - The main script; asks the relevant questions and encodes the movie.

[[Anri-chan/Source/config.ini|config.ini]] - External config file loaded on launch; user will eventually be able to use it to totally automate Anri.

[[Anri-chan/Source/lang_english.pl|lang_english.pl]] - English language localized strings. Imported from anri.pl.

[[Anri-chan/Source/lang_german.pl|lang_german.pl]] - German language localized strings. Imported from anri.pl.

[[Anri-chan/Source/lang_swedish.pl|lang_swedish.pl]] - Swedish language localized strings. Imported from anri.pl.

[[Anri-chan/Source/lang_dutch.pl|lang_dutch.pl]] - Dutch language localized strings. Imported from anri.pl.

[[Anri-chan/Source/Feature list|Feature list]] - What we're working on now and will be working on in the future.

===Anri-chan 3===
[[Anri-chan/Source/anri.bat|anri.bat]] - The main script; asks the relevant questions and encodes the movie.

[[Anri-chan/Source/statid.bat|statid.bat]] - Station ID sample script; produces an example StatID to preview.

[[Anri-chan/Source/ini.bat|ini.bat]] - Change settings.

[[Anri-chan/Source/edit_settings.bat|edit_settings.bat]] - Settings script; asks most of the questions in anri.bat so it can skip them. <font color="red">Not currently integrated into Anri-chan.</font>

===Avisynth Library===
[[Anri-chan/Source/nate.avs|nate.avs]] - The M2K2SDA Avisynth library written by nate and ballofsnow

===Misc. Files===
[[Anri-chan/Source/DGIndex.ini|DGIndex.ini]] - DGIndex settings. Take note of Output_Method, Enable_Info_Log and Use_MPA_Extensions.

[[Anri-chan/Source/infotemplate.avs|infotemplate.avs]] - Used with DGindex to gather information of video, audio and audio delay.

===PHP Files===
[[Anri-chan/Source/df.php|df.php]] - Produces the dfnd_data.bat and dfnd_titles.bat game database files on the server side.

===Compile===
[[Anri-chan/Source/anrichan.nsi|anrichan.nsi]] - Anri-chan 3 installer

[[Anri-chan/Source/builddir.bat|builddir.bat]] - Helps build directory content list.

[[Anri-chan/Source/build_deps.sh|build_deps.sh]] - Builds the OS X binaries needed for Anri 4.

===Coding standards===
[[Anri-chan/Source/Coding_Standards/Perl|Perl]]

===Deprecated===
[[Anri-chan/Source/directshowsource_list.txt|directshowsource_list.txt]] - Compare AVI fourCC with list to determine avisource or directshowsource. Integrated into anri.pl.

[[Anri-chan/Source/pgccount.cpp|pgccount.cpp]] - [[Media:pgccount_0.3.zip|exe]] - Finds all unique program chains in an IFO, to be used with Mplayer's stream dump. Integrated into anri.pl.

[[Anri-chan/Source/mp4nerf.c|mp4nerf.c]] - [[Media:mp4nerf-b0.1.zip|exe]] - [[Anri-chan/Source/mp4nerf.pl|mp4nerf.pl]] - Disables all but the first audio track in a muxed MP4 file. Now handled by MP4Box.

Anri-chan/Source/config old.ini

2008-11-11T04:55:12Z

SelbyMD: added auto mode vars

<pre><nowiki>
$language = "english";

$gba_crop_left = 43;
$gba_crop_top = 39;
$gba_crop_right = 44;
$gba_crop_bottom = 41;

$gb_crop_left = 80;
$gb_crop_top = 48;
$gb_crop_right = 80;
$gb_crop_bottom = 48;

#for mplayer/mencoder
$really_quiet = "-really-quiet";

#sample settings for auto mode, probably needs commenting
#boolean vars can be either 1/0 or $lang{y/n}
$auto=0;
if ($auto) {
@menuchoices=(2);
@dvdchoices=qw(game);
$projname='game';
$startframe=1022;
$dvdsource=1;
$dfnd=0;
$dfnd_set=1;
$d=1;
$f=1;
$twod=0;
$nes=0;
$gb=0;
$gba=0;
$prog=0;
$fieldorder=1;
$vhs=0;
$onepixel=0;
$deflicker=0;
$maxaudiobitrate=256000;
$make_nmf=1;
$trim=1;
@trimarr=(1000,1100,2000,2100,5000,5100,6000,6100);
$statid=1;
@statidlines=('name','game','type and time');
@encodethese=qw(lq mq hq iq xq lqavi mqavi);
}
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-11-11T04:42:01Z

SelbyMD: auto mode works now, which required little changes everywhere, but maybe i didn't overlook anything

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#default
$language = "english";

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...
require Win32;

#get the name of the work directory. this is the desktop by default under windows
$desktop = Win32::GetFolderPath(Win32::CSIDL_DESKTOPDIRECTORY());

#get the path to program files so we can build the anri program directory
$programfiles = Win32::GetFolderPath(Win32::CSIDL_PROGRAM_FILES());

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#goes after a drive letter
$colon = ':';

#black hole
$nul = 'NUL';

#to start programs/open urls
$start = "START";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else { #we're on unix
#desktop location and other os-dependent stuff
if ("$^O" eq "darwin") {
$desktop = glob("~/Desktop");
$path_to_verdana = "/Library/Fonts/Verdana.ttf";
} else {
### FIXME NON-MAC UNIX DESKTOP LOCATION, PATH TO VERDANA
}

#anri program directory ### FIXME ###
$anri_dir = `pwd`;
chomp($anri_dir);

#our encoders - invocation names only - path will be prepended later ...
$x264 = 'x264';
$afconvert = 'afconvert';
#for mp4box
# print "export DYLD_LIBRARY_PATH=${anri_dir}\n";
$mp4box = 'mp4box';
$ffmpeg = 'ffmpeg';

#some anri support files
$avidemux = $anri_dir.'/avidemux2_qt4.app/Contents/Resources/script';
$mplayer = "mplayer";
$mencoder = "mencoder";
$really_quiet = "-really-quiet"; #for mencoder
$wget = "wget";

#dunno about this
$dvdripto_parentdir = "${anri_dir}/dvdripto"; ### FIXME

#not needed under unix
$colon = '';

#black hole
$nul = '/dev/null';

#to start programs/open urls
$start = "open";

#color initialization
require Term::ANSIColor;
import Term::ANSIColor qw(color);
$cecho = "echo";

#fewer colors to choose from than under windows if we want to maintain portability ...
$black_on_gray = color("black on_white");
$gray_on_black = color("white on_black");
$white_on_black = color("white on_black");
$aqua_on_black = color("green on_black");
$blue_on_black = color("blue on_black");
$teal_on_gray = color("green on_white");
$navy_on_gray = color("blue on_white");
$maroon_on_gray = color("magenta on_white");
$maroon_on_silver = color("magenta on_white");
$white_on_gray = color("white on_black");
$red_on_gray = color("red on_white");

$reset_color = "\"${cecho}\" ".color("reset");

#os-specific commands
$clear = "clear";
}

#import mp4nerf
push @INC, $anri_dir;
require 'mp4nerf.pl';

#load config file
require 'config.ini' if -e 'config.ini';

#localization
require 'lang_english.pl';
#after having loaded english, load preferred language by using $language variable from config file, would be cool if we could set this in the installer
require "lang_${language}.pl" if $language ne "english";

#FIXME LOGFILE STUFF

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

&out_cls;
@mainmenu = (
[$lang{MAINMENU_RIPDVD}, '&rip_dvd'],
[$lang{MAINMENU_STARTNEWPROJECT}, '&project'],
[$lang{MAINMENU_EXTRACTSAMPLE}, '&proc_sample'],
[$lang{MAINMENU_STATIDPREVIEW}, '&statid_sample'],
[$lang{MAINMENU_EXIT}, 'exit 0'],
);
while (1) {
if (@menuchoices) {
eval($mainmenu[shift(@menuchoices)-1][1]);
} else {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{MAINMENU});
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "$lang{INVALID_INPUT}\n\n";
&out_menu(@mainmenu);
}
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins if $os eq 'windows';
&out_cls_section($lang{SECTION_SAMPLE_EXTRACTION});
q_boo($lang{QUESTION_DVDMPEG_SOURCE}, $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
if (! defined $startframe) {
&out_info($lang{INFO_SAMPLE_LENGTH});
&echo("");
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
if ($os eq 'windows') {
system("${start} \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
@sources = &pipe_prepare($projname, "sources");
$avidemuxarg = " --load";
for (@sources) {
$avidemuxargs .= "${avidemuxarg} \"${desktop}/anri_sample/${_}\"";
$avidemuxarg = " --append";
}
#system("sh \"${avidemux}\" ${avidemuxargs} &");
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if ($os ne 'windows') {
### remove .idx files
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF()\nSeparateFields()\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir($desktop);
#&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}$lang{SAMPLE_EXTRACTION_DONE}");
&echo("\n$lang{SAMPLE_EXTRACTION_README}");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Statid Sample
#
# Statid preview mode shows users how their statid will look without having
# to encode anything. A slimmed down version of the code from the main
# procedure and script_buildfiles is used. The same temporary project
# name and directory from sample extraction mode are used and deleted.
# The user is sent back to the main menu but currently will need
# to enter the statid information again during the main script.
############################################################################

sub statid_sample {
chdir($desktop);
$projname = 'anri_sample';
&make_projdir;
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_ABOUT_EACH_LINE});
if (!@statidlines) {
foreach $i (1 .. 3) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
}
&echotofile("global pal = false\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
$projtemp = "run = blankclip(width=640, height=480)";
$projtemp .= "statid=nate_statid_d1(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid\n";
&echotofile($projtemp,">>","${projname}.avs");
system("\"${vdub_dir}/${vdubgui}\" \"${projname}.avs\"");
chdir($desktop);
&rm("${desktop}/${projname}");
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{SECTION_PROJECT_SETUP});
if (! defined $projname) {
&out_info($lang{ENTER_PROJECT_NAME});
&echo("");
&echo("$lang{PROJECT_FILES_APPEAR_IN} ${navy_on_gray}${desktop}\\($lang{PROJECT_NAME})\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "$lang{PROJECT_NAME_ILLEGAL_CHARACTERS}\n\n";
print $prompt;
}
}
&make_projdir;
&load_plugins if $os eq 'windows';
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section($lang{MOVIE_SOURCE});
&out_info($lang{MOVIE_SOURCE_MPEG2_HINT});
&echo("");
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if (q_boo($lang{MPEG2_SOURCE_QUESTION}, $dvdsource)) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section($lang{SECTION_GAME_PROPERTIES});
if ((!$dvdsource) and (!$auto)) {
q_boo($lang{PC_GAME_QUESTION}, $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
} else {
&q_dfnd if !$dfnd_set;
if (!$dfnd_set) {
&echo("");
&out_info($lang{DF_EXPLAIN});
&echo("");
&out_info($lang{DF_FIND_AT_THIS_URL});
&out_info($lang{DFND_URL});
&echo("");
&out_info($lang{DF_IF_NOT_FOUND_THEN_WHAT});
&echo("");
if (! defined $d) {
&echo($lang{QUESTION_D});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if (! defined $f) {
&echo($lang{QUESTION_F});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
q_boo($lang{QUESTION_ND}, $twod) if ($f == 1);
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info($lang{QUESTION_SUBMIT_DFND_WHY});
&echo("");
system($start, 'http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0') if q_boo($lang{QUESTION_SUBMIT_DFND});
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section($lang{SECTION_VIDEO_PROPERTIES});
q_boo($lang{QUESTION_PROGRESSIVE_INTERLACED}, $prog);
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
if (! defined $fieldorder) {
&out_info($lang{FIELDORDER_VDUB_WINDOW_OPENS});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("${start} \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&out_info($lang{VDUB_WINDOW_CAN_CLOSE_NOW});
&rm("${projname}_fieldordertemp.avs");
}
&echo("");

#q_vhs
q_boo($lang{QUESTION_VHS}, $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_1PIXEL_BOB}, $onepixel) if ($f != 2);

q_boo($lang{QUESTION_NES}, $nes);
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_GBA}, $gba);
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_GB}, $gb);
$deflicker=1 if $gb;

q_boo($lang{QUESTION_DEFLICKERED}, $deflicker) if ($f != 2);
}

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. If the frame range is like 50 to 30 an error is shown, same if a '-'
# is inputted.
# Users can enter dummy values and edit project_job.bat later on and it will
# still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section($lang{SECTION_CONTENT_PROPERTIES});
if (! defined $trim) {
&out_info($lang{INFO_TRIM});
if (q_boo($lang{QUESTION_TRIM}, $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. Implemented basic checking if the frame range is valid.
############################################################################
&echo("");
&out_info($lang{TRIM_VDUB_WINDOW_OPENS});
&echo("");
&out_info($lang{TRIM_MULTIPLE_RANGES});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("${start} \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{TRIM_ILLEGAL_VALUE};
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info($lang{TRIM_NO_VALUES_ENTERED});
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error($lang{TRIM_ODD_NUMBER_OF_FRAMES});
@trimarr = ();
} else {
&out_info($lang{TRIM_DONE});
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg=$lang{TRIM_INVALID_INPUT_MUST_BE_FRAME_NUMBER};
} elsif ((@trimarr % 2) && ($trimarr[@trimarr-1] > $_)) {
$errormsg=$lang{TRIM_INVALID_RANGE};
} else {
push(@trimarr,$_);
&out_info($lang{TRIM_POINT_LOADED_SUCCESSFULLY}.' #'.@trimarr);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}
}

if (! defined $statid) {
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_INFO});
if (q_boo($lang{QUESTION_STATID}, $statid)) {
@statidlines = ();
&out_info($lang{STATID_ABOUT_EACH_LINE});
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
} else {
@statidlines = ('','','');
}
}

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
#$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section($lang{SECTION_READY_TO_ENCODE});
&out_info("$lang{SETTINGS_SAVED_TO_FILE} \"${projname}_job.bat\".");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if ($auto or q_boo($lang{QUESTION_ENCODE_NOW_OR})) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ/XQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section($lang{SECTION_ENCODING_OPTIONS});
%qualities = (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
lq => [ 1, \&twopass, "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
mq => [ 1, \&ipod, "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
hq => [ 1, \&twopass, "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
iq => [ (($d==1) && ($f==1)), \&twopass, "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
xq => [ (($d==1) && ($f==1)), \&twopass, "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
lqavi => [ 1, \&xvid, "Low quality XviD AVI", "_LQ", 128, 64000, "", 1,1],
mqavi => [ 1, \&xvid, "Medium quality XviD AVI", "", 512, 64000, "", 1,1],
);

if (!@encodethese) {
#&savesettings;
for (qw(lq mq hq iq xq lqavi mqavi)) {
my @t = @{ $qualities{$_} };
#if this quality is not disabled for these content properties - then ask the user if they want to make it
push(@encodethese, $_) if $t[0] and q_boo("$lang{QUESTION_CREATE_VIDEO} $t[2] (".($t[4]+($t[5]/1000))." kbit/sec)");
}
}

for (@encodethese) {
my $idtag = $qualities{$_}[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info($lang{NOW_ENCODING});
for (@encodethese) {
my @t = @{ $qualities{$_} };
print "now encoding $t[2] ($projname.$t[3].$nmf, $projname.$t[3], @t[4..8])\n";
$t[1]->($projname.$t[3].$nmf, $projname.$t[3], @t[4..8]);
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
if ($os eq 'windows') {
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
} else { #unix
&cp("${anri_dir}/ntsc_d1.tga","${desktop}/${projname}");
}
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs") if $os eq 'windows';
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

# simple multi-threaded map, currently used for nmf
# one thread is created per argument (excluding the first)
sub tmap (&@) {
require threads;
my $f = shift;
map { $_->join() } map { threads->create($f, $_) } @_;
}

sub nmf {
&out_cls_section($lang{SECTION_NMF});
&out_info($lang{NMF_INFO});
&echo("");
&out_info($lang{INFO_HQ_IQ_XQ_NMF});
&echo("");
if (q_boo($lang{QUESTION_CREATE_NMF},$make_nmf)) {
$nmf = '_nmf';
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$number_of_processors=$ENV{NUMBER_OF_PROCESSORS};
#Set lagarith to yv12 under doze
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs") if -e "${projname}_HQ_nmf.avs";
#:nmf_vdubloop
#counterB
@nmfcommands = ();
$alignedsplice = "";
foreach $i (1 .. $number_of_processors) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&echotofile("avisource(\"${projname}_HQIQXQ_${i}.avi\")\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_${i}.avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*".($i-1).".000), floor(last.framecount/${number_of_processors}.000*${i}.000)-1)\n",">>","${projname}_HQIQXQ_${i}.avs");
push @nmfcommands, qq("${vdub_dir}/${vdubcli}" "${projname}_HQIQXQ_${i}.avs" /i "${anri_dir}/nmf.vcf" "${projname}_HQIQXQ_${i}.avi");
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
#for now lq and nq ignore the nmf
&cp("${projname}_LQ.avs","${projname}_LQ_nmf.avs");
&cp("${projname}_LQ_xvid.avs","${projname}_LQ_xvid_nmf.avs");
&cp("${projname}.avs","${projname}_nmf.avs");
&cp("${projname}_xvid.avs","${projname}_xvid_nmf.avs");
&echo($lang{ENCODING_NMF});
tmap { system($_) } @nmfcommands;
&echo("");
&out_info($lang{NMF_SUCCESSFULLY_CREATED});
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("\\++\\\n",">>","${projname}.avs") if $i > 0;
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width % 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";
if ($statid) {
$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid++run++statid\n";
} else {
$projtemp .= "run\n";
}
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs");
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs") if -e "${projname}_trimtemp.avs";
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [$lang{y}/$lang{n}]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
require Win32::TieRegistry;
import Win32::TieRegistry (Delimiter=>"/", ArrayValues=>0) unless defined $Registry;
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$secondarg = '.';
$secondarg = $_[1] if $_[1];

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${secondarg}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

sub trim($) { #from http://www.somacon.com/p114.php
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
if (defined $_[1]) {
if ($_[1] == 1 or $_[1] eq $lang{"y"}) { #for some reason {y} causes textwrangler's syntax highlighting to break
$_[1] = 1;
return 1;
} elsif ($_[1] == 0 or $_[1] eq $lang{n}) {
$_[1] = 0;
return 0;
}
}
&out_info($_[0]." [$lang{y}/$lang{n}]");
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput eq $lang{"y"}) {
$_[1] = 1;
return 1;
} elsif ($userinput eq $lang{n}) {
$_[1] = 0;
return 0;
} else {
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section($lang{SECTION_AVI_SOURCE});
&out_info($lang{AVI_SOURCE_INFO});
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info($lang{AVI_PATH_TO});
&out_info($lang{TYPE_N_TO_QUIT});
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{AVI_BAD_INPUT};
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg=$lang{AVI_NONE_ENTERED};
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg=$lang{AVI_NOT_AVI};
} elsif (! -e $_) {
$errormsg=$lang{FILE_NOT_FOUND};
} else {
push(@avifiles,$_);
&out_info($lang{AVI_LOADED_SUCCESSFULLY}.' #'.@avifiles);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = $lang{AVI_DIR_LOAD_INFO};
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_ENTER_PATH};
} elsif (m/^.[^:][^\\].*/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_BE_FULL_PATH};
} elsif (! -e $_) {
$errormsg=$lang{AVI_DIR_LOAD_DIR_DOES_NOT_EXIST};
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = $lang{AVI_DIR_LOAD_NO_AVIS_FOUND_IN_DIR};
} else {
#Ask user if the list is good.
if (q_boo($lang{QUESTION_AVI_DIR_LOAD_CONTINUE_OR_RESCAN})) {
last;
} else {
$errormsg = $enterhelp;
}
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info($lang{DFND_INFO});
q_boo($lang{QUESTION_USE_DFND_DATABASE}, $dfnd);
if ($dfnd) {
#:dfnd
&out_info($lang{INFO_CONNECTING_TO_DFND_DATABASE});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "'.$lang{DFND_URL}.'"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~s/\&amp\;/\&/g;
#right now only the accent in Pokemon and \& need to be changed, but it'd be better for it to work with all utf chars
$title=~s/(\xc3\xa9)/chr(130)/eg;
$titles .= "".($i+1).": ${title}\n";
#printing at most 50 lines at a time
if(($i+1) % 50 == 0) {
print $titles;
$titles = '';
&out_info($lang{PRESS_ENTER_PAGE});
<STDIN>;
}
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg=$lang{DFND_MUST_CHOOSE_GAME};
} elsif (m/[^0-9]/) {
$errormsg=$lang{DFND_MUST_ENTER_GAME_NUMBER};
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg=$lang{INVALID_SELECTION};
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error($lang{DFND_COULD_NOT_CONNECT_TO_SDA});
&q_dfnd if q_boo($lang{QUESTION_DFND_COULD_NOT_CONNECT_TO_SDA_TRY_AGAIN});
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section($lang{SECTION_RIP_DVD});
if (!$auto) {
if ($os eq 'windows') {
&out_info($lang{QUESTION_DVD_DRIVE_LETTER});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_LETTER};
}
&out_error($errormsg);
print $prompt;
}
} else { #unix
&out_info($lang{QUESTION_DVD_DRIVE_PATH});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP_UNIX});
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_PATH};
}
&out_error($errormsg);
print $prompt;
}
}
}
#this is mainly because when you drag things onto a terminal window in os x it cats a space on the end of the path
$driveletter = &trim($driveletter);
&echo("");
&out_info("$lang{DVD_INFO_ANRI_WILL_EXTRACT_TO_DIR} $lang{QUESTION_DVD_RIPTO_DIR_NAME}");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto_parentdir) if !-e $dvdripto_parentdir; #paranoia
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_RIPTO_DIR_NAME};
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info($lang{DVD_INFO_ANRI_WILL_RIP_NOW});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
&echo("");
<STDIN>;

if (-e "${driveletter}${colon}/VIDEO_TS") {
$dvdsource = "${driveletter}${colon}/VIDEO_TS";
if (<${dvdsource}/VTS*.IFO>) {
&pgccount(<${dvdsource}/VTS*.IFO>);

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info $lang{DVD_ADVANCED_MODE}
# SET s=
# SET /P s=$lang{DVD_TITLE_NUMBERS}
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 2.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo($lang{DVD_VIDEOTS_NOT_FOUND});
#GOTO DIE
}
}
&out_info("$lang{DVD_FINISHED_RIPPING} $lang{PRESS_ENTER_TO_CONTINUE}");
<STDIN>;
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
@pgclist = ();
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
return 1;
}

sub index_dvd {
#we don't actually index anything under unix but we still need to pick from the ripped dvd sources, write the start of the main project .avs and set some variables
$maxaudiobr ||= 320000;

&out_cls_info($lang{DVD_INDEX_INFO_FILELIST});
&echo("");
&echo($lang{DVD_INDEX_WARNING});
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
@dvdfilemasksorig = @dvdfilemasks;
foreach $mask (@dvdfilemasksorig) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error($lang{DVD_INDEX_NO_FOLDERS_WITH_DVD_FILES_FOUND});
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

if (@dvdchoices) {
map { $_ = "${dvdripto_parentdir}/$_" } @dvdchoices;
} else {
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,$lang{INVALID_INPUT});
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"$lang{INVALID_SELECTION}: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}
}
&echo("");

&out_info($lang{DVD_INDEX_NOW_INDEXING});
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs") if $os eq 'windows';
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs") if $os eq 'windows';
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs") if $os eq 'windows';
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ m/^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
if ($os eq 'windows') {
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
#print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
#print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
#print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
#print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
### FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
} else { #unix
&cp($mpegfile,"${desktop}/${projname}");
&echotofile("MPEG2source(\"${1}.${2}\",upconv=1)\n",">>","${projname}.avs");
### FIXME get $maxaudiobr?
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

sub pipe_prepare($$) {
$basename = shift;
$mode = shift;

$avs = "${basename}.pipe";
system("rm", $avs) if -e $avs;
system("mkfifo", $avs);

open(AVS, "${basename}.avs"); #must be unix text when running sasami under unix ...
@avs = <AVS>;
close(AVS);
@sources = ();
@trims = ();
$f = 1;
for (@avs) {
chomp;
next if m/^#/;
push(@sources,$1) if m/^.*MPEG2source$"([^"]+)".*$/i;
push(@sources,$1) if m/^.*avisource\("([^"]+)".*$/i;
push(@sources,$1) if m/^.*directshowsource\("([^"]+)".*$/i;
$fieldorder = 1 if m/^AssumeTFF\($/i;
$fieldorder = 0 if m/^AssumeBFF/i;
$d = 1 if m/^global d1 = true/;
$d = 4 if m/^global d1 = false/;
$d = 4 if m/^separatefields$/i; #for sample extraction
$f = $1 if m/^changefps$f1\/([0-9])$/;
$deflicker = 1 if m/^nate_retard_bob_2/;
$vhs = 1 if m/^nate_vhs_head_change_erase/;
$onepixel = 1 if m/^nate_1_pixel_bob_fix/;
$nes = 1 if m/^nate_nes$/;
push(@trims,"$1,$2") if m/trim$([0-9]+),([0-9]+)$/;
$gba = 1 if m/^nate_gba$/;
$gb = 1 if m/^nate_gb$/;
#$resize = 1 if m/^lanczos4resize$/;
#nate format
$statidlines[0] = $1 if m/^statid1="""(.*)"""$/;
$statidlines[1] = $1 if m/^statid2="""(.*)"""$/;
$statidlines[2] = $1 if m/^statid3="""(.*)"""$/;
#anri format
(@statidlines) = ($1, $2, $3) if m/^statid=.*\(run,"([^"])","([^"])","([^"])"$/;
}
die 'sasami: no sources detected in .avs!' if @sources == 0;
return @sources if $mode eq 'sources';

open(JS, ">${basename}.js") or die "could not open ${basename}.js for writing";
print JS '//AD <- Needed to identify//'."\n\nvar app = new Avidemux();\n\n";
for (my $i = 0 ; $i < @sources ; $i++) {
print JS "app.forceUnpack();\n";
if ($i == 0) {
print JS "app.load(\"${desktop}/${projname}/${sources[$i]}\");\n";
} else {
print JS "app.append(\"${desktop}/${projname}/${sources[$i]}\");\n";
}
}

# @mencoderargslist = ();
# #build mencoder command to feed fifo
# if ($mode eq "video") {
# $mencoderargs = "\"${anri_dir}/${mencoder}\" ${really_quiet}";
# } elsif ($mode eq "audio") {
# $mencoderargs = "\"${anri_dir}/${mplayer}\" ${really_quiet}";
# }

print JS "\napp.clearSegments();\n";
my $sourcenum = 0;
my $previous_sourcelength = 0;
my $this_sourcelength;
foreach $source (@sources) {
#get vital info about source
my $mplayeridentify = <<SABRAC;
mplayer -identify -vo null -slave ${source} 2>&1 <<ENDOFSCRIPT
quit
ENDOFSCRIPT
SABRAC
for (qx($mplayeridentify)) {
chomp;
$width = $_ if s/ID_VIDEO_WIDTH=([0-9]+)/$1/;
$height = $_ if s/ID_VIDEO_HEIGHT=([0-9]+)/$1/;
$framerate = $_ if s/ID_VIDEO_FPS=([0-9.]+)/$1/;
$maxaudiobitrate = $_ if s/ID_AUDIO_BITRATE=([0-9]+)/$1/;
$this_sourcelength = &round($framerate * $_) if s/ID_LENGTH=([0-9.]+)/$1/;
}
# print "$width\n";
# print "$height\n";
# print "$framerate\n";
# print "$maxaudiobitrate\n";
$pal = ($height eq "576");
### FIXME moved from above the foreach source block because it depends on $pal being set - check only first source and then set?
$newframerate = ($pal ? (50/$f) : (59.94/$f)); #required for trimming

#trimming
# $framerate = 29.97;
# $framerate = 25 if $pal;
my $sourcelength = ($previous_sourcelength + $this_sourcelength);
for (@trims) {
if ($_) {
#print "popped: $_\n";
my $trimone = '';
my $trimtwo = '';
m/^(.*),(.*)$/;
if ($1) {
if ($1 < $sourcelength) {
$trimone = ($1 - $previous_sourcelength);
$trimtwo = ($this_sourcelength - $trimone + 1);
}
}
if ($2) {
if ($2 < $sourcelength) {
$trimone = 0 if !$trimone;
$trimtwo = ($2 - $previous_sourcelength - $trimone + 1);
}
}
if (($trimone ne '') && ($trimtwo ne '')) {
print JS "app.addSegment(${sourcenum},${trimone},${trimtwo});\n";
$_ = ",";
#keep second trim point in case we haven't reached it yet
$_ .= $2 if $2 > $sourcelength;
}
}
}
$previous_sourcelength = $sourcelength;
$sourcenum++;
}
print JS "\n";

# app.video.addFilter("crop","left=14","right=16","top=22","bottom=30");
# app.video.addFilter("mpresize","w=320","h=240","algo=2");
# app.video.addFilter("resamplefps","newfps=29970","use_linear=0");
# app.video.addFilter("YADIF","mode=3","order=1");
# app.video.addFilter("mcdeinterlace","mode=2","qp=1","initial_parity=0");
# app.video.addFilter("msharpen","mask=0","highq=1","strength=100","threshold=15");
# app.video.addFilter("addblack","left=0","right=0","top=0","bottom=2");
#one pixel bob
# if ($onepixel) {
# app.video.addFilter("crop","left=0","right=0","top=1","bottom=0");
# app.video.addFilter("addblack","left=0","right=0","top=0","bottom=1");
# $mencoderargs .= " -vf-add crop=${width}:".($height-1).":0:0,expand=${width}:${height}:0:1";
# $fieldorder = 0 if $fieldorder == 1;
# $fieldorder = 1 if $fieldorder == 0;
# }

if ($nes) {
print JS '//nes'."\n";
print JS 'app.video.addFilter("crop","left=8","right=0","top=0","bottom=0");'."\n";
print JS 'app.video.addFilter("addblack","left=8","right=0","top=0","bottom=0");'."\n";
print JS "\n";
#$mencoderargs .= " -vf-add crop=".($width-8).":${height}:8:0,expand=${width}:${height}:8:0" if $nes;
#-af channels=6:4:0:0:0:1:0:2:0:3 media.avi
#Would change the number of channels to 6 and set up 4 routes that copy channel 0 to channels 0 to 3. Channel 4 and 5 will contain silence.
}

print JS 'app.video.addFilter("mcdeinterlace","mode=2","qp=1","initial_parity='.$fieldorder.'");'."\n" if $d == 1;
#$mencoderargs .= " -vf-add yadif=3 -vf-add mcdeint=1:${fieldorder}" if $d == 1;
#$tfields = 0;
#$tfields = 4 if $deflicker;
print JS 'app.video.addFilter("YADIF","mode=3","order=1");'."\n" if $d == 4;
#$mencoderargs .= " -vf-add tfields=${tfields}" if $d == 4;

#i just eyeballed this - someone will need to sync the avisynth and mencoder sharpen filters
#print JS 'app.video.addFilter("msharpen","mask=0","highq=1","strength=100","threshold=15");'."\n" if $deflicker;
#$mencoderargs .= " -vf-add unsharp=l3x3:0.6:c3x3:0.6" if $deflicker;

if ($vhs) {
print JS '//vhs'."\n";
print JS 'app.video.addFilter("crop","left=0","right=0","top=0","bottom=12");'."\n";
print JS 'app.video.addFilter("addblack","left=0","right=0","top=0","bottom=12");'."\n";
print JS "\n";
#$mencoderargs .= " -vf-add crop=${width}:".($height-12).":0:0,expand=0:-12:0:0" if $vhs;
}

if ($gba) {
print JS 'app.video.addFilter("mpresize","w=320","h=240","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=320:240";
print JS 'app.video.addFilter("crop","left='.$gba_crop_left.'","right='.$gba_crop_right.'","top='.$gba_crop_top.'","bottom='.$gba_crop_bottom.'");'."\n";
#$mencoderargs .= " -vf-add crop=".(320-$gba_crop_right-$gba_crop_left).":".(240-$gba_crop_bottom-$gba_crop_top).":${gba_crop_left}:${gba_crop_top}";
print JS 'app.video.addFilter("mpresize","w=240","h=160","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=240:160";
$newwidth = 240;
$newheight = 160;
} elsif ($gb) {
print JS 'app.video.addFilter("mpresize","w=320","h=240","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=320:240";
print JS 'app.video.addFilter("crop","left='.$gb_crop_left.'","right='.$gb_crop_right.'","top='.$gb_crop_top.'","bottom='.$gb_crop_bottom.'");'."\n";
#$mencoderargs .= " -vf-add crop=".(320-$gb_crop_right-$gb_crop_left).":".(240-$gb_crop_bottom-$gb_crop_top).":${gb_crop_left}:${gb_crop_top}";
$newwidth = (320-$gb_crop_right-$gb_crop_left);
$newheight = (240-$gb_crop_bottom-$gb_crop_top);
}

$newwidth = (($d == 1) ? ($pal ? 704 : 640) : ($pal ? 352 : 320)) unless $newwidth;
$newheight = (($d == 1) ? ($pal ? 576 : 480) : ($pal ? 288 : 240)) unless $newheight;
#$mencoderargs .= " -vf-add framestep=${f}";
$x264newframerate = "--fps ${newframerate}";
$x264outext = '264';
$x264dimensions = "${newwidth}x${newheight}";
$ampersand = '&';
$mp4boxnewframerate = "-fps ${newframerate}";

print JS 'app.video.addFilter("mpresize","w='.$newwidth.'","h='.$newheight.'","algo=2");'."\n";
#$mencoderargs .= " -vf-add scale=${newwidth}:${newheight}";# if $resize;

if ($mode eq "video") {
print JS 'app.video.codec("YV12","CQ=1","0 ");'."\n";
print JS 'app.audio.load("NONE","");'."\n";
print JS 'app.setContainer("OGM");'."\n";
print JS 'app.save("'."${desktop}/${projname}/avidemux.pipe".'");'."\n";
} elsif ($mode eq "audio") {
print JS 'app.audio.codec("none",128,0,"");'."\n";
print JS 'app.audio.save("'."${avs}".'");'."\n";
}
print JS "\n".'setSuccess(1);'."\n".'app.Exit();'."\n";
close(JS);

# my $sourcesplit = '"'.$source.'"';
# my $littleo = "-o \"${avs}\"";
# $littleo = "-ao pcm:file=\"${avs}\":fast" if $mode eq "audio";
# if (@trimargsarr) {
# my $mencoderargstemp = '';
# while (my $trimargs = shift(@trimargsarr)) {
# $mencoderargstemp .= $mencoderargs." ${sourcesplit}".$trimargs." ${littleo}\n";
# }
# $mencoderargs = $mencoderargstemp;
# } else {
# $mencoderargs .= " ${sourcesplit} ${littleo}\n";
# }
#
# push(@mencoderargslist,$mencoderargs);

if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2])) {
require Imager;
$img = Imager->new;
$img->read(file=>"ntsc_d1.tga") or die "Cannot load statid image: ", $img->errstr;
$font = Imager::Font->new(file=>$path_to_verdana); #will need to be changed for non-mac unix ...
&statid_lines_write($statidlines[0], $img->getheight/2, 36, 'white' ) if $statidlines[0];
&statid_lines_write($statidlines[1], 360, 36, 'white' ) if $statidlines[1];
&statid_lines_write($statidlines[2], 400, 36, 'white' ) if $statidlines[2];
&statid_lines_write("Audio commentary on track 2", 460, 28, '#E1CE8B') if defined $audio_commentary;
$img->write(file=>'statid.tga')
or die 'Cannot save statid.tga: ', $img->errstr;
open(MF,">statid.txt") or die "Could not open statid.txt for appending!";
for (1..5) { #once for each second of the statid
for (1..$newframerate) { #once for each frame this second
print MF "statid.tga\n";
}
}
close(MF);
if ($mode eq "video") {
$statidmencoderargs = "\"${anri_dir}/${mencoder}\" ${really_quiet} -vf-add scale=${newwidth}:${newheight} -vf-add format=i420 -ovc raw -of rawvideo -nosound -ofps ${newframerate} mf://\@statid.txt -mf fps=${newframerate}:type=tga -o \"${avs}\"";
} elsif ($mode eq "audio") {
$statidmencoderargs = "\"${anri_dir}/${mplayer}\" ${really_quiet} -audiofile \"silence_stereo_48000.wav\" -vc null -ao pcm:file=\"${avs}\":fast mf://\@statid.txt -mf fps=${newframerate}:type=tga";
}
}
}

sub pipe_write {
print "opening ${avs} ...\n";
open(FIFO,">${avs}");
print("$statidmencoderargs\n") if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
system($statidmencoderargs) if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
if ($mode eq "video") {
print "making avidemux.pipe ...\n";
system("mkfifo", "avidemux.pipe");
print "made avidemux.pipe\n";
system("\"${anri_dir}/${mencoder}\" ${really_quiet} -vf-add format=i420 -ovc raw -of rawvideo -nosound -o \"${avs}\" avidemux.pipe &");
}
system("sh \"${avidemux}\" --run \"${basename}.js\""); #need the full path to the js for some reason
&rm("avidemux.pipe") if $mode eq "video";
print("$statidmencoderargs\n") if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
system($statidmencoderargs) if (($statidlines[0]) || ($statidlines[1]) || ($statidlines[2]));
close(FIFO);
}

#statid line text, y-offset, text size, color
sub statid_lines_write {
$font->align(string => $_[0],
aa => 1,
size => $_[2],
color => $_[3],
x => $img->getwidth/2,
y => $_[1],
halign => 'center',
valign => 'center',
image => $img);
}

sub round {
return int($_[0] + .5 * ($_[0] <=> 0));
}

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
#VIDEO
$x264newframerate = '';
$x264outext = 'mp4';
$x264dimensions = '';
$ampersand = '';
$mp4boxnewframerate = '';
if ($os eq 'windows') {
$avs = $_[0].'.avs';
} else {
&pipe_prepare($_[0],"video");
$avs = $_[0].'.pipe';
}
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim ${x264newframerate} --output \"${_[1]}_video.${x264outext}\" \"${avs}\" ${x264dimensions} ${ampersand}");
print "x264 is going ...\n";
&pipe_write if $os ne 'windows';
print "pipe_write is going ...\n";
system("rm", $avs) if $os ne 'windows';

#AUDIO
$audioext = 'mp4';
if ($os eq 'windows') {
system("\"${vdub_dir}/${vdubcli}\" \"${avs}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.${audioext}\"");
} else {
&pipe_prepare($_[0],"audio");
system("\"${anri_dir}/${mplayer}\" -dumpstream -dumpfile \"${_[1]}_temp.wav\" \"${avs}\" &");
&pipe_write;
system("rm", $avs) if $os ne 'windows';
if ($faac) {
$audioext = 'aac';
#thanks grenola
$faacq = "-q 65 -c 8000"; #default is for mq/lq
$faacq = "-b 128" if $_[2] ge "128000";
$faacq = "-b 256" if $_[2] ge "256000";
system("\"${faac}\" --mpeg-vers 4 ${faacq} -o \"${_[1]}_audio.${audioext}\" \"${_[1]}_temp.wav\"");
} else { #afconvert's only going to work under os x
system("\"${anri_dir}/${afconvert}\" -f mp4f -d 'aac ' -b ${_[2]} -s 1 -v \"${_[1]}_temp.wav\" \"${_[1]}_audio.${audioext}\"");
}
}

#MUX
if ($os eq 'windows') {
system("\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
} else {
system("export DYLD_LIBRARY_PATH=\"${anri_dir}\";\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
}

#CLEANUP
if (${_[4]}) {
@todel = (
"${_[1]}_video.${x264outext}",
"${_[1]}_temp.wav",
"${_[1]}_audio.${audioext}",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
&x264(
@_,
'--level 4.1 --bframes 3 --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --analyse none --no-ssim',
'--level 4.1 --bframes 3 --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --ref 3 --mixed-refs --no-fast-pskip --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --me umh'
);
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
&x264(
@_,
'--vbv-bufsize 512 --vbv-maxrate 768 --level 1.3 --no-cabac --threads auto --thread-input --progress --no-psnr --analyse none --no-ssim',
'--vbv-bufsize 512 --vbv-maxrate 768 --level 1.3 --no-cabac --threads auto --thread-input --progress --no-psnr --analyse all --no-fast-pskip --subme 7 --trellis 2 --me umh'
);
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean, x264argsfirstpass, x264argssecondpass
sub x264 {
$x264args_pass2 = pop;
$x264args_pass1 = pop;

#VIDEO
$x264newframerate = '';
$x264outext = 'mp4';
$x264dimensions = '';
$ampersand = '';
$mp4boxnewframerate = '';
if ($os eq 'windows') {
$avs = $_[0].'.avs';
} else {
&pipe_prepare($_[0],"video");
$avs = $_[0].'.pipe';
}
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --qpmin ${_[4]} ${x264newframerate} ${x264args_pass1} --output ${nul} \"${avs}\" ${x264dimensions} ${ampersand}");
&pipe_write if $os ne 'windows';
#this is a hack to deal with the fact that sometimes x264 takes a while to finish encoding and write out the statsfile - thanks grenola!
while (!(-e "${_[1]}.stats")) {
print("Waiting for stats file ...\n");
sleep(1);
}
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --qpmin ${_[4]} ${x264newframerate} ${x264args_pass2} --output \"${_[1]}_video.${x264outext}\" \"${avs}\" ${x264dimensions} ${ampersand}");
&pipe_write if $os ne 'windows';
system("rm", $avs) if $os ne 'windows';

#AUDIO
$audioext = 'mp4';
if ($os eq 'windows') {
system("\"${vdub_dir}/${vdubcli}\" ${avs} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.${audioext}\"");
} else {
&pipe_prepare($_[0],"audio");
system("\"${anri_dir}/${mplayer}\" -dumpstream -dumpfile \"${_[1]}_temp.wav\" \"${avs}\" &");
&pipe_write;
system("rm", $avs) if $os ne 'windows';
if ($faac) {
$audioext = 'aac';
#thanks grenola
$faacq = "-q 65 -c 8000"; #default is for mq/lq
$faacq = "-b 128" if $_[3] ge "128000";
$faacq = "-b 256" if $_[3] ge "256000";
system("\"${faac}\" --mpeg-vers 4 ${faacq} -o \"${_[1]}_audio.${audioext}\" \"${_[1]}_temp.wav\"");
} else { #afconvert's only going to work under os x ...
system("\"${anri_dir}/${afconvert}\" -f mp4f -d 'aac ' -b ${_[3]} -s 1 -v \"${_[1]}_temp.wav\" \"${_[1]}_audio.${audioext}\"");
}
}

if ($os eq 'windows') {
system("\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
} else {
system("export DYLD_LIBRARY_PATH=\"${anri_dir}\";\"${anri_dir}/${mp4box}\" ${mp4boxnewframerate} -tmp . -new -add \"${_[1]}_video.${x264outext}\" -add \"${_[1]}_audio.${audioext}\" \"${_[1]}.mp4\"");
}

#CLEANUP
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.${x264outext}",
"${_[1]}_temp.wav",
"${_[1]}_audio.${audioext}",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
$avs = $_[0].'.avs';
system("\"${anri_dir}/${xvid}\" -i \"${avs}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\" -progress");
system("\"${anri_dir}/${xvid}\" -i \"${avs}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -progress -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -ab ${_[3]} -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${avs}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source

2008-11-08T18:22:48Z

SelbyMD: added build_deps.sh

[[Anri-chan]] is a set of Windows NT-series [http://en.wikipedia.org/wiki/Batch_file batch files] that bring together the functions of a number of movie editing and encoding applications to create movies suitable for publication on Speed Demos Archive.

===Anri-chan 4===
[[Anri-chan/Source/anri.pl|anri.pl]] - The main script; asks the relevant questions and encodes the movie.

[[Anri-chan/Source/config.ini|config.ini]] - External config file loaded on launch; user will eventually be able to use it to totally automate Anri.

[[Anri-chan/Source/mp4nerf.pl|mp4nerf.pl]] - Disables all but the first audio track in a muxed MP4 file. Imported from anri.pl.

[[Anri-chan/Source/lang_english.pl|lang_english.pl]] - English language localized strings. Imported from anri.pl.

[[Anri-chan/Source/lang_german.pl|lang_german.pl]] - German language localized strings. Imported from anri.pl.

[[Anri-chan/Source/lang_swedish.pl|lang_swedish.pl]] - Swedish language localized strings. Imported from anri.pl.

[[Anri-chan/Source/lang_dutch.pl|lang_dutch.pl]] - Dutch language localized strings. Imported from anri.pl.

[[Anri-chan/Source/Feature list|Feature list]] - What we're working on now and will be working on in the future.

===Anri-chan 3===
[[Anri-chan/Source/anri.bat|anri.bat]] - The main script; asks the relevant questions and encodes the movie.

[[Anri-chan/Source/statid.bat|statid.bat]] - Station ID sample script; produces an example StatID to preview.

[[Anri-chan/Source/ini.bat|ini.bat]] - Change settings.

[[Anri-chan/Source/edit_settings.bat|edit_settings.bat]] - Settings script; asks most of the questions in anri.bat so it can skip them. <font color="red">Not currently integrated into Anri-chan.</font>

===Avisynth Library===

[[Anri-chan/Source/nate.avs|nate.avs]] - The M2K2SDA Avisynth library written by nate and ballofsnow

===Misc. Files===
[[Anri-chan/Source/DGIndex.ini|DGIndex.ini]] - DGIndex settings. Take note of Output_Method, Enable_Info_Log and Use_MPA_Extensions.

[[Anri-chan/Source/infotemplate.avs|infotemplate.avs]] - Used with DGindex to gather information of video, audio and audio delay.

[[Anri-chan/Source/directshowsource_list.txt|directshowsource_list.txt]] - Compare AVI fourCC with list to determine avisource or directshowsource.

===PHP Files===
[[Anri-chan/Source/df.php|df.php]] - Produces the dfnd_data.bat and dfnd_titles.bat game database files on the server side.

===C Files===

[[Anri-chan/Source/pgccount.cpp|pgccount.cpp]] - [[Media:pgccount_0.3.zip|exe]] - Finds all unique program chains in an IFO, to be used with Mplayer's stream dump. Not needed for Anri 4.

[[Anri-chan/Source/mp4nerf.c|mp4nerf.c]] - [[Media:mp4nerf-b0.1.zip|exe]] - Disables all but the first audio track in a muxed MP4 file. Not currently integrated into anri-chan. Not needed for Anri 4.

===Compile===
[[Anri-chan/Source/anrichan.nsi|anrichan.nsi]] - Anri-chan 3 installer

[[Anri-chan/Source/builddir.bat|builddir.bat]] - Helps build directory content list.

[[Anri-chan/Source/build_deps.sh|build_deps.sh]] - Builds the ppc binaries needed for Anri 4.

===Coding standards===

[[Anri-chan/Source/Coding_Standards/Perl|Perl]]

Anri-chan/Source/build deps.sh

2008-11-08T18:10:04Z

SelbyMD: added script to build osx dependencies

<pre><nowiki>
#!/bin/bash
#anri4 support binary build script
#tested on g4 powerbook under osx 10.4
#
#requirements:
#mp4box, mplayer/mencoder, wget, and x264 build without extra programs
#afconvert source should already be present on your system
#ffmpeg requires svn and gnu make 3.81 or newer (as make)

#sanitize local environment, you might need to change this
mkdir -p bin src zip
ln -f "$(which svn)" bin/svn
ln -f "$(which make)" bin/make
unset CFLAGS CPPFLAGS CXXFLAGS LDFLAGS DYLD_LIBRARY_PATH PKG_CONFIG_PATH
export PATH="$PWD/bin:/bin:/sbin:/usr/bin:/usr/sbin"
hash -r

#this is a bit inefficient, since i don't know how to build just afconvert,
#so either manually tell xcode to stop after afconvert builds or wait it out.
#the patch stops afconvert from exiting with an error when failing to shorten
#the length of a sound file, but i might actually need to fix the bug
#rather than just comment it out. only testing will tell...
build-afconvert () {
local dir=AudioFileTools
local fulldir=/Developer/Examples/CoreAudio/Services/$dir
if [ ! -e $fulldir ]; then
echo "afconvert source not found, cannot build"
return
fi
rm -rf src/$dir bin/afconvert
cp -R $fulldir src/$dir
cd src
patch -p0 <<'END_OF_PATCH'
diff -Nru AudioFileTools/Utility/CAAudioFileConverter.cpp AudioFileTools-patched/Utility/CAAudioFileConverter.cpp
--- AudioFileTools/Utility/CAAudioFileConverter.cpp 2008-11-06 23:49:03.000000000 -0500
+++ AudioFileTools-patched/Utility/CAAudioFileConverter.cpp 2008-11-06 23:50:22.000000000 -0500
@@ -372,7 +372,7 @@
break;
}

- if (decoding) {
+ if (0) {
// fix up the destination file's length if necessary and possible
SInt64 nframes = mSrcFile.GetNumberFrames();
if (nframes != 0) {
END_OF_PATCH
osascript <<END_OF_APPLESCRIPT
tell application "Xcode"
activate
open posix file "$PWD/$dir/$dir.xcode"
with timeout of 300 seconds
build
end timeout
quit
end tell
END_OF_APPLESCRIPT
ln $dir/build/afconvert ../bin/afconvert
cd ..
}

#if you see a complaint about vm_allocate failing
#upgrade built-in make (gnu make 3.80) to 3.81 or newer
#remember to define it (and svn) above if it isn't in the path
build-ffmpeg () {
local ffmpeg=ffmpeg-r15761
local url=svn://svn.mplayerhq.hu/ffmpeg/trunk
rm -rf src/ffmpeg bin/ffmpeg
cd src
if [ -e ../zip/$ffmpeg.tar.bz2 ]; then
tar -xjf ../zip/$ffmpeg.tar.bz2
else
svn export -r 15761 $url ffmpeg
tar -cf ../zip/$ffmpeg.tar ffmpeg
bzip2 ../zip/$ffmpeg.tar
fi
cd ffmpeg
./configure
make
ln ffmpeg ../../bin/ffmpeg
cd ../..
}

build-mencoder () {
echo "mencoder is built by mplayer, so use that target instead"
}

#-force_cpusubtype_ALL is listed as darwin only, so a linux build might need to change this
build-mplayer () {
local mplayer=MPlayer-1.0rc2
local url=http://www11.mplayerhq.hu/MPlayer/releases/
rm -rf src/$mplayer bin/mplayer bin/mencoder
if [ ! -e zip/$mplayer.tar.bz2 ]; then
curl $url/$mplayer.tar.bz2 -o zip/$mplayer.tar.bz2
fi
cd src
tar -xjf ../zip/$mplayer.tar.bz2
cd $mplayer
CFLAGS=-force_cpusubtype_ALL ./configure --enable-largefiles --disable-freetype --disable-fontconfig --disable-gl --disable-openal --disable-x11
make
ln mplayer ../../bin/mplayer
ln mencoder ../../bin/mencoder
cd ../..
}

#the -soname option to the dynamic lib build command is invalid on osx,
#and we only want to use the static lib anyway, so the patch just comments it out,
#makes mp4box link against the static lib, and fixes a namespace collision.
build-mp4box () {
local gpac=gpac-2008-11-01
local url=-d:pserver:anonymous:@gpac.cvs.sourceforge.net:/cvsroot/gpac
rm -rf src/gpac bin/mp4box
cd src
if [ -e ../zip/$gpac.tar.bz2 ]; then
tar -xjf ../zip/$gpac.tar.bz2
else
cvs $url login
cvs -z3 $url export -D 2008-11-01 gpac
tar -cf ../zip/$gpac.tar gpac
bzip2 ../zip/$gpac.tar
fi
patch -p0 <<'END_OF_PATCH'
diff -Nru gpac/applications/mp4box/Makefile gpac-patched/applications/mp4box/Makefile
--- gpac/applications/mp4box/Makefile 2008-10-06 05:41:13.000000000 -0400
+++ gpac-patched/applications/mp4box/Makefile 2008-11-02 23:25:41.000000000 -0500
@@ -35,8 +35,8 @@
else
EXT=
PROG=MP4Box
-#LINKFLAGS+=-lgpac_static $(EXTRALIBS) $(GPAC_SH_FLAGS) -lz
-LINKFLAGS+=-lgpac -lz $(OGL_LIBS)
+LINKFLAGS+=-lgpac_static $(EXTRALIBS) $(GPAC_SH_FLAGS) -lz
+#LINKFLAGS+=-lgpac -lz $(OGL_LIBS)
endif

diff -Nru gpac/src/Makefile gpac-patched/src/Makefile
--- gpac/src/Makefile 2008-10-06 08:58:56.000000000 -0400
+++ gpac-patched/src/Makefile 2008-11-02 23:27:29.000000000 -0500
@@ -206,7 +206,7 @@
$(LIB): $(LIBGPAC_UTILS) $(LIBGPAC_IETF) $(LIBGPAC_BIFS) $(LIBGPAC_ODF) $(LIBGPAC_LASER) $(LIBGPAC_ISOM) $(LIBGPAC_SCENEMANAGER) $(LIBGPAC_TERMINAL) compositor scenegraph mediatools mcrypt $(OBJSPIC)
ar cr ../bin/gcc/libgpac_static.a $(OBJS)
ranlib ../bin/gcc/libgpac_static.a
- $(CC) $(SHFLAGS) -Wl,-soname,$(LIB) $(LDFLAGS) -o ../bin/gcc/$@ $(OBJSPIC) $(EXTRALIBS)
+ #$(CC) $(SHFLAGS) -Wl,-soname,$(LIB) $(LDFLAGS) -o ../bin/gcc/$@ $(OBJSPIC) $(EXTRALIBS)

dep: depend

diff -Nru gpac/src/scenegraph/base_scenegraph.c gpac-patched/src/scenegraph/base_scenegraph.c
--- gpac/src/scenegraph/base_scenegraph.c 2008-10-31 09:42:57.000000000 -0400
+++ gpac-patched/src/scenegraph/base_scenegraph.c 2008-11-03 00:39:19.000000000 -0500
@@ -1601,7 +1601,7 @@
return 0;
}

-char szNameBuffer[1024];
+static char szNameBuffer[1024];
GF_EXPORT
const char *gf_node_get_class_name(GF_Node *node)
{
diff -Nru gpac/src/scenegraph/xml_ns.c gpac-patched/src/scenegraph/xml_ns.c
--- gpac/src/scenegraph/xml_ns.c 2008-10-24 09:06:24.000000000 -0400
+++ gpac-patched/src/scenegraph/xml_ns.c 2008-11-03 00:39:43.000000000 -0500
@@ -391,7 +391,7 @@
return DOM_String_datatype;
}

-char szNameBuffer[1024];
+static char szNameBuffer[1024];

const char*gf_svg_get_attribute_name(GF_Node *node, u32 tag)
{
END_OF_PATCH
cd gpac
chmod 700 configure
./configure --disable-ssl --disable-opengl
make lib
make -C applications/mp4box
ln bin/gcc/MP4Box ../../bin/mp4box
cd ../..
}

build-wget () {
local wget=wget-1.11.4
local url=ftp://ftp.gnu.org/gnu/wget
rm -rf src/$wget bin/wget
if [ ! -e zip/$wget.tar.bz2 ]; then
curl $url/$wget.tar.bz2 -o zip/$wget.tar.bz2
fi
cd src
tar -xjf ../zip/$wget.tar.bz2
cd $wget
./configure --disable-rpath --without-ssl
make
ln src/wget ../../bin/wget
cd ../..
}

build-x264 () {
local x264=x264-snapshot-20081101-2245
local url=ftp://ftp.videolan.org/pub/videolan/x264/snapshots
rm -rf src/$x264 bin/x264
if [ ! -e zip/$x264.tar.bz2 ]; then
curl $url/$x264.tar.bz2 -o zip/$x264.tar.bz2
fi
cd src
tar -xjf ../zip/$x264.tar.bz2
cd $x264
./configure
make
ln x264 ../../bin/x264
cd ../..
}

programs=(afconvert ffmpeg mencoder mplayer mp4box wget x264)
for arg; do
for program in ${programs[*]}; do
if [[ $program == $arg || $arg == "all" ]]; then
echo "[+] $program build started"
time build-$program
echo "[+] $program build finished"
fi
done
done
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-10-15T20:31:35Z

SelbyMD: appearantly tr doesn't like %lang

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#no auto mode yet
$auto=0;

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...
require Win32;

#get the name of the work directory. this is the desktop by default under windows
$desktop = Win32::GetFolderPath(Win32::CSIDL_DESKTOPDIRECTORY());

#get the path to program files so we can build the anri program directory
$programfiles = Win32::GetFolderPath(Win32::CSIDL_PROGRAM_FILES());

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else {
#FIXME UNIX DESKTOP

#color initialization

#os-specific commands
$clear = "clear";
}

#import mp4nerf
push @INC, $anri_dir;
require 'mp4nerf.pl';
require 'lang_english.pl';
#after having loaded english, load preferred language by using $language variable from config file, would be cool if we could set this in the installer
#require "lang_${language}.pl";

#FIXME LOGFILE STUFF

#FIXME EXTERNAL CONFIGURATION FILE

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

while (1) {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{MAINMENU});
@mainmenu = (
[$lang{MAINMENU_RIPDVD}, '&rip_dvd'],
[$lang{MAINMENU_STARTNEWPROJECT}, '&project'],
[$lang{MAINMENU_EXTRACTSAMPLE}, '&proc_sample'],
[$lang{MAINMENU_STATIDPREVIEW}, '&statid_sample'],
[$lang{MAINMENU_EXIT}, 'exit 0'],
);
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "$lang{INVALID_INPUT}\n\n";
&out_menu(@mainmenu);
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins;
&out_cls_section($lang{SECTION_SAMPLE_EXTRACTION});
q_boo($lang{QUESTION_DVDMPEG_SOURCE}, $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
&out_info($lang{INFO_SAMPLE_LENGTH});
&echo("");
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
if ($os eq 'windows') {
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
#how are we going to do this in unix? your guess is as good as mine
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF\nSeparateFields\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}.avs","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir("${desktop}");
&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}$lang{SAMPLE_EXTRACTION_DONE}");
&echo("\n$lang{SAMPLE_EXTRACTION_README}");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Statid Sample
#
# Statid preview mode shows users how their statid will look without having
# to encode anything. A slimmed down version of the code from the main
# procedure and script_buildfiles is used. The same temporary project
# name and directory from sample extraction mode are used and deleted.
# The user is sent back to the main menu but currently will need
# to enter the statid information again during the main script.
############################################################################

sub statid_sample {
chdir($desktop);
$projname = 'anri_sample';
&make_projdir;
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_ABOUT_EACH_LINE});
@statidlines = ();
foreach $i (1 .. 3) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
&echotofile("global pal = false\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
$projtemp = "run = blankclip(width=640, height=480)";
$projtemp .= "statid=nate_statid_d1(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid\n";
&echotofile($projtemp,">>","${projname}.avs");
system("\"${vdub_dir}/${vdubgui}\" \"${projname}.avs\"");
chdir($desktop);
&rm("${desktop}/${projname}");
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info("$lang{PROGRAM_START}");
&out_section("$lang{SECTION_PROJECT_SETUP}");
#IF NOT "%auto%"=="y" (CALL :q_projname)

&out_info("$lang{ENTER_PROJECT_NAME}");
&echo("");
&echo("$lang{PROJECT_FILES_APPEAR_IN} ${navy_on_gray}${desktop}\\($lang{PROJECT_NAME})\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "$lang{PROJECT_NAME_ILLEGAL_CHARACTERS}\n\n";
print $prompt;
}
&make_projdir;
&load_plugins;
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section("$lang{MOVIE_SOURCE}");
&out_info("$lang{MOVIE_SOURCE_MPEG2_HINT}");
&echo("");
q_boo("$lang{MPEG2_SOURCE_QUESTION} [$lang{y}/$lang{n}]", $dvdsource);
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if ($dvdsource) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section($lang{SECTION_GAME_PROPERTIES});
if ((!$dvdsource) and (!$auto)) {
q_boo($lang{PC_GAME_QUESTION}, $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
}

$dfnd_set = 0;
&q_dfnd if !$auto;
if (!$dfnd_set) {
if (!$auto) {
&echo("");
&out_info($lang{DF_EXPLAIN});
&echo("");
&out_info($lang{DF_FIND_AT_THIS_URL});
&out_info($lang{DFND_URL});
&echo("");
&out_info($lang{DF_IF_NOT_FOUND_THEN_WHAT});
&echo("");
&echo($lang{QUESTION_D});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&echo($lang{QUESTION_F});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if ($f eq 1) {
q_boo("$lang{QUESTION_ND} [$lang{y}/$lang{n}]", $twod) if !$auto;
}
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info($lang{QUESTION_SUBMIT_DFND_WHY});
&echo("");
system("START http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0") if q_boo("$lang{QUESTION_SUBMIT_DFND} [$lang{y}/$lang{n}]");
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section($lang{SECTION_VIDEO_PROPERTIES});
if (!$auto) {
q_boo($lang{QUESTION_PROGRESSIVE_INTERLACED}, $prog);
}
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
&out_info($lang{FIELDORDER_VDUB_WINDOW_OPENS});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("START \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&out_info($lang{VDUB_WINDOW_CAN_CLOSE_NOW});
&rm("${projname}_fieldordertemp.avs");
&echo("");

#q_vhs
q_boo("$lang{QUESTION_VHS} [$lang{y}/$lang{n}]", $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_1PIXEL_BOB}, $onepixel) if !$auto and ($f != 2);

q_boo("$lang{QUESTION_NES} [$lang{y}/$lang{n}]", $nes) if !$auto;
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo("$lang{QUESTION_GBA} [$lang{y}/$lang{n}]", $gba) if !$auto;
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo("$lang{QUESTION_GB} [$lang{y}/$lang{n}]", $gb) if !$auto;
$deflicker=1 if $gb;

q_boo("$lang{QUESTION_DEFLICKERED} [$lang{y}/$lang{n}]", $deflicker) if !$auto and ($f != 2);

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. There is currently no validation for entering a frame range
# like 50 to 30... or negative numbers. Users can enter dummy values and edit
# project_job.bat later on and it will still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section($lang{SECTION_CONTENT_PROPERTIES});
if (!$auto) {
&out_info($lang{INFO_TRIM});
if (q_boo("$lang{QUESTION_TRIM} [$lang{y}/$lang{n}]", $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. No checking to see if the frame ranges are valid
# yet. No checking of negative values either.
############################################################################
&echo("");
&out_info($lang{TRIM_VDUB_WINDOW_OPENS});
&echo("");
&out_info($lang{TRIM_MULTIPLE_RANGES});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{TRIM_ILLEGAL_VALUE};
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info($lang{TRIM_NO_VALUES_ENTERED});
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error($lang{TRIM_ODD_NUMBER_OF_FRAMES});
@trimarr = ();
} else {
&out_info($lang{TRIM_DONE});
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg=$lang{TRIM_INVALID_INPUT_MUST_BE_FRAME_NUMBER};
} else {
push(@trimarr,$_);
&out_info($lang{TRIM_POINT_LOADED_SUCCESSFULLY}.' #'.@trimarr);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}

#statid stuff
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_INFO});
if (q_boo("$lang{QUESTION_STATID} [$lang{y}/$lang{n}]", $statid)) {
@statidlines = ();
&out_info($lang{STATID_ABOUT_EACH_LINE});
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
} else {
@statidlines = ('','','');
}
} #end of !$auto

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
#$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section($lang{SECTION_READY_TO_ENCODE});
&out_info("$lang{SETTINGS_SAVED_TO_FILE} \"${projname}_job.bat\".");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if (q_boo($lang{QUESTION_ENCODE_NOW_OR})) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ/XQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section($lang{SECTION_ENCODING_OPTIONS});
if (!$auto) {
#&savesettings;

@encodethese = ();
for (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
[ 1, \&twopass, "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
[ 1, \&ipod, "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
[ 1, \&twopass, "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
[ 1, \&xvid, "Low quality XviD AVI", "_LQ", 128, 64000, "", 1,1],
[ 1, \&xvid, "Medium quality XviD AVI", "", 512, 64000, "", 1,1],
) {
if ($$_[0]) { #this quality is not disabled for these content properties - so ask the user if they want to make it
push(@encodethese, $_) if q_boo("$lang{QUESTION_CREATE_VIDEO} $${_[2]} (".($$_[4]+($$_[5]/1000))." kbit/sec) [$lang{y}/$lang{n}]");
}
}

}

for (@encodethese) {
my $idtag = $$_[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info($lang{NOW_ENCODING});
for (@encodethese) {
$$_[1]($projname.$$_[3].$nmf.".avs", $projname.$$_[3], @$_[4..8]);
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs");
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

# simple multi-threaded map, currently used for nmf
# one thread is created per argument (excluding the first)
sub tmap (&@) {
require threads;
map { threads->create($_[0], $_) } @_[1..$#_];
map { $_->join() } threads->list();
}

sub nmf {
&out_cls_section($lang{SECTION_NMF});
&out_info($lang{NMF_INFO});
&echo("");
&out_info($lang{INFO_HQ_IQ_XQ_NMF});
&echo("");
if (q_boo("$lang{QUESTION_CREATE_NMF} [$lang{y}/$lang{n}]")) {
$nmf = '_nmf';
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$number_of_processors=$ENV{NUMBER_OF_PROCESSORS};
#Set lagarith to yv12 under doze
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs") if -e "${projname}_HQ_nmf.avs";
#:nmf_vdubloop
#counterB
@nmfcommands = ();
$alignedsplice = "";
foreach $i (1 .. $number_of_processors) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&echotofile("avisource(\"${projname}_HQIQXQ_${i}.avi\")\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_${i}.avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*".($i-1).".000), floor(last.framecount/${number_of_processors}.000*${i}.000)-1)\n",">>","${projname}_HQIQXQ_${i}.avs");
push @nmfcommands, qq("${vdub_dir}/${vdubcli}" "${projname}_HQIQXQ_${i}.avs" /i "${anri_dir}/nmf.vcf" "${projname}_HQIQXQ_${i}.avi");
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
#for now lq and nq ignore the nmf
&cp("${projname}_LQ.avs","${projname}_LQ_nmf.avs");
&cp("${projname}_LQ_xvid.avs","${projname}_LQ_xvid_nmf.avs");
&cp("${projname}.avs","${projname}_nmf.avs");
&cp("${projname}_xvid.avs","${projname}_xvid_nmf.avs");
&echo($lang{ENCODING_NMF});
tmap { system($_) } @nmfcommands;
&echo("");
&out_info($lang{NMF_SUCCESSFULLY_CREATED});
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("\\++\\\n",">>","${projname}.avs") if $i > 0;
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width % 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";

$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";

$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";

$projtemp .= $statid ? "statid++run++statid\n" : "run\n";
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs");
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs") if -e "${projname}_trimtemp.avs";
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [$lang{y}/$lang{n}]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
require Win32::TieRegistry;
import Win32::TieRegistry (Delimiter=>"/", ArrayValues=>0) unless defined $Registry;
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
&out_info($_[0]." [$lang{y}/$lang{n}]");
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput =~ m/^[$lang{y}$lang{n}]$/) {
#$lang{y} becomes 1 (true), $lang{n} becomes 0 (false)
$userinput = $userinput eq $lang{y};
$_[1] = $userinput;
return $userinput;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section($lang{SECTION_AVI_SOURCE});
&out_info($lang{AVI_SOURCE_INFO});
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info($lang{AVI_PATH_TO});
&out_info($lang{TYPE_N_TO_QUIT});
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{AVI_BAD_INPUT};
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg=$lang{AVI_NONE_ENTERED};
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg=$lang{AVI_NOT_AVI};
} elsif (! -e $_) {
$errormsg=$lang{FILE_NOT_FOUND};
} else {
push(@avifiles,$_);
&out_info($lang{AVI_LOADED_SUCCESSFULLY}.' #'.@avifiles);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = $lang{AVI_DIR_LOAD_INFO};
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_ENTER_PATH};
} elsif (m/^.[^:][^\\].*/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_BE_FULL_PATH};
} elsif (! -e $_) {
$errormsg=$lang{AVI_DIR_LOAD_DIR_DOES_NOT_EXIST};
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = $lang{AVI_DIR_LOAD_NO_AVIS_FOUND_IN_DIR};
} else {
#Ask user if the list is good.
&echo($lang{QUESTION_AVI_DIR_LOAD_CONTINUE_OR_RESCAN});
print $prompt;
while (<STDIN>) {
chomp;
last if (m/^[$lang{y}$lang{n}]$/);

print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}

#do we need to do this whole thing again?
last if $_ eq 'y';
$errormsg = $enterhelp;
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info($lang{DFND_INFO});
q_boo($lang{QUESTION_USE_DFND_DATABASE}, $dfnd);
if ($dfnd) {
#:dfnd
&out_info($lang{INFO_CONNECTING_TO_DFND_DATABASE});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "'.$lang{DFND_URL}.'"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~ s/&/\&/g;
$titles .= "".($i+1).": ${title}\n";
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg=$lang{DFND_MUST_CHOOSE_GAME};
} elsif (m/[^0-9]/) {
$errormsg=$lang{DFND_MUST_ENTER_GAME_NUMBER};
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg=$lang{INVALID_SELECTION};
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error($lang{DFND_COULD_NOT_CONNECT_TO_SDA});
&q_dfnd if q_boo("$lang{QUESTION_DFND_COULD_NOT_CONNECT_TO_SDA_TRY_AGAIN}");
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section($lang{SECTION_RIP_DVD});
if (!$auto) {
&out_info($lang{QUESTION_DVD_DRIVE_LETTER});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_LETTER};
}
&out_error($errormsg);
print $prompt;
}
}
&echo("");
&out_info("$lang{DVD_INFO_ANRI_WILL_EXTRACT_TO_DIR} $lang{QUESTION_DVD_RIPTO_DIR_NAME}");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto_parentdir) if !-e $dvdripto_parentdir;
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_RIPTO_DIR_NAME};
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info($lang{DVD_INFO_ANRI_WILL_RIP_NOW});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
&echo("");
<STDIN>;

if (-e "${driveletter}:/VIDEO_TS") {
$dvdsource = "${driveletter}:/VIDEO_TS";
if (<${dvdsource}/VTS*.IFO>) {
&pgccount(<${dvdsource}/VTS*.IFO>);

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info $lang{DVD_ADVANCED_MODE}
# SET s=
# SET /P s=$lang{DVD_TITLE_NUMBERS}
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 1.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo($lang{DVD_VIDEOTS_NOT_FOUND});
#GOTO DIE
}
}
&out_info("$lang{DVD_FINISHED_RIPPING} $lang{PRESS_ENTER_TO_CONTINUE}");
<STDIN>;
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
@pgclist = ();
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
return 1;
}

sub index_dvd {
$maxaudiobr = 320000;
&out_cls_info($lang{DVD_INDEX_INFO_FILELIST});
&echo("");
&echo($lang{DVD_INDEX_WARNING});
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
foreach $mask (@dvdfilemasks) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error($lang{DVD_INDEX_NO_FOLDERS_WITH_DVD_FILES_FOUND});
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

@dvdchoices = ();
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,"$lang{INVALID_INPUT}");
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"$lang{INVALID_SELECTION}: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}

&echo("");

&out_info($lang{DVD_INDEX_NOW_INDEXING});
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ /^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
#FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

#system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" \"${_[0]}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[4]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --bframes 3 --analyse none --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL \"${_[0]}\"");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --ref 3 --mixed-refs --no-fast-pskip --bframes 3 --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --analyse none --qpmin ${_[4]} --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL ${_[0]}");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --no-fast-pskip --subme 7 --trellis 2 --analyse all --qpmin ${_[4]} --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\" -progress");
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -progress -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -ab ${_[3]} -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${_[0]}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-10-15T02:48:20Z

SelbyMD: added statid sample mode using vdub.

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#no auto mode yet
$auto=0;

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...
require Win32;

#get the name of the work directory. this is the desktop by default under windows
$desktop = Win32::GetFolderPath(Win32::CSIDL_DESKTOPDIRECTORY());

#get the path to program files so we can build the anri program directory
$programfiles = Win32::GetFolderPath(Win32::CSIDL_PROGRAM_FILES());

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else {
#FIXME UNIX DESKTOP

#color initialization

#os-specific commands
$clear = "clear";
}

#import mp4nerf
push @INC, $anri_dir;
require 'mp4nerf.pl';
require 'lang_english.pl';
#after having loaded english, load preferred language by using $language variable from config file, would be cool if we could set this in the installer
#require "lang_${language}.pl";

#FIXME LOGFILE STUFF

#FIXME EXTERNAL CONFIGURATION FILE

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

while (1) {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{MAINMENU});
@mainmenu = (
[$lang{MAINMENU_RIPDVD}, '&rip_dvd'],
[$lang{MAINMENU_STARTNEWPROJECT}, '&project'],
[$lang{MAINMENU_EXTRACTSAMPLE}, '&proc_sample'],
[$lang{MAINMENU_STATIDPREVIEW}, '&statid_sample'],
[$lang{MAINMENU_EXIT}, 'exit 0'],
);
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "$lang{INVALID_INPUT}\n\n";
&out_menu(@mainmenu);
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins;
&out_cls_section($lang{SECTION_SAMPLE_EXTRACTION});
q_boo($lang{QUESTION_DVDMPEG_SOURCE}, $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
&out_info($lang{INFO_SAMPLE_LENGTH});
&echo("");
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
if ($os eq 'windows') {
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
#how are we going to do this in unix? your guess is as good as mine
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF\nSeparateFields\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}.avs","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir("${desktop}");
&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}$lang{SAMPLE_EXTRACTION_DONE}");
&echo("\n$lang{SAMPLE_EXTRACTION_README}");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Statid Sample
#
# Statid preview mode shows users how their statid will look without having
# to encode anything. A slimmed down version of the code from the main
# procedure and script_buildfiles is used. The same temporary project
# name and directory from sample extraction mode are used and deleted.
# The user is sent back to the main menu but currently will need
# to enter the statid information again during the main script.
############################################################################

sub statid_sample {
chdir($desktop);
$projname = 'anri_sample';
&make_projdir;
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_ABOUT_EACH_LINE});
@statidlines = ();
foreach $i (1 .. 3) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
&echotofile("global pal = false\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
$projtemp = "run = blankclip(width=640, height=480)";
$projtemp .= "statid=nate_statid_d1(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";
$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";
$projtemp .= "statid\n";
&echotofile($projtemp,">>","${projname}.avs");
system("\"${vdub_dir}/${vdubgui}\" \"${projname}.avs\"");
chdir($desktop);
&rm("${desktop}/${projname}");
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info("$lang{PROGRAM_START}");
&out_section("$lang{SECTION_PROJECT_SETUP}");
#IF NOT "%auto%"=="y" (CALL :q_projname)

&out_info("$lang{ENTER_PROJECT_NAME}");
&echo("");
&echo("$lang{PROJECT_FILES_APPEAR_IN} ${navy_on_gray}${desktop}\\($lang{PROJECT_NAME})\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "$lang{PROJECT_NAME_ILLEGAL_CHARACTERS}\n\n";
print $prompt;
}
&make_projdir;
&load_plugins;
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section("$lang{MOVIE_SOURCE}");
&out_info("$lang{MOVIE_SOURCE_MPEG2_HINT}");
&echo("");
q_boo("$lang{MPEG2_SOURCE_QUESTION} [y,n]", $dvdsource);
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if ($dvdsource) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section($lang{SECTION_GAME_PROPERTIES});
if ((!$dvdsource) and (!$auto)) {
q_boo($lang{PC_GAME_QUESTION}, $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
}

$dfnd_set = 0;
&q_dfnd if !$auto;
if (!$dfnd_set) {
if (!$auto) {
&echo("");
&out_info($lang{DF_EXPLAIN});
&echo("");
&out_info($lang{DF_FIND_AT_THIS_URL});
&out_info($lang{DFND_URL});
&echo("");
&out_info($lang{DF_IF_NOT_FOUND_THEN_WHAT});
&echo("");
&echo($lang{QUESTION_D});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&echo($lang{QUESTION_F});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if ($f eq 1) {
q_boo("$lang{QUESTION_ND} [y,n]", $twod) if !$auto;
}
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info($lang{QUESTION_SUBMIT_DFND_WHY});
&echo("");
system("START http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0") if q_boo("$lang{QUESTION_SUBMIT_DFND} [y,n]");
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section($lang{SECTION_VIDEO_PROPERTIES});
if (!$auto) {
q_boo($lang{QUESTION_PROGRESSIVE_INTERLACED}, $prog);
}
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
&out_info($lang{FIELDORDER_VDUB_WINDOW_OPENS});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("START \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&out_info($lang{VDUB_WINDOW_CAN_CLOSE_NOW});
&rm("${projname}_fieldordertemp.avs");
&echo("");

#q_vhs
q_boo("$lang{QUESTION_VHS} [y/n]", $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_1PIXEL_BOB}, $onepixel) if !$auto and ($f != 2);

q_boo("$lang{QUESTION_NES} [y/n]", $nes) if !$auto;
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo("$lang{QUESTION_GBA} [y/n]", $gba) if !$auto;
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo("$lang{QUESTION_GB} [y/n]", $gb) if !$auto;
$deflicker=1 if $gb;

q_boo("$lang{QUESTION_DEFLICKERED} [y,n]", $deflicker) if !$auto and ($f != 2);

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. There is currently no validation for entering a frame range
# like 50 to 30... or negative numbers. Users can enter dummy values and edit
# project_job.bat later on and it will still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section($lang{SECTION_CONTENT_PROPERTIES});
if (!$auto) {
&out_info($lang{INFO_TRIM});
if (q_boo("$lang{QUESTION_TRIM} [y,n]", $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. No checking to see if the frame ranges are valid
# yet. No checking of negative values either.
############################################################################
&echo("");
&out_info($lang{TRIM_VDUB_WINDOW_OPENS});
&echo("");
&out_info($lang{TRIM_MULTIPLE_RANGES});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{TRIM_ILLEGAL_VALUE};
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info($lang{TRIM_NO_VALUES_ENTERED});
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error($lang{TRIM_ODD_NUMBER_OF_FRAMES});
@trimarr = ();
} else {
&out_info($lang{TRIM_DONE});
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg=$lang{TRIM_INVALID_INPUT_MUST_BE_FRAME_NUMBER};
} else {
push(@trimarr,$_);
&out_info($lang{TRIM_POINT_LOADED_SUCCESSFULLY}.' #'.@trimarr);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}

#statid stuff
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_INFO});
if (q_boo("$lang{QUESTION_STATID} [y,n]", $statid)) {
@statidlines = ();
&out_info($lang{STATID_ABOUT_EACH_LINE});
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
} else {
@statidlines = ('','','');
}
} #end of !$auto

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
#$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section($lang{SECTION_READY_TO_ENCODE});
&out_info("$lang{SETTINGS_SAVED_TO_FILE} \"${projname}_job.bat\".");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if (q_boo($lang{QUESTION_ENCODE_NOW_OR})) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ/XQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section($lang{SECTION_ENCODING_OPTIONS});
if (!$auto) {
#&savesettings;

@encodethese = ();
for (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
[ 1, \&twopass, "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
[ 1, \&ipod, "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
[ 1, \&twopass, "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
[ 1, \&xvid, "Low quality XviD AVI", "_LQ", 128, 64000, "", 1,1],
[ 1, \&xvid, "Medium quality XviD AVI", "", 512, 64000, "", 1,1],
) {
if ($$_[0]) { #this quality is not disabled for these content properties - so ask the user if they want to make it
push(@encodethese, $_) if q_boo("$lang{QUESTION_CREATE_VIDEO} $${_[2]} (".($$_[4]+($$_[5]/1000))." kbit/sec) [y/n]");
}
}

}

for (@encodethese) {
my $idtag = $$_[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info($lang{NOW_ENCODING});
for (@encodethese) {
$$_[1]($projname.$$_[3].$nmf.".avs", $projname.$$_[3], @$_[4..8]);
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs");
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

# simple multi-threaded map, currently used for nmf
# one thread is created per argument (excluding the first)
sub tmap (&@) {
require threads;
map { threads->create($_[0], $_) } @_[1..$#_];
map { $_->join() } threads->list();
}

sub nmf {
&out_cls_section($lang{SECTION_NMF});
&out_info($lang{NMF_INFO});
&echo("");
&out_info($lang{INFO_HQ_IQ_XQ_NMF});
&echo("");
if (q_boo("$lang{QUESTION_CREATE_NMF} [y/n]")) {
$nmf = '_nmf';
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$number_of_processors=$ENV{NUMBER_OF_PROCESSORS};
#Set lagarith to yv12 under doze
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs") if -e "${projname}_HQ_nmf.avs";
#:nmf_vdubloop
#counterB
@nmfcommands = ();
$alignedsplice = "";
foreach $i (1 .. $number_of_processors) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&echotofile("avisource(\"${projname}_HQIQXQ_${i}.avi\")\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_${i}.avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*".($i-1).".000), floor(last.framecount/${number_of_processors}.000*${i}.000)-1)\n",">>","${projname}_HQIQXQ_${i}.avs");
push @nmfcommands, qq("${vdub_dir}/${vdubcli}" "${projname}_HQIQXQ_${i}.avs" /i "${anri_dir}/nmf.vcf" "${projname}_HQIQXQ_${i}.avi");
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
#for now lq and nq ignore the nmf
&cp("${projname}_LQ.avs","${projname}_LQ_nmf.avs");
&cp("${projname}_LQ_xvid.avs","${projname}_LQ_xvid_nmf.avs");
&cp("${projname}.avs","${projname}_nmf.avs");
&cp("${projname}_xvid.avs","${projname}_xvid_nmf.avs");
&echo($lang{ENCODING_NMF});
tmap { system($_) } @nmfcommands;
&echo("");
&out_info($lang{NMF_SUCCESSFULLY_CREATED});
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("\\++\\\n",">>","${projname}.avs") if $i > 0;
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width % 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";

$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";

$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";

$projtemp .= $statid ? "statid++run++statid\n" : "run\n";
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs");
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs") if -e "${projname}_trimtemp.avs";
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [y/n]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
require Win32::TieRegistry;
import Win32::TieRegistry (Delimiter=>"/", ArrayValues=>0) unless defined $Registry;
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
&out_info($_[0]);
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput =~ m/^[yn]$/) {
#t becomes 1 (true), b becomes 0 (false)
$userinput =~ tr/yn/10/;
$_[1] = $userinput;
return $userinput;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section($lang{SECTION_AVI_SOURCE});
&out_info($lang{AVI_SOURCE_INFO});
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info($lang{AVI_PATH_TO});
&out_info($lang{TYPE_N_TO_QUIT});
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{AVI_BAD_INPUT};
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg=$lang{AVI_NONE_ENTERED};
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg=$lang{AVI_NOT_AVI};
} elsif (! -e $_) {
$errormsg=$lang{FILE_NOT_FOUND};
} else {
push(@avifiles,$_);
&out_info($lang{AVI_LOADED_SUCCESSFULLY}.' #'.@avifiles);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = $lang{AVI_DIR_LOAD_INFO};
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_ENTER_PATH};
} elsif (m/^.[^:][^\\].*/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_BE_FULL_PATH};
} elsif (! -e $_) {
$errormsg=$lang{AVI_DIR_LOAD_DIR_DOES_NOT_EXIST};
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = $lang{AVI_DIR_LOAD_NO_AVIS_FOUND_IN_DIR};
} else {
#Ask user if the list is good.
&echo($lang{QUESTION_AVI_DIR_LOAD_CONTINUE_OR_RESCAN});
print $prompt;
while (<STDIN>) {
chomp;
last if (m/^[yn]$/);

print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}

#do we need to do this whole thing again?
last if $_ eq 'y';
$errormsg = $enterhelp;
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info($lang{DFND_INFO});
q_boo($lang{QUESTION_USE_DFND_DATABASE}, $dfnd);
if ($dfnd) {
#:dfnd
&out_info($lang{INFO_CONNECTING_TO_DFND_DATABASE});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "'.$lang{DFND_URL}.'"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~ s/&/\&/g;
$titles .= "".($i+1).": ${title}\n";
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg=$lang{DFND_MUST_CHOOSE_GAME};
} elsif (m/[^0-9]/) {
$errormsg=$lang{DFND_MUST_ENTER_GAME_NUMBER};
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg=$lang{INVALID_SELECTION};
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error($lang{DFND_COULD_NOT_CONNECT_TO_SDA});
&q_dfnd if q_boo("$lang{QUESTION_DFND_COULD_NOT_CONNECT_TO_SDA_TRY_AGAIN} [y/n]");
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section($lang{SECTION_RIP_DVD});
if (!$auto) {
&out_info($lang{QUESTION_DVD_DRIVE_LETTER});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_LETTER};
}
&out_error($errormsg);
print $prompt;
}
}
&echo("");
&out_info("$lang{DVD_INFO_ANRI_WILL_EXTRACT_TO_DIR} $lang{QUESTION_DVD_RIPTO_DIR_NAME}");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto_parentdir) if !-e $dvdripto_parentdir;
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_RIPTO_DIR_NAME};
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info($lang{DVD_INFO_ANRI_WILL_RIP_NOW});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
&echo("");
<STDIN>;

if (-e "${driveletter}:/VIDEO_TS") {
$dvdsource = "${driveletter}:/VIDEO_TS";
if (<${dvdsource}/VTS*.IFO>) {
&pgccount(<${dvdsource}/VTS*.IFO>);

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info $lang{DVD_ADVANCED_MODE}
# SET s=
# SET /P s=$lang{DVD_TITLE_NUMBERS}
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 1.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo($lang{DVD_VIDEOTS_NOT_FOUND});
#GOTO DIE
}
}
&out_info("$lang{DVD_FINISHED_RIPPING} $lang{PRESS_ENTER_TO_CONTINUE}");
<STDIN>;
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
@pgclist = ();
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
return 1;
}

sub index_dvd {
$maxaudiobr = 320000;
&out_cls_info($lang{DVD_INDEX_INFO_FILELIST});
&echo("");
&echo($lang{DVD_INDEX_WARNING});
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
foreach $mask (@dvdfilemasks) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error($lang{DVD_INDEX_NO_FOLDERS_WITH_DVD_FILES_FOUND});
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

@dvdchoices = ();
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,"$lang{INVALID_INPUT}");
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"$lang{INVALID_SELECTION}: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}

&echo("");

&out_info($lang{DVD_INDEX_NOW_INDEXING});
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ /^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
#FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

#system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" \"${_[0]}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[4]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --bframes 3 --analyse none --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL \"${_[0]}\"");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --ref 3 --mixed-refs --no-fast-pskip --bframes 3 --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --analyse none --qpmin ${_[4]} --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL ${_[0]}");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --no-fast-pskip --subme 7 --trellis 2 --analyse all --qpmin ${_[4]} --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\" -progress");
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -progress -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -ab ${_[3]} -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${_[0]}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-10-14T20:07:32Z

SelbyMD: multithreaded nmf working now, but outputting rgb888 (for me at least). plus fixed some %% getting passed to avisynth.

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#no auto mode yet
$auto=0;

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...
require Win32;

#get the name of the work directory. this is the desktop by default under windows
$desktop = Win32::GetFolderPath(Win32::CSIDL_DESKTOPDIRECTORY());

#get the path to program files so we can build the anri program directory
$programfiles = Win32::GetFolderPath(Win32::CSIDL_PROGRAM_FILES());

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else {
#FIXME UNIX DESKTOP

#color initialization

#os-specific commands
$clear = "clear";
}

#import mp4nerf
push @INC, $anri_dir;
require 'mp4nerf.pl';
require 'lang_english.pl';
#after having loaded english, load preferred language by using $language variable from config file, would be cool if we could set this in the installer
#require "lang_${language}.pl";

#FIXME LOGFILE STUFF

#FIXME EXTERNAL CONFIGURATION FILE

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

while (1) {
&out_cls;
&out_info($lang{PROGRAM_START});
&out_section($lang{MAINMENU});
@mainmenu = (
[$lang{MAINMENU_RIPDVD}, '&rip_dvd'],
[$lang{MAINMENU_STARTNEWPROJECT}, '&project'],
[$lang{MAINMENU_EXTRACTSAMPLE}, '&proc_sample'],
[$lang{MAINMENU_STATIDPREVIEW}, '&statid_sample'],
[$lang{MAINMENU_EXIT}, 'exit 0'],
);
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "$lang{INVALID_INPUT}\n\n";
&out_menu(@mainmenu);
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins;
&out_cls_section($lang{SECTION_SAMPLE_EXTRACTION});
q_boo($lang{QUESTION_DVDMPEG_SOURCE}, $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
&out_info($lang{INFO_SAMPLE_LENGTH});
&echo("");
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
if ($os eq 'windows') {
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
#how are we going to do this in unix? your guess is as good as mine
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF\nSeparateFields\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}.avs","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir("${desktop}");
&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}$lang{SAMPLE_EXTRACTION_DONE}");
&echo("\n$lang{SAMPLE_EXTRACTION_README}");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info("$lang{PROGRAM_START}");
&out_section("$lang{SECTION_PROJECT_SETUP}");
#IF NOT "%auto%"=="y" (CALL :q_projname)

&out_info("$lang{ENTER_PROJECT_NAME}");
&echo("");
&echo("$lang{PROJECT_FILES_APPEAR_IN} ${navy_on_gray}${desktop}\\($lang{PROJECT_NAME})\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "$lang{PROJECT_NAME_ILLEGAL_CHARACTERS}\n\n";
print $prompt;
}
&make_projdir;
&load_plugins;
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section("$lang{MOVIE_SOURCE}");
&out_info("$lang{MOVIE_SOURCE_MPEG2_HINT}");
&echo("");
q_boo("$lang{MPEG2_SOURCE_QUESTION} [y,n]", $dvdsource);
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if ($dvdsource) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section($lang{SECTION_GAME_PROPERTIES});
if ((!$dvdsource) and (!$auto)) {
q_boo($lang{PC_GAME_QUESTION}, $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
}

$dfnd_set = 0;
&q_dfnd if !$auto;
if (!$dfnd_set) {
if (!$auto) {
&echo("");
&out_info($lang{DF_EXPLAIN});
&echo("");
&out_info($lang{DF_FIND_AT_THIS_URL});
&out_info($lang{DFND_URL});
&echo("");
&out_info($lang{DF_IF_NOT_FOUND_THEN_WHAT});
&echo("");
&echo($lang{QUESTION_D});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&echo($lang{QUESTION_F});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}
if ($f eq 1) {
q_boo("$lang{QUESTION_ND} [y,n]", $twod) if !$auto;
}
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info($lang{QUESTION_SUBMIT_DFND_WHY});
&echo("");
system("START http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0") if q_boo("$lang{QUESTION_SUBMIT_DFND} [y,n]");
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section($lang{SECTION_VIDEO_PROPERTIES});
if (!$auto) {
q_boo($lang{QUESTION_PROGRESSIVE_INTERLACED}, $prog);
}
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
&out_info($lang{FIELDORDER_VDUB_WINDOW_OPENS});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("START \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
&out_info($lang{VDUB_WINDOW_CAN_CLOSE_NOW});
&rm("${projname}_fieldordertemp.avs");
&echo("");

#q_vhs
q_boo("$lang{QUESTION_VHS} [y/n]", $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo($lang{QUESTION_1PIXEL_BOB}, $onepixel) if !$auto and ($f != 2);

q_boo("$lang{QUESTION_NES} [y/n]", $nes) if !$auto;
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo("$lang{QUESTION_GBA} [y/n]", $gba) if !$auto;
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo("$lang{QUESTION_GB} [y/n]", $gb) if !$auto;
$deflicker=1 if $gb;

q_boo("$lang{QUESTION_DEFLICKERED} [y,n]", $deflicker) if !$auto and ($f != 2);

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. There is currently no validation for entering a frame range
# like 50 to 30... or negative numbers. Users can enter dummy values and edit
# project_job.bat later on and it will still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section($lang{SECTION_CONTENT_PROPERTIES});
if (!$auto) {
&out_info($lang{INFO_TRIM});
if (q_boo("$lang{QUESTION_TRIM} [y,n]", $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. No checking to see if the frame ranges are valid
# yet. No checking of negative values either.
############################################################################
&echo("");
&out_info($lang{TRIM_VDUB_WINDOW_OPENS});
&echo("");
&out_info($lang{TRIM_MULTIPLE_RANGES});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{TRIM_ILLEGAL_VALUE};
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info($lang{TRIM_NO_VALUES_ENTERED});
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error($lang{TRIM_ODD_NUMBER_OF_FRAMES});
@trimarr = ();
} else {
&out_info($lang{TRIM_DONE});
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg=$lang{TRIM_INVALID_INPUT_MUST_BE_FRAME_NUMBER};
} else {
push(@trimarr,$_);
&out_info($lang{TRIM_POINT_LOADED_SUCCESSFULLY}.' #'.@trimarr);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}

#statid stuff
&out_cls_section($lang{SECTION_STATID});
&out_info($lang{STATID_INFO});
if (q_boo("$lang{QUESTION_STATID} [y,n]", $statid)) {
@statidlines = ();
&out_info($lang{STATID_ABOUT_EACH_LINE});
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info($lang{STATID_LINE}." ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
} else {
@statidlines = ('','','');
}
} #end of !$auto

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
#$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section($lang{SECTION_READY_TO_ENCODE});
&out_info("$lang{SETTINGS_SAVED_TO_FILE} \"${projname}_job.bat\".");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if (q_boo($lang{QUESTION_ENCODE_NOW_OR})) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ/XQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section($lang{SECTION_ENCODING_OPTIONS});
if (!$auto) {
#&savesettings;

@encodethese = ();
for (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
[ 1, \&twopass, "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
[ 1, \&ipod, "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
[ 1, \&twopass, "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
[ 1, \&xvid, "Low quality XviD AVI", "_LQ", 128, 64000, "", 1,1],
[ 1, \&xvid, "Medium quality XviD AVI", "", 512, 64000, "", 1,1],
) {
if ($$_[0]) { #this quality is not disabled for these content properties - so ask the user if they want to make it
push(@encodethese, $_) if q_boo("$lang{QUESTION_CREATE_VIDEO} $${_[2]} (".($$_[4]+($$_[5]/1000))." kbit/sec) [y/n]");
}
}

}

for (@encodethese) {
my $idtag = $$_[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info($lang{NOW_ENCODING});
for (@encodethese) {
$$_[1]($projname.$$_[3].$nmf.".avs", $projname.$$_[3], @$_[4..8]);
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs");
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

# simple multi-threaded map, currently used for nmf
# one thread is created per argument (excluding the first)
sub tmap (&@) {
require threads;
map { threads->create($_[0], $_) } @_[1..$#_];
map { $_->join() } threads->list();
}

sub nmf {
&out_cls_section($lang{SECTION_NMF});
&out_info($lang{NMF_INFO});
&echo("");
&out_info($lang{INFO_HQ_IQ_XQ_NMF});
&echo("");
if (q_boo("$lang{QUESTION_CREATE_NMF} [y/n]")) {
$nmf = '_nmf';
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$number_of_processors=$ENV{NUMBER_OF_PROCESSORS};
#Set lagarith to yv12 under doze
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs") if -e "${projname}_HQ_nmf.avs";
#:nmf_vdubloop
#counterB
@nmfcommands = ();
$alignedsplice = "";
foreach $i (1 .. $number_of_processors) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&echotofile("avisource(\"${projname}_HQIQXQ_${i}.avi\")\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_${i}.avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*".($i-1).".000), floor(last.framecount/${number_of_processors}.000*${i}.000)-1)\n",">>","${projname}_HQIQXQ_${i}.avs");
push @nmfcommands, qq("${vdub_dir}/${vdubcli}" "${projname}_HQIQXQ_${i}.avs" /i "${anri_dir}/nmf.vcf" "${projname}_HQIQXQ_${i}.avi");
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
#for now lq and nq ignore the nmf
&cp("${projname}_LQ.avs","${projname}_LQ_nmf.avs");
&cp("${projname}_LQ_xvid.avs","${projname}_LQ_xvid_nmf.avs");
&cp("${projname}.avs","${projname}_nmf.avs");
&cp("${projname}_xvid.avs","${projname}_xvid_nmf.avs");
&echo($lang{ENCODING_NMF});
tmap { system($_) } @nmfcommands;
&echo("");
&out_info($lang{NMF_SUCCESSFULLY_CREATED});
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("\\++\\\n",">>","${projname}.avs") if $i > 0;
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width % 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height % 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width % 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";

$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";

$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";

$projtemp .= $statid ? "statid++run++statid\n" : "run\n";
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs");
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs") if -e "${projname}_trimtemp.avs";
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [y/n]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
require Win32::TieRegistry;
import Win32::TieRegistry (Delimiter=>"/", ArrayValues=>0) unless defined $Registry;
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
&out_info($_[0]);
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput =~ m/^[yn]$/) {
#t becomes 1 (true), b becomes 0 (false)
$userinput =~ tr/yn/10/;
$_[1] = $userinput;
return $userinput;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section($lang{SECTION_AVI_SOURCE});
&out_info($lang{AVI_SOURCE_INFO});
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info($lang{AVI_PATH_TO});
&out_info($lang{TYPE_N_TO_QUIT});
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg=$lang{AVI_BAD_INPUT};
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg=$lang{AVI_NONE_ENTERED};
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg=$lang{AVI_NOT_AVI};
} elsif (! -e $_) {
$errormsg=$lang{FILE_NOT_FOUND};
} else {
push(@avifiles,$_);
&out_info($lang{AVI_LOADED_SUCCESSFULLY}.' #'.@avifiles);
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = $lang{AVI_DIR_LOAD_INFO};
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_ENTER_PATH};
} elsif (m/^.[^:][^\\].*/) {
$errormsg=$lang{AVI_DIR_LOAD_MUST_BE_FULL_PATH};
} elsif (! -e $_) {
$errormsg=$lang{AVI_DIR_LOAD_DIR_DOES_NOT_EXIST};
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = $lang{AVI_DIR_LOAD_NO_AVIS_FOUND_IN_DIR};
} else {
#Ask user if the list is good.
&echo($lang{QUESTION_AVI_DIR_LOAD_CONTINUE_OR_RESCAN});
print $prompt;
while (<STDIN>) {
chomp;
last if (m/^[yn]$/);

print "$lang{INVALID_INPUT}\n\n";
print $prompt;
}

#do we need to do this whole thing again?
last if $_ eq 'y';
$errormsg = $enterhelp;
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info($lang{DFND_INFO});
q_boo($lang{QUESTION_USE_DFND_DATABASE}, $dfnd);
if ($dfnd) {
#:dfnd
&out_info($lang{INFO_CONNECTING_TO_DFND_DATABASE});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "'.$lang{DFND_URL}.'"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~ s/&/\&/g;
$titles .= "".($i+1).": ${title}\n";
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg=$lang{DFND_MUST_CHOOSE_GAME};
} elsif (m/[^0-9]/) {
$errormsg=$lang{DFND_MUST_ENTER_GAME_NUMBER};
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg=$lang{INVALID_SELECTION};
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error($lang{DFND_COULD_NOT_CONNECT_TO_SDA});
&q_dfnd if q_boo("$lang{QUESTION_DFND_COULD_NOT_CONNECT_TO_SDA_TRY_AGAIN} [y/n]");
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section($lang{SECTION_RIP_DVD});
if (!$auto) {
&out_info($lang{QUESTION_DVD_DRIVE_LETTER});
&out_info($lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP});
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_DRIVE_LETTER};
}
&out_error($errormsg);
print $prompt;
}
}
&echo("");
&out_info("$lang{DVD_INFO_ANRI_WILL_EXTRACT_TO_DIR} $lang{QUESTION_DVD_RIPTO_DIR_NAME}");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto_parentdir) if !-e $dvdripto_parentdir;
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg=$lang{DVD_MUST_ENTER_RIPTO_DIR_NAME};
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info($lang{DVD_INFO_ANRI_WILL_RIP_NOW});
&out_info($lang{PRESS_ENTER_TO_CONTINUE});
&echo("");
<STDIN>;

if (-e "${driveletter}:/VIDEO_TS") {
$dvdsource = "${driveletter}:/VIDEO_TS";
if (<${dvdsource}/VTS*.IFO>) {
&pgccount(<${dvdsource}/VTS*.IFO>);

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info $lang{DVD_ADVANCED_MODE}
# SET s=
# SET /P s=$lang{DVD_TITLE_NUMBERS}
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 1.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo($lang{DVD_VIDEOTS_NOT_FOUND});
#GOTO DIE
}
}
&out_info("$lang{DVD_FINISHED_RIPPING} $lang{PRESS_ENTER_TO_CONTINUE}");
<STDIN>;
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
@pgclist = ();
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
return 1;
}

sub index_dvd {
$maxaudiobr = 320000;
&out_cls_info($lang{DVD_INDEX_INFO_FILELIST});
&echo("");
&echo($lang{DVD_INDEX_WARNING});
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
foreach $mask (@dvdfilemasks) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error($lang{DVD_INDEX_NO_FOLDERS_WITH_DVD_FILES_FOUND});
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

@dvdchoices = ();
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,"$lang{INVALID_INPUT}");
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"$lang{INVALID_SELECTION}: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}

&echo("");

&out_info($lang{DVD_INDEX_NOW_INDEXING});
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ /^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
#FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

#system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" \"${_[0]}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[4]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --bframes 3 --analyse none --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL \"${_[0]}\"");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --ref 3 --mixed-refs --no-fast-pskip --bframes 3 --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --analyse none --qpmin ${_[4]} --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL ${_[0]}");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --no-fast-pskip --subme 7 --trellis 2 --analyse all --qpmin ${_[4]} --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\" -progress");
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -progress -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -ab ${_[3]} -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${_[0]}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source/lang english.pl

2008-10-14T19:11:20Z

SelbyMD: 2 semicolons were missing

<pre><nowiki>
#!/usr/bin/perl
use warnings;
use strict 'subs';

$lang{PROGRAM_START} = "ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!";
$lang{MAINMENU} = "Main";
$lang{MAINMENU_RIPDVD} = 'Rip DVD to hard drive (required for DVD material)';
$lang{MAINMENU_STARTNEWPROJECT} = 'Start new project';
$lang{MAINMENU_EXTRACTSAMPLE} = 'Extract sample';
$lang{MAINMENU_STATIDPREVIEW} = 'Station ID preview';
$lang{MAINMENU_EXIT} = 'Exit';
$lang{INVALID_INPUT} = "Invalid input";
$lang{SECTION_SAMPLE_EXTRACTION} = "Sample Extraction";
$lang{QUESTION_DVDMPEG_SOURCE} = 'DVD/MPEG source [y,n]';
$lang{INFO_SAMPLE_LENGTH} = "This sample will be 300 frames long. Pick the starting frame of a scene with action.";
$lang{PRESS_ENTER_TO_CONTINUE} = "Press ENTER to continue ...";
$lang{SAMPLE_EXTRACTION_DONE} = "Finished. You will find a sample.mp4 file on your desktop. Feel free to rename it something more descriptive like nameofgame_sample.mp4.";
$lang{SAMPLE_EXTRACTION_README} = "${red_on_gray} - READ -${white_on_gray} You will see that the video has been resized vertically. ${red_on_gray}THIS IS NORMAL${white_on_gray} and will make it easier for the techies to help you.";
$lang{SECTION_PROJECT_SETUP} = "PROJECT SETUP";
$lang{PROJECT_NAME_ILLEGAL_CHARACTERS} = "You may not use spaces or the % character in the name, sorry.";
$lang{ENTER_PROJECT_NAME} = "Enter a project name. This name will be used as the basename for your encoded videos (e.g. the high quality video will be called projectname_HQ.mp4, etc.). $lang{PROJECT_NAME_ILLEGAL_CHARACTERS}";
$lang{PROJECT_FILES_APPEAR_IN} = "${white_on_gray}All files associated with this project will appear in";
$lang{PROJECT_NAME} = "project name";
$lang{MOVIE_SOURCE} = "MOVIE SOURCE";
$lang{MOVIE_SOURCE_MPEG2_HINT} = "If you used a capture card with DVD or MPEG settings, place those files in ${dvdripto_parentdir}\\foldername\\ and then answer y to the question below.";
$lang{MPEG2_SOURCE_QUESTION} = "DVD/MPEG source";
$lang{SECTION_GAME_PROPERTIES} = "GAME PROPERTIES";
$lang{PC_GAME_QUESTION} = "Is this a PC game/non-console run recorded with screen capture software? If you say no, your video will be treated as NTSC / PAL.";
$lang{DF_EXPLAIN} = "\"D\" and \"F\" are used at SDA to refer to the video dimensions and framerate. D1 is full resolution and D4 is half resolution. F1 is full framerate, F2 is half framerate and F3 is 1/3 framerate.";
$lang{DF_FIND_AT_THIS_URL} = "Find D and F for your game at this URL:";
$lang{DF_IF_NOT_FOUND_THEN_WHAT} = "If you don't see your game listed there, you can use the Extract Sample main menu option to make a sample video to post in the SDA Tech Support Forum. Someone there will look at the video and let you know what D and F are.";
$lang{QUESTION_D} = "Please enter 1 or 4 for D.";
$lang{DFND_URL} = "http://speeddemosarchive.com/kb/index.php/DF";
$lang{QUESTION_F} = "Please enter 1, 2 or 3 for F.";
$lang{QUESTION_ND} = "2D game";
$lang{QUESTION_SUBMIT_DFND_WHY} = "You didn't use the SDA games database. Does that mean that it didn't have your game? If so, we'd love it if you posted the \"D\", \"F\" and maybe \"2D Game\" info you just entered here, into our DFnD updates topic on SDA, so we can add it to the next version of the database. You don't need to register to do so and it only takes a few seconds.";
$lang{QUESTION_SUBMIT_DFND} = "Submit this game's data to SDA?";
$lang{SECTION_VIDEO_PROPERTIES} = "VIDEO PROPERTIES";
$lang{QUESTION_PROGRESSIVE_INTERLACED} = "Progressive or interlaced? If you don't know, it's most likely interlaced (answer 'n' to the question). However, if your video is a PC screen capture (made using e.g. FRAPS or Camtasia) and never touched a VCR or DVD recorder, then it may be progressive.";
$lang{FIELDORDER_VDUB_WINDOW_OPENS} = "VirtualDub will now open with a split screen of your video. Find a scene with movement and use the slider or play button to play through it to see which looks better. Enter t for top, or b for bottom. If both look good, enter t.";
$lang{VDUB_WINDOW_CAN_CLOSE_NOW} = "You may now close the VirtualDub window.";
$lang{QUESTION_VHS} = "Did you use VHS to help capture this run?";
$lang{QUESTION_1PIXEL_BOB} = "1 pixel bob ... answer y if it's jumping up and down, otherwise n.";
$lang{QUESTION_NES} = "NES";
$lang{QUESTION_GBA} = "Game Boy Advance";
$lang{QUESTION_GB} = "Game Boy";
$lang{QUESTION_DEFLICKERED} = "Deflickered (rereleased old game e.g. Mega Man AC, Sonic Mega Collection, Wii Virtual Console)";
$lang{SECTION_CONTENT_PROPERTIES} = "CONTENT PROPERTIES";
$lang{INFO_TRIM} = "Trimming lets you remove the start and end of the existing movie so you only keep the run itself.";
$lang{QUESTION_TRIM} = "Do you want to trim off unwanted content in this video?";
$lang{TRIM_VDUB_WINDOW_OPENS} = "VirtualDub will now open with a low quality temporary version of the source video. Use the slider at the bottom of the VirtualDub window to locate the first and last frame numbers of the part of the video you WANT TO KEEP.";
$lang{TYPE_N_TO_QUIT} = " - Type n to quit -";
$lang{TRIM_MULTIPLE_RANGES} = "You can specify multiple ranges of frames. $lang{TYPE_N_TO_QUIT}";
$lang{TRIM_ILLEGAL_VALUE} = "You must enter a frame number, or type n to quit.";
$lang{TRIM_NO_VALUES_ENTERED} = "No values entered. Canceling trim.";
$lang{TRIM_ODD_NUMBER_OF_FRAMES} = "Odd number of frame numbers detected! All trim values erased!";
$lang{TRIM_DONE} = "Trimming done!";
$lang{TRIM_INVALID_INPUT_MUST_BE_FRAME_NUMBER} = "$lang{INVALID_INPUT}. Must be frame number.";
$lang{TRIM_POINT_LOADED_SUCCESSFULLY} = "Trim point loaded successfully:";
$lang{SECTION_STATID} = "Station ID";
$lang{STATID_INFO} = "Set the info shown on the Station ID (the clip at the start of an SDA video). Run the Station ID Preview program for a preview.";
$lang{QUESTION_STATID} = "Do you want to append an SDA Station ID to the front and end of this video?";
$lang{STATID_ABOUT_EACH_LINE} = "Line 1 is normally the runner's name. Line 2 (and Line 3 if necessary) normally include the game name, the type of run and the time to completion.";
$lang{STATID_LINE} = "Station ID Line";
$lang{SECTION_READY_TO_ENCODE} = "READY TO ENCODE";
$lang{SETTINGS_SAVED_TO_FILE} = "Your settings for this project have been saved. To resume the project, double-click";
$lang{QUESTION_ENCODE_NOW_OR} = "Do you want to start encoding now [Y] or save the job for a later date [N]?";
$lang{SECTION_ENCODING_OPTIONS} = "ENCODING OPTIONS";
$lang{QUESTION_CREATE_VIDEO} = "Create video?";
$lang{NOW_ENCODING} = "Now encoding ...";
$lang{SECTION_NMF} = "New Master File";
$lang{NMF_INFO} = "NMF: New Master File refers to an intermediate source video file in the encoding process, usually one saved after deinterlacing (to avoid slow deinterlacing during each pass for each quality of output).";
$lang{INFO_HQ_IQ_XQ_NMF} = "You have chosen to encode HQ, IQ and/or XQ. We can speed up the encoding process by creating a NMF. BEWARE! The new file can be extremely large, somewhere around 36 to 72 GB per hour. Make sure you have enough hard drive space.";
$lang{QUESTION_CREATE_NMF} = "Create NMF?";
$lang{NMF_SUCCESSFULLY_CREATED} = "NMF successfully created. Continuing with encoding process in 5 seconds...";
$lang{ENCODING_NMF} = "Encoding NMF ...";
$lang{SECTION_AVI_SOURCE} = "AVI SOURCE";
$lang{AVI_SOURCE_INFO} = "Enter the path to each avi file [i]ndividually or [a]utomatically. Note that if you choose automatic, Anri will load the files in an alphabetical manner. The files must have the same resolution and framerate to be joined together.";
$lang{AVI_PATH_TO} = 'Path to source video file e.g. c:\path to\video.avi without quotes.';
$lang{AVI_BAD_INPUT} = "You must enter a path, or type n to quit.";
$lang{AVI_NONE_ENTERED} = "You must load at least one avi file.";
$lang{AVI_NOT_AVI} = "Must be an avi file, try again.";
$lang{FILE_NOT_FOUND} = "File does not exist, try again.";
$lang{AVI_LOADED_SUCCESSFULLY} = "AVI loaded successfully!";
$lang{AVI_DIR_LOAD_INFO} = 'Enter the path to the avi folder e.g. c:\my video folder\ without quotes.';
$lang{AVI_DIR_LOAD_MUST_ENTER_PATH} = "You must enter a path.";
$lang{AVI_DIR_LOAD_MUST_BE_FULL_PATH} = "Must be full path.";
$lang{AVI_DIR_LOAD_DIR_DOES_NOT_EXIST} = "Folder does not exist.";
$lang{AVI_DIR_LOAD_NO_AVIS_FOUND_IN_DIR} = 'No avi files found in that folder!';
$lang{QUESTION_AVI_DIR_LOAD_CONTINUE_OR_RESCAN} = 'Continue [y] or rescan [n]?';
$lang{DFND_INFO} = "The next few questions are about the game played in this video. SDA has a database of games we have seen in the past, which can answer some or all of the questions for you. However, you must be connected to the Internet to use it.";
$lang{QUESTION_USE_DFND_DATABASE} = "Do you want to use Anri's games database [Y] or enter the data yourself [N]?";
$lang{INFO_CONNECTING_TO_DFND_DATABASE} = "Anri will now attempt to connect to SDA's games database. This may take a few moments. Once complete, you will see a list of all games in the database.";
$lang{DFND_MUST_CHOOSE_GAME} = "You must choose a game.";
$lang{DFND_MUST_ENTER_GAME_NUMBER} = "Please enter the number of a game.";
$lang{INVALID_SELECTION} = "Invalid selection";
$lang{DFND_COULD_NOT_CONNECT_TO_SDA} = "Could not connect to SDA!";
$lang{QUESTION_DFND_COULD_NOT_CONNECT_TO_SDA_TRY_AGAIN} = "Try again?";
$lang{SECTION_RIP_DVD} = "Rip DVD";
$lang{RIP_DVD_SOURCE_FILES_ON_HD_TIP} = "Tip: If you already have your DVD source files on your hard drive, move them into C:\\VIDEO_TS\\ and enter C as your drive letter.";
$lang{QUESTION_DVD_DRIVE_LETTER} = "What is the drive letter of your DVD drive (e.g. D)?";
$lang{QUESTION_DVD_DRIVE_PATH} = "What is the path to your DVD (e.g. /Volumes/MYDISC)?";
$lang{DVD_MUST_ENTER_DRIVE_LETTER} = "You must enter a drive letter. Enter e.g. D, not D: or D:\\.";
$lang{DVD_MUST_ENTER_DRIVE_PATH} = "You must enter a path.";
$lang{DVD_INFO_ANRI_WILL_EXTRACT_TO_DIR} = "Anri will extract to the ${dvdripto_parentdir} parent directory.";
$lang{QUESTION_DVD_RIPTO_DIR_NAME} = "Name a folder for your DVD files.";
$lang{DVD_MUST_ENTER_RIPTO_DIR_NAME} = "You must enter a folder name.";
$lang{DVD_INFO_ANRI_WILL_RIP_NOW} = "Anri will now extract everything needed from the DVD to the folder you just entered. Make sure you have enough hard drive space (up to 4.3 GB). This may take some time.";
$lang{DVD_ADVANCED_MODE} = "-advanced mode- Rip specific title numbers. Separate by spaces, or leave blank to rip all.";
$lang{DVD_TITLE_NUMBERS} = "Title numbers: ";
$lang{DVD_VIDEOTS_NOT_FOUND} = "Neither a VIDEO_TS nor a DVD_RTAV folder was found in that location. Anri is displeased.";
$lang{DVD_FINISHED_RIPPING} = "Finished ripping.";
$lang{DVD_INDEX_INFO_FILELIST} = "Here is the list of folders containing DVD/MPEG files (*.mpg, *.mpeg, *.vob, *.vro, etc.) in ${dvdripto_parentdir}. Select one or more by typing in the name or names separated by spaces. If you select more than one, the files will be joined in the order you specify.";
$lang{DVD_INDEX_WARNING} = "${navy_on_gray}Note that joining different DVD/MPEG files is only recommended if they're of the same game. The settings you choose later in the editing phase will be applied to the whole project which can cause problems since different games will possibly need different settings.";
$lang{DVD_INDEX_NO_FOLDERS_WITH_DVD_FILES_FOUND} = "No folders with DVD files found!";
$lang{DVD_INDEX_NOW_INDEXING} = "Now indexing MPEG-2 ...";
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-10-13T05:35:05Z

SelbyMD: several miscellaneous bug fixes

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#no auto mode yet
$auto=0;

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...
require Win32;

#get the name of the work directory. this is the desktop by default under windows
$desktop = Win32::GetFolderPath(Win32::CSIDL_DESKTOPDIRECTORY());

#get the path to program files so we can build the anri program directory
$programfiles = Win32::GetFolderPath(Win32::CSIDL_PROGRAM_FILES());

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else {
#FIXME UNIX DESKTOP

#color initialization

#os-specific commands
$clear = "clear";
}

#import mp4nerf
push @INC, $anri_dir;
require 'mp4nerf.pl';

#FIXME LOGFILE STUFF

#FIXME EXTERNAL CONFIGURATION FILE

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

while (1) {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("Main");
@mainmenu = (
['Rip DVD to hard drive (required for DVD material)', '&rip_dvd'],
['Start new project', '&project'],
['Extract sample', '&proc_sample'],
['Station ID preview', '&statid_sample'],
['Exit', 'exit 0'],
);
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "Invalid input.\n\n";
&out_menu(@mainmenu);
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins;
&out_cls_section("Sample Extraction");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
&out_info("This sample will be 300 frames long. Pick the starting frame of a scene with");
&out_info("action.");
&echo("");
&out_info("Press ENTER to continue ...");
<STDIN>;
if ($os eq 'windows') {
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
#how are we going to do this in unix? your guess is as good as mine
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF\nSeparateFields\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}.avs","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir("${desktop}");
&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}Finished. You will find a sample.mp4 file on your desktop. Feel free to rename it something more descriptive like nameofgame_sample.mp4.");
&echo("\n${red_on_gray} - READ -${white_on_gray} You will see that the video has been resized vertically.");
&echo("${red_on_gray}THIS IS NORMAL${white_on_gray} and will make it easier for the techies to help you.");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("PROJECT SETUP");
#IF NOT "%auto%"=="y" (CALL :q_projname)

&out_info("Enter a project name. This name will be used as the basename for your encoded videos (e.g. the high quality video will be called projectname_HQ.mp4, etc.). You may not use spaces or the % character in the name, sorry.");
&echo("");
&echo("${white_on_gray}All files associated with this project will appear in ${navy_on_gray}${desktop}\\(project name)\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "You may not use spaces or the % character in the name, sorry.\n\n";
print $prompt;
}
&make_projdir;
&load_plugins;
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section("MOVIE SOURCE");
&out_info("If you used a capture card with DVD or MPEG settings, place those files in");
&out_info("${dvdripto_parentdir}\\foldername\\ and then answer y to the question below.");
&echo("");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if ($dvdsource) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section("GAME PROPERTIES");
if ((!$dvdsource) and (!$auto)) {
q_boo("Is this a PC game/non-console run recorded with screen capture software? If you say no, your video will be treated as NTSC / PAL.", $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
}

$dfnd_set = 0;
&q_dfnd if !$auto;
if (!$dfnd_set) {
if (!$auto) {
&echo("");
&out_info("\"D\" and \"F\" are used at SDA to refer to the video dimensions and framerate. D1 is full resolution and D4 is half resolution. F1 is full framerate, F2 is half framerate and F3 is 1/3 framerate.");
&echo("");
&out_info("Find D and F for your game at this URL:");
&out_info("http://speeddemosarchive.com/kb/index.php/DF");
&echo("");
&out_info("If you don't see your game listed there, you can use the Extract Sample main menu option to make a sample video to post in the SDA Tech Support Forum. Someone there will look at the video and let you know what D and F are.");
&echo("");
&echo("Please enter 1 or 4 for D.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echo("Please enter 1, 2 or 3 for F.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
}
if ($f eq 1) {
q_boo("2D game [y,n]", $twod) if !$auto;
}
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info("You didn't use the SDA games database. Does that mean that it didn't have your game? If so, we'd love it if you posted the \"D\", \"F\" and maybe \"2D Game\" info you just entered here, into our DFnD updates topic on SDA, so we can add it to the next version of the database. You don't need to register to do so and it only takes a few seconds.");
&echo("");
system("START http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0") if q_boo("Submit this game's data to SDA? [y,n]");
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section("VIDEO PROPERTIES");
if (!$auto) {
q_boo("Progressive or interlaced? If you don't know, it's most likely interlaced (answer 'n' to the question). However, if your video is a PC screen capture (made using e.g. FRAPS or Camtasia) and never touched a VCR or DVD recorder, then it may be progressive.", $prog);
}
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
&out_info("VirtualDub will now open with a split screen of your video. Find a scene with movement and use the slider or play button to play through it to see which looks better. Enter t for top, or b for bottom. If both look good, enter t.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("START \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&out_info("You may now close the VirtualDub window.");
&rm("${projname}_fieldordertemp.avs");
&echo("");

#q_vhs
q_boo("Did you use VHS to help capture this run? [y/n]", $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo("1 pixel bob ... answer y if it's jumping up and down, otherwise n.", $onepixel) if !$auto and ($f != 2);

q_boo("NES [y/n]", $nes) if !$auto;
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo("Game Boy Advance [y/n]", $gba) if !$auto;
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo("Game Boy [y/n]", $gb) if !$auto;
$deflicker=1 if $gb;

q_boo("Deflickered (rereleased old game e.g. Mega Man AC, Sonic Mega Collection, Wii Virtual Console) [y,n]", $deflicker) if !$auto and ($f != 2);

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. There is currently no validation for entering a frame range
# like 50 to 30... or negative numbers. Users can enter dummy values and edit
# project_job.bat later on and it will still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section("CONTENT PROPERTIES");
if (!$auto) {
&out_info("Trimming lets you remove the start and end of the existing movie so you only keep the run itself.");
if (q_boo("Do you want to trim off unwanted content in this video? [y,n]", $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. No checking to see if the frame ranges are valid
# yet. No checking of negative values either.
############################################################################
&echo("");
&out_info("VirtualDub will now open with a low quality temporary version of the source video. Use the slider at the bottom of the VirtualDub window to locate the first and last frame numbers of the part of the video you WANT TO KEEP.");
&echo("");
&out_info("You can specify multiple ranges of frames. - Type n to quit -");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a frame number, or type n to quit.";
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info("No values entered. Canceling trim.");
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error("Odd number of frame numbers detected! All trim values erased!");
@trimarr = ();
} else {
&out_info("Trimming done!");
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg="Invalid input. Must be frame number.";
} else {
push(@trimarr,$_);
&out_info('trim point #'.@trimarr.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}

#statid stuff
&out_cls_section("Station ID");
&out_info("Set the info shown on the Station ID (the clip at the start of an SDA video). Run the Station ID Preview program for a preview.");
if (q_boo("Do you want to append an SDA Station ID to the front and end of this video? [y,n]", $statid)) {
@statidlines = ();
&out_info("Line 1 is normally the runner's name. Line 2 (and Line 3 if necessary) normally include the game name, the type of run and the time to completion.");
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info("Station ID Line ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,$statidline);
&echo("");
}
}
} #end of !$auto

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section("READY TO ENCODE");
&out_info("Your settings for this project have been saved to \"${projname}_job.bat\". To resume the project, double-click that file.");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if (q_boo("Do you want to start encoding now [Y] or save the job for a later date [N]?")) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ/XQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section("ENCODING OPTIONS");
if (!$auto) {
#&savesettings;

@encodethese = ();
for (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
[ 1, \&twopass, "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
[ 1, \&ipod, "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
[ 1, \&twopass, "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
[ 1, \&xvid, "Low quality XviD AVI", "_LQ", 128, 64000, "", 1,1],
[ 1, \&xvid, "Medium quality XviD AVI", "", 512, 64000, "", 1,1],
) {
if ($$_[0]) { #this quality is not disabled for these content properties - so ask the user if they want to make it
push(@encodethese, $_) if q_boo("Create $${_[2]} (".($$_[4]+($$_[5]/1000))." kbps) video? [y/n]");
}
}

}

for (@encodethese) {
my $idtag = $$_[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info("Now encoding ...");
for (@encodethese) {
$$_[1]($projname.$$_[3].$nmf.".avs", $projname.$$_[3], @$_[4..8]);
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs");
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

sub nmf {
&out_cls_section("New Master File");
&out_info("NMF: New Master File refers to an intermediate source video file in the encoding process, usually one saved after deinterlacing (to avoid slow deinterlacing during each pass for each quality of output).");
&echo("");
&out_info("You have chosen to encode HQ, IQ and/or XQ. We can speed up the encoding process by creating a NMF. BEWARE! The new file can be extremely large, somewhere around 36 to 72 GB per hour. Make sure you have enough hard drive space.");
&echo("");
if (q_boo("Create NMF? [y/n]", $create_nmf)) {
$nmf = '_nmf';
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$number_of_processors=$ENV{NUMBER_OF_PROCESSORS};
#Set lagarith to yv12 under doze - yv12 and multithreading turned on
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# multithreading=1
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs");
#:nmf_vdubloop
#counterB
$alignedsplice = "";
for (my $i = 0;$i < $number_of_processors; $i++) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*${i}.000), floor(last.framecount/${number_of_processors}.000*".($i+1).".000)-1)\n",">>","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("avisource(\"${projname}_HQIQXQ_".($i+1).".avi\")\n",">>","${projname}_HQ_nmf.avs");
&rm("${projname}_HQIQXQ_".($i+1));
system("START /LOW /B \"encoding nmf section ".($i+1)."\" \"${vdub_dir}/${vdubcli}\" \"${projname}_HQIQXQ_".($i+1).".avs\" /i \"${anri_dir}/nmf.vcf\" \"${projname}_HQIQXQ_".($i+1).".avi\" > NUL");
$i++;
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
while (grep(/vdub\.exe/, qx("\"${anri_dir}/tasklist.exe\""))) {
&echo("%time% Encoding NMF ...");
sleep(10);
}
&echo("");
&out_info("NMF successfully created. Continuing with encoding process in 5 seconds...");
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("\\++\\\n",">>","${projname}.avs") if $i > 0;
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width %% 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";

$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";

$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";

$projtemp .= $statid ? "statid++run++statid\n" : "run\n";
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs") if $isPCGAME;
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs") if -e "${projname}_trimtemp.avs";
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [y/n]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
require Win32::TieRegistry;
import Win32::TieRegistry (Delimiter=>"/", ArrayValues=>0) unless defined $Registry;
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
&out_info($_[0]);
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput =~ m/^[yn]$/) {
#t becomes 1 (true), b becomes 0 (false)
$userinput =~ tr/yn/10/;
$_[1] = $userinput;
return $userinput;
}
print "Invalid input.\n\n";
print $prompt;
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section("AVI SOURCE");
&out_info("Enter the path to each avi file [i]ndividually or [a]utomatically. Note that if you choose automatic, Anri will load the files in an alphabetical manner. The files must have the same resolution and framerate to be joined together.");
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "Invalid input.\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info('Path to source video file e.g. c:\path to\video.avi without quotes.');
&out_info(" - Type n to quit -");
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a path, or type n to quit.";
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg="You must load at least one avi file.";
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg="Must be an avi file, try again.";
} elsif (! -e $_) {
$errormsg="File does not exist, try again.";
} else {
push(@avifiles,$_);
&out_info('avi #'.@avifiles.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = 'Enter the path to the avi folder e.g. c:\my video folder\ without quotes.';
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg="You must enter a path.";
} elsif (m/^.[^:][^\\].*/) {
$errormsg="Must be full path.";
} elsif (! -e $_) {
$errormsg="Folder does not exist.";
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = 'No avi files found in that folder!';
} else {
#Ask user if the list is good.
&echo('Continue [y] or rescan [n]?');
print $prompt;
while (<STDIN>) {
chomp;
last if (m/^[yn]$/);

print "Invalid input.\n\n";
print $prompt;
}

#do we need to do this whole thing again?
last if $_ eq 'y';
$errormsg = $enterhelp;
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info("The next few questions are about the game played in this video. SDA has a database of games we have seen in the past, which can answer some or all of the questions for you. However, you must be connected to the Internet to use it.");
q_boo("Do you want to use Anri's games database [Y] or enter the data yourself [N]?", $dfnd);
if ($dfnd) {
#:dfnd
&out_info("Anri will now attempt to connect to SDA's games database. This may take a few moments. Once complete, you will see a list of all games in the database.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "http://speeddemosarchive.com/kb/index.php/DF"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~ s/&/\&/g;
$titles .= "".($i+1).": ${title}\n";
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg="You must choose a game.";
} elsif (m/[^0-9]/) {
$errormsg="Please enter the number of a game.";
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg="Invalid selection.";
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error("Could not connect to SDA!");
&q_dfnd if q_boo("Try again? [y/n]");
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section("Rip DVD");
if (!$auto) {
&out_info("What is the drive letter of your DVD drive (e.g. D)?");
&out_info("Tip: If you already have your DVD source files on your hard drive, move them into C:\\VIDEO_TS\\ and enter C as your drive letter.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg="You must enter a drive letter. Enter e.g. D, not D: or D:\\.";
}
&out_error($errormsg);
print $prompt;
}
}
&echo("");
&out_info("Anri will extract to the ${dvdripto_parentdir} parent directory. Name a folder for your DVD files.");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto_parentdir) if !-e $dvdripto_parentdir;
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg="You must enter a folder name.";
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info("Anri will now extract everything needed from the DVD to ${dvdripto}. Make sure you have enough hard drive space (up to 4.3 GB). This may take some time.");
&out_info("Press ENTER to continue ...");
&echo("");
<STDIN>;

if (-e "${driveletter}:/VIDEO_TS") {
$dvdsource = "${driveletter}:/VIDEO_TS";
if (<${dvdsource}/VTS*.IFO>) {
&pgccount(<${dvdsource}/VTS*.IFO>);

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info -advanced mode- Rip specific title numbers. Separate by spaces, or leave blank to rip all. You can look at pgclist.txt in the DVD file destination directory to see which titles will be ripped by default.
# SET s=
# SET /P s=Title numbers:
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 1.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo("Neither VIDEO_TS or DVD_RTAV folder was found on ${driveletter}:\\. Anri is displeased.");
#GOTO DIE
}
}
&out_info("Finished ripping. Press ENTER to continue ...");
<STDIN>;
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
@pgclist = ();
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
return 1;
}

sub index_dvd {
$maxaudiobr = 320000;
&out_cls_info("Here is the list of folders containing DVD/MPEG files (*.mpg, *.mpeg, *.vob, *.vro, etc.) in ${dvdripto_parentdir}\\. Select one or more by typing in the name or names separated by spaces. If you select more than one, the files will be joined in the order you specify.");
&echo("");
&echo("${navy_on_gray}Note that joining different DVD/MPEG files is only recommended if they're of the same game. The settings you choose later in the editing phase will be applied to the whole project which can cause problems since different games will possibly need different settings.");
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
foreach $mask (@dvdfilemasks) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error("No folders with DVD files found!");
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

@dvdchoices = ();
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,"Invalid input.");
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"Invalid selection: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}

&echo("");

&out_info("Now indexing MPEG-2 ...");
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ /^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
#FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

#system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" \"${_[0]}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[4]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --bframes 3 --analyse none --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL \"${_[0]}\"");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --ref 3 --mixed-refs --no-fast-pskip --bframes 3 --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --analyse none --qpmin ${_[4]} --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL ${_[0]}");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --no-fast-pskip --subme 7 --trellis 2 --analyse all --qpmin ${_[4]} --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\" -progress");
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -progress -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -ab ${_[3]} -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${_[0]}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-10-10T01:15:06Z

SelbyMD: replaced use with require for Win32 api calls so it wouldn't crash on unix, removed duplicate color, and made some other small changes

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#no auto mode yet
$auto=0;

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...
require Win32;

#get the name of the work directory. this is the desktop by default under windows
$desktop = Win32::GetFolderPath(Win32::CSIDL_DESKTOPDIRECTORY());

#get the path to program files so we can build the anri program directory
$programfiles = Win32::GetFolderPath(Win32::CSIDL_PROGRAM_FILES());

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else {
#FIXME UNIX DESKTOP

#color initialization

#os-specific commands
$clear = "clear";
}

#import mp4nerf
push @INC, $anri_dir;
require 'mp4nerf.pl';

#FIXME LOGFILE STUFF

#FIXME EXTERNAL CONFIGURATION FILE

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

while (1) {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("Main");
@mainmenu = (
['Rip DVD to hard drive (required for DVD material)', '&rip_dvd'],
['Start new project', '&project'],
['Extract sample', '&proc_sample'],
['Station ID preview', '&statid_sample'],
['Exit', 'exit 0'],
);
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "Invalid input.\n\n";
&out_menu(@mainmenu);
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins;
&out_cls_section("Sample Extraction");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
&out_info("This sample will be 300 frames long. Pick the starting frame of a scene with");
&out_info("action.");
&echo("");
&out_info("Press ENTER to continue ...");
<STDIN>;
if ($os eq 'windows') {
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
#how are we going to do this in unix? your guess is as good as mine
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF\nSeparateFields\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}.avs","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir("${desktop}");
&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}Finished. You will find a sample.mp4 file on your desktop. Feel free to rename it something more descriptive like nameofgame_sample.mp4.");
&echo("\n${red_on_gray} - READ -${white_on_gray} You will see that the video has been resized vertically.");
&echo("${red_on_gray}THIS IS NORMAL${white_on_gray} and will make it easier for the techies to help you.");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("PROJECT SETUP");
#IF NOT "%auto%"=="y" (CALL :q_projname)

&out_info("Enter a project name. This name will be used as the basename for your encoded videos (e.g. the high quality video will be called projectname_HQ.mp4, etc.). You may not use spaces or the % character in the name, sorry.");
&echo("");
&echo("${white_on_gray}All files associated with this project will appear in ${navy_on_gray}${desktop}\\(project name)\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "You may not use spaces or the % character in the name, sorry.\n\n";
print $prompt;
}
&make_projdir;
&load_plugins;
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section("MOVIE SOURCE");
&out_info("If you used a capture card with DVD or MPEG settings, place those files in");
&out_info("${dvdripto_parentdir}\\foldername\\ and then answer y to the question below.");
&echo("");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if ($dvdsource) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section("GAME PROPERTIES");
if ((!$dvdsource) and (!$auto)) {
q_boo("Is this a PC game/non-console run recorded with screen capture software? If you say no, your video will be treated as NTSC / PAL.", $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
}

$dfnd_set = 0;
&q_dfnd if !$auto;
if (!$dfnd_set) {
if (!$auto) {
&echo("");
&out_info("\"D\" and \"F\" are used at SDA to refer to the video dimensions and framerate. D1 is full resolution and D4 is half resolution. F1 is full framerate, F2 is half framerate and F3 is 1/3 framerate.");
&echo("");
&out_info("Find D and F for your game at this URL:");
&out_info("http://speeddemosarchive.com/kb/index.php/DF");
&echo("");
&out_info("If you don't see your game listed there, you can use the Extract Sample main menu option to make a sample video to post in the SDA Tech Support Forum. Someone there will look at the video and let you know what D and F are.");
&echo("");
&echo("Please enter 1 or 4 for D.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echo("Please enter 1, 2 or 3 for F.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
}
if ($f eq 1) {
q_boo("2D game [y,n]", $twod) if !$auto;
}
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info("You didn't use the SDA games database. Does that mean that it didn't have your game? If so, we'd love it if you posted the \"D\", \"F\" and maybe \"2D Game\" info you just entered here, into our DFnD updates topic on SDA, so we can add it to the next version of the database. You don't need to register to do so and it only takes a few seconds.");
&echo("");
system("START http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0") if q_boo("Submit this game's data to SDA? [y,n]");
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section("VIDEO PROPERTIES");
if (!$auto) {
q_boo("Progressive or interlaced? If you don't know, it's most likely interlaced (answer 'n' to the question). However, if your video is a PC screen capture (made using e.g. FRAPS or Camtasia) and never touched a VCR or DVD recorder, then it may be progressive.", $prog);
}
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
&out_info("VirtualDub will now open with a split screen of your video. Find a scene with movement and use the slider or play button to play through it to see which looks better. Enter t for top, or b for bottom. If both look good, enter t.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("START \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&out_info("You may now close the VirtualDub window.");
&rm("${projname}_fieldordertemp.avs");
&echo("");

#q_vhs
q_boo("Did you use VHS to help capture this run? [y/n]", $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo("1 pixel bob ... answer y if it's jumping up and down, otherwise n.", $onepixel) if !$auto and ($f != 2);

q_boo("NES [y/n]", $nes) if !$auto;
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo("Game Boy Advance [y/n]", $gba) if !$auto;
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo("Game Boy [y/n]", $gb) if !$auto;
$deflicker=1 if $gb;

q_boo("Deflickered (rereleased old game e.g. Mega Man AC, Sonic Mega Collection, Wii Virtual Console) [y,n]", $deflicker) if !$auto and ($f != 2);

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. There is currently no validation for entering a frame range
# like 50 to 30... or negative numbers. Users can enter dummy values and edit
# project_job.bat later on and it will still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section("CONTENT PROPERTIES");
if (!$auto) {
&out_info("Trimming lets you remove the start and end of the existing movie so you only keep the run itself.");
if (q_boo("Do you want to trim off unwanted content in this video? [y,n]", $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. No checking to see if the frame ranges are valid
# yet. No checking of negative values either.
############################################################################
&echo("");
&out_info("VirtualDub will now open with a low quality temporary version of the source video. Use the slider at the bottom of the VirtualDub window to locate the first and last frame numbers of the part of the video you WANT TO KEEP.");
&echo("");
&out_info("You can specify multiple ranges of frames. - Type n to quit -");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a frame number, or type n to quit.";
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info("No values entered. Canceling trim.");
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error("Odd number of frame numbers detected! All trim values erased!");
@trimarr = ();
} else {
&out_info("Trimming done!");
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg="Invalid input. Must be frame number.";
} else {
push(@trimarr,$_);
&out_info('trim point #'.@trimarr.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}

#statid stuff
&out_cls_section("Station ID");
&out_info("Set the info shown on the Station ID (the clip at the start of an SDA video). Run the Station ID Preview program for a preview.");
if (q_boo("Do you want to append an SDA Station ID to the front and end of this video? [y,n]", $statid)) {
@statidlines = ();
&out_info("Line 1 is normally the runner's name. Line 2 (and Line 3 if necessary) normally include the game name, the type of run and the time to completion.");
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info("Station ID Line ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,'"'.$statidline.'"');
&echo("");
}
}
} #end of !$auto

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section("READY TO ENCODE");
&out_info("Your settings for this project have been saved to \"${projname}_job.bat\". To resume the project, double-click that file.");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if (q_boo("Do you want to start encoding now [Y] or save the job for a later date [N]?")) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ/XQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section("ENCODING OPTIONS");
if (!$auto) {
#&savesettings;

@encodethese = ();
for (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
[ 1, \&twopass, "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
[ 1, \&ipod, "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
[ 1, \&twopass, "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
[ (($d==1) && ($f==1)), \&twopass, "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
[ 1, \&xvid, "Low quality XviD AVI", "_LQ", 128, 64000, "", 1,1],
[ 1, \&xvid, "Medium quality XviD AVI", "", 512, 64000, "", 1,1],
) {
if ($$_[0]) { #this quality is not disabled for these content properties - so ask the user if they want to make it
push(@encodethese, $_) if q_boo("Create $${_[2]} (".($$_[4]+($$_[5]/1000))." kbps) video? [y/n]");
}
}

}

for (@encodethese) {
my $idtag = $$_[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info("Now encoding ...");
for (@encodethese) {
$$_[1]($projname.$$_[3].$nmf.".avs", $projname, @$_[4..8]);
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs");
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

sub nmf {
$nmf = '_nmf';
&out_cls_section("New Master File");
&out_info("NMF: New Master File refers to an intermediate source video file in the encoding process, usually one saved after deinterlacing (to avoid slow deinterlacing during each pass for each quality of output).");
&echo("");
&out_info("You have chosen to encode HQ, IQ and/or XQ. We can speed up the encoding process by creating a NMF. BEWARE! The new file can be extremely large, somewhere around 36 to 72 GB per hour. Make sure you have enough hard drive space.");
&echo("");
if (q_boo("Create NMF? [y/n]", $create_nmf)) {
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$number_of_processors=$ENV{NUMBER_OF_PROCESSORS};
#Set lagarith to yv12 under doze - yv12 and multithreading turned on
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# multithreading=1
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs");
#:nmf_vdubloop
#counterB
$alignedsplice = "";
for (my $i = 0;$i < $number_of_processors; $i++) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*${i}.000), floor(last.framecount/${number_of_processors}.000*".($i+1).".000)-1)\n",">>","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("avisource(\"${projname}_HQIQXQ_".($i+1).".avi\")\n",">>","${projname}_HQ_nmf.avs");
&rm("${projname}_HQIQXQ_".($i+1));
system("START /LOW /B \"encoding nmf section ".($i+1)."\" \"${vdub_dir}/${vdubcli}\" \"${projname}_HQIQXQ_".($i+1).".avs\" /i \"${anri_dir}/nmf.vcf\" \"${projname}_HQIQXQ_".($i+1).".avi\" > NUL");
$i++;
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
while (grep(/vdub\.exe/, qx("\"${anri_dir}/tasklist.exe\""))) {
&echo("%time% Encoding NMF ...");
sleep(10);
}
&echo("");
&out_info("NMF successfully created. Continuing with encoding process in 5 seconds...");
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width %% 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";

$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";

$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";

$statid ? $projtemp .= "statid++run++statid\n" : $projtemp .= "run\n";
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs") if $isPCGAME;
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs");
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [y/n]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
require Win32::TieRegistry;
import Win32::TieRegistry (Delimiter=>"/", ArrayValues=>0) unless defined $Registry;
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
&out_info($_[0]);
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput =~ m/^[yn]$/) {
#t becomes 1 (true), b becomes 0 (false)
$userinput =~ tr/yn/10/;
$_[1] = $userinput;
return $userinput;
}
print "Invalid input.\n\n";
print $prompt;
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section("AVI SOURCE");
&out_info("Enter the path to each avi file [i]ndividually or [a]utomatically. Note that if you choose automatic, Anri will load the files in an alphabetical manner. The files must have the same resolution and framerate to be joined together.");
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "Invalid input.\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info('Path to source video file e.g. c:\path to\video.avi without quotes.');
&out_info(" - Type n to quit -");
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a path, or type n to quit.";
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg="You must load at least one avi file.";
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg="Must be an avi file, try again.";
} elsif (! -e $_) {
$errormsg="File does not exist, try again.";
} else {
push(@avifiles,$_);
&out_info('avi #'.@avifiles.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = 'Enter the path to the avi folder e.g. c:\my video folder\ without quotes.';
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg="You must enter a path.";
} elsif (m/^.[^:][^\\].*/) {
$errormsg="Must be full path.";
} elsif (! -e $_) {
$errormsg="Folder does not exist.";
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = 'No avi files found in that folder!';
} else {
#Ask user if the list is good.
&echo('Continue [y] or rescan [n]?');
print $prompt;
while (<STDIN>) {
chomp;
last if (m/^[yn]$/);

print "Invalid input.\n\n";
print $prompt;
}

#do we need to do this whole thing again?
last if $_ eq 'y';
$errormsg = $enterhelp;
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info("The next few questions are about the game played in this video. SDA has a database of games we have seen in the past, which can answer some or all of the questions for you. However, you must be connected to the Internet to use it.");
q_boo("Do you want to use Anri's games database [Y] or enter the data yourself [N]?", $dfnd);
if ($dfnd) {
#:dfnd
&out_info("Anri will now attempt to connect to SDA's games database. This may take a few moments. Once complete, you will see a list of all games in the database.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "http://speeddemosarchive.com/kb/index.php/DF"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~ s/&/\&/g;
$titles .= "".($i+1).": ${title}\n";
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg="You must choose a game.";
} elsif (m/[^0-9]/) {
$errormsg="Please enter the number of a game.";
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg="Invalid selection.";
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error("Could not connect to SDA!");
&q_dfnd if q_boo("Try again? [y/n]");
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section("Rip DVD");
if (!$auto) {
&out_info("What is the drive letter of your DVD drive (e.g. D)?");
&out_info("Tip: If you already have your DVD source files on your hard drive, move them into C:\\VIDEO_TS\\ and enter C as your drive letter.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg="You must enter a drive letter. Enter e.g. D, not D: or D:\\.";
}
&out_error($errormsg);
print $prompt;
}
}
&echo("");
&out_info("Anri will extract to the ${dvdripto_parentdir} parent directory. Name a folder for your DVD files.");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg="You must enter a folder name.";
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info("Anri will now extract everything needed from the DVD to ${dvdripto}. Make sure you have enough hard drive space (up to 4.3 GB). This may take some time.");
&out_info("Press ENTER to continue ...");
&echo("");
<STDIN>;

if (-e "${driveletter}:/VIDEO_TS") {
$dvdsource = "${driveletter}:/VIDEO_TS";
if (<${dvdsource}/VTS*.IFO>) {
&pgccount(<${dvdsource}/VTS*.IFO>);

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info -advanced mode- Rip specific title numbers. Separate by spaces, or leave blank to rip all. You can look at pgclist.txt in the DVD file destination directory to see which titles will be ripped by default.
# SET s=
# SET /P s=Title numbers:
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 1.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo("Neither VIDEO_TS or DVD_RTAV folder was found on ${driveletter}:\\. Anri is displeased.");
#GOTO DIE
}
}
&out_info("Finished ripping. Press ENTER to continue ...");
<STDIN>;
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
#substr($buffer, 0, 12) eq pack('C12', 0x44, 0x56, 0x44, 0x56, 0x49, 0x44, 0x45, 0x4F, 0x2D, 0x56, 0x54, 0x53) or return 0;
return 1;
}

sub index_dvd {
$maxaudiobr = 320000;
&out_cls_info("Here is the list of folders containing DVD/MPEG files (*.mpg, *.mpeg, *.vob, *.vro, etc.) in ${dvdripto_parentdir}\\. Select one or more by typing in the name or names separated by spaces. If you select more than one, the files will be joined in the order you specify.");
&echo("");
&echo("${navy_on_gray}Note that joining different DVD/MPEG files is only recommended if they're of the same game. The settings you choose later in the editing phase will be applied to the whole project which can cause problems since different games will possibly need different settings.");
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
foreach $mask (@dvdfilemasks) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error("No folders with DVD files found!");
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

@dvdchoices = ();
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,"Invalid input.");
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"Invalid selection: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}

&echo("");

&out_info("Now indexing MPEG-2 ...");
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ /^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
#FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

#system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" \"${_[0]}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[4]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --bframes 3 --analyse none --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL \"${_[0]}\"");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --ref 3 --mixed-refs --no-fast-pskip --bframes 3 --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --analyse none --qpmin ${_[4]} --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL ${_[0]}");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --no-fast-pskip --subme 7 --trellis 2 --analyse all --qpmin ${_[4]} --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\"");
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -ab ${_[3]} -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${_[0]}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source

2008-10-03T02:43:05Z

SelbyMD: edited mp4nerf.pl description

[[Anri-chan]] is a set of Windows NT-series [http://en.wikipedia.org/wiki/Batch_file batch files] that bring together the functions of a number of movie editing and encoding applications to create movies suitable for publication on Speed Demos Archive.

===Anri-chan 4===
[[Anri-chan/Source/anri.pl|anri.pl]] - The main script; asks the relevant questions and encodes the movie.

[[Anri-chan/Source/sasami.pl|sasami.pl]] - Translate Anri-written .avs into a FIFO written to by mencoder for running under Unix - to be integrated into anri.pl?

[[Anri-chan/Source/mp4nerf.pl|mp4nerf.pl]] - Disables all but the first audio track in a muxed MP4 file. Imported from anri.pl.

===Anri-chan 3===
[[Anri-chan/Source/anri.bat|anri.bat]] - The main script; asks the relevant questions and encodes the movie.

[[Anri-chan/Source/statid.bat|statid.bat]] - Station ID sample script; produces an example StatID to preview.

[[Anri-chan/Source/ini.bat|ini.bat]] - Change settings.

[[Anri-chan/Source/edit_settings.bat|edit_settings.bat]] - Settings script; asks most of the questions in anri.bat so it can skip them. <font color="red">Not currently integrated into Anri-chan.</font>

===Avisynth Library===

[[Anri-chan/Source/nate.avs|nate.avs]] - The M2K2SDA Avisynth library written by nate and ballofsnow

===Misc. Files===
[[Anri-chan/Source/DGIndex.ini|DGIndex.ini]] - DGIndex settings. Take note of Output_Method, Enable_Info_Log and Use_MPA_Extensions.

[[Anri-chan/Source/infotemplate.avs|infotemplate.avs]] - Used with DGindex to gather information of video, audio and audio delay.

[[Anri-chan/Source/directshowsource_list.txt|directshowsource_list.txt]] - Compare AVI fourCC with list to determine avisource or directshowsource.

===PHP Files===
[[Anri-chan/Source/df.php|df.php]] - Produces the dfnd_data.bat and dfnd_titles.bat game database files on the server side.

===C Files===

[[Anri-chan/Source/pgccount.cpp|pgccount.cpp]] - [[Media:pgccount_0.3.zip|exe]] - Finds all unique program chains in an IFO, to be used with Mplayer's stream dump.

[[Anri-chan/Source/mp4nerf.c|mp4nerf.c]] - [[Media:mp4nerf-b0.1.zip|exe]] - Disables all but the first audio track in a muxed MP4 file. Not currently integrated into anri-chan.

===Compile===
[[Anri-chan/Source/anrichan.nsi|anrichan.nsi]] - Anri-chan 3 installer

[[Anri-chan/Source/builddir.bat|builddir.bat]] - Helps build directory content list.

===Coding standards===

[[Anri-chan/Source/Coding_Standards/Perl|Perl]]

Anri-chan/Source/anri.pl

2008-10-03T02:40:41Z

SelbyMD: now imports &mp4nerf()

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#no auto mode yet
$auto=0;

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...

#get the name of the work directory. this is the desktop by default under windows
use Win32 qw(CSIDL_DESKTOPDIRECTORY);
$desktop = Win32::GetFolderPath(CSIDL_DESKTOPDIRECTORY);

#get the path to program files so we can build the anri program directory
use Win32 qw(CSIDL_PROGRAM_FILES);
$programfiles = Win32::GetFolderPath(CSIDL_PROGRAM_FILES);

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$blue_on_black = '{blue on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else {
#FIXME UNIX DESKTOP

#color initialization

#os-specific commands
$clear = "clear";
}

#import mp4nerf
push @INC, $anri_dir;
require 'mp4nerf.pl';

#FIXME LOGFILE STUFF

#FIXME EXTERNAL CONFIGURATION FILE

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

while (1) {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("Main");
@mainmenu = (
['Rip DVD to hard drive (required for DVD material)', '&rip_dvd'],
['Start new project', '&project'],
['Extract sample', '&proc_sample'],
['Station ID preview', '&statid_sample'],
['Exit', 'exit 0'],
);
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "Invalid input.\n\n";
&out_menu(@mainmenu);
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins;
&out_cls_section("Sample Extraction");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
&out_info("This sample will be 300 frames long. Pick the starting frame of a scene with");
&out_info("action.");
&echo("");
&out_info("Press ENTER to continue ...");
<STDIN>;
if ($os eq 'windows') {
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
#how are we going to do this in unix? your guess is as good as mine
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF\nSeparateFields\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}.avs","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir("${desktop}");
&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}Finished. You will find a sample.mp4 file on your desktop. Feel free to rename it something more descriptive like nameofgame_sample.mp4.");
&echo("\n${red_on_gray} - READ -${white_on_gray} You will see that the video has been resized vertically.");
&echo("${red_on_gray}THIS IS NORMAL${white_on_gray} and will make it easier for the techies to help you.");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("PROJECT SETUP");
#IF NOT "%auto%"=="y" (CALL :q_projname)

&out_info("Enter a project name. This name will be used as the basename for your encoded videos (e.g. the high quality video will be called projectname_HQ.mp4, etc.). You may not use spaces or the % character in the name, sorry.");
&echo("");
&echo("${white_on_gray}All files associated with this project will appear in ${navy_on_gray}${desktop}\\(project name)\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "You may not use spaces or the % character in the name, sorry.\n\n";
print $prompt;
}
&make_projdir;
&load_plugins;
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section("MOVIE SOURCE");
&out_info("If you used a capture card with DVD or MPEG settings, place those files in");
&out_info("${dvdripto_parentdir}\\foldername\\ and then answer y to the question below.");
&echo("");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if ($dvdsource) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section("GAME PROPERTIES");
if ((!$dvdsource) and (!$auto)) {
q_boo("Is this a PC game/non-console run recorded with screen capture software? If you say no, your video will be treated as NTSC / PAL.", $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
}

$dfnd_set = 0;
&q_dfnd if !$auto;
if (!$dfnd_set) {
if (!$auto) {
&echo("");
&out_info("\"D\" and \"F\" are used at SDA to refer to the video dimensions and framerate. D1 is full resolution and D4 is half resolution. F1 is full framerate, F2 is half framerate and F3 is 1/3 framerate.");
&echo("");
&out_info("Find D and F for your game at this URL:");
&out_info("http://speeddemosarchive.com/kb/index.php/DF");
&echo("");
&out_info("If you don't see your game listed there, you can use the Extract Sample main menu option to make a sample video to post in the SDA Tech Support Forum. Someone there will look at the video and let you know what D and F are.");
&echo("");
&echo("Please enter 1 or 4 for D.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echo("Please enter 1, 2 or 3 for F.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
}
if ($f eq 1) {
q_boo("2D game [y,n]", $twod) if !$auto;
}
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info("You didn't use the SDA games database. Does that mean that it didn't have your game? If so, we'd love it if you posted the \"D\", \"F\" and maybe \"2D Game\" info you just entered here, into our DFnD updates topic on SDA, so we can add it to the next version of the database. You don't need to register to do so and it only takes a few seconds.");
&echo("");
system("START http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0") if q_boo("Submit this game's data to SDA? [y,n]");
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section("VIDEO PROPERTIES");
if (!$auto) {
q_boo("Progressive or interlaced? If you don't know, it's most likely interlaced (answer 'n' to the question). However, if your video is a PC screen capture (made using e.g. FRAPS or Camtasia) and never touched a VCR or DVD recorder, then it may be progressive.", $prog);
}
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
&out_info("VirtualDub will now open with a split screen of your video. Find a scene with movement and use the slider or play button to play through it to see which looks better. Enter t for top, or b for bottom. If both look good, enter t.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("START \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&out_info("You may now close the VirtualDub window.");
&rm("${projname}_fieldordertemp.avs");
&echo("");

#q_vhs
q_boo("Did you use VHS to help capture this run? [y/n]", $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo("1 pixel bob ... answer y if it's jumping up and down, otherwise n.", $onepixel) if !$auto and ($f != 2);

q_boo("NES [y/n]", $nes) if !$auto;
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo("Game Boy Advance [y/n]", $gba) if !$auto;
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo("Game Boy [y/n]", $gb) if !$auto;
$deflicker=1 if $gb;

q_boo("Deflickered (rereleased old game e.g. Mega Man AC, Sonic Mega Collection, Wii Virtual Console) [y,n]", $deflicker) if !$auto and ($f != 2);

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. There is currently no validation for entering a frame range
# like 50 to 30... or negative numbers. Users can enter dummy values and edit
# project_job.bat later on and it will still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section("CONTENT PROPERTIES");
if (!$auto) {
&out_info("Trimming lets you remove the start and end of the existing movie so you only keep the run itself.");
if (q_boo("Do you want to trim off unwanted content in this video? [y,n]", $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. No checking to see if the frame ranges are valid
# yet. No checking of negative values either.
############################################################################
&echo("");
&out_info("VirtualDub will now open with a low quality temporary version of the source video. Use the slider at the bottom of the VirtualDub window to locate the first and last frame numbers of the part of the video you WANT TO KEEP.");
&echo("");
&out_info("You can specify multiple ranges of frames. - Type n to quit -");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a frame number, or type n to quit.";
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info("No values entered. Canceling trim.");
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error("Odd number of frame numbers detected! All trim values erased!");
@trimarr = ();
} else {
&out_info("Trimming done!");
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg="Invalid input. Must be frame number.";
} else {
push(@trimarr,$_);
&out_info('trim point #'.@trimarr.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}

#statid stuff
&out_cls_section("Station ID");
&out_info("Set the info shown on the Station ID (the clip at the start of an SDA video). Run the Station ID Preview program for a preview.");
if (q_boo("Do you want to append an SDA Station ID to the front and end of this video? [y,n]", $statid)) {
@statidlines = ();
&out_info("Line 1 is normally the runner's name. Line 2 (and Line 3 if necessary) normally include the game name, the type of run and the time to completion.");
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info("Station ID Line ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,'"'.$statidline.'"');
&echo("");
}
}
} #end of !$auto

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section("READY TO ENCODE");
&out_info("Your settings for this project have been saved to \"${projname}_job.bat\". To resume the project, double-click that file.");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if (q_boo("Do you want to start encoding now [Y] or save the job for a later date [N]?")) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section("ENCODING OPTIONS");
if (!$auto) {
#&savesettings;

@encodethese = ();
for (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
[ 1, '&twopass', "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
[ 1, '&ipod', "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
[ 1, '&twopass', "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
[ (($d==1) && ($f==1)), '&twopass', "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
[ (($d==1) && ($f==1)), '&twopass', "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
[ 1, '&xvid', "Low quality XviD AVI", "", 128, 64000, "", 1,1],
[ 1, '&xvid', "Medium quality XviD AVI", "_LQ", 512, 64000, "", 1,1],
) {
if (@$_[0]) { #this quality is not disabled for these content properties - so ask the user if they want to make it
push(@encodethese,[ @$_ ]) if q_boo("Create @${_[2]} (".(@$_[4]+(@$_[5]/1000))." kbps) video? [y/n]");
}
}

}

for (@encodethese) {
my $idtag = @$_[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info("Now encoding ...");
for (@encodethese) {
# 0 1 2 3 4 5 6
eval(@${_[1]}."(\"".${projname}.@${_[3]}.${nmf}.".avs\", \"".${projname}."\", ".@${_[4]}.", ".@${_[5]}.", \"".@${_[6]}."\", ".@${_[7]}.", ".@${_[8]}.")");
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs");
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

sub nmf {
$nmf = '_nmf';
&out_cls_section("New Master File");
&out_info("NMF: New Master File refers to an intermediate source video file in the encoding process, usually one saved after deinterlacing (to avoid slow deinterlacing during each pass for each quality of output).");
&echo("");
&out_info("You have chosen to encode HQ, IQ and/or XQ. We can speed up the encoding process by creating a NMF. BEWARE! The new file can be extremely large, somewhere around 36 to 72 GB per hour. Make sure you have enough hard drive space.");
&echo("");
if (q_boo("Create NMF? [y/n]", $create_nmf)) {
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$_=qx("ECHO %NUMBER_OF_PROCESSORS%");
chomp;
$number_of_processors=$_;
#Set lagarith to yv12 under doze - yv12 and multithreading turned on
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# multithreading=1
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs");
#:nmf_vdubloop
#counterB
$alignedsplice = "";
for (my $i = 0;$i < $number_of_processors; $i++) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*${i}.000), floor(last.framecount/${number_of_processors}.000*".($i+1).".000)-1)\n",">>","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("avisource(\"${projname}_HQIQXQ_".($i+1).".avi\")\n",">>","${projname}_HQ_nmf.avs");
&rm("${projname}_HQIQXQ_".($i+1));
system("START /LOW /B \"encoding nmf section ".($i+1)."\" \"${vdub_dir}/${vdubcli}\" \"${projname}_HQIQXQ_".($i+1).".avs\" /i \"${anri_dir}/nmf.vcf\" \"${projname}_HQIQXQ_".($i+1).".avi\" > NUL");
$i++;
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
while (grep(/vdub\.exe/, qx("\"${anri_dir}/tasklist.exe\""))) {
&echo("%time% Encoding NMF ...");
sleep(10);
}
&echo("");
&out_info("NMF successfully created. Continuing with encoding process in 5 seconds...");
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width %% 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";

$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";

$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";

$statid ? $projtemp .= "statid++run++statid\n" : $projtemp .= "run\n";
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs") if $isPCGAME;
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs");
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [y/n]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
use Win32::TieRegistry(Delimiter=>"/",ArrayValues=>0);
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
&out_info($_[0]);
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput =~ m/^[yn]$/) {
#t becomes 1 (true), b becomes 0 (false)
$userinput =~ tr/yn/10/;
$_[1] = $userinput;
return $userinput;
}
print "Invalid input.\n\n";
print $prompt;
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section("AVI SOURCE");
&out_info("Enter the path to each avi file [i]ndividually or [a]utomatically. Note that if you choose automatic, Anri will load the files in an alphabetical manner. The files must have the same resolution and framerate to be joined together.");
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "Invalid input.\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info('Path to source video file e.g. c:\path to\video.avi without quotes.');
&out_info(" - Type n to quit -");
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a path, or type n to quit.";
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg="You must load at least one avi file.";
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg="Must be an avi file, try again.";
} elsif (! -e $_) {
$errormsg="File does not exist, try again.";
} else {
push(@avifiles,$_);
&out_info('avi #'.@avifiles.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = 'Enter the path to the avi folder e.g. c:\my video folder\ without quotes.';
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg="You must enter a path.";
} elsif (m/^.[^:][^\\].*/) {
$errormsg="Must be full path.";
} elsif (! -e $_) {
$errormsg="Folder does not exist.";
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = 'No avi files found in that folder!';
} else {
#Ask user if the list is good.
&echo('Continue [y] or rescan [n]?');
print $prompt;
while (<STDIN>) {
chomp;
last if (m/^[yn]$/);

print "Invalid input.\n\n";
print $prompt;
}

#do we need to do this whole thing again?
last if $_ eq 'y';
$errormsg = $enterhelp;
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info("The next few questions are about the game played in this video. SDA has a database of games we have seen in the past, which can answer some or all of the questions for you. However, you must be connected to the Internet to use it.");
q_boo("Do you want to use Anri's games database [Y] or enter the data yourself [N]?", $dfnd);
if ($dfnd) {
#:dfnd
&out_info("Anri will now attempt to connect to SDA's games database. This may take a few moments. Once complete, you will see a list of all games in the database.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "http://speeddemosarchive.com/kb/index.php/DF"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~ s/&/\&/g;
$titles .= "".($i+1).": ${title}\n";
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg="You must choose a game.";
} elsif (m/[^0-9]/) {
$errormsg="Please enter the number of a game.";
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg="Invalid selection.";
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error("Could not connect to SDA!");
&q_dfnd if q_boo("Try again? [y/n]");
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section("Rip DVD");
if (!$auto) {
&out_info("What is the drive letter of your DVD drive (e.g. D)?");
&out_info("Tip: If you already have your DVD source files on your hard drive, move them into C:\\VIDEO_TS\\ and enter C as your drive letter.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg="You must enter a drive letter. Enter e.g. D, not D: or D:\\.";
}
&out_error($errormsg);
print $prompt;
}
}
&echo("");
&out_info("Anri will extract to the ${dvdripto_parentdir} parent directory. Name a folder for your DVD files.");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg="You must enter a folder name.";
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info("Anri will now extract everything needed from the DVD to ${dvdripto}. Make sure you have enough hard drive space (up to 4.3 GB). This may take some time.");
&out_info("Press ENTER to continue ...");
&echo("");
<STDIN>;

if (-e "${driveletter}:/VIDEO_TS") {
$dvdsource = "${driveletter}:/VIDEO_TS";
if (<${dvdsource}/VTS*.IFO>) {
&pgccount(<${dvdsource}/VTS*.IFO>);

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info -advanced mode- Rip specific title numbers. Separate by spaces, or leave blank to rip all. You can look at pgclist.txt in the DVD file destination directory to see which titles will be ripped by default.
# SET s=
# SET /P s=Title numbers:
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 1.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo("Neither VIDEO_TS or DVD_RTAV folder was found on ${driveletter}:\\. Anri is displeased.");
#GOTO DIE
}
}
&out_info("Finished ripping. Press ENTER to continue ...");
<STDIN>;
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
#substr($buffer, 0, 12) eq pack('C12', 0x44, 0x56, 0x44, 0x56, 0x49, 0x44, 0x45, 0x4F, 0x2D, 0x56, 0x54, 0x53) or return 0;
return 1;
}

sub index_dvd {
$maxaudiobr = 320000;
&out_cls_info("Here is the list of folders containing DVD/MPEG files (*.mpg, *.mpeg, *.vob, *.vro, etc.) in ${dvdripto_parentdir}\\. Select one or more by typing in the name or names separated by spaces. If you select more than one, the files will be joined in the order you specify.");
&echo("");
&echo("${navy_on_gray}Note that joining different DVD/MPEG files is only recommended if they're of the same game. The settings you choose later in the editing phase will be applied to the whole project which can cause problems since different games will possibly need different settings.");
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
foreach $mask (@dvdfilemasks) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error("No folders with DVD files found!");
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

@dvdchoices = ();
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,"Invalid input.");
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"Invalid selection: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}

&echo("");

&out_info("Now indexing MPEG-2 ...");
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ /^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
#FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

#system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" \"${_[0]}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[4]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --bframes 3 --analyse none --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL \"${_[0]}\"");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --ref 3 --mixed-refs --no-fast-pskip --bframes 3 --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --analyse none --qpmin ${_[4]} --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL ${_[0]}");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --no-fast-pskip --subme 7 --trellis 2 --analyse all --qpmin ${_[4]} --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\"");
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -b ".($_[3]/1000)." -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${_[0]}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source/mp4nerf.pl

2008-10-03T02:35:14Z

SelbyMD: suppressed status messages when called from anri

<pre><nowiki>
#!/usr/bin/perl
use warnings;
use strict 'subs';
package mp4nerf;

$action = 'nerf'; # default when called from anri
{ no warnings 'once'; *anri::mp4nerf = *mp4nerf; }
exit &mp4batchnerf(@ARGV) unless defined caller();

sub mp4batchnerf {
$verbose = 1;
$action = 'print'; # default when called stand-alone
&pout("MP4 audio track disabler\n");
&pout("beta 0.2, DJ Grenola & SelbyMD\n\n");
&pout("This software comes with no warranty.\n\n");
unless (grep {-e} @_) {
&perr("Usage: mp4nerf.pl <MP4 file> [ <MP4 file> ... ] to print track information\n");
&perr("Usage: mp4nerf.pl -n <MP4 file> [ <MP4 file> ... ] to disable commentary\n");
&perr("Usage: mp4nerf.pl -u <MP4 file> [ <MP4 file> ... ] to re-enable commentary\n");
return 1;
}
for $arg (@_) {
if ($arg eq '-p') { $action = 'print' }
elsif ($arg eq '-u') { $action = 'unnerf' }
elsif ($arg eq '-n') { $action = 'nerf' }
elsif ($arg eq '-x') { $action = 'nerf' }
else { $files++; $errors += &mp4nerf($arg) }
}
if ($errors) {
&perr("[-] There were errors during processing. [${errors}/${files}]\n");
} else {
&pout("[+] All files processed successfully.\n");
}
return $errors;
}

sub mp4nerf {
$mp4file = shift;
$matches = 0;
$tracks_to_skip = ($action eq 'nerf') ? 1 : 0;
unless (open(FH, '+<:raw', $mp4file)) {
&perr(qq([-] Failed to open file "${mp4file}".\n\n));
return 1;
}
&pout(qq([+] Scanning file "${mp4file}".\n));
@traks = &getatomtree([qw(moov trak)], [0, -s $mp4file]);
unless (@traks) {
&perr(qq([-] No tracks found. Maybe this isn't an mp4 file.\n\n));
close(FH);
return 1;
}
for $trak (@traks) {
($tkhd) = &getatoms('tkhd', @$trak);
($offset, $id, $status, $type) = ($$tkhd[0], &id($tkhd), &status($tkhd), &type($trak));
unless (defined($id) and defined($status)) {
&perr(qq([-] Error reading from file "${mp4file}".\n\n));
close(FH);
return 1;
}
printf("[+] Track %d (%7s,%8s) at 0x%08x, ", $id, $type, $status, $$trak[0] - 8) if $verbose;
if ($type ne 'audio') {
&pout("ignored.\n");
} elsif (++$matches <= $tracks_to_skip) {
&pout("skipped.\n");
} elsif (($action eq 'nerf') and ($status eq 'enabled')) {
&pout("attempting to disable ...\n");
if (nerf($offset)) {
&pout("[+] Nerfed successfully.\n");
} else {
&perr("[-] Failed to nerf this track.\n\n");
close(FH);
return 1;
}
} elsif (($action eq 'unnerf') and ($status eq 'disabled')) {
&pout("attempting to enable ...\n");
if (unnerf($offset)) {
&pout("[+] Unnerfed successfully.\n");
} else {
&perr("[-] Failed to unnerf this track.\n\n");
close(FH);
return 1;
}
} else {
&pout("no action taken.\n");
}
}
&pout(qq([+] File "$mp4file" processed successfully.\n\n));
close(FH);
return 0;
}

sub pout { print STDOUT @_ if $verbose }
sub perr { print STDERR @_ }

sub myread { sysseek(FH, $_[1], 0) and ( sysread(FH, $_[0], $_[2]) == $_[2]) }
sub mywrite { sysseek(FH, $_[1], 0) and (syswrite(FH, $_[0], $_[2]) == $_[2]) }

sub nerf { &myread($temp, $_[0] + 3, 1) and &mywrite(pack('C', unpack('C', $temp) & 0xFE), $_[0] + 3, 1) }
sub unnerf { &myread($temp, $_[0] + 3, 1) and &mywrite(pack('C', unpack('C', $temp) | 0x01), $_[0] + 3, 1) }

sub isvideo { &getatomtree([qw(mdia minf vmhd)], $_[0]) }
sub isaudio { &getatomtree([qw(mdia minf smhd)], $_[0]) }

sub type { &isaudio ? 'audio' : &isvideo ? 'video' : 'unknown' }
sub id { &myread($temp, $_[0][0] + 12, 4) ? unpack('N', $temp) : 0 }
sub status { &myread($temp, $_[0][0] + 3, 1) ? ((unpack('C', $temp) % 2) ? 'enabled' : 'disabled') : undef }

sub getatoms {
($atomname, $start, $end) = @_;
@atoms = ();
use bytes;
while ($start < $end) {
last unless &myread($temp, $start, 8);
($size, $name) = unpack('NA4', $temp);
if ($size == 1) { # might not have 'Q', so do this manually
last unless &myread($temp, $start + 8, 8);
$size = unpack('N', substr($temp, 0, 4)) * 2**32 + unpack('N', substr($temp, 4, 4));
}
if ($size < 8) { $size = (-s $mp4file) - $start }
if ($name eq $atomname) { push @atoms, [$start + 8, $start + $size] }
$start += $size;
}
@atoms;
}

sub getatomtree {
@tree = ($_[1]);
for my $atomname (@{$_[0]}) {
last unless @tree;
@tree = map { &getatoms($atomname, @$_) } @tree;
}
@tree;
}

1;
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-09-27T23:50:39Z

SelbyMD: added &pgccount()

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#no auto mode yet
$auto=0;

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...

#get the name of the work directory. this is the desktop by default under windows
use Win32 qw(CSIDL_DESKTOPDIRECTORY);
$desktop = Win32::GetFolderPath(CSIDL_DESKTOPDIRECTORY);

#get the path to program files so we can build the anri program directory
use Win32 qw(CSIDL_PROGRAM_FILES);
$programfiles = Win32::GetFolderPath(CSIDL_PROGRAM_FILES);

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$blue_on_black = '{blue on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else {
#FIXME UNIX DESKTOP

#color initialization

#os-specific commands
$clear = "clear";
}

#FIXME LOGFILE STUFF

#FIXME EXTERNAL CONFIGURATION FILE

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

while (1) {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("Main");
@mainmenu = (
['Rip DVD to hard drive (required for DVD material)', '&rip_dvd'],
['Start new project', '&project'],
['Extract sample', '&proc_sample'],
['Station ID preview', '&statid_sample'],
['Exit', 'exit 0'],
);
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "Invalid input.\n\n";
&out_menu(@mainmenu);
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins;
&out_cls_section("Sample Extraction");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
&out_info("This sample will be 300 frames long. Pick the starting frame of a scene with");
&out_info("action.");
&echo("");
&out_info("Press ENTER to continue ...");
<STDIN>;
if ($os eq 'windows') {
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
#how are we going to do this in unix? your guess is as good as mine
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF\nSeparateFields\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}.avs","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir("${desktop}");
&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}Finished. You will find a sample.mp4 file on your desktop. Feel free to rename it something more descriptive like nameofgame_sample.mp4.");
&echo("\n${red_on_gray} - READ -${white_on_gray} You will see that the video has been resized vertically.");
&echo("${red_on_gray}THIS IS NORMAL${white_on_gray} and will make it easier for the techies to help you.");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("PROJECT SETUP");
#IF NOT "%auto%"=="y" (CALL :q_projname)

&out_info("Enter a project name. This name will be used as the basename for your encoded videos (e.g. the high quality video will be called projectname_HQ.mp4, etc.). You may not use spaces or the % character in the name, sorry.");
&echo("");
&echo("${white_on_gray}All files associated with this project will appear in ${navy_on_gray}${desktop}\\(project name)\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "You may not use spaces or the % character in the name, sorry.\n\n";
print $prompt;
}
&make_projdir;
&load_plugins;
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section("MOVIE SOURCE");
&out_info("If you used a capture card with DVD or MPEG settings, place those files in");
&out_info("${dvdripto_parentdir}\\foldername\\ and then answer y to the question below.");
&echo("");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if ($dvdsource) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section("GAME PROPERTIES");
if ((!$dvdsource) and (!$auto)) {
q_boo("Is this a PC game/non-console run recorded with screen capture software? If you say no, your video will be treated as NTSC / PAL.", $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
}

$dfnd_set = 0;
&q_dfnd if !$auto;
if (!$dfnd_set) {
if (!$auto) {
&echo("");
&out_info("\"D\" and \"F\" are used at SDA to refer to the video dimensions and framerate. D1 is full resolution and D4 is half resolution. F1 is full framerate, F2 is half framerate and F3 is 1/3 framerate.");
&echo("");
&out_info("Find D and F for your game at this URL:");
&out_info("http://speeddemosarchive.com/kb/index.php/DF");
&echo("");
&out_info("If you don't see your game listed there, you can use the Extract Sample main menu option to make a sample video to post in the SDA Tech Support Forum. Someone there will look at the video and let you know what D and F are.");
&echo("");
&echo("Please enter 1 or 4 for D.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echo("Please enter 1, 2 or 3 for F.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
}
if ($f eq 1) {
q_boo("2D game [y,n]", $twod) if !$auto;
}
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info("You didn't use the SDA games database. Does that mean that it didn't have your game? If so, we'd love it if you posted the \"D\", \"F\" and maybe \"2D Game\" info you just entered here, into our DFnD updates topic on SDA, so we can add it to the next version of the database. You don't need to register to do so and it only takes a few seconds.");
&echo("");
system("START http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0") if q_boo("Submit this game's data to SDA? [y,n]");
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section("VIDEO PROPERTIES");
if (!$auto) {
q_boo("Progressive or interlaced? If you don't know, it's most likely interlaced (answer 'n' to the question). However, if your video is a PC screen capture (made using e.g. FRAPS or Camtasia) and never touched a VCR or DVD recorder, then it may be progressive.", $prog);
}
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
&out_info("VirtualDub will now open with a split screen of your video. Find a scene with movement and use the slider or play button to play through it to see which looks better. Enter t for top, or b for bottom. If both look good, enter t.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("START \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&out_info("You may now close the VirtualDub window.");
&rm("${projname}_fieldordertemp.avs");
&echo("");

#q_vhs
q_boo("Did you use VHS to help capture this run? [y/n]", $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo("1 pixel bob ... answer y if it's jumping up and down, otherwise n.", $onepixel) if !$auto and ($f != 2);

q_boo("NES [y/n]", $nes) if !$auto;
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo("Game Boy Advance [y/n]", $gba) if !$auto;
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo("Game Boy [y/n]", $gb) if !$auto;
$deflicker=1 if $gb;

q_boo("Deflickered (rereleased old game e.g. Mega Man AC, Sonic Mega Collection, Wii Virtual Console) [y,n]", $deflicker) if !$auto and ($f != 2);

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. There is currently no validation for entering a frame range
# like 50 to 30... or negative numbers. Users can enter dummy values and edit
# project_job.bat later on and it will still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section("CONTENT PROPERTIES");
if (!$auto) {
&out_info("Trimming lets you remove the start and end of the existing movie so you only keep the run itself.");
if (q_boo("Do you want to trim off unwanted content in this video? [y,n]", $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. No checking to see if the frame ranges are valid
# yet. No checking of negative values either.
############################################################################
&echo("");
&out_info("VirtualDub will now open with a low quality temporary version of the source video. Use the slider at the bottom of the VirtualDub window to locate the first and last frame numbers of the part of the video you WANT TO KEEP.");
&echo("");
&out_info("You can specify multiple ranges of frames. - Type n to quit -");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a frame number, or type n to quit.";
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info("No values entered. Canceling trim.");
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error("Odd number of frame numbers detected! All trim values erased!");
@trimarr = ();
} else {
&out_info("Trimming done!");
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg="Invalid input. Must be frame number.";
} else {
push(@trimarr,$_);
&out_info('trim point #'.@trimarr.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}

#statid stuff
&out_cls_section("Station ID");
&out_info("Set the info shown on the Station ID (the clip at the start of an SDA video). Run the Station ID Preview program for a preview.");
if (q_boo("Do you want to append an SDA Station ID to the front and end of this video? [y,n]", $statid)) {
@statidlines = ();
&out_info("Line 1 is normally the runner's name. Line 2 (and Line 3 if necessary) normally include the game name, the type of run and the time to completion.");
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info("Station ID Line ${i}:");
print $prompt;
$statidline = <STDIN>;
chomp($statidline);
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,'"'.$statidline.'"');
&echo("");
}
}
} #end of !$auto

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section("READY TO ENCODE");
&out_info("Your settings for this project have been saved to \"${projname}_job.bat\". To resume the project, double-click that file.");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if (q_boo("Do you want to start encoding now [Y] or save the job for a later date [N]?")) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section("ENCODING OPTIONS");
if (!$auto) {
#&savesettings;

@encodethese = ();
for (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
[ 1, '&twopass', "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
[ 1, '&ipod', "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
[ 1, '&twopass', "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
[ (($d==1) && ($f==1)), '&twopass', "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
[ (($d==1) && ($f==1)), '&twopass', "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
[ 1, '&xvid', "Low quality XviD AVI", "", 128, 64000, "", 1,1],
[ 1, '&xvid', "Medium quality XviD AVI", "_LQ", 512, 64000, "", 1,1],
) {
if (@$_[0]) { #this quality is not disabled for these content properties - so ask the user if they want to make it
push(@encodethese,[ @$_ ]) if q_boo("Create @${_[2]} (".(@$_[4]+(@$_[5]/1000))." kbps) video? [y/n]");
}
}

}

for (@encodethese) {
my $idtag = @$_[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info("Now encoding ...");
for (@encodethese) {
# 0 1 2 3 4 5 6
eval(@${_[1]}."(\"".${projname}.@${_[3]}.${nmf}.".avs\", \"".${projname}."\", ".@${_[4]}.", ".@${_[5]}.", \"".@${_[6]}."\", ".@${_[7]}.", ".@${_[8]}.")");
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs");
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

sub nmf {
$nmf = '_nmf';
&out_cls_section("New Master File");
&out_info("NMF: New Master File refers to an intermediate source video file in the encoding process, usually one saved after deinterlacing (to avoid slow deinterlacing during each pass for each quality of output).");
&echo("");
&out_info("You have chosen to encode HQ, IQ and/or XQ. We can speed up the encoding process by creating a NMF. BEWARE! The new file can be extremely large, somewhere around 36 to 72 GB per hour. Make sure you have enough hard drive space.");
&echo("");
if (q_boo("Create NMF? [y/n]", $create_nmf)) {
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$_=qx("ECHO %NUMBER_OF_PROCESSORS%");
chomp;
$number_of_processors=$_;
#Set lagarith to yv12 under doze - yv12 and multithreading turned on
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# multithreading=1
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs");
#:nmf_vdubloop
#counterB
$alignedsplice = "";
for (my $i = 0;$i < $number_of_processors; $i++) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*${i}.000), floor(last.framecount/${number_of_processors}.000*".($i+1).".000)-1)\n",">>","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("avisource(\"${projname}_HQIQXQ_".($i+1).".avi\")\n",">>","${projname}_HQ_nmf.avs");
&rm("${projname}_HQIQXQ_".($i+1));
system("START /LOW /B \"encoding nmf section ".($i+1)."\" \"${vdub_dir}/${vdubcli}\" \"${projname}_HQIQXQ_".($i+1).".avs\" /i \"${anri_dir}/nmf.vcf\" \"${projname}_HQIQXQ_".($i+1).".avi\" > NUL");
$i++;
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
while (grep(/vdub\.exe/, qx("\"${anri_dir}/tasklist.exe\""))) {
&echo("%time% Encoding NMF ...");
sleep(10);
}
&echo("");
&out_info("NMF successfully created. Continuing with encoding process in 5 seconds...");
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width %% 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";

$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";

$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";

$statid ? $projtemp .= "statid++run++statid\n" : $projtemp .= "run\n";
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs") if $isPCGAME;
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs");
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [y/n]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
use Win32::TieRegistry(Delimiter=>"/",ArrayValues=>0);
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
&out_info($_[0]);
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput =~ m/^[yn]$/) {
#t becomes 1 (true), b becomes 0 (false)
$userinput =~ tr/yn/10/;
$_[1] = $userinput;
return $userinput;
}
print "Invalid input.\n\n";
print $prompt;
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section("AVI SOURCE");
&out_info("Enter the path to each avi file [i]ndividually or [a]utomatically. Note that if you choose automatic, Anri will load the files in an alphabetical manner. The files must have the same resolution and framerate to be joined together.");
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "Invalid input.\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info('Path to source video file e.g. c:\path to\video.avi without quotes.');
&out_info(" - Type n to quit -");
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a path, or type n to quit.";
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg="You must load at least one avi file.";
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg="Must be an avi file, try again.";
} elsif (! -e $_) {
$errormsg="File does not exist, try again.";
} else {
push(@avifiles,$_);
&out_info('avi #'.@avifiles.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = 'Enter the path to the avi folder e.g. c:\my video folder\ without quotes.';
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg="You must enter a path.";
} elsif (m/^.[^:][^\\].*/) {
$errormsg="Must be full path.";
} elsif (! -e $_) {
$errormsg="Folder does not exist.";
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = 'No avi files found in that folder!';
} else {
#Ask user if the list is good.
&echo('Continue [y] or rescan [n]?');
print $prompt;
while (<STDIN>) {
chomp;
last if (m/^[yn]$/);

print "Invalid input.\n\n";
print $prompt;
}

#do we need to do this whole thing again?
last if $_ eq 'y';
$errormsg = $enterhelp;
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info("The next few questions are about the game played in this video. SDA has a database of games we have seen in the past, which can answer some or all of the questions for you. However, you must be connected to the Internet to use it.");
q_boo("Do you want to use Anri's games database [Y] or enter the data yourself [N]?", $dfnd);
if ($dfnd) {
#:dfnd
&out_info("Anri will now attempt to connect to SDA's games database. This may take a few moments. Once complete, you will see a list of all games in the database.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "http://speeddemosarchive.com/kb/index.php/DF"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~ s/&/\&/g;
$titles .= "".($i+1).": ${title}\n";
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg="You must choose a game.";
} elsif (m/[^0-9]/) {
$errormsg="Please enter the number of a game.";
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg="Invalid selection.";
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error("Could not connect to SDA!");
&q_dfnd if q_boo("Try again? [y/n]");
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section("Rip DVD");
if (!$auto) {
&out_info("What is the drive letter of your DVD drive (e.g. D)?");
&out_info("Tip: If you already have your DVD source files on your hard drive, move them into C:\\VIDEO_TS\\ and enter C as your drive letter.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg="You must enter a drive letter. Enter e.g. D, not D: or D:\\.";
}
&out_error($errormsg);
print $prompt;
}
}
&echo("");
&out_info("Anri will extract to the ${dvdripto_parentdir} parent directory. Name a folder for your DVD files.");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg="You must enter a folder name.";
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info("Anri will now extract everything needed from the DVD to ${dvdripto}. Make sure you have enough hard drive space (up to 4.3 GB). This may take some time.");
&out_info("Press ENTER to continue ...");
&echo("");
<STDIN>;

if (-e "${driveletter}:/VIDEO_TS") {
$dvdsource = "${driveletter}:/VIDEO_TS";
if (<${dvdsource}/VTS*.IFO>) {
&pgccount(<${dvdsource}/VTS*.IFO>);

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info -advanced mode- Rip specific title numbers. Separate by spaces, or leave blank to rip all. You can look at pgclist.txt in the DVD file destination directory to see which titles will be ripped by default.
# SET s=
# SET /P s=Title numbers:
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from &pgccount()
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 1.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo("Neither VIDEO_TS or DVD_RTAV folder was found on ${driveletter}:\\. Anri is displeased.");
#GOTO DIE
}
}
&out_info("Finished ripping. Press ENTER to continue ...");
<STDIN>;
}

# finds all unique program chains in a set of IFO files, stores in @pgclist
sub pgccount {
use bytes;
$pgctable = 0x1000;
for $ifofile (@_) {
next unless &check_ifo();
@sectors = ();
for (1 .. unpack('n', substr($buffer, $pgctable, 2))) {
$pgcstart = unpack('N', substr($buffer, $pgctable + $_ * 8 + 4, 4));
$cellstart = unpack('n', substr($buffer, $pgctable + $pgcstart + 0xE8, 2)) + 8;
$cellsector = unpack('N', substr($buffer, $pgctable + $pgcstart + $cellstart, 4));
$currentpgc++;
unless (grep { $_ == $cellsector } @sectors) {
push @sectors, $cellsector;
push @pgclist, "${currentpgc},${ifofile}";
}
}
}
}

# performs error checking for pgccount
sub check_ifo {
-s $ifofile < 2**20 or return 0;
open(IFO, '<:raw', $ifofile) or return 0;
local $/;
$buffer = <IFO>;
close(IFO);
substr($buffer, 0, 12) eq 'DVDVIDEO-VTS' or return 0;
#substr($buffer, 0, 12) eq pack('C12', 0x44, 0x56, 0x44, 0x56, 0x49, 0x44, 0x45, 0x4F, 0x2D, 0x56, 0x54, 0x53) or return 0;
return 1;
}

sub index_dvd {
$maxaudiobr = 320000;
&out_cls_info("Here is the list of folders containing DVD/MPEG files (*.mpg, *.mpeg, *.vob, *.vro, etc.) in ${dvdripto_parentdir}\\. Select one or more by typing in the name or names separated by spaces. If you select more than one, the files will be joined in the order you specify.");
&echo("");
&echo("${navy_on_gray}Note that joining different DVD/MPEG files is only recommended if they're of the same game. The settings you choose later in the editing phase will be applied to the whole project which can cause problems since different games will possibly need different settings.");
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
foreach $mask (@dvdfilemasks) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error("No folders with DVD files found!");
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

@dvdchoices = ();
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,"Invalid input.");
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"Invalid selection: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}

&echo("");

&out_info("Now indexing MPEG-2 ...");
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ /^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
#FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

#system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" \"${_[0]}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[4]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --bframes 3 --analyse none --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL \"${_[0]}\"");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --ref 3 --mixed-refs --no-fast-pskip --bframes 3 --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --analyse none --qpmin ${_[4]} --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL ${_[0]}");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --no-fast-pskip --subme 7 --trellis 2 --analyse all --qpmin ${_[4]} --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\"");
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -b ".($_[3]/1000)." -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${_[0]}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>

Anri-chan/Source

2008-09-22T00:53:26Z

SelbyMD: added mp4nerf.pl

[[Anri-chan]] is a set of Windows NT-series [http://en.wikipedia.org/wiki/Batch_file batch files] that bring together the functions of a number of movie editing and encoding applications to create movies suitable for publication on Speed Demos Archive.

===Anri-chan 4===
[[Anri-chan/Source/anri.pl|anri.pl]] - The main script; asks the relevant questions and encodes the movie.

[[Anri-chan/Source/sasami.pl|sasami.pl]] - Translate Anri-written .avs into a FIFO written to by mencoder for running under Unix - to be integrated into anri.pl?

[[Anri-chan/Source/mp4nerf.pl|mp4nerf.pl]] - Disables all but the first audio track in a muxed MP4 file. Not currently integrated into anri-chan.

===Anri-chan 3===
[[Anri-chan/Source/anri.bat|anri.bat]] - The main script; asks the relevant questions and encodes the movie.

[[Anri-chan/Source/statid.bat|statid.bat]] - Station ID sample script; produces an example StatID to preview.

[[Anri-chan/Source/ini.bat|ini.bat]] - Change settings.

[[Anri-chan/Source/edit_settings.bat|edit_settings.bat]] - Settings script; asks most of the questions in anri.bat so it can skip them. <font color="red">Not currently integrated into Anri-chan.</font>

===Avisynth Library===

[[Anri-chan/Source/nate.avs|nate.avs]] - The M2K2SDA Avisynth library written by nate and ballofsnow

===Misc. Files===
[[Anri-chan/Source/DGIndex.ini|DGIndex.ini]] - DGIndex settings. Take note of Output_Method, Enable_Info_Log and Use_MPA_Extensions.

[[Anri-chan/Source/infotemplate.avs|infotemplate.avs]] - Used with DGindex to gather information of video, audio and audio delay.

[[Anri-chan/Source/directshowsource_list.txt|directshowsource_list.txt]] - Compare AVI fourCC with list to determine avisource or directshowsource.

===PHP Files===
[[Anri-chan/Source/df.php|df.php]] - Produces the dfnd_data.bat and dfnd_titles.bat game database files on the server side.

===C Files===

[[Anri-chan/Source/pgccount.cpp|pgccount.cpp]] - [[Media:pgccount_0.3.zip|exe]] - Finds all unique program chains in an IFO, to be used with Mplayer's stream dump.

[[Anri-chan/Source/mp4nerf.c|mp4nerf.c]] - [[Media:mp4nerf-b0.1.zip|exe]] - Disables all but the first audio track in a muxed MP4 file. Not currently integrated into anri-chan.

===Compile===
[[Anri-chan/Source/anrichan.nsi|anrichan.nsi]] - Anri-chan 3 installer

[[Anri-chan/Source/builddir.bat|builddir.bat]] - Helps build directory content list.

===Coding standards===

[[Anri-chan/Source/Coding_Standards/Perl|Perl]]

Anri-chan/Source/mp4nerf.pl

2008-09-22T00:50:24Z

SelbyMD: New page: <pre><nowiki> #!/usr/bin/perl use warnings; use strict 'subs'; package mp4; exit &mp4batchnerf(@ARGV) unless caller(); ################################################ # mp4nerf.pl # c v...

<pre><nowiki>
#!/usr/bin/perl
use warnings;
use strict 'subs';
package mp4;

exit &mp4batchnerf(@ARGV) unless caller();

################################################
# mp4nerf.pl
# c version by DJ Grenola on 17 July 2007
# perl version by SelbyMD on 20 September 2008
# license: none (public domain)
################################################

sub mp4batchnerf {
print "MP4 audio track disabler\n";
print "beta 0.2, DJ Grenola & SelbyMD\n\n";
print "This software comes with no warranty.\n\n";
unless (grep {-e} @_) {
print "Usage: mp4nerf.pl <MP4 file> [ <MP4 file> ... ] to print track information\n";
print "Usage: mp4nerf.pl -n <MP4 file> [ <MP4 file> ... ] to disable commentary\n";
print "Usage: mp4nerf.pl -u <MP4 file> [ <MP4 file> ... ] to re-enable commentary\n";
return 1;
}
$action = 'print';
for $arg (@_) {
if ($arg eq '-p') { $action = 'print' }
elsif ($arg eq '-u') { $action = 'unnerf' }
elsif ($arg eq '-n') { $action = 'nerf' }
elsif ($arg eq '-x') { $action = 'nerf' }
else { $files++; $errors += &mp4nerf($arg) }
}
if ($errors) {
printf "[-] %s file%s had errors during processing.\n",
($files == 1) ? ('The', '') : ("${errors} of ${files}", 's');
} else {
printf "[+] %s file%s processed successfully.\n",
($files == 1) ? ('The', ' was') : ("All ${files}", 's were');
}
return $errors;
}

sub mp4nerf {
$mp4file = shift;
$matches = 0;
$tracks_to_skip = ($action eq 'nerf') ? 1 : 0;
unless (open(FH, '+<:raw', $mp4file)) {
print qq([-] Failed to open file "${mp4file}".\n\n);
return 1;
}
print qq([+] Scanning file "${mp4file}".\n);
@traks = &getatomtree([qw(moov trak)], [0, -s $mp4file]);
unless (@traks) {
print qq([-] No tracks found. Maybe this isn't an mp4 file.\n\n);
close(FH);
return 1;
}
for $trak (@traks) {
($tkhd) = &getatoms('tkhd', @$trak);
($offset, $id, $status, $type) = ($$tkhd[0], &id($tkhd), &status($tkhd), &type($trak));
unless (defined($id) and defined($status)) {
print qq([-] Error reading from file "${mp4file}".\n\n);
close(FH);
return 1;
}
printf "[+] Track %d (%7s,%8s) at 0x%08x, ", $id, $type, $status, $$trak[0] - 8;
if ($type ne 'audio') {
print "ignored.\n";
} elsif (++$matches <= $tracks_to_skip) {
print "skipped.\n";
} elsif (($action eq 'nerf') and ($status eq 'enabled')) {
print "attempting to disable ...\n";
if (nerf($offset)) {
print "[+] Nerfed successfully.\n";
} else {
print "[-] Failed to nerf this track.\n\n";
close(FH);
return 1;
}
} elsif (($action eq 'unnerf') and ($status eq 'disabled')) {
print "attempting to enable ...\n";
if (unnerf($offset)) {
print "[+] Unnerfed successfully.\n";
} else {
print "[-] Failed to unnerf this track.\n\n";
close(FH);
return 1;
}
} else {
print "no action taken.\n";
}
}
print qq([+] File "$mp4file" processed successfully.\n\n);
close(FH);
return 0;
}

sub myread { sysseek(FH, $_[1], 0) and ( sysread(FH, $_[0], $_[2]) == $_[2]) }
sub mywrite { sysseek(FH, $_[1], 0) and (syswrite(FH, $_[0], $_[2]) == $_[2]) }

sub nerf { &myread($temp, $_[0] + 3, 1) and &mywrite(pack('C', unpack('C', $temp) & 0xFE), $_[0] + 3, 1) }
sub unnerf { &myread($temp, $_[0] + 3, 1) and &mywrite(pack('C', unpack('C', $temp) | 0x01), $_[0] + 3, 1) }

sub isvideo { &getatomtree([qw(mdia minf vmhd)], $_[0]) }
sub isaudio { &getatomtree([qw(mdia minf smhd)], $_[0]) }

sub type { &isaudio ? 'audio' : &isvideo ? 'video' : 'unknown' }
sub id { &myread($temp, $_[0][0] + 12, 4) ? unpack('N', $temp) : 0 }
sub status { &myread($temp, $_[0][0] + 3, 1) ? ((unpack('C', $temp) % 2) ? 'enabled' : 'disabled') : undef }

sub getatoms {
($atomname, $start, $end) = @_;
@atoms = ();
use bytes; # needed for substr here
while ($start < $end) {
last unless &myread($temp, $start, 8);
($size, $name) = (unpack('N', substr($temp, 0, 4)), substr($temp, 4, 4));
if ($size == 1) { # might not have 'Q', so do this manually
last unless &myread($temp, $start + 8, 8);
$size = unpack('N', substr($temp, 0, 4)) * 2**32 + unpack('N', substr($temp, 4, 4));
}
if ($size == 0) { $size = (-s $mp4file) - $start; }
if ($name eq $atomname) { push @atoms, [$start + 8, $start + $size]; }
$start += $size;
}
@atoms;
}

sub getatomtree {
@tree = ($_[1]);
for my $atomname (@{$_[0]}) {
last unless @tree;
@tree = map { &getatoms($atomname, @$_) } @tree;
}
@tree;
}

1;
</nowiki></pre>

Anri-chan/Source/anri.pl

2008-09-19T04:43:59Z

SelbyMD: Replaced cfourcc call with equivalent perl code (using 0xBC). Still considering better avi parsing.

<pre><nowiki>
#!/usr/bin/perl

############################################################################
# Credits
#
# nathan jahnke <njahnke@gmail.com>
# Ian Bennett
# Philip "ballofsnow" Cornell
# Brett "Psonar" Ables
#
# Anri is distributed under the terms of the Gnu General Public License 3.0:
# http://www.gnu.org/licenses/gpl-3.0.txt
############################################################################

############################################################################
# Initialization
#
# Some obvious stuff in here. Desktop location is set using the win32api
# module under Windows.
############################################################################

use warnings;
use strict 'subs';
package anri;

#version of this software, used in building the path to the executable, so must match the value from the installer
$version = '4a1';

#name of this file
$anripl = 'anri.pl';

#cute prompt for user input
$prompt = 'ANRI> ';

#what os are we running? unix is default since there are so many possible flavors
$os = 'unix';
$os = 'windows' if "$^O" eq "MSWin32";

#no auto mode yet
$auto=0;

#nmf off by default, so filename identifier is null
$nmf='';

if ($os eq 'windows') {
#the below api calls probably require the win32api module(?) to be installed which will have to be included in the anri installer ...

#get the name of the work directory. this is the desktop by default under windows
use Win32 qw(CSIDL_DESKTOPDIRECTORY);
$desktop = Win32::GetFolderPath(CSIDL_DESKTOPDIRECTORY);

#get the path to program files so we can build the anri program directory
use Win32 qw(CSIDL_PROGRAM_FILES);
$programfiles = Win32::GetFolderPath(CSIDL_PROGRAM_FILES);

#anri program directory
$anri_dir = "${programfiles}/anri_${version}";

#name of the directory containing dgindex.exe under anri's program directory and of the executable itself
$dgmpgdec_dir = "${anri_dir}/dgmpgdec152";
$dgindex = 'dgindex.exe';

#name of the directory containing virtualdub.exe under anri's program directory and of the executables both gui and cli
$vdub_dir = "${anri_dir}/VirtualDub-1.8.5";
$vdubgui = 'virtualdub.exe';
$vdubcli = 'vdub.exe';

#our encoders
$x264 = 'x264.exe';
$naac = 'neroaacenc.exe';
$mp4box = 'mp4box.exe';
$xvid = 'xvid_encraw.exe';
$ffmpeg = 'ffmpeg.exe';

#some anri support files
$directshowsourcelistfile = 'directshowsource_list.txt';
$pgccount = "pgccount.exe";
$mplayer = "mplayer.exe";
$wget = "wget.exe";

#dunno about this
$dvdripto_parentdir = "C:\\AnriMPEG";

#set some keys in the registry to make vdub show only the input video pane (having both the input and output panes open as is default tends to confuse users)
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update input pane", "0x0001", "REG_DWORD");
&update_registry_key("CUser/Software/Freeware/VirtualDub/Persistence/Update output pane", "0x0000", "REG_DWORD");

#os-specific commands
$clear = "CLS";
#or, for debugging ...
$clear = "";

############################################################################
# Color Initialization
#
# Edit by: Psonar - Brett Ables
# Below is the code necessary to use the CECHO.exe function
# to add color to anrichan. Run CECHO.exe /? for usage help.
# CECHO.exe was written by Thomas Polaert.
#
# The environment variable CECHO is set to the absolute path
# of the CECHO.exe program so that %CECHO% may be used
# to call the function regardless of the working directory
#
# RESET_COLOR is used to reset the default color scheme
# after CECHO has been used to output different colors.
#
# Color is a DOS function that affects the whole command
# window at once. It is used only once here to initialize the
# background color of the window. 80 is the same as {black on gray}.
#
# CECHO is used in out_cls, out_info, out_error, and out_section.
############################################################################

$cecho = "${anri_dir}/cecho.exe";

$black_on_gray = '{black on gray}';
$gray_on_black = '{gray on black}';
$blue_on_black = '{blue on black}';
$white_on_black = '{white on black}';
$aqua_on_black = '{aqua on black}';
$blue_on_black = '{blue on black}';
$teal_on_gray = '{teal on gray}';
$navy_on_gray = '{navy on gray}';
$maroon_on_gray = '{maroon on gray}';
$maroon_on_silver = '{maroon on silver}';
$white_on_gray = '{white on gray}';
$red_on_gray = '{red on gray}';

$reset_color = "\"${cecho}\" ${black_on_gray}";
system("Color 80");
} else {
#FIXME UNIX DESKTOP

#color initialization

#os-specific commands
$clear = "clear";
}

#FIXME LOGFILE STUFF

#FIXME EXTERNAL CONFIGURATION FILE

#main menu

#FIXME: using_settings

############################################################################
# Main menu
#
# Anri's home.
############################################################################

while (1) {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("Main");
@mainmenu = (
['Rip DVD to hard drive (required for DVD material)', '&rip_dvd'],
['Start new project', '&project'],
['Extract sample', '&proc_sample'],
['Station ID preview', '&statid_sample'],
['Exit', 'exit 0'],
);
&out_menu(@mainmenu);
while (<STDIN>) {
chomp;
if (m/([1-5])$/) {
#execute the contents of this value in the array
eval($mainmenu[$1-1][1]);
last;
}
print "Invalid input.\n\n";
&out_menu(@mainmenu);
}
}

############################################################################
# Sample extraction procedure
#
# Sample extraction is basically regular mode minus a bunch of questions.
# This procedure gets called when a parameter "sample" has been sent to
# anri.bat. There isn't much documentation about how this works since this
# was meant to be short. One thing that's different is that the sample video
# will have separated fields. This is to avoid the problem with interlacing
# and the Yv12 colorspace. The fields are then weaved back together to
# determine DFnD.
############################################################################

sub proc_sample {
# &out_cls;
chdir($desktop);
#FIXME no_pause_before_indexing?
$projname = 'anri_sample';
&make_projdir;
&load_plugins;
&out_cls_section("Sample Extraction");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
$dvdsource ? &index_dvd : &q_avi;
&cp("${projname}.avs","${projname}_trimtemp.avs");
&echotofile("lanczos4resize(320,240)\n",">>","${projname}_trimtemp.avs");
&out_info("This sample will be 300 frames long. Pick the starting frame of a scene with");
&out_info("action.");
&echo("");
&out_info("Press ENTER to continue ...");
<STDIN>;
if ($os eq 'windows') {
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
} else {
#how are we going to do this in unix? your guess is as good as mine
}
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[0-9]+$/) {
$startframe = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echotofile("trim(${startframe},".($startframe+299).")\n",">>","${projname}.avs");
&echotofile("AssumeTFF\nSeparateFields\nconverttoyv12\n",">>","${projname}.avs");
&onepass("${desktop}/${projname}/${projname}.avs","${desktop}/${projname}/${projname}","128000","19",1);
&cp("${desktop}/${projname}/${projname}.mp4","${desktop}");
# @todel = (
# "${projname}*.avs",
# "${projname}.bak",
# "${projname}*.d2v",
# "${projname}VTS*",
# "log*.txt",
# );
chdir("${desktop}");
&rm("${desktop}/${projname}");
&echo("\n\n${white_on_gray}Finished. You will find a sample.mp4 file on your desktop. Feel free to rename it something more descriptive like nameofgame_sample.mp4.");
&echo("\n${red_on_gray} - READ -${white_on_gray} You will see that the video has been resized vertically.");
&echo("${red_on_gray}THIS IS NORMAL${white_on_gray} and will make it easier for the techies to help you.");
system($reset_color);
<STDIN>;
exit 0;
}

############################################################################
# Main procedure
#
# Anri's home housing the program flow. This is beginning to end for
# encoding the video.
#
# The first section sets up the project name and folder, or if one already
# exists it will find the existing settings and go to the encoding stage.
############################################################################

sub project {
&out_cls;
&out_info("ON HERMESUS LUC ARSUS ESTARIAS AUC ELTRAS LI CELES! Now, let's get to work!");
&out_section("PROJECT SETUP");
#IF NOT "%auto%"=="y" (CALL :q_projname)

&out_info("Enter a project name. This name will be used as the basename for your encoded videos (e.g. the high quality video will be called projectname_HQ.mp4, etc.). You may not use spaces or the % character in the name, sorry.");
&echo("");
&echo("${white_on_gray}All files associated with this project will appear in ${navy_on_gray}${desktop}\\(project name)\n");
system($reset_color);
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/[% ]/) {
$projname = $_;
last;
}
print "You may not use spaces or the % character in the name, sorry.\n\n";
print $prompt;
}
&make_projdir;
&load_plugins;
#FIXME settings manager
#CALL :find_existing_settings
#IF "%using_settings%"=="y" GOTO proc_check_settings

############################################################################
# Main procedure - Movie source
#
# It's either DVD or AVI, no exceptions (for now). The current method for
# DVD extraction is as follows: Find and validate the DVD folder. Check for
# the existence of IFO files (has details on structure of DVD). If they are
# found, the IFO is analyzed and ripped with Mplayer. Otherwise it goes
# straight to DGindex.
#
# Why Mplayer? It has the ability to rip files per program chain. There is
# a problem where indexing multiple program chains can cause audio desync.
# Now that we get the data on a per PGC basis, we can index them individually
# and join them up later in AviSynth which can properly align video/audio.
#
# There are two methods for loading AVI files. Either the user enters the
# paths to the file individually, or specifies a directory and anri
# loads all AVI files alphabetically. There is currently no validation for
# AVI files with different video properties.
############################################################################

&out_cls_section("MOVIE SOURCE");
&out_info("If you used a capture card with DVD or MPEG settings, place those files in");
&out_info("${dvdripto_parentdir}\\foldername\\ and then answer y to the question below.");
&echo("");
q_boo('DVD/MPEG source [y,n]', $dvdsource);
#IF NOT "%auto%"=="y" CALL :q_dvdsource
if ($dvdsource) {
#automation changes for q_driveletter are handled within the function b/c
#important code related to ripping and dgindex is found there.
&index_dvd;
} else {
#q_avi must be called (even in "auto" mode) for avs files to be set up properly
&q_avi;
}

############################################################################
# Main procedure - Game properties
#
# The purpose here is to find resolution, framerate and whether there are
# flickering effects in the game. An online database is maintained at
# http://speeddemosarchive.com/kb/index.php/DF to hold this information since
# there isn't really a way to do it programmatically. Probably need C++ for
# that... but even then.
#
# SDA has decided on minimum quantizers of 17 and 19 for low/high resolution
# videos.
############################################################################

#:proc_gameproperties
&out_cls_section("GAME PROPERTIES");
if ((!$dvdsource) and (!$auto)) {
q_boo("Is this a PC game/non-console run recorded with screen capture software? If you say no, your video will be treated as NTSC / PAL.", $isPCGAME);
}
if ($isPCGAME) {
$d=1 if not defined($d);
$f=1 if not defined($f);
$twod=0 if not defined($twod);
$hqq=19 if not defined($hqq);
$prog=1 if not defined($prog);
#&proc_gameproperties_p2;
}

$dfnd_set = 0;
&q_dfnd if !$auto;
if (!$dfnd_set) {
if (!$auto) {
&echo("");
&out_info("\"D\" and \"F\" are used at SDA to refer to the video dimensions and framerate. D1 is full resolution and D4 is half resolution. F1 is full framerate, F2 is half framerate and F3 is 1/3 framerate.");
&echo("");
&out_info("Find D and F for your game at this URL:");
&out_info("http://speeddemosarchive.com/kb/index.php/DF");
&echo("");
&out_info("If you don't see your game listed there, you can use the Extract Sample main menu option to make a sample video to post in the SDA Tech Support Forum. Someone there will look at the video and let you know what D and F are.");
&echo("");
&echo("Please enter 1 or 4 for D.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[14]$/) {
$d = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&echo("Please enter 1, 2 or 3 for F.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[1-5]$/) {
$f = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
}
if ($f eq 1) {
q_boo("2D game [y,n]", $twod) if !$auto;
}
if (!$auto) {
#:q_submit_dfnd
&echo("");
&out_info("You didn't use the SDA games database. Does that mean that it didn't have your game? If so, we'd love it if you posted the \"D\", \"F\" and maybe \"2D Game\" info you just entered here, into our DFnD updates topic on SDA, so we can add it to the next version of the database. You don't need to register to do so and it only takes a few seconds.");
&echo("");
system("START http://speeddemosarchive.com/forum/index.php?action=post;topic=6416.0") if q_boo("Submit this game's data to SDA? [y,n]");
#:dfnd_is_set
}
}
$hqq = 17 if $d == 4;
$hqq = 19 if $d == 1;

############################################################################
# Main procedure - Video properties
#
# Wouldn't it be great if there was no more interlacing and everything was
# progressive? As you can see, if the video is progressive you pretty much
# skip the entire section. Anyways..
#
# The method for getting the field order is to open up an instance of vdub
# with the video, the top half of the screen using Top Field First, and the
# bottom half using Bottom Field First. The user then plays it to see which
# one looks natural and chooses top or bottom accordingly.
#
# onepixel simply shifts one of the fields up or down by one pixel.
#
# TO DO: Describe nes, gba, deflicker.
############################################################################

&out_cls_section("VIDEO PROPERTIES");
if (!$auto) {
q_boo("Progressive or interlaced? If you don't know, it's most likely interlaced (answer 'n' to the question). However, if your video is a PC screen capture (made using e.g. FRAPS or Camtasia) and never touched a VCR or DVD recorder, then it may be progressive.", $prog);
}
#IF "%prog%"=="y" GOTO proc_gameproperties_p2

############################################################################
# function: q_fieldorder
#
# There's no foolproof method to detect field order programmatically. The
# next best thing is to show the user both, and let them decide which looks
# better.
#
# The script is simple enough, have a split screen with AssumeTFF and
# AssumeBFF. Whichever is chosen will be used in all AviSynth scripts.
############################################################################

&echo("");
&out_info("VirtualDub will now open with a split screen of your video. Find a scene with movement and use the slider or play button to play through it to see which looks better. Enter t for top, or b for bottom. If both look good, enter t.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_fieldordertemp.avs");
&echotofile("tff=last.AssumeTFF().SeparateFields().bilinearresize(320,240).subtitle(\"t\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("bff=last.AssumeBFF().SeparateFields().bilinearresize(320,240).subtitle(\"b\")\n",">>","${projname}_fieldordertemp.avs");
&echotofile("StackVertical(tff,bff)\n",">>","${projname}_fieldordertemp.avs");
system("START \"determine field order\" \"${vdub_dir}/${vdubgui}\" \"${projname}_fieldordertemp.avs\"");
#:q_fieldorder_p2
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[tb]$/) {
#t becomes 1 (true), b becomes 0 (false)
tr/tb/10/;
$fieldorder = $_;
last;
}
print "Invalid input.\n\n";
print $prompt;
}
&out_info("You may now close the VirtualDub window.");
&rm("${projname}_fieldordertemp.avs");
&echo("");

#q_vhs
q_boo("Did you use VHS to help capture this run? [y/n]", $vhs);

#IF "%d%"=="1" GOTO proc_gameproperties_p2

q_boo("1 pixel bob ... answer y if it's jumping up and down, otherwise n.", $onepixel) if !$auto and ($f != 2);

q_boo("NES [y/n]", $nes) if !$auto;
#IF "%nes%"=="y" GOTO proc_gameproperties_p2

q_boo("Game Boy Advance [y/n]", $gba) if !$auto;
$deflicker=1 if $gba;
#GOTO proc_gameproperties_p2

q_boo("Game Boy [y/n]", $gb) if !$auto;
$deflicker=1 if $gb;

q_boo("Deflickered (rereleased old game e.g. Mega Man AC, Sonic Mega Collection, Wii Virtual Console) [y,n]", $deflicker) if !$auto and ($f != 2);

############################################################################
# Main procedure - Content properties
#
# For trimming, we startup another vdub instance and ask the user to input
# frame numbers. The frame numbers will go into a single variable separated
# by spaces. There is currently no validation for entering a frame range
# like 50 to 30... or negative numbers. Users can enter dummy values and edit
# project_job.bat later on and it will still work.
#
# StatID... not much to it. Three lines, quotations are allowed. Gets appended
# at beginning and end of video.
############################################################################

#:proc_gameproperties_p2
&out_cls_section("CONTENT PROPERTIES");
if (!$auto) {
&out_info("Trimming lets you remove the start and end of the existing movie so you only keep the run itself.");
if (q_boo("Do you want to trim off unwanted content in this video? [y,n]", $trim)) {
############################################################################
# function: q_trimming
#
# Create an array of numbers separated by spaces which will be used later on
# when writing to the AviSynth scripts.
#
# There isn't much validation yet. A modulus of 2 is used to make sure there's
# an even number of values. No checking to see if the frame ranges are valid
# yet. No checking of negative values either.
############################################################################
&echo("");
&out_info("VirtualDub will now open with a low quality temporary version of the source video. Use the slider at the bottom of the VirtualDub window to locate the first and last frame numbers of the part of the video you WANT TO KEEP.");
&echo("");
&out_info("You can specify multiple ranges of frames. - Type n to quit -");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
&cp("${projname}.bak","${projname}_trimtemp.avs");
if ($isPCGAME) {
&echotofile("Lanczos4Resize(320,round(last.height*(320.000/last.width)))\n",">>","${projname}_trimtemp.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_trimtemp.avs");
&echotofile("last\n",">>","${projname}_trimtemp.avs");
} else {
&echotofile("Lanczos4Resize(320,240)\n",">>","${projname}_trimtemp.avs");
}
system("START \"trimming vdub\" \"${vdub_dir}/${vdubgui}\" \"${projname}_trimtemp.avs\"");
@trimarr = ();
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a frame number, or type n to quit.";
} elsif (m/^n$/i) {
if (@trimarr < 1) {
&out_info("No values entered. Canceling trim.");
$trim=0;
last;
} elsif (@trimarr % 2) {
&out_error("Odd number of frame numbers detected! All trim values erased!");
@trimarr = ();
} else {
&out_info("Trimming done!");
last;
}
} elsif (!m/^[0-9]+$/i) {
$errormsg="Invalid input. Must be frame number.";
} else {
push(@trimarr,$_);
&out_info('trim point #'.@trimarr.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
&rm("${projname}_trimtemp.avs");
}

#statid stuff
&out_cls_section("Station ID");
&out_info("Set the info shown on the Station ID (the clip at the start of an SDA video). Run the Station ID Preview program for a preview.");
if (q_boo("Do you want to append an SDA Station ID to the front and end of this video? [y,n]", $statid)) {
@statidlines = ();
&out_info("Line 1 is normally the runner's name. Line 2 (and Line 3 if necessary) normally include the game name, the type of run and the time to completion.");
for (my $i = 1 ; $i <= 3 ; $i++) {
&out_info("Station ID Line ${i}:");
print $prompt;
$statidline = <STDIN>;
$statidline =~ s/"/"+chr(34)+"/g;
push(@statidlines,'"'.$statidline.'"');
&echo("");
}
}
} #end of !$auto

############################################################################
# Main procedure - Check settings
#
# This is where you get taken when you run project_job.bat. A file compare
# is done to check if the user has edited job.bat. If it has been changed,
# or if there are missing AviSynth files, the files are rebuilt. So if
# someone is tinkering with the AviSynth files, they'd be wise to leave
# job.bat alone, else have their work be overwritten.
############################################################################

#:proc_check_settings
chdir("${desktop}/${projname}");
$ready=1;
$ready=0 if !&samefiles("${projname}_job.bat","${projname}_job.bak");
foreach $thefile ("${projname}_LQ.avs","${projname}_LQ_xvid.avs","${projname}.avs","${projname}_xvid.avs","${projname}_HQ.avs","${projname}_IQ.avs") {
$ready=0 if !-e $thefile;
}
if (!$ready) {
#&savesettings;
&script_buildfiles;
}

############################################################################
# Main procedure - Check settings (continued)
#
# All necessary files are ready for the encoding stage. Show the user the
# current settings, then ask if they want to encode now. Saying no will reset
# some variables and take the user back to Game Properties (DFnD).
############################################################################

# if (!$auto) {
# &check_settings;
# } else {
# $settings_good=1;
# }
#IF NOT "%settings_good%"=="y" GOTO proc_check_settings_p2

&out_cls_section("READY TO ENCODE");
&out_info("Your settings for this project have been saved to \"${projname}_job.bat\". To resume the project, double-click that file.");

# if (!$auto) {
# &q_encodenow;
# } else {
# $start_encode=1;
# }

if (q_boo("Do you want to start encoding now [Y] or save the job for a later date [N]?")) {

#:proc_check_settings_p2

#FOR %%A IN (dfnd_set d f twod fieldorder vhs onepixel nes gba gameboy deflicker trimarray) DO (SET %%A=)
#SET batch=

# &rm("${projname}_job.bat");
# &rm("${projname}_job.bak");
#GOTO proc_gameproperties

############################################################################
# Main procedure - Encoding options
#
# Ask for H.264 LQ/MQ/HQ/IQ, and Xvid LQ/MQ.
#
# IF D1 and the user is encoding HQ/IQ/XQ, they will be asked whether
# they want to encode a New Master File. This is to avoid using the extremely
# slow mvbob deinterlacer four times, once for each pass. Instead, it will be
# done once and encoded to the lossless Lagarith codec in Yv12 colorspace.
# This NMF will then be used to encode HQ/IQ.
############################################################################

&out_cls_section("ENCODING OPTIONS");
if (!$auto) {
#&savesettings;

@encodethese = ();
for (
#makethisboolean, howtomake, english, id tag, video bitrate in kbaud, audio bitrate in baud, minimum quantizer for x264, delete 2pass stats, delete all other tempfiles
# 0 1 2 3 4 5 6 7 8
[ 1, '&twopass', "Low quality H.264 MP4", "_LQ", 128, 64000, 17, 1,1],
[ 1, '&ipod', "Medium quality H.264 MP4", "", 512, 64000, 17, 1,1],
[ 1, '&twopass', "High quality H.264 MP4", "_HQ", 2048, 128000, $hqq, 1,1],
[ (($d==1) && ($f==1)), '&twopass', "Insane quality H.264 MP4", "_IQ", 5000, $maxaudiobr, 19, 1,1],
[ (($d==1) && ($f==1)), '&twopass', "X-Treme quality H.264 MP4", "_XQ", 10000, $maxaudiobr, 19, 1,1],
[ 1, '&xvid', "Low quality XviD AVI", "", 128, 64000, "", 1,1],
[ 1, '&xvid', "Medium quality XviD AVI", "_LQ", 512, 64000, "", 1,1],
) {
if (@$_[0]) { #this quality is not disabled for these content properties - so ask the user if they want to make it
push(@encodethese,[ @$_ ]) if q_boo("Create @${_[2]} (".(@$_[4]+(@$_[5]/1000))." kbps) video? [y/n]");
}
}

}

for (@encodethese) {
my $idtag = @$_[3];
if (
((($d == 1) && ($f == 1)) && ($idtag =~ m/^_HQ$/)) #d1 f1 hq
or
($idtag =~ m/^(_IQ|_XQ)$/) #any iq/xq
) {
&nmf;
last;
}
}

&out_cls_info("Now encoding ...");
for (@encodethese) {
# 0 1 2 3 4 5 6
eval(@${_[1]}."(\"".${projname}.@${_[3]}.${nmf}.".avs\", \"".${projname}."\", ".@${_[4]}.", ".@${_[5]}.", \"".@${_[6]}."\", ".@${_[7]}.", ".@${_[8]}.")");
}
} else {
#save stuff
}

# MD finished > NUL 2>&1
#
# FOR %%G IN (*.bat) DO (
# ECHO ---------------------------------------- >> .\finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of project folder >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# DIR >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
#
# FOR %%G IN (*.avs) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
#
# FOR %%G IN (*.log) DO (
# ECHO ---------------------------------------- >> finished\%log%
# ECHO Contents of %%G >> finished\%log%
# ECHO ---------------------------------------- >> finished\%log%
# ECHO. >> finished\%log%
# TYPE "%%G" >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# ECHO. >> finished\%log%
# )
# COPY finished\%log% finished\%log:~0,-4%.bak > NUL
# ATTRIB +H finished\%log:~0,-4%.bak
#
# MOVE /Y ${projname}_LQ.avi finished > NUL 2>&1
# MOVE /Y ${projname}.avi finished > NUL 2>&1
# MOVE /Y ${projname}_LQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_HQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_IQ.mp4 finished > NUL 2>&1
# MOVE /Y ${projname}_XQ.mp4 finished > NUL 2>&1
#
#
# :proc_close
# ECHO.
# ECHO.
# IF "%IQskipped%"=="true" (
# ECHO HQ reached the quality limit imposed by SDA. IQ would reach the same limit, therefore it has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="true" (
# ECHO You chose XQ for high definition video. HQ reached the quality limit imposed by SDA so IQ was encoded with XQ settings and XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# IF "%XQskipped%"=="notHD" (
# ECHO You chose XQ for high definition video however Anri determined that it is not truly HD. XQ has been skipped. | "%anri_dir%tee.exe" -a finished\read.txt
# ECHO. | "%anri_dir%tee.exe" -a finished\read.txt
# )
# CALL :out_info All dun.
# ECHO.
# GOTO die

}

############################################################################
# File Handling
#
# Handle files in project directory.
############################################################################

#string, > or >>, filepath
#not much here yet but may need to modify in the future
#don't forget the \n if you want a newline as this won't do it otherwise
sub echotofile {
open(OUTFILE, "${_[1]}${_[2]}");
print OUTFILE $_[0];
close(OUTFILE);
}

sub samefiles {
open(FILEONE, "${_[0]}");
@fileone=<FILEONE>;
close(FILEONE);
open(FILETWO, "${_[1]}");
@filetwo=<FILETWO>;
close(FILETWO);
#are they the same number of lines?
return 0 if @fileone != @filetwo;
#compare each line ... can tell the line on which they differ but currently no use for it in anri
for (my $i = 0 ; $i < @fileone ; $i++) {
return 0 if $fileone[$i] ne $filetwo[$i];
}
return 1;
}

sub make_projdir {
chdir($desktop);
mkdir($projname) if !-e $projname;
chdir($projname);
&cp("${anri_dir}/silence_stereo_48000.wav","${desktop}/${projname}");
&cp("${dgmpgdec_dir}/infotemplate.avs","${desktop}/${projname}");
&cp("${anri_dir}/ntsc_d1.png","${desktop}/${projname}");
}

sub wipe_avs {
chdir("${desktop}/${projname}");
&rm("*.avs") if -e "${projname}.avs";
&cp("${projname}.bak","${projname}.avs");
&cp("plugins.bak","plugins.avs");
}

#load_plugins makes a file plugins.avs in the project directory that contains the proper loadplugin() or import() declarations for every plugin (defined as a file ending in .dll or .avs) found under $anri_dir/plugins.
sub load_plugins {
&rm("plugins.avs") if -e "plugins.avs";

opendir(PLUGINS, "${anri_dir}/plugins");
@plugins = readdir(PLUGINS);
closedir(PLUGINS);
for (@plugins) {
if (m/.*\.([dll]+)$/i) {
&echotofile("loadplugin(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
} elsif (m/.*\.([avs]+)$/i) {
&echotofile("import(\"${anri_dir}/plugins/${_}\")\n",">>","plugins.avs");
}
}
&cp("plugins.avs","plugins.bak");
}

sub nmf {
$nmf = '_nmf';
&out_cls_section("New Master File");
&out_info("NMF: New Master File refers to an intermediate source video file in the encoding process, usually one saved after deinterlacing (to avoid slow deinterlacing during each pass for each quality of output).");
&echo("");
&out_info("You have chosen to encode HQ, IQ and/or XQ. We can speed up the encoding process by creating a NMF. BEWARE! The new file can be extremely large, somewhere around 36 to 72 GB per hour. Make sure you have enough hard drive space.");
&echo("");
if (q_boo("Create NMF? [y/n]", $create_nmf)) {
&echo("");

$number_of_processors=1;
if ($os eq 'windows') {
$_=qx("ECHO %NUMBER_OF_PROCESSORS%");
chomp;
$number_of_processors=$_;
#Set lagarith to yv12 under doze - yv12 and multithreading turned on
# $lagarith_settings = <<SABRAC;
# [settings]
# lossy_option=3
# multithreading=1
# SABRAC
#commented out until i can figure out how to detect vista
# IF DEFINED LOCALAPPDATA (
# REM Vista
# ECHO [settings] > "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ECHO lossy_option=3 >> "%LOCALAPPDATA%\VirtualStore\Windows\lagarith.ini"
# ) ELSE (
# ECHO [settings] > %WINDIR%\lagarith.ini
# ECHO lossy_option=3 >> %WINDIR%\lagarith.ini
# )
} else {
# use Sys::CPU;
# $number_of_processors = Sys::CPU::cpu_count();
}
&rm("${projname}_HQ_nmf.avs");
#:nmf_vdubloop
#counterB
$alignedsplice = "";
for (my $i = 0;$i < $number_of_processors; $i++) {
&echotofile($alignedsplice,">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ.avs","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("trim(floor(last.framecount/${number_of_processors}.000*${i}.000), floor(last.framecount/${number_of_processors}.000*".($i+1).".000)-1)\n",">>","${projname}_HQIQXQ_".($i+1).".avs");
&echotofile("avisource(\"${projname}_HQIQXQ_".($i+1).".avi\")\n",">>","${projname}_HQ_nmf.avs");
&rm("${projname}_HQIQXQ_".($i+1));
system("START /LOW /B \"encoding nmf section ".($i+1)."\" \"${vdub_dir}/${vdubcli}\" \"${projname}_HQIQXQ_".($i+1).".avs\" /i \"${anri_dir}/nmf.vcf\" \"${projname}_HQIQXQ_".($i+1).".avi\" > NUL");
$i++;
$alignedsplice = "\\++\\\n";
}
&echotofile("converttoyv12\n",">>","${projname}_HQ_nmf.avs");
#yikes ... better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ_nmf.avs");
&echotofile("changefps(last.framerate)\n",">>","${projname}_HQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_IQ_nmf.avs");
&cp("${projname}_HQ_nmf.avs","${projname}_XQ_nmf.avs");
while (grep(/vdub\.exe/, qx("\"${anri_dir}/tasklist.exe\""))) {
&echo("%time% Encoding NMF ...");
sleep(10);
}
&echo("");
&out_info("NMF successfully created. Continuing with encoding process in 5 seconds...");
&echo("");
sleep(5);
}
}

############################################################################
# function: script_buildfiles
#
# Delete all avs files and restore base avs which has video source lines.
############################################################################

sub script_buildfiles {
&wipe_avs;
#handle trimming stuff - @trimarr must already have an even number of elements due to our input sanitation
if ($trim) {
for (my $i=0 ; $i < @trimarr ; $i=($i+2)) {
&echotofile("trim(".$trimarr[$i].",".$trimarr[$i+1].")\n",">>","${projname}.avs");
}
}
$fieldorder ? &echotofile("AssumeTFF()\n",">>","${projname}.avs") : &echotofile("AssumeBFF()\n",">>","${projname}.avs");
&echotofile("global pal = (last.height==576) ? true : false\n",">>","${projname}.avs");
if ($isPCGAME) {
&echotofile("global f1 = last.framerate\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
#better use single quotes for this one
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")',">>","${projname}_HQ.avs");
&cp("${projname}.avs","${projname}_IQ.avs");
&cp("${projname}.avs","${projname}_XQ.avs");
&echotofile("new_width = round(Sqrt(800*600*last.width/last.height))\n",">>","${projname}_IQ.avs");
#Avoid weird res on at least the width.
&echotofile("new_width = new_width - new_width %% 16\n",">>","${projname}_IQ.avs");
&echotofile("new_height = round(new_width*last.height/last.width)\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 800*600 ? Lanczos4Resize(new_width,new_height) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_IQ.avs");
&echotofile("last.width*last.height > 640*512 ? Lanczos4Resize(640,round(last.height*(640.0000/last.width))) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}_HQ.avs");
&echotofile("last.width*last.height > 320*256 ? Lanczos4Resize(320,round(last.height*(320.0000/last.width))) : NOP\n",">>","${projname}.avs");
&echotofile("last.height %% 2 == 1 ? AddBorders(0,0,0,1) : NOP\n",">>","${projname}.avs");
&echotofile("last.width %% 2 == 1 ? AddBorders(0,0,1,0) : NOP\n",">>","${projname}.avs");
} else {
&echotofile("global f1 = (pal==true) ? 50 : 59.94\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}_HQ.avs");
&echotofile('WriteFileStart("resolution.log","last.width",""" "," """, "last.height")'."\n",">>","${projname}_HQ.avs");
#Set d1 either 704 or 640 (true), 352 or 320 (false)
$dboo = ($d==1) ? "true" : "false";
&echotofile("global d1 = ".$dboo." ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}_HQ.avs");
&cp("${projname}_HQ.avs","${projname}_IQ.avs");
#Set d1 either 352 or 320 for LQ/MQ
&echotofile("global d1 = false ? ((pal==true) ? 704 : 640) : ((pal==true) ? 352 : 320)\n",">>","${projname}.avs");
#d1 is set, but not yet resized.
#this $projtemp is like the old _temp.avs from doze batch anri - not sure if we still need to do this temporarily like this but it's way too complex for me to confidently say we don't so i'm going to keep it
$projtemp = '';
if ($prog) {
$projtemp .= "pal==true ? d1==704 ? lanczos4resize(704,576) : lanczos4resize(352,288) : d1==640 ? lanczos4resize(640,480) : lanczos4resize(320,240)\n";
} else {
$projtemp .= "nate_vhs_head_change_erase\n" if $vhs;
$projtemp .= "(pal==true ? d1==704 : d1==640) ? mvbob : separatefields\n";
$projtemp .= "nate_1_pixel_bob_fix\n" if $onepixel;
$projtemp .= "nate_retard_bob_2\n" if $deflicker;
$projtemp .= "nate_nes\n" if $nes;
$projtemp .= "lanczos4resize(d1,last.height)\n";
$projtemp .= "nate_gba\n" if $gba;
$projtemp .= "nate_gb\n" if $gb;
}
$projtemp .= "changefps(f1/".$f.")\n" if !$prog;
}

$projtemp .= "run=converttoyv12\n";

$statidtype = "d1";
$statidtype = "gba" if $gba;
$statidtype = "gb" if $gb;
$projtemp .= "statid=nate_statid_".$statidtype."(run,\"".$statidlines[0]."\",\"".$statidlines[1]."\",\"".$statidlines[2]."\").ConvertToRGB\n";

$projtemp .= "statid = float(run.width) / run.height >= 4./3 ?\n";
$projtemp .= "\\ statid.Lanczos4Resize(round(run.height*4./3),run.height).AddBorders(floor((run.width-round(run.height*4./3))/2.),0,ceil((run.width-round(run.height*4./3))/2.),0).ConvertToYv12 :\n";
$projtemp .= "\\ statid.Lanczos4Resize(run.width,round(run.width*3./4)).AddBorders(0,floor((run.height-round(run.width*3./4))/2.),0,ceil((run.height-round(run.width*3./4))/2.)).ConvertToYv12\n";

$statid ? $projtemp .= "statid++run++statid\n" : $projtemp .= "run\n";
$projtemp .= "changefps(last.framerate)\n";
$projtemp .= "converttoyv12\n";

&echotofile($projtemp,">>","${projname}.avs");
&echotofile($projtemp,">>","${projname}_HQ.avs");
&echotofile($projtemp,">>","${projname}_IQ.avs");
&echotofile($projtemp,">>","${projname}_XQ.avs") if $isPCGAME;
&cp("${projname}.avs","${projname}_LQ.avs");

if ($twod) {
&echotofile("(last.framerate > 31) ? changefps(f1/3) : last\n",">>","${projname}_LQ.avs");
} else {
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}.avs");
&echotofile("(last.framerate > 31) ? changefps(f1/2) : last\n",">>","${projname}_LQ.avs");
}
&cp("${projname}_LQ.avs","${projname}_xvid.avs");
&cp("${projname}_LQ.avs","${projname}_LQ_xvid.avs");

&rm("${projname}_trimtemp.avs");
}

# REM ------- SETTINGS MANAGER -------
#
# :find_existing_settings
# IF EXIST "%projdirpath%\${projname}_job.bat" (
# CALL "%projdirpath%\${projname}_job.bat"
# SET using_settings=y
# )
# GOTO :EOF
#
# :check_settings
# CALL :show_settings
# :check_settings_p2
# SET s=
# SET /P s=Do you want to encode using these settings? If you choose No you will be prompted to enter them again. [y/n]
# CALL :set_var_bool settings_good check_settings_p2
# GOTO :EOF
#
# :show_settings
# CALL :out_cls_section REVIEW SETTINGS
# IF DEFINED this_anriver IF NOT "%this_anriver%"=="%anri_ver%" CALL :out_info NOTICE: Your settings for this project were created in an outdated version of Anri. They may not work properly in this version. It is recommended that you discard these settings and re-enter them.
# IF "%dvdsource%"=="y" ( ECHO DVD Source: Yes ) ELSE ( ECHO DVD Source: No )
# IF "%dvdsource%"=="y" ( ECHO DVD Drive Letter: %driveletter% )
# ECHO Project Name: ${projname}
# IF DEFINED avifolder ECHO AVI folder: %avifolder%
# IF DEFINED avifiles ECHO Source Video Files: %avifiles%
# IF NOT "%twod%"=="y" (SET twodtemp=3D) ELSE (SET twodtemp=2D)
# IF DEFINED d IF DEFINED f ECHO Video Format: D%d% F%f% %twodtemp%
# IF "%vhs%"=="y" ( ECHO From VHS Source ) ELSE ( ECHO Not From VHS Source )
# IF "%prog%"=="y" ( ECHO Progressive ) ELSE ( ECHO Interlaced )
# IF "%fieldorder%"=="t" ECHO Top field first
# IF "%fieldorder%"=="b" ECHO Bottom field first
# IF "%onepixel%"=="y" ECHO One-Pixel Bob
# IF "%nes%"=="y" ECHO From NES Console
# IF "%gba%"=="y" ECHO From Game Boy Advance
# IF "%gameboy%"=="y" ECHO From Game Boy
# IF "%deflicker%"=="y" ECHO Deflickered
# IF "%trim%"=="y" ECHO Trim frame ranges %trimarray%
# IF "%statid%"=="y" ECHO StatID: %statid1:"+chr(34)+"="% / %statid2:"+chr(34)+"="% / %statid3:"+chr(34)+"="%
# ECHO.
# GOTO :EOF
#
# :savesettings
# ECHO @ECHO OFF > "${projname}_job.bat"
# ECHO (SET proj_anriver=%anri_ver%) >> "${projname}_job.bat"
# ECHO (SET using_settings=y) >> "${projname}_job.bat"
# ECHO (SET dvdsource=%dvdsource%) >> "${projname}_job.bat"
# ECHO (SET avifolder=%avifolder%) >> "${projname}_job.bat"
# ECHO (SET avifiles=%avifiles%) >> "${projname}_job.bat"
# ECHO (SET fieldorder=%fieldorder%) >> "${projname}_job.bat"
# ECHO (SET d=%d%) >> "${projname}_job.bat"
# ECHO (SET f=%f%) >> "${projname}_job.bat"
# ECHO (SET vhs=%vhs%) >> "${projname}_job.bat"
# ECHO (SET onepixel=%onepixel%) >> "${projname}_job.bat"
# ECHO (SET nes=%nes%) >> "${projname}_job.bat"
# ECHO (SET twod=%twod%) >> "${projname}_job.bat"
# ECHO (SET statid=%statid%) >> "${projname}_job.bat"
# ECHO (SET statid1=%statid1%) >> "${projname}_job.bat"
# ECHO (SET statid2=%statid2%) >> "${projname}_job.bat"
# ECHO (SET statid3=%statid3%) >> "${projname}_job.bat"
# ECHO (SET driveletter=%driveletter%) >> "${projname}_job.bat"
# ECHO (SET projname=${projname}) >> "${projname}_job.bat"
# ECHO (SET gba=%gba%) >> "${projname}_job.bat"
# ECHO (SET gameboy=%gameboy%) >> "${projname}_job.bat"
# ECHO (SET deflicker=%deflicker%) >> "${projname}_job.bat"
# ECHO (SET prog=%prog%) >> "${projname}_job.bat"
# ECHO (SET trim=%trim%) >> "${projname}_job.bat"
# ECHO (SET trimarray=%trimarray%) >> "${projname}_job.bat"
# ECHO (SET maxaudiobitrate=%maxaudiobitrate%) >> "${projname}_job.bat"
# ECHO (SET hqq=%hqq%) >> "${projname}_job.bat"
# ECHO (SET isPCGAME=%isPCGAME%) >> "${projname}_job.bat"
# ECHO IF NOT "%%in_anrichan%%"=="y" call "%anri_path%" >> "${projname}_job.bat"
# COPY /Y "${projname}_job.bat" "${projname}_job.bak" > NUL
# GOTO :EOF
#
# :createjob
# CALL :savesettings
# PAUSE
# GOTO die

############################################################################
# Windows
#
# These subroutines make use of the win32api module.
############################################################################

#fullpathtokey, data, type
sub update_registry_key {
use Win32::TieRegistry(Delimiter=>"/",ArrayValues=>0);
$Registry->{$_[0]} = [ $_[1], $_[2] ];
}

############################################################################
# System
#
# These subroutines send OS-dependent shell commands.
############################################################################

#path
#/D means change even if cwd is on a different drive letter
# sub cd {
# $flags = '';
# $flags = ' /D' if $os eq 'windows';
#
# #for debugging
# $command = "cd${flags} \"${_[0]}\"";
# print "$command\n";
# system($command);
# }

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#/B means force binary copy (do not attempt to translate line endings)
#-R means recursive (copy directories and the files in them as well as just files)
sub cp {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'cp';
$command = 'COPY' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y /B' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path, newpath (both can be relative)
#/Y means overwrite (i.e. automatically say Yes to the overwrite question)
#-R means recursive (copy directories and the files in them as well as just files)
sub mv {
if ($os eq 'windows') {
for (@_) {
#MOVE gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'mv';
$command = 'MOVE' if $os eq 'windows';

$flags = ' -R';
$flags = ' /Y' if $os eq 'windows';

$redirect = '';
$redirect = ' > NUL' if $os eq 'windows';

$command = "${command}${flags} \"${_[0]}\" \"${_[1]}\"${redirect}";
#for debugging
# print $command."\n";
system($command);
}

#path
#-r means recursive (delete directories and the files in them as well as just files)
#-f means force (don't ask for confirmation, just do it - may be necessary on some red hat linux installs)
#/Q means don't ask for confirmation
#/S means recursive (delete directories and the files in them as well as just files)
sub rm {
if ($os eq 'windows') {
for (@_) {
#COPY gives me errors unless the path delimiter is \ under doze
s,/,\\,g if m,/,;
}
}

$command = 'rm';
$command = 'DEL' if $os eq 'windows';

$flags = ' -rf';
$flags = ' /Q /F' if $os eq 'windows';

for (@_) {
#is this a directory?
if (-d "$_") {
$command = 'RD' if $os eq 'windows';
$flags = ' /Q /S' if $os eq 'windows';
}

system("${command}${flags} \"${_}\"");
}
}

#lol it says subtitle - set the console's title
sub title {
if ($os eq 'windows') {
system('TITLE '.$_[0]);
} else {
system('declare -x PROMPT_COMMAND=\'printf "\e]0;'.$_[0].'\a"\'');
}
}

############################################################################
# Input
#
# These subroutines get data from the user.
############################################################################

# function: q_boo
# returns boolean, optionally also sets boolean variable (0 or 1)
#out_info text, [variable to set]
sub q_boo($;$) {
&out_info($_[0]);
print $prompt;
while (my $userinput = <STDIN>) {
chomp($userinput);
if ($userinput =~ m/^[yn]$/) {
#t becomes 1 (true), b becomes 0 (false)
$userinput =~ tr/yn/10/;
$_[1] = $userinput;
return $userinput;
}
print "Invalid input.\n\n";
print $prompt;
}
}

############################################################################
# function: q_avi
#
# Ask the user if they want to do manual input of file paths, or automatically
# by loading the files in a specified directory alphabetically.
############################################################################
sub q_avi {
$maxaudiobr = 320000;
&out_cls_section("AVI SOURCE");
&out_info("Enter the path to each avi file [i]ndividually or [a]utomatically. Note that if you choose automatic, Anri will load the files in an alphabetical manner. The files must have the same resolution and framerate to be joined together.");
&echo("");
print $prompt;
while (<STDIN>) {
chomp;
if (m/([ia])$/) {
#i becomes 1 (true), a becomes 0 (false)
tr/ia/10/;
$_ ? &q_avi_i : &q_avi_a;
last;
}
print "Invalid input.\n\n";
print $prompt;
}

#IF "%auto%"=="y" GOTO avimethod_skip
#:avimethod_skip
#AVI files loaded, generate avs source lines.
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
$alignedsplice = '';
for $avifile (@avifiles) {
&echotofile($alignedsplice, ">>", "${projname}.avs");
$fourcc = "";
open(AVIFILE, "<:raw", $avifile)
and sysseek(AVIFILE, 0xBC, 0)
and sysread(AVIFILE, $fourcc, 4);
close(AVIFILE);
$sourcedecverb = 'avisource';
$sourcedecverb = 'directshowsource' if grep {$_ eq lc($fourcc)} qw(tscc xvid dx50);
&echotofile("${sourcedecverb}(\"${avifile}\")\n", ">>", "${projname}.avs");
$alignedsplice = "\\++\\\n";
}
#newline needed
&echotofile("\nconverttoyuy2()\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

############################################################################
# function: q_avi_i
#
# Manually add each file path to @avifiles. Do some validation; no
# resolution check yet.
############################################################################
sub q_avi_i {
&echo("");
&out_info('Path to source video file e.g. c:\path to\video.avi without quotes.');
&out_info(" - Type n to quit -");
&echo("");
#:q_avi_i_p2
print $prompt;
while (<STDIN>) {
chomp;
#error codes' precedence is descending, e.g. empty string is first because it is the most serious error
if ($_ eq '') {
$errormsg="You must enter a path, or type n to quit.";
} elsif (m/^n$/i) {
if (@avifiles < 1) {
$errormsg="You must load at least one avi file.";
} else {
last;
}
} elsif (!m/.*\.av[si]$/i) {
$errormsg="Must be an avi file, try again.";
} elsif (! -e $_) {
$errormsg="File does not exist, try again.";
} else {
push(@avifiles,$_);
&out_info('avi #'.@avifiles.' loaded successfully!');
&echo("");
print $prompt;
next;
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_avi_a
#
# Automatic file loading. User just has to specify a directory and it will
# load the files alphabetically.
############################################################################
sub q_avi_a {
&echo("");
#saved this string in a variable for use later on down
$enterhelp = 'Enter the path to the avi folder e.g. c:\my video folder\ without quotes.';
&out_info($enterhelp);
print $prompt;
#Validate avifolder. Check for blank, then :\ for full path if windows, then see whether it exists.
while (<STDIN>) {
@avifiles = ();
chomp;
if (m/^$/) {
$errormsg="You must enter a path.";
} elsif (m/^.[^:][^\\].*/) {
$errormsg="Must be full path.";
} elsif (! -e $_) {
$errormsg="Folder does not exist.";
} else {
$avifolder = $_;
#remove any and all / or \ characters from the end of the path
$avifolder =~ s/[\/]*$//;

#build list
for (<$avifolder/*.avi>) {
push(@avifiles,$_);
print $_."\n";
}

#user can accept if files were found
if (@avifiles == 0) {
$errormsg = 'No avi files found in that folder!';
} else {
#Ask user if the list is good.
&echo('Continue [y] or rescan [n]?');
print $prompt;
while (<STDIN>) {
chomp;
last if (m/^[yn]$/);

print "Invalid input.\n\n";
print $prompt;
}

#do we need to do this whole thing again?
last if $_ eq 'y';
$errormsg = $enterhelp;
}
}
&out_error($errormsg);
print $prompt;
}
}

############################################################################
# function: q_dfnd
#
# FIXME
############################################################################
sub q_dfnd {
&out_info("The next few questions are about the game played in this video. SDA has a database of games we have seen in the past, which can answer some or all of the questions for you. However, you must be connected to the Internet to use it.");
q_boo("Do you want to use Anri's games database [Y] or enter the data yourself [N]?", $dfnd);
if ($dfnd) {
#:dfnd
&out_info("Anri will now attempt to connect to SDA's games database. This may take a few moments. Once complete, you will see a list of all games in the database.");
&out_info("Press ENTER to continue ...");
<STDIN>;
&echo("");
@dfnddata = ();
$dfpage = "\"${anri_dir}/${wget}\"".' -qO- --user-agent="Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" "http://speeddemosarchive.com/kb/index.php/DF"';
$_ = join("",qx($dfpage));
#must be only one table on that page ... or at least the dfnd data must be in the first one ... but bman assumed this too and it was ok
if (s/.*<table>(.+)<\/table>.*/$1/s) {
@rows = split(/<\/tr>\n<tr>/);
for (@rows) {
chomp;
#we don't want the header row
next if m/<th/;
@data = split(/<\/?t[dr]>+/);
$nes = $gb = $gba = $d = $f = $twod = 0;
for (@data) {
$nes = 1 if m/for [^ ]*NES[^ ]*$/;
if (m/(for [^ ]*GBC?[^ ]*)|(for Game Boy( Color)?)$/) {
$gb = 1;
}
if (m/(for [^ ]*GBA[^ ]*)|(for Game Boy Advance)$/) {
$gba = 1;
}
$d = $1 if m/^D([14])$/;
$f = $1 if m/^F([123])$/;
if (m/^([23])D$/) {
$twod = $1;
$twod =~ tr/23/10/;
}
}
# 0 1 2 3 4 5 6
push(@dfnddata,[$_, $d, $f, $twod, $nes, $gb, $gba]);
}
$titles = '';
for $i ( 0 .. $#dfnddata ) {
$title = $dfnddata[$i][0];
$title =~ s/^<td>([^<]+)<\/td>.+/$1/;
$title =~ s/&/\&/g;
$titles .= "".($i+1).": ${title}\n";
}
print $titles;
#system("echo \"${titles}\" | more");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^$/) {
$errormsg="You must choose a game.";
} elsif (m/[^0-9]/) {
$errormsg="Please enter the number of a game.";
} elsif (($_ gt @dfnddata) or ($_ le 0)) {
$errormsg="Invalid selection.";
} else {
$gamechoice = $_;
last;
}
&out_error($errormsg);
print $prompt;
}
$gamechoice--;
$d = $dfnddata[$gamechoice][1];
$f = $dfnddata[$gamechoice][2];
$twod = $dfnddata[$gamechoice][3];
$nes = $dfnddata[$gamechoice][4];
$gb = $dfnddata[$gamechoice][5];
$gba = $dfnddata[$gamechoice][6];
$dfnd_set = 1;
} else {
&out_error("Could not connect to SDA!");
&q_dfnd if q_boo("Try again? [y/n]");
}
}
}

############################################################################
# Output
#
# These subroutines send data to the console.
############################################################################

sub echo {
$_[0] = '' if not defined $_[0];
if ($os eq 'windows') {
system("\"${cecho}\" ".$_[0].'{\n}');
} else {
print $_[0]."\n";
}
}

sub out_cls {
system($clear);
&echo("${gray_on_black} ");
&echo("${blue_on_black}===============================================================================");
&echo("${white_on_black} Speed Demos Archive Anri ${version}");
&echo("${aqua_on_black} http://speeddemosarchive.com/ http://www.metroid2002.com/ ");
&echo("${blue_on_black}===============================================================================");
&echo("");
system($reset_color);
}

sub out_info {
$_[0] = '' if not defined $_[0];
&echo("${white_on_gray}$_[0]");
system($reset_color);
}

sub out_error {
$_[0] = '' if not defined $_[0];
&echo("${maroon_on_gray}[!]");
for (@_) {
&echo("${maroon_on_gray}[!] ${maroon_on_silver}".$_);
}
&echo("${maroon_on_gray}[!]");
system($reset_color);
&echo("");
}

sub out_section {
$_[0] = '' if not defined $_[0];
&title("Anri ${version} - ".$_[0]);
&echo("${teal_on_gray}-------------------------");
&echo("${navy_on_gray}".$_[0]."");
&echo("${teal_on_gray}-------------------------");
system($reset_color);
&echo("");
}

sub out_cls_section {
&out_cls;
&out_section($_[0]);
}

sub out_cls_info {
&out_cls;
&out_info($_[0]);
}

#print the numbered english half of a 2d array consisting of english,command pairs and show the anri prompt at the end
sub out_menu {
for (my $i = 0; $i < @_; $i++) {
print " ".($i+1).". ".$_[$i][0]."\n";
}
print "\n${prompt}";
}

############################################################################
# Acquisition
#
# Import video.
############################################################################

############################################################################
# function: index_dvd
#
# Show a list of ripped DVDs. Cycle through the user's choices, indexing
# VOB/VRO files one by one. Run a preview as well to get the dgindex log.
# The log gets created in the vob folder, so it needs to be moved to the
# project folder. Used to determine maxaudiobr. Everything that's been
# done so far (ripping and indexing) should be transparent with the rest of
# the program. All that matters is creating a valid project.avs.
############################################################################

############################################################################
# function: rip_dvd
#
# If IFO files are present, rip with Mplayer. Otherwise just a straight copy.
############################################################################

sub rip_dvd {
&out_cls_section("Rip DVD");
if (!$auto) {
&out_info("What is the drive letter of your DVD drive (e.g. D)?");
&out_info("Tip: If you already have your DVD source files on your hard drive, move them into C:\\VIDEO_TS\\ and enter C as your drive letter.");
print $prompt;
while (<STDIN>) {
chomp;
if (m/^[a-z]$/i) {
$driveletter = $_;
last;
} else {
$errormsg="You must enter a drive letter. Enter e.g. D, not D: or D:\\.";
}
&out_error($errormsg);
print $prompt;
}
}
&echo("");
&out_info("Anri will extract to the ${dvdripto_parentdir} parent directory. Name a folder for your DVD files.");
print $prompt;
while (<STDIN>) {
chomp;
if (!m/^$/) {
$dvdripto = "${dvdripto_parentdir}/${_}";
mkdir($dvdripto) if !-e $dvdripto;
last;
} else {
$errormsg="You must enter a folder name.";
}
&out_error($errormsg);
print $prompt;
}
&echo("");
&out_info("Anri will now extract everything needed from the DVD to ${dvdripto}. Make sure you have enough hard drive space (up to 4.3 GB). This may take some time.");
&out_info("Press ENTER to continue ...");
&echo("");
<STDIN>;

if (-e "${driveletter}:/VIDEO_TS") {
$dvdsource = "${driveletter}:/VIDEO_TS";
if (glob("${dvdsource}/VTS*.IFO")) {
$ifofiles = join(" ",(glob("${dvdsource}/VTS*.IFO")));
#forward slash as path delimiter confuses pgccount
#$ifofiles =~ s,/,\\,g;
$pgccountcommand = "\"${anri_dir}/${pgccount}\" ${ifofiles}";
@pgclist = split("\n",qx($pgccountcommand));

if ($advanced_mode) {
# IF NOT "%auto%"=="y" (
# ECHO.
# CALL :out_info -advanced mode- Rip specific title numbers. Separate by spaces, or leave blank to rip all. You can look at pgclist.txt in the DVD file destination directory to see which titles will be ripped by default.
# SET s=
# SET /P s=Title numbers:
# ) ELSE (
# SET s=%auto_Title_numbers%
# )
# IF DEFINED s (
# REN pgclist.txt pgclist.bak
# FOR %%G IN (!s!) DO (
# TYPE pgclist.bak | FIND "%%G," >> pgclist.txt
# )
# )
# )
}

#Rip the titles with Mplayer using info from pgclist.txt
for (@pgclist) {
m/^([^,]+),.+\/VTS_([0-9][0-9])_.*$/;
#zero pad to 3 places to avoid sorting problems where 10 comes before 1.
$expandpgc = sprintf("%03d", $1);
#FIXME log this
system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
}
} else {
&cp("${dvdsource}/*","${dvdripto}");
}
} else {
if (-e "${driveletter}/DVD_RTAV") {
&cp("${driveletter}/DVD_RTAV/*","${dvdripto}");
} else {
&echo("Neither VIDEO_TS or DVD_RTAV folder was found on ${driveletter}:\\. Anri is displeased.");
#GOTO DIE
}
}
&out_info("Finished ripping. Press ENTER to continue ...");
<STDIN>;
}

sub index_dvd {
$maxaudiobr = 320000;
&out_cls_info("Here is the list of folders containing DVD/MPEG files (*.mpg, *.mpeg, *.vob, *.vro, etc.) in ${dvdripto_parentdir}\\. Select one or more by typing in the name or names separated by spaces. If you select more than one, the files will be joined in the order you specify.");
&echo("");
&echo("${navy_on_gray}Note that joining different DVD/MPEG files is only recommended if they're of the same game. The settings you choose later in the editing phase will be applied to the whole project which can cause problems since different games will possibly need different settings.");
system($reset_color);
&echo("");
system($reset_color);

$i = 0;
#following masks are all lowercase
@dvdfilemasks = ( '*.v*', '*.mpg', '*.mpeg' );
#FIXME os x still usually uses a case-insensitive filesystem
if ($os ne 'windows') {
#now add the uppercase equivalents for case-sensitive filesystems
foreach $mask (@dvdfilemasks) {
push(@dvdfilemasks, uc($mask));
}
}
#i took out printing the dir even if no mpeg files are found in there because there's no point in showing it if the user can't do anything with it, also clarified that above in the messages to the user (nate)
%gooddvddirs = ();
opendir(DVDRIPTO, $dvdripto_parentdir);
@dvddirs = readdir(DVDRIPTO);
closedir(DVDRIPTO);
foreach $dvddir (@dvddirs) {
if ((-d "${dvdripto_parentdir}/${dvddir}") and ($dvddir ne '.') and ($dvddir ne '..')) {
opendir((DVDDIR), "${dvdripto_parentdir}/${dvddir}");
@dvddircontents = readdir(DVDDIR);
closedir(DVDDIR);
for (@dvddircontents) {
foreach $themask (@dvdfilemasks) {
if (m/\.${themask}$/) {
$gooddvddirs{$dvddir} = "${dvdripto_parentdir}/${dvddir}";
last;
}
}
}
}
}
if (!keys(%gooddvddirs)) {
&out_error("No folders with DVD files found!");
<STDIN>;
exit 1;
} else {
while (($key, $value) = each(%gooddvddirs)) {
&echo("${key}\n");
}
}

@dvdchoices = ();
print $prompt;
while (<STDIN>) {
chomp;
#have to initialize @errormsgs here because we may be pushing to it later
@errormsgs = ();
#if (!m/^([0-9]+[ ]+[0-9]+)+$/) { #regex for if more than one input is required on a line
if (m/^$/) {
push(@errormsgs,"Invalid input.");
} else {
for (split(" ")) {
if (defined($gooddvddirs{$_})) {
push(@dvdchoices,$gooddvddirs{$_});
} else {
push(@errormsgs,"Invalid selection: ${_}");
}
}
last if @dvdchoices > 0;
}
&out_error(@errormsgs);
print $prompt;
}

&echo("");

&out_info("Now indexing MPEG-2 ...");
#Start - AVS prep
&rm("${projname}.avs") if -e "${projname}.avs";
&echotofile("loadplugin(\"${dgmpgdec_dir}/DGDecode.dll\")\n",">","${projname}.avs");
&echotofile("import(\"${anri_dir}/sda.avs\")\n",">>","${projname}.avs");
&echotofile("import(\"${desktop}/${projname}/plugins.avs\")\n",">>","${projname}.avs");
# End - AVS prep

$alignedsplice = '';
foreach $dvdchoice (@dvdchoices) {
foreach $mask (@dvdfilemasks) {
$i = 1;
foreach $mpegfile (glob("${dvdchoice}/$mask")) {
#ignore bad files
if (-s $mpegfile > 5000) {
&echotofile($alignedsplice,">>","${projname}.avs");
#split into basename and extension
$mpegfile =~ /^.*[\\\/]([^\\\/.]+)\.([^.]+)$/;
# Run current vob through dgindex. Set to demux all tracks. Place vid,aud,delay info into temporary avs file.
#I01_001.vob
#dvdtest_1_I01_001.d2v
#dvdtest_1_I01_001.log
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OF=[${projname}_${i}_${1}] -PREVIEW -exit");
print "\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit";
print "\n";
system("\"${dgmpgdec_dir}/${dgindex}\" -IF=[${mpegfile}] -OM=2 -OF=[${projname}_${i}_${1}] -AT=[infotemplate.avs] -exit");
&mv("${dvdchoice}/${1}.log","${desktop}/${projname}/${projname}_${i}_${1}.log");
#FIXME sorting problems if we have over 9 input files?
for (glob("${projname}_${i}_*")) {
&echotofile("ac3source(MPEG2source(\"${1}.d2v\",upconv=1),\"${_}\").delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.ac3$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",upConv=1),mpasource(\"${_}\")).delayaudio(".($2/1000).")\n",">>","${projname}.avs") if (m/^([^ ]+) .+DELAY (-?[0-9]+)ms.*\.mp.*$/);
&echotofile("audiodub(MPEG2source(\"${1}.d2v\",wavsource(\"${_}\"))\n",">>","${projname}.avs") if (m/^([^ ]+).*\.wav$/);
if (defined($3)) {
$maxaudiobr = ($3+1000) if $maxaudiobr lt ($3+1000);
}
}
# If there's more than one file to be joined, they must be appended together.
$alignedsplice = "\\++\\\n";
$i++;
}
}
}
}
&echotofile("\n",">>","${projname}.avs");
&cp("${projname}.avs","${projname}.bak");
}

#system("\"${anri_dir}/${mplayer}\" dvd://${1} -dvd-device ${dvdsource} -dumpstream -dumpfile ${dvdripto}/I${2}_${expandpgc}.vob");
############################################################################
# Encoding
#
# Encode video in OS-specific ways.
############################################################################

#input filename, output basename, output audio bitrate in baud, x264 minimum quantizer, delete tempfiles boolean
sub onepass {
system("\"${anri_dir}/${x264}\" --qp ${_[3]} --ref 8 --mixed-refs --no-fast-pskip --bframes 5 --b-rdo --bime --weightb --nf --direct auto --subme 7 --analyse p8x8,b8x8,i4x4,p4x4 --threads auto --thread-input --progress --no-psnr --no-ssim --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" \"${_[0]}\" /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[2]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[4]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub twopass {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --bframes 3 --analyse none --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL \"${_[0]}\"");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --stats \"${_[1]}.stats\" --level 4.1 --ref 3 --mixed-refs --no-fast-pskip --bframes 3 --b-rdo --bime --weightb --direct auto --subme 7 --trellis 2 --partitions p8x8,b8x8,i4x4,i8x8 --8x8dct --qpmin ${_[4]} --vbv-bufsize 9000 --vbv-maxrate 25000 --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, x264 minimum quantizer, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub ipod {
system("\"${anri_dir}/${x264}\" --pass 1 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --analyse none --qpmin ${_[4]} --threads auto --thread-input --progress --no-psnr --no-ssim --output NUL ${_[0]}");
system("\"${anri_dir}/${x264}\" --pass 2 --bitrate ${_[2]} --vbv-bufsize 512 --vbv-maxrate 768 --stats \"${_[1]}.stats\" --level 1.3 --no-cabac --no-fast-pskip --subme 7 --trellis 2 --analyse all --qpmin ${_[4]} --me umh --threads auto --thread-input --progress --no-psnr --output \"${_[1]}_video.mp4\" \"${_[0]}\"");
system("\"${vdub_dir}/${vdubcli}\" ${_[0]} /i \"${anri_dir}/audioout.vcf\" \"${_[1]}_temp.wav\"");
system("\"${anri_dir}/${naac}\" -br ${_[3]} -lc -if \"${_[1]}_temp.wav\" -of \"${_[1]}_audio.mp4\"");
system("\"${anri_dir}/${mp4box}\" -tmp . -new -add \"${_[1]}_video.mp4\" -add \"${_[1]}_audio.mp4\" \"${_[1]}.mp4\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}_video.mp4",
"${_[1]}_temp.wav",
"${_[1]}_audio.mp4",
);
&rm(@todel);
}
}

#input filename, output basename, video output bitrate in kbaud, output audio bitrate in baud, empty, delete 2pass statsfile boolean, delete all other tempfiles boolean
sub xvid {
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass1 \"${_[1]}.stats\"");
system("\"${anri_dir}/${xvid}\" -i \"${_[0]}\" -bitrate ${_[2]} -pass2 \"${_[1]}.stats\" -avi \"${_[1]}v.avi\"");
system("\"${anri_dir}/${ffmpeg}\" -b ".($_[3]/1000)." -ac 2 -acodec mp3 -y -i \"${_[1]}v.avi\" -vcodec copy -i \"${_[0]}\" \"${_[1]}.avi\"");
if (${_[5]}) {
@todel = (
"${_[1]}.stats",
);
&rm(@todel);
}
if (${_[6]}) {
@todel = (
"${_[1]}v.avi",
);
&rm(@todel);
}
}
</nowiki></pre>