;UPKEEP
:segmentupkeep
if
	turn > segmentupkeep
then
	addenergy (0 - ((segmentdecks + 2) * (segmentdecks + 2)))
	set segmentupkeep (turn + 1440)
end