X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Commands%2FPA.pm;h=94478e38c20bf174170ce8c819b0ec520efebec7;hb=cd18307dc7e3886266937935feffbb41b1df422d;hp=0a915fb00daae0db283469671b8ebb2be43066ea;hpb=bfcb830248c2b64cfc57290b411000bc071f2a10;p=NDIRC.git

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 0a915fb..94478e3 100644
--- a/Commands/PA.pm
+++ b/Commands/PA.pm
@@ -295,13 +295,13 @@ 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';
@@ -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';