diff options
-rw-r--r-- | Plugin/Jinx.pm | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/Plugin/Jinx.pm b/Plugin/Jinx.pm new file mode 100644 index 0000000..12f1dce --- /dev/null +++ b/Plugin/Jinx.pm @@ -0,0 +1,38 @@ +package Plugin::Jinx; + +# Makes idalius join in on streaks of a person/some people saying the same +# thing more than once in a row + +use strict; +use warnings; + +# Last message we responded to with a jinx +my $last_response = undef; + +# Last message said on the channel +my $last = undef; +my %config; + +sub configure { + my $self = $_[0]; + my $cmdref = $_[1]; + my $cref = $_[2]; + %config = %$cref; + return $self; +} + +sub message { + my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; + + return if defined $last_response and $what eq $last_response; + + if (defined $last and $last eq $what ) { + $last_response = $last; + return $last; + } + + $last = $what; + $last_response = undef; + return; +} +1; |