2nd and 3rd targets less efficient

[NDIRC.git] / PA.pm

diff --git a/PA.pm b/PA.pm
index 0eb0412d4e36684466de99709c44ae6d981446f9..62382dd8bf65da26587baf787473d0a309c3d140 100644 (file)
--- a/PA.pm
+++ b/PA.pm
@@ -141,6 +141,13 @@ sub shipEff {
                        }
                        while (my $t = $st->fetchrow_hashref()){
                                my $number = calcEff($s,$t,$amount,$eff);
+                               if ($eff){
+                                       $number *= 0.60 if $tn eq 't2';
+                                       $number *= 0.30 if $tn eq 't3';
+                               }else{
+                                       $number /= 0.60 if $tn eq 't2';
+                                       $number /= 0.30 if $tn eq 't3';
+                               }
                                $value = prettyValue($number*$t->{cost}/100);
                                my $name = shipColor($t->{name},$t->{type});
                                $text .= " $ND::B$number$ND::O $name ($t->{init}:$value),";