+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use POSIX;
+use File::Temp;
+
+# change these to match your system, or define them in ~/.xonotic-map-compiler
+# (just copy paste this part to the file ~/.xonotic-map-compiler)
+
+ # Path to Xonotic (where the data directory is in)
+ our $XONOTICDIR = '/home/rpolzer/Games/Xonotic';
+
+ # Path to your q3map2 program. You find it in your GtkRadiant/install
+ # directory.
+ our $Q3MAP2 = '/home/rpolzer/Games/Xonotic/netradiant/install/q3map2.x86';
+
+ # General flags for q3map2 (for example -threads 4)
+ our $Q3MAP2FLAGS = '';
+
+ # Default flags for the -bsp stage
+ our $BSPFLAGS = '-meta -samplesize 8 -minsamplesize 4 -mv 1000000 -mi 6000000';
+
+ # Default flags for the -vis stage
+ our $VISFLAGS = '';
+
+ # Default flags for the -light stage
+ our $LIGHTFLAGS = '-deluxe -patchshadows -samples 3 -lightmapsize 512 -bounce 8 -fastbounce -bouncegrid';
+
+ # Default flags for the -minimap stage
+ our $MINIMAPFLAGS = '';
+
+ # Default order of commands
+ our $ORDER = 'light,vis,minimap';
+
+# end of user changable part
+
+do "$ENV{HOME}/.xonotic-map-compiler";
+
+sub Usage()
+{
+ print <<EOF;
+Usage:
+$0 mapname [-bsp bspflags...] [-vis visflags...] [-light lightflags...]
+EOF
+ exit 1;
+}
+
+my $options =
+{
+ bsp => [split /\s+/, $BSPFLAGS],
+ vis => [split /\s+/, $VISFLAGS],
+ light => [split /\s+/, $LIGHTFLAGS],
+ minimap => [split /\s+/, $MINIMAPFLAGS],
+ order => [split /\s*,\s*/, $ORDER],
+ maps => [],
+ scale => 1
+};
+
+my $curmode = 'maps';
+
+while(@ARGV)
+{
+ $_ = shift @ARGV;
+ my $enterflags = undef;
+ if($_ eq '-bsp')
+ {
+ $enterflags = 'bsp';
+ }
+ elsif($_ eq '-vis')
+ {
+ $enterflags = 'vis';
+ }
+ elsif($_ eq '-light')
+ {
+ $enterflags = 'light';
+ }
+ elsif($_ eq '-minimap')
+ {
+ $enterflags = 'minimap';
+ }
+ elsif($_ eq '-map')
+ {
+ $curmode = 'maps';
+ }
+ elsif($_ eq '-scale')
+ {
+ $options->{scale} = (shift @ARGV) || 1;
+ }
+ elsif($_ eq '-novis')
+ {
+ $options->{vis} = undef;
+ }
+ elsif($_ eq '-nolight')
+ {
+ $options->{light} = undef;
+ }
+ elsif($_ eq '-nominimap')
+ {
+ $options->{minimap} = undef;
+ }
+ elsif($_ eq '-order')
+ {
+ $options->{order} = [split /\s*,\s*/, shift @ARGV];
+ }
+ elsif($_ =~ /^-(-.*)/)
+ {
+ if($curmode eq 'maps')
+ {
+ $curmode = 'bsp';
+ }
+ push @{$options->{$curmode}}, $1;
+ }
+ elsif($_ =~ /^-/ and $curmode eq 'maps')
+ {
+ $curmode = 'bsp';
+ push @{$options->{$curmode}}, $_;
+ }
+ else
+ {
+ push @{$options->{$curmode}}, $_;
+ }
+ if(defined $enterflags)
+ {
+ $curmode = $enterflags;
+ if($ARGV[0] eq '+')
+ {
+ shift @ARGV;
+ }
+ else
+ {
+ $options->{$curmode} = [];
+ }
+ }
+}
+
+my $linkdir = File::Temp::tempdir("xonotic-map-compiler.XXXXXX", TMPDIR => 1, CLEANUP => 1);
+
+sub q3map2(@)
+{
+ my @args = ($Q3MAP2, split(/\s+/, $Q3MAP2FLAGS), '-game', 'xonotic', '-fs_basepath', $XONOTICDIR, '-fs_basepath', $linkdir, '-v', @_);
+ print "\$ @args\n";
+ return !system @args;
+}
+
+(my $mapdir = getcwd()) =~ s!/[^/]*(?:$)!!;
+$mapdir = "/" if $mapdir eq "";
+symlink "$mapdir", "$linkdir/data";
+
+my ($prescale, $postscale) = ($options->{scale} =~ /^([0-9.]+)(?::([0-9.]+))?$/);
+$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;
+ }
+
+ my %shaders = map { m!/([^/.]*)\.shader(?:$)! ? ($1 => 1) : () } glob "../scripts/*.shader";
+
+ my $previous_shaderlist = undef;
+ my $shaderlist = "";
+ if(open my $fh, "<", "$XONOTICDIR/data/xonotic-maps.pk3dir/scripts/shaderlist.txt")
+ {
+ while(<$fh>)
+ {
+ $shaderlist .= $_;
+ }
+
+ # we may have to restore the file on exit
+ $previous_shaderlist = $shaderlist
+ if "$XONOTICDIR/data" eq $mapdir;
+ }
+ else
+ {
+ # possibly extract the shader list from a pk3?
+ local $ENV{N} = $XONOTICDIR;
+ $shaderlist = `cd "\$N" && for X in "\$N"/data/data*.pk3; do Y=\$X; done; unzip -p "\$Y" scripts/shaderlist.txt`;
+ }
+
+ my $shaderlist_new = "";
+ for(split /\r?\n|\r/, $shaderlist)
+ {
+ delete $shaders{$_};
+ $shaderlist_new .= "$_\n";
+ }
+ if(%shaders)
+ {
+ for(sort keys %shaders)
+ {
+ $shaderlist_new .= "$_\n";
+ }
+ }
+ else
+ {
+ $shaderlist_new = undef;
+ }
+
+ my $restore_shaderlist = sub
+ {
+ if(defined $shaderlist_new)
+ {
+ if(defined $previous_shaderlist)
+ {
+ open my $fh, ">", "$mapdir/scripts/shaderlist.txt";
+ print $fh $previous_shaderlist;
+ close $fh;
+ }
+ else
+ {
+ unlink "$mapdir/scripts/shaderlist.txt";
+ }
+ }
+ };
+ local $SIG{INT} = sub
+ {
+ print "SIGINT caught, cleaning up...\n";
+ $restore_shaderlist->();
+ exit 0;
+ };
+
+ eval
+ {
+ if(defined $shaderlist_new)
+ {
+ mkdir "$mapdir/scripts";
+ open my $fh, ">", "$mapdir/scripts/shaderlist.txt";
+ print $fh $shaderlist_new;
+ close $fh;
+ }
+
+ unlink <$m/lm_*>; # delete old external lightmaps
+ q3map2 '-bsp', @{$options->{bsp}}, "$m.map"
+ or die "-bsp: $?";
+ if($prescale != 1)
+ {
+ q3map2 '-scale', $prescale, "$m.bsp"
+ or die "-scale: $?";
+ rename "${m}_s.bsp", "$m.bsp"
+ or die "rename ${m}_s.bsp $m.bsp: $!";
+ }
+ my @o = @{$options->{order}};
+ push @o, qw/light vis minimap/;
+ my %o = ();
+
+ for(@o)
+ {
+ next if $o{$_}++;
+ if($_ eq 'light')
+ {
+ if(defined $options->{light})
+ {
+ q3map2 '-light', @{$options->{light}}, "$m.map"
+ or die "-light: $?";
+ }
+ }
+ if($_ eq 'vis')
+ {
+ if(defined $options->{vis})
+ {
+ q3map2 '-vis', @{$options->{vis}}, "$m.map"
+ or die "-vis: $?";
+ }
+ }
+ if($_ eq 'minimap')
+ {
+ if(defined $options->{minimap})
+ {
+ q3map2 '-minimap', @{$options->{minimap}}, "$m.map"
+ or die "-minimap: $?";
+ }
+ }
+ }
+
+ if($postscale != 1)
+ {
+ q3map2 '-scale', $postscale, "$m.bsp"
+ or die "-scale: $?";
+ rename "${m}_s.bsp", "$m.bsp"
+ or die "rename ${m}_s.bsp $m.bsp: $!";
+ }
+
+ unlink "$m.srf";
+ unlink "$m.prt";
+
+ $restore_shaderlist->();
+ 1;
+ }
+ or do
+ {
+ $restore_shaderlist->();
+ die $@;
+ };
+}