devtools/bin/playback_gettexlock.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
25
26
27

# This gives you all calls between lock and unlock for the specified texture.
# gettexlock.pl texid blah.txt
$desiredTexture = shift;
open INPUT, shift || die;
while( <INPUT> )
{
	if( /Dx8LockTexture: id: (\d+)\s+/ )
	{
		if( $1 == $desiredTexture )
		{
			print "----------------------------------------------------\n";
			print;
			$gotit = 1;
		}
	}
	elsif( $gotit && /Dx8UnlockTexture: id: (\d+)\s+/ )
	{
		die if $1 != $desiredTexture;
		print;
		$gotit = 0;
	}
	else
	{
		print if( $gotit );
	}
}
close INPUT;