my $text = $2;
unless ($irc->is_channel_member($channel,$1) || /(Constructing|Researching)/){
$msg = ".anon $_ $text";
+ $self->parseCommand($msg,$irc,$nick,$address,$channel,$dbh);
}
-
- }
- if ($self->parseCommand($msg,$irc,$nick,$address,$channel,$dbh)){
+ }elsif ($self->parseCommand($msg,$irc,$nick,$address,$channel,$dbh)){
#Command parsed and run successfully
+ }elsif($self->disp->has_command('teachbot',$channel)){
+ $msg =~ s/^\S+:\s*//;
+ $self->hal->learn($msg);
}
};
JOIN fleets f USING (fid)
JOIN fleet_ships fs USING (fid)
JOIN defense_missions dm ON f.fid = dm.fleet
- JOIN ship_stats ss ON fs.ship = ss.name
+ JOIN ship_stats ss USING (ship)
WHERE NOT dm.announced
GROUP BY username,call,tick,dm.fleet,p.value
});