Wow, surprised I was able to find this. It's how I made bigarenaball. Do you have perl?
#!/usr/bin/perl
$mapfile = "arenaball.map";
$newmapfile = "bigarenaball2.map";
$scale = 3;
open(FILE,$mapfile);
@stuff = <FILE>;
close(FILE);
foreach $line (@stuff) {
# chop($line);
# @words = split(/ /,$line);
# $finalprint="";
# foreach $word (@words) {
# if ($word != 0) {
# $word *= $scale;
# }
# #print "$word ";
# $finalprint = "$finalprint$word ";
# }
# chop ($finalprint);
# print "$finalprint\n";
$line =~ s~\"origin\" \"(.+?) (.+?) (.+?)\"~qq^"origin" "^ . &scale($1) . " " . &scale($2) . " " . &scale($3) . q^"^~eg;
$line =~ s/\(\ +?(.+?)\ +?(.+?)\ +?(.+?)\ +?\)/q^( ^ . &scale($1) . " " . &scale($2) . " " . &scale($3) . q^ )^/ge;
$line =~ s~pball/(.+?)\ +?(.+?)\ +?(.+?)\ +?(.+?)\ +?(.+?)\ +?(.+?)\ +?(.+?)\ +?(.+?)\ +?(.+?)~q^pball/^.$1." ".&scale($2)." ".&scale($3)." ".$4." ".&scale($5)." ".&scale($6)." ".$7." ".$8." ".$9~eg;
print $line;
}
sub scale {
$scale * $_[0];
}