From cd18307dc7e3886266937935feffbb41b1df422d Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Mon, 4 Feb 2019 15:34:49 +0100
Subject: [PATCH] Emp to EMP

---
 Commands/PA.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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';
-- 
2.39.2