#!/usr/bin/perl

# univrand.pl
#
# 2000/03/16
#
# This script will create a XSW server script for creating a universe 
# based on random settings.  It will create as many systems as you specify
# with a random number of objects (within the parameters that you designate
# around the system.  It will also create a random number of drones within 
# the specified range.  I've also gone ahead and made it very easy to separate
# the drone script and from the bulk of this script and use it by itself. Refer
# to the directions on line 1600.  To create the universe, first configure this
# script to meet you needs.  Execute this script afterwards and then run the
# resulting script (unv.xsw)from the XSW console (as "root").
#
# Any suggestions for this script are greatly appreciated.  At the time of this
# version, I've had a whole six days of experiance scripting with Perl and haven't
# written anything this complex in well over ten years. 
#
# Author: Keith Seymour <theaardvark@home.com>

$VERSION=0.3;

srand;

open (SCRIPT,">unv.xsw");


# Configure these variables to set the parameters for your universe

$sector_x_num = 2; #number of sectors high for universe
$sector_y_num = 2; #number of sectors wide for universe

$system = 60; # number of systems to be created

$min_obj = 3; # min number of objects per system
$max_obj = 8 - $min_obj; # max number of objects per system
$templates_obj = 14; # number of object templates ; you don't need to change this
		     # setting unless you add or subtract any templates.  The current
		     # setup has a 10 to 15 ratio for planets and a 1 to 15 ratio 
		     # for StarBases, StarDocks, StarPorts, and Asteroids.

$min_drone = 20; # min number of drones
$max_drone = 80 - min_drone; # max number of drones
$templates_drone = 10; # number of drone templates ; same deal as the object templates.
			   # I have 10 templates made up from the stscripts scripts off of
			   # Taura's web site that randomly select between FED, FGI, and 
			   # the PIR empires.

$nebula = 12; # number of nebulas to be created

$wormhole = 8; # number of wormhole SETS to be created ; NOTE: while this script will set
	       # up the wormholes as advertised,  I haven't been able to set the 
	       # intercepting_object parameter and have have it "take" yet.  I'm working 
	       # on finding a fix, but in the meantime, you'll have to set that one manually
	       # in the unv file after running all of the scripts.


# Creating the star system

# Reset the count for systems. 
	# I've opted to use a count system for the namimg systems,objects and ai.  This
	# will come in handy if you use this script once and then decide that you want 
	# to add on more later on.  For first time use, leave the sysnum, nebnum and drone
	# nums at "0" and the script will start the naming conventions off with "1"  If you 
	# want to add more later on, set the sysnum and drone nums to the last created
	# star system/drone and the script will carry on from there, otherwise you'll 
	# wind up with already created objects moved to the new settings and a pile of 
	# empty objects wherever you're admin ship was when you ran the script.

	$sysnum = 0;


	for ($sys_loop = $system; $sys_loop > 0; $sys_loop--) {  

# Set the star system name.  System 1, System 2, etc.

        $sys = ++$sysnum;
	$name = "System $sys";
	
# Create the system star

	print SCRIPT "create $name=HOME\n";
	
# Set up the star's image set

	$image_sys = int(rand 8) + 70;
	print SCRIPT "set $name=imageset:$image_sys\n";
	
# Set up the star's size	
	print SCRIPT "set $name=size:300\n";
	
# Randomly place the star

        $sys_x = int(rand 1600) - 800;
        $sys_y = int(rand 1600) - 800;

	$sect_x = int(rand $sector_x_num);
	$sect_y = int(rand $sector_y_num);

	print SCRIPT "set $name=x:$sys_x\n";
	print SCRIPT "set $name=y:$sys_y\n";
	
	print SCRIPT "set $name=sect_x:$sect_x\n";
	print SCRIPT "set $name=sect_y:$sect_y\n";

# Reset the count for objects
	# Works the same way as the sysnum, nebnum and drone nums, but is fine if left to defaults
	# since the planets, etc. are named "System xyz Planet 1," "System xyz Starbase 13,"
	# ect. and won't be duplicated unless the sysnum is set to cover pre-existing systems.

	$plnum = 0;
	$sbnum = 0;
	$spnum = 0;
	$sdnum = 0;
	$asnum = 0;

# Randomly select number of objects from max/min variables set

	for ($obj = int(rand $max_obj) + $min_obj + 1; $obj > 0; $obj--) {

# Randomly select the object template

        $object_template = int(rand $templates_obj);

# Randomly select the image set for each kind of object

	$imageset_planet1 = int(rand 4) + 80;
	$imageset_planet2 = int(rand 5) + 90;
	$imageset_asteroid = 95;
	$imageset_nebula = int (rand 3) + 100;
	$imageset_starbase = 111;
	$imageset_starport = 112;
	$imageset_stardock = 113;

# Randomly select eco values

	$am_sell = int(rand 10);
	$am_buy = $am_sell * 1.2;
	$am_amount = (10 - $am_sell) * 10000;
	
	$hr_sell = int(rand 100);
	$hr_buy = $hr_sell * 1.2;
	
	$rm_sell = int(rand 500);
	$rm_buy = $rm_sell * 1.2;
	$rm_amount = (500 - $rm_sell) * 2;
	
	$st_sell = int(rand 1000);
	$st_buy = $st_sell * 1.2;
	$st_amount = 1000 - $st_sell;
	
	$fd_sell = int(rand 1000);
	$fd_buy = $fd_sell * 1.2;
	$fd_amount = 1000 - $fd_sell;
	
	$ps_sell = int(rand 1000);
	$ps_buy = $ps_sell * 1.2;
	$ps_amount = 1000 - $ps_sell;	
	
	$tx_sell = int(rand 1000);
	$tx_buy = $tx_sell * 1.2;
	$tx_amount = 1000 - $tx_sell;	

	$gd_sell = int(rand 1000);
	$gd_buy = $gd_sell * 1.2;
	$gd_amount = 1000 - $gd_sell;

	$el_sell = int(rand 1000);
	$el_buy = $el_sell * 1.2;
	$el_amount = 1000 - $el_sell;

	$ch_sell = int(rand 1000);
	$ch_buy = $ch_sell * 1.2;
	$ch_amount = 1000 - $ch_sell;	

	$lx_sell = int(rand 1000);
	$lx_buy = $lx_sell * 1.2;
	$lx_amount = 1000 - $lx_sell;

	$at_sell = int(rand 1000);
	$at_buy = $at_sell * 1.2;
	$at_amount = 1000 - $at_sell;

	$md_sell = int(rand 1000);
	$md_buy = $md_sell * 1.2;
	$md_amount = 1000 - $md_sell;
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;

	$pht_sell = int(rand 50);
	$pht_buy = $pht_sell * 1.2;
	$pht_amount = (50 - $pht_sell) * 20;
	
	$plt_sell = int(rand 100);
	$plt_buy = $plt_sell * 1.2;
	$plt_amount = (100 - $plt_sell) * 10;
	
	$qt_sell = int (rand 150);
	$qt_buy = $qt_sell * 1.2;
	$qt_amount = (150 - $qt_buy) * 6.66;
	
	$apc_sell = int(rand 1000);
	$apc_buy = $apc_sell * 1.2;
	$apc_amount = (1000 - $apc_sell) / 10;

# Begin Object templates

	if ($object_template <= 4) {
        $pl = ++$plnum;
        $name = "System $sys Planet $pl";
		print SCRIPT "create $name=HOME\n";
                print SCRIPT "set $name=imageset:$imageset_planet1\n";
                print SCRIPT "set $name=size:310\n";

	# $instock randomizes whether or not an eco item will be available at an object.  Take
	# the number from the if statement as being x chances of the rand number that the item
	# WILL NOT appear on the object.  For example, if the "if" number was 4 and the "rand" number
	# was 5, you'd have a 4 out of 5 chance the item wouldn't show on the object.
	

	$instock = int(rand 2);
	if ($instock >= 1) {

                print SCRIPT "ecoprodcreate $name=Antimatter\n";
                	print SCRIPT "ecoprodset $name=Antimatter=sell_price:$am_sell\n";
                	print SCRIPT "ecoprodset $name=Antimatter=buy_price:$am_buy\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount:$am_amount\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount_max:100000\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {

                print SCRIPT "ecoprodcreate $name=Hull Repair\n";
			print SCRIPT "ecoprodset $name=Hull Repair=sell_price:$hr_sell\n";
			print SCRIPT "ecoprodset $name=Hull Repair=buy_price:$hr_buy\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount:-1\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Raw Material\n";
			print SCRIPT "ecoprodset $name=Raw Material=sell_price:$rm_sell\n";
			print SCRIPT "ecoprodset $name=Raw Material=buy_price:$rm_buy\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount:$rm_amount\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Steel\n";
			print SCRIPT "ecoprodset $name=Steel=sell_price:$st_sell\n";
			print SCRIPT "ecoprodset $name=Steel=buy_price:$st_buy\n";
			print SCRIPT "ecoprodset $name=Steel=amount:$st_amount\n";
			print SCRIPT "ecoprodset $name=Steel=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Food\n";
			print SCRIPT "ecoprodset $name=Food=sell_price:$fd_sell\n";
			print SCRIPT "ecoprodset $name=Food=buy_price:$fd_buy\n";
			print SCRIPT "ecoprodset $name=Food=amount:$fd_amount\n";
			print SCRIPT "ecoprodset $name=Food=amount_max:1000\n"; 
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Passengers\n";
			print SCRIPT "ecoprodset $name=Passengers=sell_price:$ps_sell\n";
			print SCRIPT "ecoprodset $name=Passengers=buy_price:$ps_buy\n";
			print SCRIPT "ecoprodset $name=Passengers=amount:$ps_amount\n";
			print SCRIPT "ecoprodset $name=Passengers=amount_max:1000\n";   
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Textiles\n";
			print SCRIPT "ecoprodset $name=Textiles=sell_price:$tx_sell\n";
			print SCRIPT "ecoprodset $name=Textiles=buy_price:$tx_buy\n";
			print SCRIPT "ecoprodset $name=Textiles=amount:$tx_amount\n";
			print SCRIPT "ecoprodset $name=Textiles=amount_max:1000\n";   
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Gold\n";
			print SCRIPT "ecoprodset $name=Gold=sell_price:$gd_sell\n";
			print SCRIPT "ecoprodset $name=Gold=buy_price:$gd_buy\n";
			print SCRIPT "ecoprodset $name=Gold=amount:$gd_amount\n";
			print SCRIPT "ecoprodset $name=Gold=amount_max:1000\n";  
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Electronics\n";
			print SCRIPT "ecoprodset $name=Electronics=sell_price:$el_sell\n";
			print SCRIPT "ecoprodset $name=Electronics=buy_price:$el_buy\n";
			print SCRIPT "ecoprodset $name=Electronics=amount:$el_amount\n";
			print SCRIPT "ecoprodset $name=Electronics=amount_max:1000\n";
}			
	$instock = int(rand 2);			
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Chemicals\n";
			print SCRIPT "ecoprodset $name=Chemicals=sell_price:$ch_sell\n";
			print SCRIPT "ecoprodset $name=Chemicals=buy_price:$ch_buy\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount:$ch_amount\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Luxeries\n";
			print SCRIPT "ecoprodset $name=Luxeries=sell_price:$lx_sell\n";
			print SCRIPT "ecoprodset $name=Luxeries=buy_price:$lx_buy\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount:$lx_amount\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount_max:1000\n";
}			
	$instock = int(rand 2);			
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Atomics\n";
			print SCRIPT "ecoprodset $name=Atomics=sell_price:$at_sell\n";
			print SCRIPT "ecoprodset $name=Atomics=buy_price:$at_buy\n";
			print SCRIPT "ecoprodset $name=Atomics=amount:$at_amount\n";
			print SCRIPT "ecoprodset $name=Atomics=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Medics\n";
			print SCRIPT "ecoprodset $name=Medics=sell_price:$md_sell\n";
			print SCRIPT "ecoprodset $name=Medics=buy_price:$md_buy\n";
			print SCRIPT "ecoprodset $name=Medics=amount:$md_amount\n";
			print SCRIPT "ecoprodset $name=Medics=amount_max:1000\n";
}

}

	if ($object_template >= 9) {
        $pl = ++$plnum;
        $name = "System $sys Planet $pl";
		print SCRIPT "create $name=HOME\n";
                print SCRIPT "set $name=imageset:$imageset_planet2\n";
                print SCRIPT "set $name=size:310\n";

	$instock = int(rand 2);
	if ($instock >= 1) {

                print SCRIPT "ecoprodcreate $name=Antimatter\n";
                	print SCRIPT "ecoprodset $name=Antimatter=sell_price:$am_sell\n";
                	print SCRIPT "ecoprodset $name=Antimatter=buy_price:$am_buy\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount:$am_amount\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount_max:100000\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {

                print SCRIPT "ecoprodcreate $name=Hull Repair\n";
			print SCRIPT "ecoprodset $name=Hull Repair=sell_price:$hr_sell\n";
			print SCRIPT "ecoprodset $name=Hull Repair=buy_price:$hr_buy\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount:-1\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Raw Material\n";
			print SCRIPT "ecoprodset $name=Raw Material=sell_price:$rm_sell\n";
			print SCRIPT "ecoprodset $name=Raw Material=buy_price:$rm_buy\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount:$rm_amount\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Steel\n";
			print SCRIPT "ecoprodset $name=Steel=sell_price:$st_sell\n";
			print SCRIPT "ecoprodset $name=Steel=buy_price:$st_buy\n";
			print SCRIPT "ecoprodset $name=Steel=amount:$st_amount\n";
			print SCRIPT "ecoprodset $name=Steel=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Food\n";
			print SCRIPT "ecoprodset $name=Food=sell_price:$fd_sell\n";
			print SCRIPT "ecoprodset $name=Food=buy_price:$fd_buy\n";
			print SCRIPT "ecoprodset $name=Food=amount:$fd_amount\n";
			print SCRIPT "ecoprodset $name=Food=amount_max:1000\n"; 
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Passengers\n";
			print SCRIPT "ecoprodset $name=Passengers=sell_price:$ps_sell\n";
			print SCRIPT "ecoprodset $name=Passengers=buy_price:$ps_buy\n";
			print SCRIPT "ecoprodset $name=Passengers=amount:$ps_amount\n";
			print SCRIPT "ecoprodset $name=Passengers=amount_max:1000\n";   
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Textiles\n";
			print SCRIPT "ecoprodset $name=Textiles=sell_price:$tx_sell\n";
			print SCRIPT "ecoprodset $name=Textiles=buy_price:$tx_buy\n";
			print SCRIPT "ecoprodset $name=Textiles=amount:$tx_amount\n";
			print SCRIPT "ecoprodset $name=Textiles=amount_max:1000\n";   
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Gold\n";
			print SCRIPT "ecoprodset $name=Gold=sell_price:$gd_sell\n";
			print SCRIPT "ecoprodset $name=Gold=buy_price:$gd_buy\n";
			print SCRIPT "ecoprodset $name=Gold=amount:$gd_amount\n";
			print SCRIPT "ecoprodset $name=Gold=amount_max:1000\n";  
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Electronics\n";
			print SCRIPT "ecoprodset $name=Electronics=sell_price:$el_sell\n";
			print SCRIPT "ecoprodset $name=Electronics=buy_price:$el_buy\n";
			print SCRIPT "ecoprodset $name=Electronics=amount:$el_amount\n";
			print SCRIPT "ecoprodset $name=Electronics=amount_max:1000\n";
}			
	$instock = int(rand 2);			
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Chemicals\n";
			print SCRIPT "ecoprodset $name=Chemicals=sell_price:$ch_sell\n";
			print SCRIPT "ecoprodset $name=Chemicals=buy_price:$ch_buy\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount:$ch_amount\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Luxeries\n";
			print SCRIPT "ecoprodset $name=Luxeries=sell_price:$lx_sell\n";
			print SCRIPT "ecoprodset $name=Luxeries=buy_price:$lx_buy\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount:$lx_amount\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount_max:1000\n";
}			
	$instock = int(rand 2);			
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Atomics\n";
			print SCRIPT "ecoprodset $name=Atomics=sell_price:$at_sell\n";
			print SCRIPT "ecoprodset $name=Atomics=buy_price:$at_buy\n";
			print SCRIPT "ecoprodset $name=Atomics=amount:$at_amount\n";
			print SCRIPT "ecoprodset $name=Atomics=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Medics\n";
			print SCRIPT "ecoprodset $name=Medics=sell_price:$md_sell\n";
			print SCRIPT "ecoprodset $name=Medics=buy_price:$md_buy\n";
			print SCRIPT "ecoprodset $name=Medics=amount:$md_amount\n";
			print SCRIPT "ecoprodset $name=Medics=amount_max:1000\n";
}
			
}

	if ($object_template == 5) {
        $sb = ++$sbnum;
        $name = "System $sys StarBase $sb";
		print SCRIPT "create $name=HOME\n";
                print SCRIPT "set $name=imageset:$imageset_starbase\n";
                print SCRIPT "set $name=size:120\n";

	$instock = int(rand 2);
	if ($instock >= 0) {
	
                print SCRIPT "ecoprodcreate $name=Antimatter\n";
                	print SCRIPT "ecoprodset $name=Antimatter=sell_price:$am_sell\n";
                	print SCRIPT "ecoprodset $name=Antimatter=buy_price:$am_buy\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount:$am_amount\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount_max:100000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
	
                print SCRIPT "ecoprodcreate $name=Hull Repair\n";
			print SCRIPT "ecoprodset $name=Hull Repair=sell_price:$hr_sell\n";
			print SCRIPT "ecoprodset $name=Hull Repair=buy_price:$hr_buy\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount:-1\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
				
		print SCRIPT "ecoprodcreate $name=Raw Material\n";
			print SCRIPT "ecoprodset $name=Raw Material=sell_price:$rm_sell\n";
			print SCRIPT "ecoprodset $name=Raw Material=buy_price:$rm_buy\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount:$rm_amount\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount_max:1000\n";
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
	
				
		print SCRIPT "ecoprodcreate $name=Steel\n";
			print SCRIPT "ecoprodset $name=Steel=sell_price:$st_sell\n";
			print SCRIPT "ecoprodset $name=Steel=buy_price:$st_buy\n";
			print SCRIPT "ecoprodset $name=Steel=amount:$st_amount\n";
			print SCRIPT "ecoprodset $name=Steel=amount_max:1000\n";
}	
	$instock = int(rand 2);
	if ($instock >= 1) {	
			
		print SCRIPT "ecoprodcreate $name=Food\n";
			print SCRIPT "ecoprodset $name=Food=sell_price:$fd_sell\n";
			print SCRIPT "ecoprodset $name=Food=buy_price:$fd_buy\n";
			print SCRIPT "ecoprodset $name=Food=amount:$fd_amount\n";
			print SCRIPT "ecoprodset $name=Food=amount_max:1000\n"; 
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Passengers\n";
			print SCRIPT "ecoprodset $name=Passengers=sell_price:$ps_sell\n";
			print SCRIPT "ecoprodset $name=Passengers=buy_price:$ps_buy\n";
			print SCRIPT "ecoprodset $name=Passengers=amount:$ps_amount\n";
			print SCRIPT "ecoprodset $name=Passengers=amount_max:1000\n";   
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Textiles\n";
			print SCRIPT "ecoprodset $name=Textiles=sell_price:$tx_sell\n";
			print SCRIPT "ecoprodset $name=Textiles=buy_price:$tx_buy\n";
			print SCRIPT "ecoprodset $name=Textiles=amount:$tx_amount\n";
			print SCRIPT "ecoprodset $name=Textiles=amount_max:1000\n";   
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Gold\n";
			print SCRIPT "ecoprodset $name=Gold=sell_price:$gd_sell\n";
			print SCRIPT "ecoprodset $name=Gold=buy_price:$gd_buy\n";
			print SCRIPT "ecoprodset $name=Gold=amount:$gd_amount\n";
			print SCRIPT "ecoprodset $name=Gold=amount_max:1000\n";  
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Electronics\n";
			print SCRIPT "ecoprodset $name=Electronics=sell_price:$el_sell\n";
			print SCRIPT "ecoprodset $name=Electronics=buy_price:$el_buy\n";
			print SCRIPT "ecoprodset $name=Electronics=amount:$el_amount\n";
			print SCRIPT "ecoprodset $name=Electronics=amount_max:1000\n";
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Chemicals\n";
			print SCRIPT "ecoprodset $name=Chemicals=sell_price:$ch_sell\n";
			print SCRIPT "ecoprodset $name=Chemicals=buy_price:$ch_buy\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount:$ch_amount\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount_max:1000\n";
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Luxeries\n";
			print SCRIPT "ecoprodset $name=Luxeries=sell_price:$lx_sell\n";
			print SCRIPT "ecoprodset $name=Luxeries=buy_price:$lx_buy\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount:$lx_amount\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount_max:1000\n";
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Atomics\n";
			print SCRIPT "ecoprodset $name=Atomics=sell_price:$at_sell\n";
			print SCRIPT "ecoprodset $name=Atomics=buy_price:$at_buy\n";
			print SCRIPT "ecoprodset $name=Atomics=amount:$at_amount\n";
			print SCRIPT "ecoprodset $name=Atomics=amount_max:1000\n";
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Medics\n";
			print SCRIPT "ecoprodset $name=Medics=sell_price:$md_sell\n";
			print SCRIPT "ecoprodset $name=Medics=buy_price:$md_buy\n";
			print SCRIPT "ecoprodset $name=Medics=amount:$md_amount\n";
			print SCRIPT "ecoprodset $name=Medics=amount_max:1000\n";
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Photon Torpedo'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Photon Torpedo'."=sell_price:$pht_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Photon Torpedo'."=buy_price:$pht_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Photon Torpedo'."=amount:$pht_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Photon Torpedo'."=amount_max:1000\n";
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Plasma Torpedo'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Plasma Torpedo'."=sell_price:$plt_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Plasma Torpedo'."=buy_price:$plt_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Plasma Torpedo'."=amount:$plt_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Plasma Torpedo'."=amount_max:1000\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Quantom Torpedo'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Quantom Torpedo'."=sell_price:$qt_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Quantom Torpedo'."=buy_price:$qt_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Quantom Torpedo'."=amount:$qt_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Quantom Torpedo'."=amount_max:1000\n";
}	
	$instock = int(rand 2);
	if ($instock >= 1) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:APC Warhead'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:APC Warhead'."=sell_price:$apc_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:APC Warhead'."=buy_price:$apc_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:APC Warhead'."=amount:$apc_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:APC Warhead'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Figther Drone'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Figther Drone'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Figther Drone'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Figther Drone'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Figther Drone'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Defence Station'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defence Station'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defence Station'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defence Station'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defence Station'."=amount_max:100\n";
}

}

	if ($object_template == 6) {
        $sp = ++$spnum;
        $name = "System $sys StarPort $sp";
		print SCRIPT "create $name=HOME\n";
                print SCRIPT "set $name=imageset:$imageset_starport\n";
                print SCRIPT "set $name=size:120\n";
			
	$instock = int(rand 2);
	if ($instock >= 0) {
	
                print SCRIPT "ecoprodcreate $name=Antimatter\n";
                	print SCRIPT "ecoprodset $name=Antimatter=sell_price:$am_sell\n";
                	print SCRIPT "ecoprodset $name=Antimatter=buy_price:$am_buy\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount:$am_amount\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount_max:100000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
	
                print SCRIPT "ecoprodcreate $name=Hull Repair\n";
			print SCRIPT "ecoprodset $name=Hull Repair=sell_price:$hr_sell\n";
			print SCRIPT "ecoprodset $name=Hull Repair=buy_price:$hr_buy\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount:-1\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
				
		print SCRIPT "ecoprodcreate $name=Raw Material\n";
			print SCRIPT "ecoprodset $name=Raw Material=sell_price:$rm_sell\n";
			print SCRIPT "ecoprodset $name=Raw Material=buy_price:$rm_buy\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount:$rm_amount\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Steel\n";
			print SCRIPT "ecoprodset $name=Steel=sell_price:$st_sell\n";
			print SCRIPT "ecoprodset $name=Steel=buy_price:$st_buy\n";
			print SCRIPT "ecoprodset $name=Steel=amount:$st_amount\n";
			print SCRIPT "ecoprodset $name=Steel=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Food\n";
			print SCRIPT "ecoprodset $name=Food=sell_price:$fd_sell\n";
			print SCRIPT "ecoprodset $name=Food=buy_price:$fd_buy\n";
			print SCRIPT "ecoprodset $name=Food=amount:$fd_amount\n";
			print SCRIPT "ecoprodset $name=Food=amount_max:1000\n"; 
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Passengers\n";
			print SCRIPT "ecoprodset $name=Passengers=sell_price:$ps_sell\n";
			print SCRIPT "ecoprodset $name=Passengers=buy_price:$ps_buy\n";
			print SCRIPT "ecoprodset $name=Passengers=amount:$ps_amount\n";
			print SCRIPT "ecoprodset $name=Passengers=amount_max:1000\n";   
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Textiles\n";
			print SCRIPT "ecoprodset $name=Textiles=sell_price:$tx_sell\n";
			print SCRIPT "ecoprodset $name=Textiles=buy_price:$tx_buy\n";
			print SCRIPT "ecoprodset $name=Textiles=amount:$tx_amount\n";
			print SCRIPT "ecoprodset $name=Textiles=amount_max:1000\n";   
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Gold\n";
			print SCRIPT "ecoprodset $name=Gold=sell_price:$gd_sell\n";
			print SCRIPT "ecoprodset $name=Gold=buy_price:$gd_buy\n";
			print SCRIPT "ecoprodset $name=Gold=amount:$gd_amount\n";
			print SCRIPT "ecoprodset $name=Gold=amount_max:1000\n";  
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Electronics\n";
			print SCRIPT "ecoprodset $name=Electronics=sell_price:$el_sell\n";
			print SCRIPT "ecoprodset $name=Electronics=buy_price:$el_buy\n";
			print SCRIPT "ecoprodset $name=Electronics=amount:$el_amount\n";
			print SCRIPT "ecoprodset $name=Electronics=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Chemicals\n";
			print SCRIPT "ecoprodset $name=Chemicals=sell_price:$ch_sell\n";
			print SCRIPT "ecoprodset $name=Chemicals=buy_price:$ch_buy\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount:$ch_amount\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Luxeries\n";
			print SCRIPT "ecoprodset $name=Luxeries=sell_price:$lx_sell\n";
			print SCRIPT "ecoprodset $name=Luxeries=buy_price:$lx_buy\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount:$lx_amount\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Atomics\n";
			print SCRIPT "ecoprodset $name=Atomics=sell_price:$at_sell\n";
			print SCRIPT "ecoprodset $name=Atomics=buy_price:$at_buy\n";
			print SCRIPT "ecoprodset $name=Atomics=amount:$at_amount\n";
			print SCRIPT "ecoprodset $name=Atomics=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 0) {
					
		print SCRIPT "ecoprodcreate $name=Medics\n";
			print SCRIPT "ecoprodset $name=Medics=sell_price:$md_sell\n";
			print SCRIPT "ecoprodset $name=Medics=buy_price:$md_buy\n";
			print SCRIPT "ecoprodset $name=Medics=amount:$md_amount\n";
			print SCRIPT "ecoprodset $name=Medics=amount_max:1000\n";
}

}

	if ($object_template == 7) {
        $sd = ++$sdnum;
        $name = "System $sys StarDock $sd";
		print SCRIPT "create $name=HOME\n";
                print SCRIPT "set $name=imageset:$imageset_stardock\n";
                print SCRIPT "set $name=size:120\n";

	$instock = int(rand 2);
	if ($instock >= 0) {

                print SCRIPT "ecoprodcreate $name=Antimatter\n";
                	print SCRIPT "ecoprodset $name=Antimatter=sell_price:$am_sell\n";
                	print SCRIPT "ecoprodset $name=Antimatter=buy_price:$am_buy\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount:$am_amount\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount_max:100000\n";
}
	$instock = int(rand 2);
	if ($instock >= 0) {

                print SCRIPT "ecoprodcreate $name=Hull Repair\n";
			print SCRIPT "ecoprodset $name=Hull Repair=sell_price:$hr_sell\n";
			print SCRIPT "ecoprodset $name=Hull Repair=buy_price:$hr_buy\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount:-1\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Raw Material\n";
			print SCRIPT "ecoprodset $name=Raw Material=sell_price:$rm_sell\n";
			print SCRIPT "ecoprodset $name=Raw Material=buy_price:$rm_buy\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount:$rm_amount\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Steel\n";
			print SCRIPT "ecoprodset $name=Steel=sell_price:$st_sell\n";
			print SCRIPT "ecoprodset $name=Steel=buy_price:$st_buy\n";
			print SCRIPT "ecoprodset $name=Steel=amount:$st_amount\n";
			print SCRIPT "ecoprodset $name=Steel=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Food\n";
			print SCRIPT "ecoprodset $name=Food=sell_price:$fd_sell\n";
			print SCRIPT "ecoprodset $name=Food=buy_price:$fd_buy\n";
			print SCRIPT "ecoprodset $name=Food=amount:$fd_amount\n";
			print SCRIPT "ecoprodset $name=Food=amount_max:1000\n"; 
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Passengers\n";
			print SCRIPT "ecoprodset $name=Passengers=sell_price:$ps_sell\n";
			print SCRIPT "ecoprodset $name=Passengers=buy_price:$ps_buy\n";
			print SCRIPT "ecoprodset $name=Passengers=amount:$ps_amount\n";
			print SCRIPT "ecoprodset $name=Passengers=amount_max:1000\n";   
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Textiles\n";
			print SCRIPT "ecoprodset $name=Textiles=sell_price:$tx_sell\n";
			print SCRIPT "ecoprodset $name=Textiles=buy_price:$tx_buy\n";
			print SCRIPT "ecoprodset $name=Textiles=amount:$tx_amount\n";
			print SCRIPT "ecoprodset $name=Textiles=amount_max:1000\n";   
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Gold\n";
			print SCRIPT "ecoprodset $name=Gold=sell_price:$gd_sell\n";
			print SCRIPT "ecoprodset $name=Gold=buy_price:$gd_buy\n";
			print SCRIPT "ecoprodset $name=Gold=amount:$gd_amount\n";
			print SCRIPT "ecoprodset $name=Gold=amount_max:1000\n";  
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
				
		print SCRIPT "ecoprodcreate $name=Electronics\n";
			print SCRIPT "ecoprodset $name=Electronics=sell_price:$el_sell\n";
			print SCRIPT "ecoprodset $name=Electronics=buy_price:$el_buy\n";
			print SCRIPT "ecoprodset $name=Electronics=amount:$el_amount\n";
			print SCRIPT "ecoprodset $name=Electronics=amount_max:1000\n";
}			
	$instock = int(rand 2);			
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Chemicals\n";
			print SCRIPT "ecoprodset $name=Chemicals=sell_price:$ch_sell\n";
			print SCRIPT "ecoprodset $name=Chemicals=buy_price:$ch_buy\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount:$ch_amount\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Luxeries\n";
			print SCRIPT "ecoprodset $name=Luxeries=sell_price:$lx_sell\n";
			print SCRIPT "ecoprodset $name=Luxeries=buy_price:$lx_buy\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount:$lx_amount\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount_max:1000\n";
}			
	$instock = int(rand 2);			
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Atomics\n";
			print SCRIPT "ecoprodset $name=Atomics=sell_price:$at_sell\n";
			print SCRIPT "ecoprodset $name=Atomics=buy_price:$at_buy\n";
			print SCRIPT "ecoprodset $name=Atomics=amount:$at_amount\n";
			print SCRIPT "ecoprodset $name=Atomics=amount_max:1000\n";
}			
	$instock = int(rand 2);
	if ($instock >= 1) {
	
		print SCRIPT "ecoprodcreate $name=Medics\n";
			print SCRIPT "ecoprodset $name=Medics=sell_price:$md_sell\n";
			print SCRIPT "ecoprodset $name=Medics=buy_price:$md_buy\n";
			print SCRIPT "ecoprodset $name=Medics=amount:$md_amount\n";
			print SCRIPT "ecoprodset $name=Medics=amount_max:1000\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {

		print SCRIPT "ecoprodcreate $name=".'$OPM:Runabout Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Runabout Class Ship'."=sell_price:100\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Runabout Class Ship'."=buy_price:120\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Runabout Class Ship'."=amount:90\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Runabout Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Intrepid Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Intrepid Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Intrepid Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Intrepid Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Intrepid Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Nebula Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Nebula Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Nebula Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Nebula Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Nebula Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Defiant Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defiant Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defiant Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defiant Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defiant Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Bird of Pray Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Bird of Pray Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Bird of Pray Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Bird of Pray Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Bird of Pray Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Warbird Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Warbird Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Warbird Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Warbird Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Warbird Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Vortcha Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Vortcha Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Vortcha Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Vortcha Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Vortcha Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Ferrengi Freigther Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Ferrengi Freigther Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Ferrengi Freigther Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Ferrengi Freigther Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Ferrengi Freigther Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Maqui Raider Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Maqui Raider Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Maqui Raider Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Maqui Raider Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Maqui Raider Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Galor Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Galor Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Galor Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Galor Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Galor Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Jemhaddar Fighter Class'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Fighter Class'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Fighter Class'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Fighter Class'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Fighter Class'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Jemhaddar Battleship Class'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Battleship Class'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Battleship Class'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Battleship Class'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Battleship Class'."=amount_max:100\n";
}
	$instock = int(rand 2);
	if ($instock >= 1) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Breen Warship Class'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Breen Warship Class'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Breen Warship Class'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Breen Warship Class'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Breen Warship Class'."=amount_max:100\n";
}

}

	if ($object_template == 8) {
	$as = ++$asnum;
	$name = "System $sys Asteroid $as";
		print SCRIPT "create $name=HOME\n";
                print SCRIPT "set $name=imageset:$imageset_asteroid\n";
                print SCRIPT "set $name=size:120\n";


	$instock = int(rand 5);
	if ($instock >= 4) {
	
                print SCRIPT "ecoprodcreate $name=Antimatter\n";
                	print SCRIPT "ecoprodset $name=Antimatter=sell_price:$am_sell\n";
                	print SCRIPT "ecoprodset $name=Antimatter=buy_price:$am_buy\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount:$am_amount\n";
                	print SCRIPT "ecoprodset $name=Antimatter=amount_max:100000\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
                print SCRIPT "ecoprodcreate $name=Hull Repair\n";
			print SCRIPT "ecoprodset $name=Hull Repair=sell_price:$hr_sell\n";
			print SCRIPT "ecoprodset $name=Hull Repair=buy_price:$hr_buy\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount:-1\n";
			print SCRIPT "ecoprodset $name=Hull Repair=amount_max:1000\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
				
		print SCRIPT "ecoprodcreate $name=Raw Material\n";
			print SCRIPT "ecoprodset $name=Raw Material=sell_price:$rm_sell\n";
			print SCRIPT "ecoprodset $name=Raw Material=buy_price:$rm_buy\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount:$rm_amount\n";
			print SCRIPT "ecoprodset $name=Raw Material=amount_max:1000\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Steel\n";
			print SCRIPT "ecoprodset $name=Steel=sell_price:$st_sell\n";
			print SCRIPT "ecoprodset $name=Steel=buy_price:$st_buy\n";
			print SCRIPT "ecoprodset $name=Steel=amount:$st_amount\n";
			print SCRIPT "ecoprodset $name=Steel=amount_max:1000\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Food\n";
			print SCRIPT "ecoprodset $name=Food=sell_price:$fd_sell\n";
			print SCRIPT "ecoprodset $name=Food=buy_price:$fd_buy\n";
			print SCRIPT "ecoprodset $name=Food=amount:$fd_amount\n";
			print SCRIPT "ecoprodset $name=Food=amount_max:1000\n"; 
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Passengers\n";
			print SCRIPT "ecoprodset $name=Passengers=sell_price:$ps_sell\n";
			print SCRIPT "ecoprodset $name=Passengers=buy_price:$ps_buy\n";
			print SCRIPT "ecoprodset $name=Passengers=amount:$ps_amount\n";
			print SCRIPT "ecoprodset $name=Passengers=amount_max:1000\n";   
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Textiles\n";
			print SCRIPT "ecoprodset $name=Textiles=sell_price:$tx_sell\n";
			print SCRIPT "ecoprodset $name=Textiles=buy_price:$tx_buy\n";
			print SCRIPT "ecoprodset $name=Textiles=amount:$tx_amount\n";
			print SCRIPT "ecoprodset $name=Textiles=amount_max:1000\n";   
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Gold\n";
			print SCRIPT "ecoprodset $name=Gold=sell_price:$gd_sell\n";
			print SCRIPT "ecoprodset $name=Gold=buy_price:$gd_buy\n";
			print SCRIPT "ecoprodset $name=Gold=amount:$gd_amount\n";
			print SCRIPT "ecoprodset $name=Gold=amount_max:1000\n";  
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Electronics\n";
			print SCRIPT "ecoprodset $name=Electronics=sell_price:$el_sell\n";
			print SCRIPT "ecoprodset $name=Electronics=buy_price:$el_buy\n";
			print SCRIPT "ecoprodset $name=Electronics=amount:$el_amount\n";
			print SCRIPT "ecoprodset $name=Electronics=amount_max:1000\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Chemicals\n";
			print SCRIPT "ecoprodset $name=Chemicals=sell_price:$ch_sell\n";
			print SCRIPT "ecoprodset $name=Chemicals=buy_price:$ch_buy\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount:$ch_amount\n";
			print SCRIPT "ecoprodset $name=Chemicals=amount_max:1000\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Luxeries\n";
			print SCRIPT "ecoprodset $name=Luxeries=sell_price:$lx_sell\n";
			print SCRIPT "ecoprodset $name=Luxeries=buy_price:$lx_buy\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount:$lx_amount\n";
			print SCRIPT "ecoprodset $name=Luxeries=amount_max:1000\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Atomics\n";
			print SCRIPT "ecoprodset $name=Atomics=sell_price:$at_sell\n";
			print SCRIPT "ecoprodset $name=Atomics=buy_price:$at_buy\n";
			print SCRIPT "ecoprodset $name=Atomics=amount:$at_amount\n";
			print SCRIPT "ecoprodset $name=Atomics=amount_max:1000\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
				
		print SCRIPT "ecoprodcreate $name=Medics\n";
			print SCRIPT "ecoprodset $name=Medics=sell_price:$md_sell\n";
			print SCRIPT "ecoprodset $name=Medics=buy_price:$md_buy\n";
			print SCRIPT "ecoprodset $name=Medics=amount:$md_amount\n";
			print SCRIPT "ecoprodset $name=Medics=amount_max:1000\n";
}			
	$instock = int(rand 5);
	if ($instock >= 4) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Photon Torpedo'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Photon Torpedo'."=sell_price:$pht_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Photon Torpedo'."=buy_price:$pht_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Photon Torpedo'."=amount:$pht_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Photon Torpedo'."=amount_max:1000\n";
}	
	$instock = int(rand 5);
	if ($instock >= 4) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Plasma Torpedo'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Plasma Torpedo'."=sell_price:$plt_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Plasma Torpedo'."=buy_price:$plt_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Plasma Torpedo'."=amount:$plt_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Plasma Torpedo'."=amount_max:1000\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Quantom Torpedo'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Quantom Torpedo'."=sell_price:$qt_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Quantom Torpedo'."=buy_price:$qt_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Quantom Torpedo'."=amount:$qt_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Quantom Torpedo'."=amount_max:1000\n";
}	
	$instock = int(rand 5);
	if ($instock >= 4) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:APC Warhead'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:APC Warhead'."=sell_price:$apc_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:APC Warhead'."=buy_price:$apc_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:APC Warhead'."=amount:$apc_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:APC Warhead'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Figther Drone'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Figther Drone'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Figther Drone'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Figther Drone'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Figther Drone'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Defence Station'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defence Station'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defence Station'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defence Station'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defence Station'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {

		print SCRIPT "ecoprodcreate $name=".'$OPM:Runabout Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Runabout Class Ship'."=sell_price:100\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Runabout Class Ship'."=buy_price:120\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Runabout Class Ship'."=amount:90\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Runabout Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Intrepid Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Intrepid Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Intrepid Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Intrepid Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Intrepid Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
		
		print SCRIPT "ecoprodcreate $name=".'$OPM:Nebula Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Nebula Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Nebula Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Nebula Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Nebula Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Defiant Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defiant Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defiant Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defiant Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Defiant Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Bird of Pray Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Bird of Pray Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Bird of Pray Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Bird of Pray Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Bird of Pray Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Warbird Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Warbird Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Warbird Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Warbird Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Warbird Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Vortcha Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Vortcha Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Vortcha Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Vortcha Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Vortcha Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Ferrengi Freigther Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Ferrengi Freigther Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Ferrengi Freigther Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Ferrengi Freigther Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Ferrengi Freigther Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Maqui Raider Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Maqui Raider Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Maqui Raider Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Maqui Raider Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Maqui Raider Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Galor Class Ship'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Galor Class Ship'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Galor Class Ship'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Galor Class Ship'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Galor Class Ship'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Jemhaddar Fighter Class'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Fighter Class'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Fighter Class'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Fighter Class'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Fighter Class'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Jemhaddar Battleship Class'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Battleship Class'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Battleship Class'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Battleship Class'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Jemhaddar Battleship Class'."=amount_max:100\n";
}
	$instock = int(rand 5);
	if ($instock >= 4) {
	
	$sh_sell = int(rand 36000);
	$sh_buy = $sh_sell * 1.2;
	$sh_amount = 100 - $sh_sell / 360;
	
		print SCRIPT "ecoprodcreate $name=".'$OPM:Breen Warship Class'."\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Breen Warship Class'."=sell_price:$sh_sell\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Breen Warship Class'."=buy_price:$sh_buy\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Breen Warship Class'."=amount:$sh_amount\n";
			print SCRIPT "ecoprodset $name=".'$OPM:Breen Warship Class'."=amount_max:100\n";
}

}

# Randomly chooses an empire

	$emp = int(rand 3);

	if ($emp == 0) {
	$emp = 'FED';
}
	if ($emp == 1) {
	$emp = 'FGI';
}
	if ($emp == 2) {
	$emp = 'PIR';
}	
	print SCRIPT "set $name=empire:$emp\n";

# Set up the taxation standard for each empire

	if ($emp eq FED) {
	
		print SCRIPT "set $name=eco/tax_friend:1.10\n";
		print SCRIPT "set $name=eco/tax_general:1.20\n";
		print SCRIPT "set $name=eco/tax_hostile:1.30\n";
}
	if ($emp eq FGI) {
	
		print SCRIPT "set $name=eco/tax_friend:1.15\n";
		print SCRIPT "set $name=eco/tax_general:1.25\n";
		print SCRIPT "set $name=eco/tax_hostile:1.35\n";
}
	if ($emp eq PIR) {
	
		print SCRIPT "set $name=eco/tax_friend:1.20\n";
		print SCRIPT "set $name=eco/tax_general:1.30\n";
		print SCRIPT "set $name=eco/tax_hostile:1.40\n";
}

# Set the initial amount of credits for the object

	print SCRIPT "set $name=score/credits:100000\n";

# Set the eco flags

	print SCRIPT "set $name=eco/flags:OPEN\n";
	print SCRIPT "set $name=eco/flags:BUY_OK\n";
	print SCRIPT "set $name=eco/flags:SELL_OK\n";
	print SCRIPT "set $name=eco/flags:TRADE_OK\n";
	print SCRIPT "set $name=eco/flags:INTRODUCE_OK\n";

# Randomly place the object

	$obj_x = int(rand 300) + $sys_x - 150;
        $obj_y = int(rand 300) + $sys_y - 150;
        
	print SCRIPT "set $name=x:$obj_x\n";
        print SCRIPT "set $name=y:$obj_y\n";

	print SCRIPT "set $name=sect_x:$sect_x\n";
	print SCRIPT "set $name=sect_y:$sect_y\n";

# Set the shield state up for objects

	print SCRIPT "set $name=shield_state:up\n";

}
}

# Creating the nebula

# Reset the count for nebulas. 

	$nebnum = 0;


	for ($neb_loop = $nebula; $neb_loop > 0; $neb_loop--) {  

# Set the nebula name.  Nebula 1, Nebula 2, etc.

        $neb = ++$nebnum;
	$name = "Nebula $neb";
	
# Create the nebula

	print SCRIPT "create $name=AREA\n";
	print SCRIPT "set $name=loc_type:2\n";
	
# Set up the star's image set

	$image_neb = int(rand 3) + 100;
	print SCRIPT "set $name=imageset:$image_neb\n";
	
# Set up the nebula's size	
	
	$neb_size = 15 * (int(rand 4000) + 1000);
	print SCRIPT "set $name=size:$neb_size\n";
	
# Randomly place the nebula

        $neb_x = int(rand 1600) - 800;
        $neb_y = int(rand 1600) - 800;

	$sect_x = int(rand $sector_x_num);
	$sect_y = int(rand $sector_y_num);

	print SCRIPT "set $name=x:$neb_x\n";
	print SCRIPT "set $name=y:$neb_y\n";
	
	print SCRIPT "set $name=sect_x:$sect_x\n";
	print SCRIPT "set $name=sect_y:$sect_y\n";
}

# Creating the wormholes

# Reset the count for wormholes. 

	$whnum = 0;


	for ($wh_loop = $wormhole; $wh_loop > 0; $wh_loop--) {  

# Set the wormhole name.  Wormhole 1 Alpha, Wormhole 1 Omega, etc.

        $wh = ++$whnum;
	$name1 = "Wormhole $wh Alpha";
	$name2 = "Wormhole $wh Omega";
	
# Create the wormholes

	print SCRIPT "create $name1=WORMHOLE\n";
	print SCRIPT "create $name2=WORMHOLE\n";
	print SCRIPT "link $name1=$name2\n";
	print SCRIPT "link $name2=$name1\n";
	
# Set up the wormhole's image set

	$image_wh = 108;
	print SCRIPT "set $name1=imageset:$image_wh\n";
	print SCRIPT "set $name2=imageset:$image_wh\n";
	
# Set up the wormhole's size	
	
	$wh_size = 150;
	print SCRIPT "set $name1=size:$wh_size\n";
	print SCRIPT "set $name2=size:$wh_size\n";
	
# Randomly place the wormholes

        $wh1_x = int(rand 1600) - 800;
        $wh1_y = int(rand 1600) - 800;
        $wh2_x = int(rand 1600) - 800;
        $wh2_y = int(rand 1600) - 800;

	$wh1_sect_x = int(rand $sector_x_num);
	$wh1_sect_y = int(rand $sector_y_num);
	$wh2_sect_x = int(rand $sector_x_num);
	$wh2_sect_y = int(rand $sector_y_num);

	print SCRIPT "set $name1=x:$wh1_x\n";
	print SCRIPT "set $name1=y:$wh1_y\n";
	print SCRIPT "set $name2=x:$wh2_x\n";
	print SCRIPT "set $name2=y:$wh2_y\n";
	
	print SCRIPT "set $name1=sect_x:$wh1_sect_x\n";
	print SCRIPT "set $name1=sect_y:$wh1_sect_y\n";
	print SCRIPT "set $name2=sect_x:$wh2_sect_x\n";
	print SCRIPT "set $name2=sect_y:$wh2_sect_y\n";
}




# close SCRIPT;

# Alternately, I thought it might be nice to run the object creation
# and drone creation separately.  To do that, cut from here down into
# a separate file called dronerand.pl uncomment the close SCRIPT, to
# allow the remaining code to continue to work, as well as the next
# few lines down to $sector_y_num.  The drone script will output to a 
# file called drone.xsw


# #!/usr/bin/perl

# srand;

# open (SCRIPT,">drone.xsw");

# $min_drone = 5; #min number of drones
# $max_drone = 15 - min_drone; #max number of drones
# $templates_drone = 10; #number of drone templates

# $sector_x_num = 1; #number of sectors high for universe
# $sector_y_num = 1; #number of sectors wide for universe



# Reset the count for drones

	$dfnum = 0;
	$bpnum = 0;
	$idnum = 0;
	$nbnum = 0;
	$brnum = 0;
	$grnum = 0;
	$jbnum = 0;
	$jfnum = 0;
	$mrnum = 0;
	$wbnum = 0;

# Randomly select number of drones from within the specified range

for ($drone = int(rand $max_drone) + $min_drone + 1; $drone > 0; $drone--) {

        $drn_template =  int(rand $templates_drone);


# Randomly choose an empire

	$emp = int(rand 3);

	if ($emp == 0) {
	$emp = 'FED';
}
	if ($emp == 1) {
	$emp = 'FGI';
}
	if ($emp == 2) {
	$emp = 'PIR';
}	


# Start drone templates
        
        if ($drn_template == 0) {

        $df = ++$dfnum;
	$name = "Defiant $df";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";	
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";
	
	print SCRIPT "set $name=imageset:35\n";
	print SCRIPT "set $name=size:42\n";
	print SCRIPT "set $name=scanner_range:130\n";
	print SCRIPT "set $name=visibility:1.00\n";
	print SCRIPT "set $name=cloak_state:DOWN\n";
	print SCRIPT "set $name=cloak_strength:1.25\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0004\n";
	print SCRIPT "set $name=turnrate:0.0003\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.03\n";
	print SCRIPT "set $name=power_purity:0.99\n";
	print SCRIPT "set $name=antimatter_max:2000\n";
	print SCRIPT "set $name=antimatter:2000\n";
	print SCRIPT "set $name=power_max:153\n";
	print SCRIPT "set $name=power:153\n";
	print SCRIPT "set $name=hp_max:153\n";
	print SCRIPT "set $name=hp:153\n";
	print SCRIPT "set $name=total_weapons:4\n";
	print SCRIPT "set $name=weapon/0/flags:FIXED\n";
	print SCRIPT "set $name=weapon/0/ocs:26\n";
	print SCRIPT "set $name=weapon/0/emission_type:PULSE\n";
	print SCRIPT "set $name=weapon/0/range:0\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:20\n";
	print SCRIPT "set $name=weapon/0/create_power:4\n";
	print SCRIPT "set $name=weapon/0/delay:250\n";
	print SCRIPT "set $name=weapon/1/ocs:50\n";
	print SCRIPT "set $name=weapon/1/emission_type:PROJECTILE\n";
	print SCRIPT "set $name=weapon/1/range:0\n";
	print SCRIPT "set $name=weapon/1/max:55\n";
	print SCRIPT "set $name=weapon/1/amount:55\n";
	print SCRIPT "set $name=weapon/1/power:20\n";
	print SCRIPT "set $name=weapon/1/create_power:0\n";
	print SCRIPT "set $name=weapon/1/delay:1000\n";
	print SCRIPT "set $name=weapon/2/ocs:60\n";
	print SCRIPT "set $name=weapon/2/emission_type:PROJECTILE\n";
	print SCRIPT "set $name=weapon/2/range:0\n";
	print SCRIPT "set $name=weapon/2/max:35\n";
	print SCRIPT "set $name=weapon/2/amount:35\n";
	print SCRIPT "set $name=weapon/2/power:30\n";
	print SCRIPT "set $name=weapon/2/create_power:0\n";
	print SCRIPT "set $name=weapon/2/delay:1000\n";
	print SCRIPT "set $name=weapon/3/ocs:21\n";
	print SCRIPT "set $name=weapon/3/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/3/range:600\n";
	print SCRIPT "set $name=weapon/3/max:0\n";
	print SCRIPT "set $name=weapon/3/amount:0\n";
	print SCRIPT "set $name=weapon/3/power:5\n";
	print SCRIPT "set $name=weapon/3/create_power:2.5\n";
	print SCRIPT "set $name=weapon/3/delay:300\n";
}


        if ($drn_template == 1) {

        $bp = ++$bpnum;
	$name = "Bird of Prey $bp";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";	
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";	
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";
	
	print SCRIPT "set $name=imageset:30\n";
	print SCRIPT "set $name=size:40\n";
	print SCRIPT "set $name=scanner_range:120\n";
	print SCRIPT "set $name=visibility:0.94\n";
	print SCRIPT "set $name=cloak_state:DOWN\n";
	print SCRIPT "set $name=cloak_strength:1.40\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0004\n";
	print SCRIPT "set $name=turnrate:0.0003\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.02\n";
	print SCRIPT "set $name=power_purity:0.94\n";
	print SCRIPT "set $name=antimatter_max:1000\n";
	print SCRIPT "set $name=antimatter:1000\n";
	print SCRIPT "set $name=power_max:68\n";
	print SCRIPT "set $name=power:68\n";
	print SCRIPT "set $name=hp_max:78\n";
	print SCRIPT "set $name=hp:78\n";
	print SCRIPT "set $name=total_weapons:3\n";
	print SCRIPT "set $name=weapon/0/flags:FIXED\n";
	print SCRIPT "set $name=weapon/0/ocs:32\n";
	print SCRIPT "set $name=weapon/0/emission_type:PULSE\n";
	print SCRIPT "set $name=weapon/0/range:10000\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:12\n";
	print SCRIPT "set $name=weapon/0/create_power:2\n";
	print SCRIPT "set $name=weapon/0/delay:250\n";
	print SCRIPT "set $name=weapon/1/ocs:50\n";
	print SCRIPT "set $name=weapon/1/emission_type:PROJECTILE\n";
	print SCRIPT "set $name=weapon/1/range:0\n";
	print SCRIPT "set $name=weapon/1/max:30\n";
	print SCRIPT "set $name=weapon/1/amount:30\n";
	print SCRIPT "set $name=weapon/1/power:20\n";
	print SCRIPT "set $name=weapon/1/create_power:0\n";
	print SCRIPT "set $name=weapon/1/delay:1000\n";
	print SCRIPT "set $name=weapon/2/ocs:30\n";
	print SCRIPT "set $name=weapon/2/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/2/range:600\n";
	print SCRIPT "set $name=weapon/2/max:0\n";
	print SCRIPT "set $name=weapon/2/amount:0\n";
	print SCRIPT "set $name=weapon/2/power:5\n";
	print SCRIPT "set $name=weapon/2/create_power:2.5\n";
	print SCRIPT "set $name=weapon/2/delay:300\n";

}


        if ($drn_template == 2) {

        $id = ++$idnum;
	$name = "Intrepid $id";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";	
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";	
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";

	print SCRIPT "set $name=imageset:33\n";
	print SCRIPT "set $name=size:60\n";
	print SCRIPT "set $name=scanner_range:120\n";
	print SCRIPT "set $name=visibility:1.00\n";
	print SCRIPT "set $name=cloak_state:NONE\n";
	print SCRIPT "set $name=cloak_strength:0\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0004\n";
	print SCRIPT "set $name=turnrate:0.0002\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.018\n";
	print SCRIPT "set $name=power_purity:0.99\n";
	print SCRIPT "set $name=antimatter_max:4000\n";
	print SCRIPT "set $name=antimatter:4000\n";
	print SCRIPT "set $name=power_max:226\n";
	print SCRIPT "set $name=power:226\n";
	print SCRIPT "set $name=hp_max:216\n";
	print SCRIPT "set $name=hp:216\n";
	print SCRIPT "set $name=total_weapons:2\n";
	print SCRIPT "set $name=weapon/0/ocs:21\n";
	print SCRIPT "set $name=weapon/0/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/0/range:600\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:5\n";
	print SCRIPT "set $name=weapon/0/create_power:2.5\n";
	print SCRIPT "set $name=weapon/0/delay:300\n";
	print SCRIPT "set $name=weapon/1/ocs:50\n";
	print SCRIPT "set $name=weapon/1/emission_type:PROJECTILE\n";
	print SCRIPT "set $name=weapon/1/range:0\n";
	print SCRIPT "set $name=weapon/1/max:32\n";
	print SCRIPT "set $name=weapon/1/amount:32\n";
	print SCRIPT "set $name=weapon/1/power:20\n";
	print SCRIPT "set $name=weapon/1/create_power:0\n";
	print SCRIPT "set $name=weapon/1/delay:1000\n";

}

        if ($drn_template == 3) {

        $nb = ++$nbnum;
	$name = "Nebula Class Ship $nb";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";

	print SCRIPT "set $name=imageset:40\n";
	print SCRIPT "set $name=size:100\n";
	print SCRIPT "set $name=scanner_range:120\n";
	print SCRIPT "set $name=visibility:1.00\n";
	print SCRIPT "set $name=cloak_state:NONE\n";
	print SCRIPT "set $name=cloak_strength:0\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0003\n";
	print SCRIPT "set $name=turnrate:0.0002\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.022\n";
	print SCRIPT "set $name=power_purity:0.98\n";
	print SCRIPT "set $name=antimatter_max:4000\n";
	print SCRIPT "set $name=antimatter:4000\n";
	print SCRIPT "set $name=power_max:370\n";
	print SCRIPT "set $name=power:370\n";
	print SCRIPT "set $name=hp_max:360\n";
	print SCRIPT "set $name=hp:360\n";
	print SCRIPT "set $name=total_weapons:2\n";
	print SCRIPT "set $name=weapon/0/ocs:21\n";
	print SCRIPT "set $name=weapon/0/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/0/range:600\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:5\n";
	print SCRIPT "set $name=weapon/0/create_power:2.5\n";
	print SCRIPT "set $name=weapon/0/delay:300\n";
	print SCRIPT "set $name=weapon/1/ocs:50\n";
	print SCRIPT "set $name=weapon/1/emission_type:PROJECTILE\n";
	print SCRIPT "set $name=weapon/1/range:0\n";
	print SCRIPT "set $name=weapon/1/max:40\n";
	print SCRIPT "set $name=weapon/1/amount:40\n";
	print SCRIPT "set $name=weapon/1/power:20\n";
	print SCRIPT "set $name=weapon/1/create_power:0\n";
	print SCRIPT "set $name=weapon/1/delay:1000\n";

}


        if ($drn_template == 4) {

        $br = ++$brnum;
	$name = "Breen $br";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";	
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";	
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";

	print SCRIPT "set $name=imageset:55\n";
	print SCRIPT "set $name=size:65\n";
	print SCRIPT "set $name=scanner_range:120\n";
	print SCRIPT "set $name=visibility:1.00\n";
	print SCRIPT "set $name=cloak_state:NONE\n";
	print SCRIPT "set $name=cloak_strength:0\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0004\n";
	print SCRIPT "set $name=turnrate:0.0002\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.03\n";
	print SCRIPT "set $name=power_purity:0.99\n";
	print SCRIPT "set $name=antimatter_max:1800\n";
	print SCRIPT "set $name=antimatter:1800\n";
	print SCRIPT "set $name=power_max:310\n";
	print SCRIPT "set $name=power:310\n";
	print SCRIPT "set $name=hp_max:210\n";
	print SCRIPT "set $name=hp:210\n";
	print SCRIPT "set $name=total_weapons:2\n";
	print SCRIPT "set $name=weapon/0/ocs:44\n";
	print SCRIPT "set $name=weapon/0/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/0/range:700\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:10\n";
	print SCRIPT "set $name=weapon/0/create_power:3\n";
	print SCRIPT "set $name=weapon/0/delay:3000\n";
	print SCRIPT "set $name=weapon/1/ocs:42\n";
	print SCRIPT "set $name=weapon/1/emission_type:PULSE\n";
	print SCRIPT "set $name=weapon/1/range:4000\n";
	print SCRIPT "set $name=weapon/1/max:0\n";
	print SCRIPT "set $name=weapon/1/amount:0\n";
	print SCRIPT "set $name=weapon/1/power:40\n";
	print SCRIPT "set $name=weapon/1/create_power:16\n";
	print SCRIPT "set $name=weapon/1/delay:500\n";

}

        if ($drn_template == 5) {

        $gr = ++$grnum;
	$name = "Galor $gr";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";	
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";	
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";

	print SCRIPT "set $name=imageset:37\n";
	print SCRIPT "set $name=size:140\n";
	print SCRIPT "set $name=scanner_range:100\n";
	print SCRIPT "set $name=visibility:1.00\n";
	print SCRIPT "set $name=cloak_state:NONE\n";
	print SCRIPT "set $name=cloak_strength:0\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0003\n";
	print SCRIPT "set $name=turnrate:0.0002\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.0192\n";
	print SCRIPT "set $name=power_purity:0.98\n";
	print SCRIPT "set $name=antimatter_max:4000\n";
	print SCRIPT "set $name=antimatter:4000\n";
	print SCRIPT "set $name=power_max:248\n";
	print SCRIPT "set $name=power:248\n";
	print SCRIPT "set $name=hp_max:251\n";
	print SCRIPT "set $name=hp:251\n";
	print SCRIPT "set $name=total_weapons:3\n";
	print SCRIPT "set $name=weapon/0/ocs:21\n";
	print SCRIPT "set $name=weapon/0/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/0/range:600\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:5\n";
	print SCRIPT "set $name=weapon/0/create_power:2.5\n";
	print SCRIPT "set $name=weapon/0/delay:300\n";
	print SCRIPT "set $name=weapon/1/ocs:40\n";
	print SCRIPT "set $name=weapon/1/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/1/range:700\n";
	print SCRIPT "set $name=weapon/1/max:0\n";
	print SCRIPT "set $name=weapon/1/amount:0\n";
	print SCRIPT "set $name=weapon/1/power:5\n";
	print SCRIPT "set $name=weapon/1/create_power:8\n";
	print SCRIPT "set $name=weapon/1/delay:300\n";
	print SCRIPT "set $name=weapon/2/ocs:50\n";
	print SCRIPT "set $name=weapon/2/emission_type:PROJECTILE\n";
	print SCRIPT "set $name=weapon/2/range:0\n";
	print SCRIPT "set $name=weapon/2/max:50\n";
	print SCRIPT "set $name=weapon/2/amount:50\n";
	print SCRIPT "set $name=weapon/2/power:20\n";
	print SCRIPT "set $name=weapon/2/create_power:0\n";
	print SCRIPT "set $name=weapon/2/delay:1000\n";

}

        if ($drn_template == 6) {

        $jb = ++$jbnum;
	$name = "Jemhaddar Battleship $jb";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";	
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";	
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";

	print SCRIPT "set $name=imageset:41\n";
	print SCRIPT "set $name=size:110\n";
	print SCRIPT "set $name=scanner_range:120\n";
	print SCRIPT "set $name=visibility:1.00\n";
	print SCRIPT "set $name=cloak_state:NONE\n";
	print SCRIPT "set $name=cloak_strength:0\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0003\n";
	print SCRIPT "set $name=turnrate:0.0002\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.022\n";
	print SCRIPT "set $name=power_purity:0.97\n";
	print SCRIPT "set $name=antimatter_max:2000\n";
	print SCRIPT "set $name=antimatter:2000\n";
	print SCRIPT "set $name=power_max:395\n";
	print SCRIPT "set $name=power:395\n";
	print SCRIPT "set $name=hp_max:370\n";
	print SCRIPT "set $name=hp:370\n";
	print SCRIPT "set $name=total_weapons:2\n";
	print SCRIPT "set $name=weapon/0/ocs:34\n";
	print SCRIPT "set $name=weapon/0/emission_type:PULSE\n";
	print SCRIPT "set $name=weapon/0/range:800\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:8\n";
	print SCRIPT "set $name=weapon/0/create_power:2\n";
	print SCRIPT "set $name=weapon/0/delay:250\n";
	print SCRIPT "set $name=weapon/1/ocs:45\n";
	print SCRIPT "set $name=weapon/1/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/1/range:650\n";
	print SCRIPT "set $name=weapon/1/max:0\n";
	print SCRIPT "set $name=weapon/1/amount:0\n";
	print SCRIPT "set $name=weapon/1/power:5\n";
	print SCRIPT "set $name=weapon/1/create_power:2.5\n";
	print SCRIPT "set $name=weapon/1/delay:300\n";

}

        if ($drn_template == 7) {

        $jf = ++$jfnum;
	$name = "Jemhaddar Fighter $jf";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";	
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";	
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";

	print SCRIPT "set $name=imageset:36\n";
	print SCRIPT "set $name=size:50\n";
	print SCRIPT "set $name=scanner_range:100\n";
	print SCRIPT "set $name=visibility:0.96\n";
	print SCRIPT "set $name=cloak_state:NONE\n";
	print SCRIPT "set $name=cloak_strength:0\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0002\n";
	print SCRIPT "set $name=turnrate:0.0003\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.013\n";
	print SCRIPT "set $name=power_purity:0.95\n";
	print SCRIPT "set $name=antimatter_max:2000\n";
	print SCRIPT "set $name=antimatter:2000\n";
	print SCRIPT "set $name=power_max:148\n";
	print SCRIPT "set $name=power:148\n";
	print SCRIPT "set $name=hp_max:135\n";
	print SCRIPT "set $name=hp:135\n";
	print SCRIPT "set $name=total_weapons:2\n";
	print SCRIPT "set $name=weapon/0/ocs:33\n";
	print SCRIPT "set $name=weapon/0/emission_type:PULSE\n";
	print SCRIPT "set $name=weapon/0/range:800\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:8\n";
	print SCRIPT "set $name=weapon/0/create_power:2\n";
	print SCRIPT "set $name=weapon/0/delay:250\n";
	print SCRIPT "set $name=weapon/1/ocs:45\n";
	print SCRIPT "set $name=weapon/1/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/1/range:650\n";
	print SCRIPT "set $name=weapon/1/max:0\n";
	print SCRIPT "set $name=weapon/1/amount:0\n";
	print SCRIPT "set $name=weapon/1/power:5\n";
	print SCRIPT "set $name=weapon/1/create_power:2.5\n";
	print SCRIPT "set $name=weapon/1/delay:300\n";

}

        if ($drn_template == 8) {

        $mr = ++$mrnum;
	$name = "Maqui Raider $mr";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";	
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";	
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";

	print SCRIPT "set $name=imageset:31\n";
	print SCRIPT "set $name=size:35\n";
	print SCRIPT "set $name=scanner_range:130\n";
	print SCRIPT "set $name=visibility:0.92\n";
	print SCRIPT "set $name=cloak_state:NONE\n";
	print SCRIPT "set $name=cloak_strength:0\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0004\n";
	print SCRIPT "set $name=turnrate:0.0003\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.018\n";
	print SCRIPT "set $name=power_purity:0.98\n";
	print SCRIPT "set $name=antimatter_max:800\n";
	print SCRIPT "set $name=antimatter:800\n";
	print SCRIPT "set $name=power_max:90\n";
	print SCRIPT "set $name=power:90\n";
	print SCRIPT "set $name=hp_max:40\n";
	print SCRIPT "set $name=hp:40\n";
	print SCRIPT "set $name=total_weapons:3\n";
	print SCRIPT "set $name=weapon/0/flags:FIXED\n";
	print SCRIPT "set $name=weapon/0/ocs:26\n";
	print SCRIPT "set $name=weapon/0/emission_type:PULSE\n";
	print SCRIPT "set $name=weapon/0/range:800\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:8\n";
	print SCRIPT "set $name=weapon/0/create_power:2\n";
	print SCRIPT "set $name=weapon/0/delay:250\n";
	print SCRIPT "set $name=weapon/1/ocs:50\n";
	print SCRIPT "set $name=weapon/1/emission_type:PROJECTILE\n";
	print SCRIPT "set $name=weapon/1/range:10000\n";
	print SCRIPT "set $name=weapon/1/max:20\n";
	print SCRIPT "set $name=weapon/1/amount:10\n";
	print SCRIPT "set $name=weapon/1/power:10\n";
	print SCRIPT "set $name=weapon/1/create_power:0\n";
	print SCRIPT "set $name=weapon/1/delay:1000\n";
	print SCRIPT "set $name=weapon/2/ocs:21\n";
	print SCRIPT "set $name=weapon/2/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/2/range:600\n";
	print SCRIPT "set $name=weapon/2/max:0\n";
	print SCRIPT "set $name=weapon/2/amount:0\n";
	print SCRIPT "set $name=weapon/2/power:5\n";
	print SCRIPT "set $name=weapon/2/create_power:2.5\n";
	print SCRIPT "set $name=weapon/2/delay:300\n";

}

        if ($drn_template == 9) {

        $wb = ++$wbnum;
	$name = "WarBird $wb";
        
	print SCRIPT "create $name=CONTROLLED\n";
	print SCRIPT "set $name=empire:$emp\n";
	print SCRIPT "set $name=score/credits:1000\n";
	print SCRIPT "set $name=damage_control:ON\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_FRIEND\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_UNKNOWN\n";
	print SCRIPT "set $name=ai_flags:FOLLOW_HOSTILE\n";	
	print SCRIPT "set $name=ai_flags:FIRE_UNKNOWN\n";	
	print SCRIPT "set $name=ai_flags:FIRE_HOSTILE\n";

	print SCRIPT "set $name=imageset:38\n";
	print SCRIPT "set $name=size:160\n";
	print SCRIPT "set $name=scanner_range:150\n";
	print SCRIPT "set $name=visibility:0.98\n";
	print SCRIPT "set $name=cloak_state:DOWN\n";
	print SCRIPT "set $name=cloak_strength:1.30\n";
	print SCRIPT "set $name=shield_state:UP\n";
	print SCRIPT "set $name=thrust_power:0.0001\n";
	print SCRIPT "set $name=turnrate:0.0001\n";
	print SCRIPT "set $name=velocity_max:0.07\n";
	print SCRIPT "set $name=core_efficency:0.03\n";
	print SCRIPT "set $name=power_purity:0.92\n";
	print SCRIPT "set $name=antimatter_max:8000\n";
	print SCRIPT "set $name=antimatter:8000\n";
	print SCRIPT "set $name=power_max:840\n";
	print SCRIPT "set $name=power:840\n";
	print SCRIPT "set $name=hp_max:840\n";
	print SCRIPT "set $name=hp:840\n";
	print SCRIPT "set $name=total_weapons:3\n";
	print SCRIPT "set $name=weapon/0/ocs:31\n";
	print SCRIPT "set $name=weapon/0/emission_type:PULSE\n";
	print SCRIPT "set $name=weapon/0/range:0\n";
	print SCRIPT "set $name=weapon/0/max:0\n";
	print SCRIPT "set $name=weapon/0/amount:0\n";
	print SCRIPT "set $name=weapon/0/power:40\n";
	print SCRIPT "set $name=weapon/0/create_power:22\n";
	print SCRIPT "set $name=weapon/0/delay:300\n";
	print SCRIPT "set $name=weapon/1/ocs:30\n";
	print SCRIPT "set $name=weapon/1/emission_type:STREAM\n";
	print SCRIPT "set $name=weapon/1/range:700\n";
	print SCRIPT "set $name=weapon/1/max:0\n";
	print SCRIPT "set $name=weapon/1/amount:0\n";
	print SCRIPT "set $name=weapon/1/power:5\n";
	print SCRIPT "set $name=weapon/1/create_power:2.5\n";
	print SCRIPT "set $name=weapon/1/delay:300\n";
	print SCRIPT "set $name=weapon/2/ocs:55\n";
	print SCRIPT "set $name=weapon/2/emission_type:PROJECTILE\n";
	print SCRIPT "set $name=weapon/2/range:0\n";
	print SCRIPT "set $name=weapon/2/max:80\n";
	print SCRIPT "set $name=weapon/2/amount:80\n";
	print SCRIPT "set $name=weapon/2/power:30\n";
	print SCRIPT "set $name=weapon/2/create_power:0\n";
	print SCRIPT "set $name=weapon/2/delay:1000\n";


}


# Randomly place the drone

        $sys_x = int(rand 1600) - 800;
        $sys_y = int(rand 1600) - 800;

	$sect_x = int(rand $sector_x_num);
	$sect_y = int(rand $sector_y_num);

	print SCRIPT "set $name=x:$sys_x\n";
	print SCRIPT "set $name=y:$sys_y\n";
	
	print SCRIPT "set $name=sect_x:$sect_x\n";
	print SCRIPT "set $name=sect_y:$sect_y\n";


}


close SCRIPT;