Mercurial > hg > skillbot

comparison skillbot.pl @ 26:bb1f7ab990b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adding an optional argument to !eta for a character name
author Dominic Cleal <dominic@computerkb.co.uk>
date Sat, 06 Dec 2008 23:09:56 +0000
parents 1d57373d1c04
children 708653f624f3
comparison
equal deleted inserted replaced
25:1d57373d1c04 26:bb1f7ab990b1
223 sub on_public 223 sub on_public
224 { 224 {
225 my ($self, $event) = @_; 225 my ($self, $event) = @_;
226 my ($their_nick, $msg) = ($event->nick, $event->args); 226 my ($their_nick, $msg) = ($event->nick, $event->args);
227 227
228 if ($msg =~ /^\!eta/i) { 228 if ($msg =~ /^\!eta(\s+(.+))?/i) {
229 my $found = 0; 229 my $found = 0;
230 for my $f (@friends) { 230 for my $f (@friends) {
231 if ($f->{nick} eq $their_nick) { 231 if ((defined $2 && $f->{char}->name eq $2)
232 || (!defined $2 && $f->{nick} eq $their_nick)) {
232 my $text = (defined $f->{skill} 233 my $text = (defined $f->{skill}
233 ? sprintf("Currently training %s (finish in %s)", 234 ? sprintf("Currently training %s (finish in %s)",
234 $f->{skill}->name, 235 $f->{skill}->name,
235 $f->{skill}->time_remaining) 236 $f->{skill}->time_remaining)
236 : "No skill currently training"); 237 : "No skill currently training");