$c->reply("Removed <b>$rows</b> matching $tag from $x:$y:$z");
}
+sub allycoords
+ : Help(Usage: .allycoords ally | % can be used for wildcards \%-crew\% will match [F-Crew])
+ : ACL(irc_allycoords)
+{
+ my ($self,$c,$msg) = @_;
+ my ($ally) = $msg =~ /^(\S+)$/ or die 'ARGS';
+ my $dbh = $c->model;
+
+ my ($a, $members) = $dbh->selectrow_array(q{
+SELECT alliance, members
+FROM alliances JOIN alliance_stats USING (aid)
+WHERE tick = (SELECT max(tick) FROM alliance_stats)
+ AND alliance ILIKE $1
+ },undef,$ally);
+ unless ($a){
+ $c->reply("No alliance matching '$ally'");
+ return;
+ }
+ my $query = $dbh->prepare(q{
+SELECT coords(x,y,z) FROM current_planet_stats WHERE alliance = $1 ORDER BY x,y,z
+ });
+ $query->execute($a);
+ my @planets;
+ while (my $p = $query->fetchrow_hashref){
+ push @planets,$p->{coords};
+ }
+ my $kmem = scalar @planets;
+ $c->reply("$a ($kmem/$members) : ". join " ", @planets);
+}
1;