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:";
}
sub calcXp {
- my ($x,$y,$z,$roids,$cap) = @_;
+ my ($msg) = @_;
+
+ my ($x,$y,$z,$roids,$cap);
+ if(defined $msg && $msg =~ /^(\d+)\D+(\d+)\D+(\d+)(?:[^\.\d]+(\d+))?(?:[^\.\d]+(\d*\.\d+))?$/){
+ $x = $1;
+ $y = $2;
+ $z = $3;
+ $roids = $4;
+ $cap = $5;
+ }else{
+ $ND::server->command("notice $ND::nick syntax: .xp X:Y:Z [roids] [cap] | if roids < 10 then it's taken as the wave, cap is a floating point number, defaults to 0.25");
+ return;
+ }
my ($avalue,$ascore) = $ND::DBH->selectrow_array(q{
SELECT value,score FROM current_planet_stats WHERE