if (scanner()){
+ my @notype;
+ if ($msg && $msg =~ /-([pdunja]+)/){
+ for (split //, $1){
+ push @notype, $scantypes[$scanid{$_}-1];
+ }
+ }
+
my $reqs = $ND::DBH->prepare(q{SELECT min(sr.id) AS id, x,y,z,type
FROM scan_requests sr
JOIN current_planet_stats p ON p.id = sr.planet
AND type = sr.type
AND tick >= sr.tick
)
+ AND type <> ALL($1)
GROUP BY x,y,z,type
ORDER BY id
});
- $reqs->execute;
+ $reqs->execute(\@notype);
my $text = '';
while (my $req = $reqs->fetchrow_hashref){
$text .= "$ND::B$req->{id}$ND::O http://game.planetarion.com/waves.pl?id=$scantypes{$req->{type}}&x=$req->{x}&y=$req->{y}&z=$req->{z} "