changeset 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
files skillbot.pl
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/skillbot.pl	Sat Dec 06 22:54:58 2008 +0000
+++ b/skillbot.pl	Sat Dec 06 23:09:56 2008 +0000
@@ -225,10 +225,11 @@
 	my ($self, $event) = @_;
 	my ($their_nick, $msg) = ($event->nick, $event->args);
 
-	if ($msg =~ /^\!eta/i) {
+	if ($msg =~ /^\!eta(\s+(.+))?/i) {
 		my $found = 0;
 		for my $f (@friends) {
-			if ($f->{nick} eq $their_nick) {
+			if ((defined $2 && $f->{char}->name eq $2)
+					|| (!defined $2 && $f->{nick} eq $their_nick)) {
 				my $text = (defined $f->{skill}
 						? sprintf("Currently training %s (finish in %s)",
 								  $f->{skill}->name,