From e3e565388aa8455155d037765999607c6c877db3 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 21 Apr 2018 20:25:41 +0200
Subject: [PATCH] sc: option to order by hp

---
 sc.plp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/sc.plp b/sc.plp
index 8f51216..711e420 100644
--- a/sc.plp
+++ b/sc.plp
@@ -98,7 +98,7 @@ sub coltoggle {
 	<th class="val time"><:= coltoggle(qw'build cost') :></th>
 	<th class="unit" colspan="2"><:= coltoggle(qw'size size') :></th>
 	<th class="unit" colspan="2">attr</th>
-	<th class="val unit-hp">HP</th>
+	<th class="val unit-hp"><:= coltoggle(HP => 'hp') :></th>
 	<th class="val unit-shield">shield</th>
 	<th class="val unit-armor" title="armor">⛨</th>
 	<th class="val hurt"><:= coltoggle(attack => 'attack') :></th>
@@ -346,6 +346,11 @@ sub showrangeint {
 		if ($get{order} eq 'name') {
 			@rows = sort {$a->{name} cmp $b->{name}} @rows;
 		}
+		elsif ($get{order} eq 'hp') {
+			$_->{order} = (
+				$_->{hp}*1.01 + $_->{armor} + $_->{shield} + $_->{size}/1024,
+			) for @rows;
+		}
 		elsif ($get{order} eq 'cost') {
 			$_->{order} = (
 				$_->{gas}*1.5 + $_->{min} + $_->{pop}/8 + $_->{build}/256/8
-- 
2.30.0