# HG changeset patch # User Jordi Gutiérrez Hermoso # Date 1249927244 18000 # Node ID 56f9cf24af44947b1584135a0ac1bd8c9f25a7d4 # Parent 25377c6b6550e84dbf0faf806773e5046f9fba5e Improve lolling diff --git a/teh-lol.pl b/teh-lol.pl --- 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 . - -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; -}