Mercurial > hg > skillbot
comparison skillbot.pl @ 26:bb1f7ab990b1
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"); |