Browse files

Slight fix.

  • Loading branch information...
1 parent c346b08 commit 6474917c3c2ea595a56f1f8aa4cc24e135e468b4 lemming552 committed Aug 13, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 examples/upgrade_spaceports.pl
View
5 examples/upgrade_spaceports.pl
@@ -28,6 +28,7 @@
'config=s',
'dumpfile=s',
'maxlevel=i',
+ 'number=i',
'wait=i',
);
@@ -146,6 +147,9 @@ sub bstats {
if (scalar @sarr > ($dlevel + 1 - $bcnt)) {
splice @sarr, ($dlevel + 1 - $bcnt);
}
+ if (scalar @sarr > ($opts{number})) {
+ splice @sarr, ($opts{number} + 1 - $bcnt);
+ }
return (\@sarr);
}
@@ -190,6 +194,7 @@ sub usage {
--planet <name> - Specify planet
--dumpfile - data dump for all the info we don't print
--maxlevel - do not upgrade if this level has been achieved.
+ --number - only upgrade at most this number of buildings
END
exit 1;
}

0 comments on commit 6474917

Please sign in to comment.