elsif($_ eq '-scale')
{
$options->{scale} = (shift @ARGV) || 1;
- $enterflags = 'scale';
+ #$enterflags = 'scale';
}
elsif($_ eq '-novis')
{
symlink "$mapdir", "$linkdir/data";
my ($prescale, $postscale) = ($options->{scale} =~ /^([0-9.]+)(?::([0-9.]+))?$/);
+$prescale = 1 if not defined $prescale;
$postscale = 1 if not defined $postscale;
for my $m(@{$options->{maps}})
{
$m =~ s/\.(?:map|bsp)$//;
+
if($prescale != 1)
{
- open my $checkfh, "<", "$m.map"
- or die "open $m.map: $!";
- my $keeplights = 0;
- while(<$checkfh>)
- {
- /^\s*"_keeplights"\s+"1"\s*$/
- or next;
- $keeplights = 1;
- }
- close $checkfh;
- die "$m does not define _keeplights to 1"
- unless $keeplights;
+ unshift @{$options->{bsp}}, "-keeplights";
}
my %shaders = map { m!/([^/.]*)\.shader(?:$)! ? ($1 => 1) : () } glob "../scripts/*.shader";
or die "-bsp: $?";
if($prescale != 1)
{
- q3map2 '-scale', @{$options->{scale}}, $prescale, "$m.bsp"
+ q3map2 '-scale', $prescale, "$m.bsp"
or die "-scale: $?";
rename "${m}_s.bsp", "$m.bsp"
or die "rename ${m}_s.bsp $m.bsp: $!";
if($postscale != 1)
{
- q3map2 '-scale', @{$options->{scale}}, $postscale, "$m.bsp"
+ q3map2 '-scale', $postscale, "$m.bsp"
or die "-scale: $?";
rename "${m}_s.bsp", "$m.bsp"
or die "rename ${m}_s.bsp $m.bsp: $!";