Ykkrosh
ed38414b41
Textures: converted ARGB to ABGR. Misc: warning fixes, etc. This was SVN commit r3631.
47 lines
808 B
Perl
47 lines
808 B
Perl
use DDS;
|
|
use Data::Dumper;
|
|
use File::Find;
|
|
|
|
my @dds;
|
|
find({
|
|
wanted => sub {
|
|
if (/(\.svn|CVS)$/)
|
|
{
|
|
$File::Find::prune = 1;
|
|
}
|
|
else
|
|
{
|
|
push @dds, $File::Find::name if /\.dds$/;
|
|
}
|
|
},
|
|
no_chdir => 1,
|
|
}, "../../../binaries/data/mods/official/art/textures/");
|
|
|
|
|
|
=pod
|
|
for my $f (@dds)
|
|
{
|
|
my $dds = new DDS($f);
|
|
print "$f\t", $dds->getType(), "\n";
|
|
}
|
|
=cut
|
|
|
|
#=pod
|
|
my @c;
|
|
for my $f (@dds)
|
|
{
|
|
my $dds = new DDS($f);
|
|
if ($dds->getType() eq 'ARGB')
|
|
{
|
|
$f =~ /(.*).dds/ or die;
|
|
push @c, $1;
|
|
}
|
|
}
|
|
print "textureconv -tga ".(join ' ', map "$_.dds", @c)."\n";
|
|
print "textureconv -abgr ".(join ' ', map "$_.tga", @c)."\n";
|
|
=cut
|
|
|
|
=pod
|
|
my $dds = new DDS("../../../binaries/data/mods/official/art/textures/ui/session/status_pane.dds");
|
|
print Dumper $dds;
|
|
=cut |