From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 21 Apr 2018 18:25:23 +0000 (+0200)
Subject: sc: option to order by speed
X-Git-Tag: v1.12~74
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/ed44d7994978d129c903502a7508481dc024f7dd?ds=sidebyside

sc: option to order by speed
---

diff --git a/sc.plp b/sc.plp
index a721035..8f51216 100644
--- a/sc.plp
+++ b/sc.plp
@@ -105,7 +105,7 @@ sub coltoggle {
 	<th class="hurt hurtrel">dps</th>
 	<th class="val unit-range" colspan=3>range</th>
 	<th class="val unit-sight">sight</th>
-	<th class="val unit-speed">speed</th>
+	<th class="val unit-speed"><:= coltoggle(speed => 'speed') :></th>
 	<th class="unit-magic">specials</th>
 </tr></thead>
 <:
@@ -370,6 +370,12 @@ sub showrangeint {
 				} @{ $_->{attack} }
 			) for @rows;
 		}
+		elsif ($get{order} eq 'speed') {
+			$_->{order} = (
+				($_->{upgraded}->{speed} // $_->{speed}*1.01)
+				+ $_->{sight}/1024 + $_->{detect}/2048
+			) for @rows;
+		}
 		@rows = sort {$a->{order} <=> $b->{order}} @rows if exists $rows[0]->{order};
 	}