From 16cc3deb76b22cd9cd04e2cf1ed151a2aeb8d69d Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 21 Apr 2018 20:49:40 +0200
Subject: [PATCH] sc: option to order by build time

---
 sc.plp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/sc.plp b/sc.plp
index b20e51d..d0b2691 100644
--- a/sc.plp
+++ b/sc.plp
@@ -95,7 +95,7 @@ sub coltoggle {
 	<th><:= coltoggle(name => 'name') :></th>
 	<th class="val min" title=minerals><:= coltoggle(cost => 'cost') :></th>
 	<th class="val gas">gas</th>
-	<th class="val time">build</th>
+	<th class="val time"><:= coltoggle(build => 'build') :></th>
 	<th class="unit" colspan="2"><:= coltoggle(qw'size size') :></th>
 	<th class="unit" colspan="2">attr</th>
 	<th class="val unit-hp"><:= coltoggle(HP => 'hp') :></th>
@@ -356,6 +356,15 @@ sub showrangeint {
 				$_->{gas}*1.5 + $_->{min} + $_->{pop}/8 + $_->{build}/256/8
 			) for @rows;
 		}
+		elsif ($get{order} eq 'build') {
+			my %unittime = map { ($_->{name} => $_->{warp} // $_->{build}) } @rows;
+			$unittime{Templar} = $unittime{'High Templar'};
+			$_->{order} = (
+				($_->{warp} // $_->{build})
+				+ ($_->{gas}*1.5 + $_->{min} + $_->{pop}/8)/1024
+				+ ($_->{base} ? ($unittime{$_->{base}->[0]} // 100) + 1 : 0)
+			) for @rows;
+		}
 		elsif ($get{order} eq 'size') {
 			$_->{order} = (
 				$_->{pop}*16 + ($_->{size} // $_->{suit}) + $_->{cargo}/8
-- 
2.30.0