Emp to EMP

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 0a915fb00daae0db283469671b8ebb2be43066ea..94478e38c20bf174170ce8c819b0ec520efebec7 100644 (file)
--- a/Commands/PA.pm
+++ b/Commands/PA.pm
@@ -295,13 +295,13 @@ FROM ship_stats
        sub shipColor {
                my ($string,$type) = @_;
                my $c = 04;
        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) {
                $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';
                        ($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) {
        }
 
        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';
                        ($amount*100/(100 - $s->{eres})/$t->{guns})
                        : ($amount*$s->{armor}/$t->{damage});
                $number /= 0.60 if $tn eq 't2';