X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/bb11561d64e299ad7f4a25e689063b99264a16fb..aac22478e6a264e504af77c87af6db144daabc68:/sc.plp diff --git a/sc.plp b/sc.plp index fc3156c..9c271be 100644 --- a/sc.plp +++ b/sc.plp @@ -66,9 +66,11 @@ sub coltoggle { <:= coltoggle(qw'size size') :> HP shield - armor - ground - air + ⛨ + ground + dps + air + dps range sight speed @@ -164,8 +166,11 @@ sub showval { $_->{desc} ? ": $_->{desc}" : '', $_->{range} || $_->{cost} ? sprintf(' (%s)', join ', ', $_->{range} ? "range $_->{range}" : (), - $_->{cost} ? sprintf('cost %.0f%%', - 100 * $_->{cost} / $row->{energy} + $_->{cost} ? sprintf('cost %.0f%%%s', + 100 * $_->{cost} / $row->{energy}, + defined $_->{maint} && sprintf('+%.1f%%/s', + 100 * $_->{maint} / $row->{energy}, + ), ) : (), ) : '', ), @@ -178,7 +183,10 @@ sub showval { local $_ = $row; $_->{hp} += $_->{shield} if $_->{shield}; my $suitchar = ''; - if ($_->{suit}) { + if ($_->{attr}->{structure}) { + $suitchar = 'b'; + } + elsif ($_->{suit}) { $suitchar = [qw/? s m l/]->[$_->{suit}]; } elsif ($_->{cargo} > 0) { @@ -220,10 +228,10 @@ sub showval { && 'L', ), '' . $_->{hp} // '', - '' . ( - $_->{shield} ? sprintf('%.0f%%', 100 * $_->{shield} / $_->{hp}) : ' ' - ), - '' . showval($_, 'armor'), + $_->{shield} ? sprintf('%.0f%%{shield} / $_->{hp} + ) : '' . showval($_, 'armor'), showattack($_, 'ground'), showattack($_, 'air'), '' . showval($_, 'attack', 'range'), @@ -232,7 +240,8 @@ sub showval { showval($_, 'sight') ), '' . showval($_, 'speed'), - $_->{attr}->{massive} && '☇', + $_->{attr}->{massive} + && '⚓', '' . showmagic($_), "\n" );