+sub findCovOpper {
+ my ($stolen) = @_;
+
+ my $tick = $ND::tick;
+ my $agents;
+
+ if ($stolen =~ /(\d+) (\d+) (\d+)/){
+ $tick = $1;
+ $agents = $2;
+ $stolen = $3;
+ }elsif ($stolen =~ /(\d+) (\d+)/){
+ $tick = $1;
+ $stolen = $3;
+ }
+
+ 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);
+ my ($coords) = $ND::DBH->selectrow_array(q{
+ SELECT coords(p.x,p.y,p.z) FROM current_planet_stats p JOIN planet_stats ps using (id) WHERE
+ ps.tick = ? AND (2000*?*?/ps.value)::int = $stolen ;
+ }, undef, $tick,$agents,$value,$stolen);
+ $ND::server->command("notice $ND::target The planet that cov opped you is: $coords");
+}
+