skillbot: skillbot.pl comparison

Adding !eta handler to report current training status

author	Dominic Cleal <dominic@computerkb.co.uk>
date	Sat, 06 Dec 2008 22:54:12 +0000
parents	10587dbd634b
children	1d57373d1c04

comparison

equal deleted inserted replaced

-:40154257e632
+:7bcc70b2121a
 	$self->add_handler(376, \&on_connect);
 	$self->add_handler(433, \&on_nick_taken);
 	$self->add_handler('cversion', \&on_cversion);
 	$self->add_handler('cping', \&on_ping);
 	$self->add_handler('join', \&on_join);
+	$self->add_handler('public', \&on_public);
 }
 sub irc_debug
 {
 	my ($fmt, @args) = @_;
 	irc_debug("Disconnected from %s (%s). Attempting to reconnect...",
 		$event->from, ($event->args())[0]);
 	while (! $self->connect()) {
 		irc_debug("%s", $@);
+	}
+}
+sub on_public
+{
+	my ($self, $event) = @_;
+	my ($their_nick, $msg) = ($event->nick, $event->args);
+	if ($msg =~ /^\!eta/i) {
+		my $found = 0;
+		for my $f (@friends) {
+			if ($f->{nick} eq $their_nick) {
+				my $text = (defined $f->{skill}
+						? sprintf("Currently training %s (finish in %s)",
+								  $f->{skill}->name,
+								  $f->{skill}->time_remaining)
+						: "No skill currently training");
+				$self->privmsg('#' . $config{channel}, sprintf(
+							   chr(2) . "%s:" . chr(15) . " %s",
+							   $f->{char}->name, encode("utf8", $text)));
+				$found++;
+			}
+		}
+		if ($found == 0) {
+			$self->privmsg('#' . $config{channel}, "No characters found");
+		}
 	}
 }
 sub on_notice
 {

Mercurial > hg > skillbot