X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/f69c7a581912c31681e3188f91f2b22656020ea3..9f1aad6e442dbb3a88210a379d645db842d00def:/sc.plp diff --git a/sc.plp b/sc.plp index 53934f2..0a41018 100644 --- a/sc.plp +++ b/sc.plp @@ -103,12 +103,12 @@ sub coltoggle { :> - + - + @@ -280,7 +280,8 @@ sub showrangeint { sprintf('
<:= coltoggle(exists $get{order} ? 'race' : 'source' => '') :><:= coltoggle(name => 'name') :><:= coltoggle(name => 'name') :> <:= coltoggle(cost => 'cost') :> gas <:= coltoggle(build => 'build') :> <:= coltoggle(qw'size size') :>attrattr <:= coltoggle(HP => 'hp') :> shield ⛨%s', $_-> {cargo} < 0 ? ('supply', T => 'transport') : $_->{upgraded}->{cargo} < 0 ? ('supply magic-opt', T => 'optional transport') : - $_->{attr}->{flying} ? ('air', F => 'flying') : + $_-> {attr}->{flying} ? ('air', F => 'flying') : + $_->{upgraded}->{attr}->{flying} ? ('air magic-opt', F => 'potentially flying') : $_->{attr}->{structure} ? ('x', B => 'building') : ( [qw( x s m l l h h h h )]->[ $_->{cargo} ], @@ -289,7 +290,7 @@ sub showrangeint { ), defined $_->{size} && sprintf('⌀%.1f ', $_->{size}), ), - sprintf('%s', + sprintf('%s', defined $_->{pop} && $_->{pop} < 0 && ' unit-supply', defined $_->{pop} && $_->{pop} == .5 ? '½' : $_->{pop}, ), @@ -319,7 +320,7 @@ sub showrangeint { && '⚓', ), $_->{hp} < 0 ? '∞' : - '' . $_->{hp} // '', + '' . showrangeint($_->{hp}, $_->{upgraded}->{hp}), $_->{shield} ? sprintf('%.0f%%{shield} / $_->{hp} ) : '↕', '' . showmagic($_), !$_->{attack}->[1] ? () : ( - '
', showattack($_, 1), '' + '
', showattack($_, 1), '' ), !$_->{attack}->[2] ? () : ( - '
', showattack($_, 2), '' + '
', showattack($_, 2), '' ), "\n" );