--- /dev/null
+#!/bin/sh
+
+# input: a .shader file
+# parameters: in and out .bsp file
+
+BSPTOOL="${0%/*}"/bsptool.pl
+LF="
+"
+
+in=$1
+out=$2
+
+shaders=`"$BSPTOOL" "$in" -S`
+
+newshaders=`cat | grep '^[^ {}]'`
+
+set --
+
+list=
+for shader in $shaders; do
+ if [ -z "$list" ]; then
+ echo >&2 "Filling list..."
+ list=`echo "$newshaders" | sort -R`$LF
+ fi
+ case "$shader" in
+ noshader|NULL|textures/common/*)
+ ;;
+ *)
+ item=${list%%$LF*}
+ list=${list#*$LF}
+ set -- "$@" "-S$shader=$item"
+ ;;
+ esac
+done
+
+set -- "$BSPTOOL" "$in" "$@" -o"$out"
+"$@"
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}; };
}
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;