Mercurial > hg > scripts
diff teh-lol.pl @ 1:56f9cf24af44
Improve lolling
author | Jordi Gutiérrez Hermoso <jordigh@gmail.com> |
---|---|
date | Mon, 10 Aug 2009 13:00:44 -0500 |
parents | 25377c6b6550 |
children |
line wrap: on
line diff
--- a/teh-lol.pl +++ b/teh-lol.pl @@ -1,33 +0,0 @@ -#Copyright © 2009 Jordi Gutiérrez Hermoso -# -#teh-lol.pl is free software: you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation, either version 3 of the License, or -#(at your option) any later version. -# -#This program is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with this program. If not, see <http://www.gnu.org/licenses/>. - -Xchat::register('teh lol', '0.1.2', 'lols back'); - -Xchat::hook_print('Channel Message', \&check_lol); - -my %timestamp; - -sub check_lol { - my $chan = Xchat::get_info("channel"); - - if ($_[0][1] =~ /\b(lo+l)\b/i) { - - Xchat::command("say $1") if (time - $timestamp{$chan} > 60 or - undef $timestamp{$chan} - ); - $timestamp{$chan} = time; - } - return Xchat::EAT_NONE; -}