1 files changed, 24 insertions, 0 deletions
diff --git a/devtools/bin/playback_getframe.pl b/devtools/bin/playback_getframe.pl
new file mode 100644
index 0000000..137c598
--- /dev/null
+++ b/devtools/bin/playback_getframe.pl
@@ -0,0 +1,24 @@
+if( scalar( @ARGV ) != 2 )
+{
+	die "Usage: playback_getframe.pl framenum blah.txt\n";
+}
+
+# getframe.pl framenum blah.txt
+$line = 0;
+$desiredFrame = shift;
+$frame = 1;
+open INPUT, shift || die;
+while( <INPUT> )
+{
+	$line++;
+	if( /Dx8Present/ )
+	{
+		$frame++;
+	}
+	if( $frame == $desiredFrame )
+	{
+		print "$line: $_";
+	}
+	last if $frame > $desiredFrame;
+}
+close INPUT;