sub shipEff {
my ($msg,$command) = @_;
my ($amount,$ship,$value);
- if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)$/){
+ if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)/){
if ($command eq 'veff'){
$value = parseValue($1);
$value *= -1.5 if $value < 0;
if (defined $value){
$amount = int(($value*100/$ship[4]));
- $feud = '(FEUD: '.prettyValue(int($amount/0.80)).') ';
+ $feud = '(FEUD: '.prettyValue(int($amount/0.85)).') ';
}
$value = prettyValue(($amount*$ship[4]/100));
my $text = prettyValue($amount)." $feud $ship[0] ($ship[5]:$value) will $type:";
sub shipStop {
my ($msg,$command) = @_;
my ($amount,$ship,$value);
- if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)$/){
+ if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)/){
if ($command eq 'vstop'){
$value = parseValue($1);
$value *= -1.5 if $value < 0;
if (defined $value){
$amount = int(($value*100/$ship[4]));
- $feud = '(FEUD: '.prettyValue(int($amount/0.80)).') ';
+ $feud = '(FEUD: '.prettyValue(int($amount/0.85)).') ';
}
$value = prettyValue(($amount*$ship[4]/100));
my $text = "To stop $amount $feud $ship[0] ($ship[5]:$value) you need:";