From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 28 Oct 2021 00:20:18 +0000 (+0200)
Subject: sc: lower precedence of hp order
X-Git-Tag: v1.13~98
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/dbda1fd17884ef74775772f730f4fa9e46661ab8

sc: lower precedence of hp order
---

diff --git a/sc.plp b/sc.plp
index 042719a..1c9e7b6 100644
--- a/sc.plp
+++ b/sc.plp
@@ -366,11 +366,6 @@ 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
@@ -391,6 +386,11 @@ sub showrangeint {
 				+ $_->{hp}/512 + $_->{min}/8192
 			) for @rows;
 		}
+		elsif ($get{order} eq 'hp') {
+			$_->{order} = (
+				$_->{hp}*1.01 + $_->{armor} + $_->{shield} + $_->{size}/1024,
+			) for @rows;
+		}
 		elsif ($get{order} eq 'attack') {
 			$_->{order} = $_->{hp} / 1024 + $_->{shield} / 1008 + max(
 				map {