SHARE
TWEET

Untitled

a guest Aug 12th, 2017 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. use vars qw($VERSION %IRSSI);
  2.  
  3. use Irssi qw(signal_add);
  4. $VERSION = '1.00';
  5. %IRSSI = (
  6.     authors     => 'xochipilli',
  7.     name        => 'stfugreyaht',
  8.     description => 'Tells Greyhat to STFU',
  9.     );
  10.  
  11. Irssi::signal_add('event privmsg', 'stfu');
  12.  
  13. my @resp = ("stfu nigger",
  14.             "i dont have to take that from a fucking nigger",
  15.             "niggers. must .hang",
  16.             "YEAH BUT I HAVE MORE WEALTH AND POWER",
  17.             "I BANGED OYUR KICKBOXING GIRLFRIEND",
  18.             "at least im not a nigger",
  19.             "MY KICKBOXING GIRLFRIEND HAS MORE WEALTH AND POWER",
  20.             "yeah but youre a nigger",
  21.             "stfu",
  22.             "be quiet",
  23.             "gtfo nigger",
  24.             "no niggers allowed",
  25.             "who let u out of the zoo?");
  26.  
  27. sub stfu
  28. {
  29.     my ($server, $channel, $nick, $address) = @_;
  30.  
  31.     my $i = rand($#resp);
  32.     $server->command("/^msg -$server->{tag} $channel $nick: $resp[$i]") if $nick =~ /^Greyhat/;
  33. }
RAW Paste Data
Pastebin PRO Autumn Special!
Get 40% OFF on Pastebin PRO accounts!
Top