devtools/bin/playback_getframe.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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;