}
sub shipEff {
- my ($msg,$value) = @_;
- my ($amount,$ship);
+ my ($msg,$command) = @_;
+ my ($amount,$ship,$value);
if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)$/){
- if (defined $value){
+ if ($command eq 'veff'){
$value = parseValue($1);
$value *= -1.5 if $value < 0;
my $feud = '';
}
$ship = "\%$2\%";
}else{
- my $command = (defined $value ? "veff" : "eff");
$ND::server->command("notice $ND::nick syntax: .$command amount ship");
return;
}
}
sub shipStop {
- my ($msg,$value) = @_;
- my ($amount,$ship);
+ my ($msg,$command) = @_;
+ my ($amount,$ship,$value);
if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)$/){
- if (defined $value){
+ if ($command eq 'vstop'){
$value = parseValue($1);
$value *= -1.5 if $value < 0;
my $feud = '';
}
$ship = "\%$2\%";
}else{
- my $command = (defined $value ? "vstop" : "stop");
$ND::server->command("notice $ND::nick syntax: .$command amount ship");
return;
}