$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;
INSERT INTO roles VALUES('irc_deltag');
INSERT INTO roles VALUES('irc_say');
INSERT INTO roles VALUES('irc_cmd');
+INSERT INTO roles VALUES('irc_allycoords');
INSERT INTO group_roles (gid,role) VALUES('T','irc_p_nick');
INSERT INTO group_roles (gid,role) VALUES('T','irc_p_intel');
INSERT INTO group_roles (gid,role) VALUES('T','irc_forum_others');
INSERT INTO group_roles (gid,role) VALUES('T','irc_say');
INSERT INTO group_roles (gid,role) VALUES('T','irc_cmd');
+INSERT INTO group_roles (gid,role) VALUES('T','irc_allycoords');
INSERT INTO group_roles (gid,role) VALUES('M','irc_gs');
INSERT INTO group_roles (gid,role) VALUES('M','irc_scan');
INSERT INTO group_roles (gid,role) VALUES('H','irc_sendsms');
INSERT INTO group_roles (gid,role) VALUES('H','irc_smsstatus');
INSERT INTO group_roles (gid,role) VALUES('H','irc_forum_others');
+INSERT INTO group_roles (gid,role) VALUES('H','irc_allycoords');
INSERT INTO group_roles (gid,role) VALUES('B','irc_points_others');
INSERT INTO group_roles (gid,role) VALUES('B','irc_a');
INSERT INTO group_roles (gid,role) VALUES('I','irc_setnick');
INSERT INTO group_roles (gid,role) VALUES('I','irc_setally');
INSERT INTO group_roles (gid,role) VALUES('I','irc_setchannel');
+INSERT INTO group_roles (gid,role) VALUES('I','irc_allycoords');
INSERT INTO group_roles (gid,role) VALUES('D','irc_p_intel');
INSERT INTO group_roles (gid,role) VALUES('D','irc_points_others');