use POSIX qw/floor ceil/;
my @lumpname = qw/entities textures planes nodes leafs leaffaces leafbrushes models brushes brushsides vertices triangles effects faces lightmaps lightgrid pvs advertisements/;
+my %lumpsize = (
+ textures => 72,
+ planes => 16,
+ nodes => 36,
+ leafs => 48,
+ leaffaces => 4,
+ leafbrushes => 4,
+ models => 40,
+ brushes => 12,
+ brushsides => 8,
+ vertices => 44,
+ triangles => 4,
+ effects => 72,
+ faces => 104,
+ lightmaps => 49152,
+ lightgrid => 8,
+ advertisements => 128
+);
+
my %lumpid = map { $lumpname[$_] => $_ } 0..@lumpname-1;
my $msg = "";
my @bsp;
Information requests:
-i print info about the BSP file
-xlumpname extract a lump (see -i)
+ -S list used shaders
Changes:
-dlumpname delete a lump (see -i)
-lpng externalize the lightmaps as PNG
-ltga externalize the lightmaps as TGA
-mMESSAGE set the BSP file comment message
+ -Sfrom=to replace a texture (shader) by name (already replaced shaders are not touched)
Save commands:
-o actually apply the changes to the BSP
$spec .= "$2$3 ";
my $f = $1;
my $n = $3;
- if($n eq '')
+ if($2 eq 'a')
+ {
+ push @decoders, sub { ($item->{$f} = $data[$idx++]) =~ s/\0//g; };
+ }
+ elsif($n eq '')
{
push @decoders, sub { $item->{$f} = $data[$idx++]; };
}
my $spec = "$2$3";
my $f = $1;
my $n = $3;
- if($n eq '')
+ if($2 eq 'a')
+ {
+ push @encoders, sub { $data .= pack $spec, $item->{$f}; };
+ }
+ elsif($n eq '')
{
push @encoders, sub { $data .= pack $spec, $item->{$f}; };
}
my $nl = length $bsp[$_]->[2];
my $align = [0, 3, 2, 1]->[$nl % 4];
$total += $nl + $align;
- print "BSP lump $_ ($lumpname[$_]): offset $bsp[$_]->[0] length $bsp[$_]->[1] newlength $nl\n";
+ my $l = $bsp[$_]->[1];
+ my $szi = $lumpsize{$lumpname[$_]};
+ my $li = $szi ? " (" . ($l / $szi) . ")" : "";
+ my $nli = $szi ? " (" . ($nl / $szi) . ")" : "";
+ print "BSP lump $_ ($lumpname[$_]): offset $bsp[$_]->[0] length $l$li newlength $nl$nli\n";
my $endpos = $bsp[$_]->[0] + $bsp[$_]->[1];
$max = $endpos if $max < $endpos;
}
unless defined $id;
print $bsp[$id]->[2];
}
+ elsif(/^-S(.*)=(.*)$/)
+ {
+ my $from = $1;
+ my $to = $2;
+ our @replaced = ();
+ my @l = DecodeLump $bsp[$lumpid{textures}]->[2], qw/name=a64 flags=V contents=V/;
+ for(0..@l-1)
+ {
+ next if $replaced[$_];
+ if($l[$_]->{name} eq $from)
+ {
+ $replaced[$_] = 1;
+ $l[$_]->{name} = $to;
+ }
+ }
+ $bsp[$lumpid{textures}]->[2] = EncodeLump \@l, qw/name=a64 flags=V contents=V/;
+ }
+ elsif(/^-S$/)
+ {
+ for(DecodeLump $bsp[$lumpid{textures}]->[2], qw/name=a64 flags=V contents=V/)
+ {
+ print "$_->{name}\n";
+ }
+ }
elsif(/^-o(.+)?$/) # write the final BSP file
{
my $outfile = $1;