production cost is 15% lower for feudalism

diff --git a/PA.pm b/PA.pm
index 2cb498b6e0862f6b0aea3f632a876f449589cf99..2f708ec5b738b5ba2641bf11f50b0aa307096484 100644 (file)
--- a/PA.pm
+++ b/PA.pm
@@ -109,7 +109,7 @@ FROM ship_stats WHERE name ILIKE ?
 
                if (defined $value){
                        $amount = int(($value*100/$ship[4]));
-                       $feud = '(FEUD: '.prettyValue(int($amount/0.80)).') ';
+                       $feud = '(FEUD: '.prettyValue(int($amount/0.85)).') ';
                }
                $value = prettyValue(($amount*$ship[4]/100));
                my $text = prettyValue($amount)." $feud $ship[0] ($ship[5]:$value) will $type:";
@@ -166,7 +166,7 @@ FROM ship_stats WHERE name ILIKE ?
 
                if (defined $value){
                        $amount = int(($value*100/$ship[4]));
-                       $feud = '(FEUD: '.prettyValue(int($amount/0.80)).') ';
+                       $feud = '(FEUD: '.prettyValue(int($amount/0.85)).') ';
                }
                $value = prettyValue(($amount*$ship[4]/100));
                my $text = "To stop $amount $feud $ship[0] ($ship[5]:$value) you need:";