abian/0ad
1
0
Fork 0
forked from 0ad/0ad
Code Pull Requests Activity

Add checks for terrain texture references

Browse Source 
This was SVN commit r10832.
This commit is contained in:
Ykkrosh 2011-12-29 17:57:01 +00:00
parent 3e28d9124c
commit a18195d0a1
1 changed files with 64 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
source/tools/entity/checkrefs.pl
View File

@ -6,7 +6,7 @@ use XML::Simple;
use Entity;
use constant CHECK_SCENARIOS => 0;
use constant CHECK_SCENARIOS_XML => 0;
use constant ROOT_ACTORS => 1;
use constant INCLUDE_INTERNAL => 1;
@ -122,14 +122,15 @@ sub add_actors
sub add_art
{
print "Loading art files...\n";
push @files, find_files('art/textures/terrain', 'dds|png|jpg|tga');
push @files, find_files('art/textures/skins', 'dds|png|jpg|tga');
push @files, find_files('art/meshes', 'pmd|dae');
push @files, find_files('art/animation', 'psa|dae');
}
sub add_scenarios
sub add_scenarios_xml
{
print "Loading scenarios...\n";
print "Loading scenario XML...\n";
my @mapfiles = find_files('maps/scenarios', 'xml');
for my $f (sort @mapfiles)
{
@ -161,6 +162,63 @@ sub add_scenarios
}
}
sub add_scenarios_pmp
{
print "Loading scenario PMP...\n";
# Need to generate terrain texture filename=>path lookup first
my %terrains;
for my $f (find_files('art/textures/terrain/types', 'dds|png|jpg|tga'))
{
$f =~ /([^\/]+)\.(dds|png|jpg|tga)/ or die;
warn "Duplicate terrain name '$1' (from '$terrains{$1}' and '$f')\n" if $terrains{$1};
$terrains{$1} = $f;
}
my @mapfiles = find_files('maps/scenarios', 'pmp');
for my $f (sort @mapfiles)
{
push @files, $f;
push @roots, $f;
open my $fh, vfs_to_physical($f) or die "Failed to open '$f': $!";
binmode $fh;
my $buf;
read $fh, $buf, 4;
die "Invalid PMP file ($buf)" unless $buf eq "PSMP";
read $fh, $buf, 4;
my $version = unpack 'V', $buf;
die "Invalid PMP file ($version)" unless $version == 5;
read $fh, $buf, 4;
my $datasize = unpack 'V', $buf;
read $fh, $buf, 4;
my $mapsize = unpack 'V', $buf;
seek $fh, 2 * ($mapsize*16+1)*($mapsize*16+1), 1; # heightmap
read $fh, $buf, 4;
my $numtexs = unpack 'V', $buf;
for (0..$numtexs-1)
{
read $fh, $buf, 4;
my $len = unpack 'V', $buf;
my $str;
read $fh, $str, $len;
push @deps, [ $f, $terrains{$str} || "art/textures/terrain/types/(unknown)/$str" ];
}
# ignore patches data
}
}
sub add_soundgroups
{
print "Loading sound groups...\n";
@ -244,7 +302,9 @@ sub check_unused
}
}
add_scenarios() if CHECK_SCENARIOS;
add_scenarios_xml() if CHECK_SCENARIOS_XML;
add_scenarios_pmp();
add_entities();