27a28
> open (NAMES,"<names.txt");
32,33c33,34
< $sector_x_num = 2; #number of sectors high for universe
< $sector_y_num = 2; #number of sectors wide for universe
---
> $sector_x_num = 8; #number of sectors high for universe
> $sector_y_num = 4; #number of sectors wide for universe
35c36
< $system = 60; # number of systems to be created
---
> $system = 480; # number of systems to be created
38c39
< $max_obj = 8 - $min_obj; # max number of objects per system
---
> $max_obj = 10 - $min_obj; # max number of objects per system
44,45c45,46
< $min_drone = 20; # min number of drones
< $max_drone = 80 - min_drone; # max number of drones
---
> $min_drone = 60; # min number of drones
> $max_drone = 100 - min_drone; # max number of drones
51c52
< $nebula = 12; # number of nebulas to be created
---
> $nebula = 96; # number of nebulas to be created
53c54
< $wormhole = 8; # number of wormhole SETS to be created ; NOTE: while this script will set
---
> $wormhole = 64; # number of wormhole SETS to be created ; NOTE: while this script will set
72c73,74
< 	$sysnum = 0;
---
> 	@plname = qw( I II III IV V VI
> 	              VII VIII IX X XI XII );
73a76
> 	$sysnum = 0;
80c83,87
< 	$name = "System $sys";
---
> 
> 	$sysname = <NAMES>;
> 	$sysname =~ tr/\015\012//d;
> 
> 	$name = "$sysname";
212a220
> 
214c222
<         $name = "System $sys Planet $pl";
---
>         $name = "$sysname $plname[($pl-1)]";
347c355
<         $name = "System $sys Planet $pl";
---
>         $name = "$sysname $plname[($pl-1)]";
474c482
<         $name = "System $sys StarBase $sb";
---
>         $name = "$sysname StarBase $sb";
656c664
<         $name = "System $sys StarPort $sp";
---
>         $name = "$sysname StarPort $sp";
783c791
<         $name = "System $sys StarDock $sd";
---
>         $name = "$sysname StarDock $sd";
1075c1083
< 	$name = "System $sys Asteroid $as";
---
> 	$name = "$sysname Asteroid $as";
2265c2273,2274
< close SCRIPT;
\ No newline at end of file
---
> close SCRIPT;
> close NAMES;