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