X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/bd7288335390bc941dde7a1ad728bc0000d8386a..bb07d710e95b75eb0089b07165616e825f406aae:/sc.plp

diff --git a/sc.plp b/sc.plp
index 873c75b..9a9a12a 100644
--- a/sc.plp
+++ b/sc.plp
@@ -269,6 +269,7 @@ sub showrange {
 		printf '<tbody id="%s"><tr class="race"><th colspan="18"><h2>%s</h2>'."\n", $race, ucfirst $race
 			if $grouped and $race ne $_->{race};
 		$_->{cat} = $_->{race} if not $grouped;
+		$_->{hp} += $_->{shield};
 		my $suitchar = [qw/? s m l/]->[$_->{suit}];
 		print(
 			'<tr>',
@@ -291,7 +292,9 @@ sub showrange {
 				),
 			),
 			'<td class="val unit-hp">' . $_->{hp},
-			'<td class="val unit-shield">' . ($_->{shield} ? $_->{shield}.'%' : '&nbsp;'),
+			'<td class="val unit-shield">' . (
+				$_->{shield} ? sprintf('%.0f%%', 100 * $_->{shield} / $_->{hp}) : '&nbsp;'
+			),
 			'<td class="val unit-armor">' . showrange($_, 'armor'),
 			showattack($_, 'ground'),
 			showattack($_, 'air'),