1 files changed, 27 insertions, 0 deletions
diff --git a/devtools/bin/playback_gettexlock.pl b/devtools/bin/playback_gettexlock.pl
new file mode 100644
index 0000000..bf03c6a
--- /dev/null
+++ b/devtools/bin/playback_gettexlock.pl
@@ -0,0 +1,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;