:wargors
if
	port_count > 0
	turn > warwait
	enemy_count > 0
	human = 0
	(peepstat race gor allset resident roger) < segmentdecks
then
	addenergy (0-500)
	place_peep gor resident
	set warwait (turn + 3600)
end

:wargreys
if
	port_count > 0
	turn > warwait
	enemy_count > 0
	human = 0
	(peepstat race grey allset resident roger) < (segmentdecks / 4)
then
	addenergy (0-500)
	place_peep grey resident
	set warwait (turn + 3600)
end

:wartargs
if
	port_count > 0
	turn > warwait
	enemy_count > 0
	human = 0
	(peepstat race targ allset resident roger) < (segmentdecks / 2)
then
	addenergy (0-500)
	place_peep targ resident
	set warwait (turn + 3600)
end

:warhogs
if
	port_count > 0
	turn > warwait
	enemy_count > 0
	human = 0
	(peepstat race salt_hog allset resident roger) < (segmentdecks / 3)
then
	addenergy (0-500)
	place_peep salt_hog resident
	set warwait (turn + 3600)
end