changeset 1:56f9cf24af44

Improve lolling
author Jordi Gutiérrez Hermoso <jordigh@gmail.com>
date Mon, 10 Aug 2009 13:00:44 -0500
parents 25377c6b6550
children
files teh-lol.pl
diffstat 1 files changed, 0 insertions(+), 33 deletions(-) [+]
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;
-}