getfaces.pl

#!/usr/bin/perl

#run with:
# cat `find arch/monster/ | fgrep ".arc"` | ./getfaces.pl | uniq

while (<>) {
	@words =split(/ /);
	if ($_ =~ /^mina$/) { $countframes=0; }
	if (($countframes==1) && ($_ =~ /^facings /)) {next;}
	if ($countframes==1) {print "$_"; $framecount++; next;}
	if ($_ =~ /^Object/) { chomp($name=$words[1]); }
	if ($_ =~ /^end/) { $newob=1; $countframes=0; }
	if ($_ =~ /^anim$/) { $countframes=1; }
	if ($_ =~ /^face/) { chomp($face=$words[1]); }
	next if ($newob==0);
	print "$face\n";
}