diff --git a/PlayBot.pl b/PlayBot.pl index 804a604e97aa7b4c58d8ad150153dfd44165f68c..23ab7090028548d93e5d4910ccf7aa49b56be1b4 100755 --- a/PlayBot.pl +++ b/PlayBot.pl @@ -302,13 +302,12 @@ sub on_speak return; } - elsif ($msg =~ /^!later( ([0-9]*)( in ([0-9]*)(h|m|s)?)?)?/) { - my ($id, $time, $unit) = ($2, $4, $5); + elsif ($msg =~ /^!later(?: ([0-9]+))?(?: in ([0-9]*)?(h|m|s)?)?/) { + my ($id, $time, $unit) = ($1, $2, $3); $id = $lastID if (!$id); $time = 6 if (!$time); $time *= ($unit eq 's') ? 1 : ($unit eq 'm') ? 60 : 3600; - print "$time eq\n"; $kernel->delay_set('_later', $time, $nick, $id); return;