Mercurial > hg > scripts

annotate teh-lol.pl @ 17:8a1f549776fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove debug code
author Jordi Gutiérrez Hermoso <jordigh@gmail.com>
date Sun, 30 Jan 2011 16:35:52 -0600
parents 895bcfde1df4
children acd4783e6bd1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
1 #Copyright © 2009 - 2011 Jordi Gutiérrez Hermoso <jordigh@gmail.com>
0
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
2 #
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
3 #teh-lol.pl is free software: you can redistribute it and/or modify
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
4 #it under the terms of the GNU General Public License as published by
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
5 #the Free Software Foundation, either version 3 of the License, or
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
6 #(at your option) any later version.
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
7 #
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
8 #This program is distributed in the hope that it will be useful,
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
9 #but WITHOUT ANY WARRANTY; without even the implied warranty of
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
10 #MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
11 #GNU General Public License for more details.
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
12 #
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
13 #You should have received a copy of the GNU General Public License
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
14 #along with this program. If not, see <http://www.gnu.org/licenses/>.
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
15
6
6999ba7bf22b Don't relol while idling (2 minutes of not participating in discussion)
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 5
diff changeset
16 use strict;
6999ba7bf22b Don't relol while idling (2 minutes of not participating in discussion)
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 5
diff changeset
17
3
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
18 Xchat::register('teh lol', '0.1.3', 'lols back');
0
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
19
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
20 #Check if it's time to relol
0
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
21 Xchat::hook_print('Channel Message', \&check_lol);
9
037012a17457 An attempt to reset timestamps when manually lolling and change sleep with Xchat::hook_timer
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 8
diff changeset
22 Xchat::hook_print('Your Message', \&update_tstamp);
0
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
23
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
24 #Report lol combos
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
25 Xchat::hook_print('Channel Message', \&check_combo);
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
26 Xchat::hook_print('Your Message', \&check_combo);
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
27
0
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
28 my %timestamp;
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
29
9
037012a17457 An attempt to reset timestamps when manually lolling and change sleep with Xchat::hook_timer
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 8
diff changeset
30 sub update_tstamp{
10
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
31 if( $_[0][1] eq "lol" ){
9
037012a17457 An attempt to reset timestamps when manually lolling and change sleep with Xchat::hook_timer
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 8
diff changeset
32 my $chan = Xchat::get_info("channel");
037012a17457 An attempt to reset timestamps when manually lolling and change sleep with Xchat::hook_timer
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 8
diff changeset
33 $timestamp{$chan} = time;
037012a17457 An attempt to reset timestamps when manually lolling and change sleep with Xchat::hook_timer
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 8
diff changeset
34 }
037012a17457 An attempt to reset timestamps when manually lolling and change sleep with Xchat::hook_timer
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 8
diff changeset
35 return Xchat::EAT_NONE;
037012a17457 An attempt to reset timestamps when manually lolling and change sleep with Xchat::hook_timer
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 8
diff changeset
36 }
037012a17457 An attempt to reset timestamps when manually lolling and change sleep with Xchat::hook_timer
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 8
diff changeset
37
0
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
38 sub check_lol {
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
39 my $chan = Xchat::get_info("channel");
6
6999ba7bf22b Don't relol while idling (2 minutes of not participating in discussion)
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 5
diff changeset
40 my $timesince_lasttalk = time - Xchat::user_info -> {'lasttalk'};
0
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
41
11
2f298f94a096 Improve long lols, now "lolol" is supported.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 10
diff changeset
42 if ($_[0][1] =~ /\b(l((o|(?<!l)lo)+)l)\b/i #Match stuff like "lol",
2f298f94a096 Improve long lols, now "lolol" is supported.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 10
diff changeset
43 #"loool" and "lololol"
2f298f94a096 Improve long lols, now "lolol" is supported.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 10
diff changeset
44 and $timesince_lasttalk < 120) { #Two minutes of not saying
2f298f94a096 Improve long lols, now "lolol" is supported.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 10
diff changeset
45 #anything in the channel
2f298f94a096 Improve long lols, now "lolol" is supported.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 10
diff changeset
46 #counts as idling, so don't
2f298f94a096 Improve long lols, now "lolol" is supported.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 10
diff changeset
47 #pester when idling.
0
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
48
3
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
49 my $lol = $1;
11
2f298f94a096 Improve long lols, now "lolol" is supported.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 10
diff changeset
50 my $midlol = $2;
3
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
51 my $relol;
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
52
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
53 #Mimic long lols
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
54 if (length $lol > 3 ) {
11
2f298f94a096 Improve long lols, now "lolol" is supported.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 10
diff changeset
55 my $repeat_mid = int rand(3)+1;
2f298f94a096 Improve long lols, now "lolol" is supported.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 10
diff changeset
56 $relol = "l".($midlol x $repeat_mid)."l";
3
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
57 }
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
58 else {
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
59 $relol = "lol";
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
60 }
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
61
6
6999ba7bf22b Don't relol while idling (2 minutes of not participating in discussion)
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 5
diff changeset
62
8
2b8b0412096a Never lol more than once every 30 minutes.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 7
diff changeset
63 #Don't lol more than once in 30 minutes.
2b8b0412096a Never lol more than once every 30 minutes.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 7
diff changeset
64 if ( time - $timestamp{$chan} > 1800 or
13
a03d337b1457 Fix bug regarding checking for first lol
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 12
diff changeset
65 not defined $timestamp{$chan}
3
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
66 ) {
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
67
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
68 #Delay the response a little, for maximum annoyance.
5
8f209cd0a7b6 Delay according to theoros's algorithm
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 4
diff changeset
69 #( theoros's algorithm from #not-math )
10
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
70 my $delay = 1.8;
5
8f209cd0a7b6 Delay according to theoros's algorithm
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 4
diff changeset
71 if (length($relol) > 3){
8f209cd0a7b6 Delay according to theoros's algorithm
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 4
diff changeset
72 $delay += ((length $relol) - 3 + rand(5)) * 0.069;
8f209cd0a7b6 Delay according to theoros's algorithm
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 4
diff changeset
73 }
8f209cd0a7b6 Delay according to theoros's algorithm
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 4
diff changeset
74
10
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
75 #Convert to milliseconds.
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
76 $delay *= 1e3;
7
65035a108782 Fix the call to usleep
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 6
diff changeset
77
10
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
78 Xchat::hook_timer($delay,
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
79 sub {
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
80 Xchat::command("say $relol");
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
81 return Xchat::REMOVE;
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
82 }
c1bbeff37875 Bugfixes to last commit
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 9
diff changeset
83 );
3
6c34daa0afb0 Mimic lolling more subtly, delay lol reply
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 2
diff changeset
84 }
0
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
85 $timestamp{$chan} = time;
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
86 }
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
87 return Xchat::EAT_NONE;
25377c6b6550 Per-channel timestamps
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
diff changeset
88 }
14
e9348ac85d5c Add more lols. (Closes #1)
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 13
diff changeset
89
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
90 my $prev_msg = "";
16
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
91 my %combo_count;
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
92 my %prev_loller;
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
93
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
94 sub check_combo {
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
95 my $chan = Xchat::get_info("channel");
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
96 my $msg = $_[0][1];
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
97 my $islol = $msg =~ /^\s*l((o|(?<!l)lo)+)l/i;
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
98 if(not $islol) {
16
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
99 my $combo = $combo_count{$chan};
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
100
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
101 # We have a combo to report!
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
102 if($combo > 2) {
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
103 my $qualifier;
16
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
104 if($combo == 3) {
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
105 $qualifier = "Good";
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
106 }
16
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
107 elsif ($combo > 3 and $combo < 5) {
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
108 $qualifier = "Great";
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
109 }
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
110 else{
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
111 $qualifier = "Marvelous";
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
112 }
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
113 my $report = "$combo-lol combo! $qualifier!";
16
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
114
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
115 my $delay = (rand(3) + 1)*1e3;
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
116 Xchat::hook_timer($delay,
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
117 sub {
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
118 Xchat::command("say $report");
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
119 return Xchat::REMOVE;
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
120 }
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
121 );
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
122 }
16
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
123
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
124 $combo_count{$chan} = 0;
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
125 $prev_loller{$chan} = "";
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
126 }
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
127 else {
16
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
128 my $loller = $_[0][0];
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
129 if( not $loller eq $prev_loller{$chan}) {
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
130 $combo_count{$chan}++;
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
131 $prev_loller{$chan} = $loller;
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
132 }
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
133 }
16
895bcfde1df4 Fix bugs, ensure a single person can't combo
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 15
diff changeset
134
15
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
135 return Xchat::EAT_NONE;
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
136 }
0d8587643fc6 Initial lolcombo implementation
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 14
diff changeset
137
14
e9348ac85d5c Add more lols. (Closes #1)
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 13
diff changeset
138 # lolololol
e9348ac85d5c Add more lols. (Closes #1)
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 13
diff changeset
139 # lol
e9348ac85d5c Add more lols. (Closes #1)
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 13
diff changeset
140 # loooooooool