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