X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Commands%2FPA.pm;h=8b64205c7af45f90b7ace83ba4730f7d491c28d2;hb=HEAD;hp=0a915fb00daae0db283469671b8ebb2be43066ea;hpb=91367351091157a6b2dc887e51e2c5bc2bf093ae;p=NDIRC.git

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 0a915fb..8b64205 100644
--- a/Commands/PA.pm
+++ b/Commands/PA.pm
@@ -295,17 +295,17 @@ FROM ship_stats
 	sub shipColor {
 		my ($string,$type) = @_;
 		my $c = 04;
-		$c = 12 if $type eq 'Emp';
+		$c = 12 if $type eq 'EMP';
 		$c = 13 if $type eq 'Steal';
 		return "<c$c>$string</c>";
 	}
 
 	method amount ($s,$t,$tn,$amount) {
-		my $number = $s->{type} eq 'Emp' ?
+		my $number = $s->{type} eq 'EMP' ?
 			($amount*$s->{guns}*(100-$t->{eres})/100)
 			: ($amount*$s->{damage}/$t->{armor});
-		$number *= 0.60 if $tn eq 't2';
-		$number *= 0.30 if $tn eq 't3';
+		$number *= 0.70 if $tn eq 't2';
+		$number *= 0.50 if $tn eq 't3';
 		return $number;
 	}
 
@@ -352,7 +352,7 @@ command stop => {
 	}
 
 	method amount ($s,$t,$tn,$amount) {
-		my $number = $t->{type} eq 'Emp' ?
+		my $number = $t->{type} eq 'EMP' ?
 			($amount*100/(100 - $s->{eres})/$t->{guns})
 			: ($amount*$s->{armor}/$t->{damage});
 		$number /= 0.60 if $tn eq 't2';