Converted the .fco command

[NDIRC.git] / PA.pm

diff --git a/PA.pm b/PA.pm
index 72050d851a77a7fce5902d222e5de807e412e8de..094c5671df25dcda4e952684b5db31d940a6cf8f 100644 (file)
--- a/PA.pm
+++ b/PA.pm
@@ -28,7 +28,7 @@ require Exporter;
 
 our @ISA = qw/Exporter/;
 
-our @EXPORT = qw/shipEff shipStop parseValue prettyValue calcXp findCovOpper tick_time/;
+our @EXPORT = qw/shipEff shipStop parseValue prettyValue findCovOpper/;
 
 sub shipEff {
        my ($msg,$command) = @_;
@@ -145,112 +145,4 @@ sub shipColor {
        return "$ND::C$c$string$ND::O";
 }
 
-sub calcXp {
-       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 
-                       id = (SELECT planet FROM users WHERE hostmask ILIKE ?);
-               }, undef, $ND::address);
-       my ($tvalue,$tscore,$tsize) = $ND::DBH->selectrow_array(q{
-               SELECT value,score,size FROM current_planet_stats WHERE 
-               x = ? AND y = ? and z = ?;
-               }, undef, $x,$y,$z);
-       $cap = 0.25 unless $cap;
-       unless($roids){
-               $roids = int($tsize*$cap);
-       }elsif ($roids < 10){
-               $tsize = ceil($tsize*.75**($roids-1));
-               $roids = int($cap*$tsize);
-       }
-       $tsize -= $roids;
-       unless (defined $avalue && defined $ascore){
-               $ND::server->command("notice $ND::nick You don't have a planet specified");
-               return;
-       }
-       unless (defined $tvalue && defined $tscore){
-               $ND::server->command("notice $ND::nick Doesn't seem to be a planet at $x:$y:$z");
-               return;
-       }
-       my $xp = pa_xp($roids,$ascore,$avalue,$tscore,$tvalue);
-       my $score = 60 * $xp;
-       my $value = $roids*200;
-       my $totscore = prettyValue($score + $value);
-       $ND::server->command("notice $ND::nick You will gain $ND::B$xp$ND::B XP, $ND::B$score$ND::B score, if you steal $roids roids ($ND::B$value$ND::B value), from $ND::B$x:$y:$z$ND::B, who will have $ND::B$tsize$ND::B roids left, total score gain will be: $ND::B$totscore$ND::B in total,");
-}
-
-sub findCovOpper {
-       my ($stolen, $command) = @_;
-
-       my $tick = $ND::tick;
-       my $agents;
-
-       if (defined $stolen && $stolen =~ /(\d+) (\d+) (\d+)/){
-               $tick = $1;
-               $agents = $2;
-               $stolen = $3;
-       }elsif (defined $stolen && $stolen =~ /(\d+) (\d+)/){
-               $agents = $1;
-               $stolen = $2;
-       }else{
-               $ND::server->command("notice $ND::nick syntax: .$command [tick] agents stolen | tick can be omitted if you're doing this the same tick you got cov opped, if you have different amount of your resources stolen, specify the highest amount. Only works if less than 10% of your resources and < 10,000*agents were stolen");
-               return;
-       }
-
-       my ($value,$score) = $ND::DBH->selectrow_array(q{
-               SELECT value,score FROM planet_stats WHERE 
-                       id = (SELECT planet FROM users WHERE hostmask ILIKE ?) AND tick = ?;
-               }, undef, $ND::address,$tick);
-       unless ($value){
-               $ND::server->command("notice $ND::nick No value found for tick $tick, can't find your cov opper.");
-               return;
-       }
-       my $attackers = $ND::DBH->prepare(q{
-               SELECT coords(p.x,p.y,p.z), ruler, planet FROM current_planet_stats p JOIN planet_stats ps using (id) WHERE 
-               ps.tick = $1 AND (2000.0*$2*$3/ps.value)::int = $4 ;
-               });
-       $attackers->execute($tick,$agents,$value,$stolen);
-       if ($attackers->rows == 0){
-               $ND::server->command("notice $ND::nick No cov opper found, did you specify the right tick, and was the stolen amount not capped?");
-               return;
-       }
-       my $coords = '';
-       while (my $attacker = $attackers->fetchrow_hashref){
-               $coords .= " ($attacker->{coords} : $attacker->{ruler} OF $attacker->{planet})";
-       }
-       $ND::server->command("notice $ND::nick The planet that cov opped you is one of: $coords");
-}
-
-sub tick_time {
-       my ($msg,$command) = @_;
-       my $tick = $ND::tick;
-       my $timezone = 'GMT';
-       if ($msg =~ /^(\d+)(?: (\S+))?/){
-               $tick = $1 if defined $1;
-               $timezone = $2 if defined $2;
-       }elsif ($msg =~ /^(\S+)/){
-               $timezone = $1;
-       }elsif ($msg){
-               $ND::server->command("notice $ND::nick syntax: .time [tick] [timezone] | Gives the time at the specied tick. Assumes GMT if no timezone is given and current tick if no tick is given.");
-               return;
-       }
-       my $query = $ND::DBH->prepare(q{SELECT date_trunc('seconds',now() + (($1 - tick()) || ' hr')::interval) AT TIME ZONE $2});
-       $query->execute($tick,$timezone);
-       my $time = $query->fetchrow_array;
-       $ND::server->command("notice $ND::nick Time at tick $ND::B$tick$ND::O, timezone $ND::B$timezone$ND::O: $ND::B$time$ND::O");
-
-}
-
 1;