imported>LulzKiller at 10:19, 13 July 2015

2015-07-13T10:19:34Z

← Older revision		Revision as of 10:19, 13 July 2015
Line 1:		Line 1:
			{{subpage\|Irssi}}
	<pre>		<pre>
	#!/usr/bin/perl		#!/usr/bin/perl

imported>Finney: category plz

2012-12-18T13:25:53Z

category plz

← Older revision		Revision as of 13:25, 18 December 2012
(No difference)

imported>Finney: category plz

2012-12-18T13:25:53Z

category plz

← Older revision		Revision as of 13:25, 18 December 2012
(No difference)

imported>Finney: category plz

2012-12-18T13:25:53Z

category plz

← Older revision		Revision as of 13:25, 18 December 2012
(No difference)

imported>Finney: category plz

2012-12-18T13:25:53Z

category plz

← Older revision		Revision as of 13:25, 18 December 2012
Line 84:		Line 84:
	Irssi::command_bind('blocks', 'blocks');		Irssi::command_bind('blocks', 'blocks');
	</pre>		</pre>
	[[category: ~~irc~~]]		[[category: IRC]]

imported>Karbraxis at 06:41, 18 December 2012

2012-12-18T06:41:14Z

← Older revision		Revision as of 06:41, 18 December 2012
Line 84:		Line 84:
	Irssi::command_bind('blocks', 'blocks');		Irssi::command_bind('blocks', 'blocks');
	</pre>		</pre>
			[[category: irc]]

imported>Meepsheep: Created page with "

 #!/usr/bin/perl use strict; use Irssi; use vars qw($VERSION %IRSSI);  my $VERSION = '2 :0'; %IRSSI = (   authors     => 'Meepsheep',   contact     => 'irc.maract.us #dongfo..."

2012-09-27T16:29:48Z

Created page with "<pre> #!/usr/bin/perl use strict; use Irssi; use vars qw($VERSION %IRSSI); my $VERSION = '2 :0'; %IRSSI = ( authors => 'Meepsheep', contact => 'irc.maract.us #dongfo..."

New page

<pre>
#!/usr/bin/perl
use strict;
use Irssi;
use vars qw($VERSION %IRSSI);

my $VERSION = '2 :0';
%IRSSI = (
authors => 'Meepsheep',
contact => 'irc.maract.us #dongforce',
name => 'blocks',
description => 'penis pumps',
license => 'cocks',
);

sub blocks {
my ($data,$server,$witem) = @_;
my $shit = $data;
my $lotsamount = 50;

if ($shit =~ /-help/i) {
print CRAP "USAGE:";
print CRAP "/blocks";
print CRAP "-gay";
print CRAP "-rasta";
print CRAP "-usa";
print CRAP "-heil";
print CRAP "-random";
print CRAP "-lots";
}

unless ($shit =~ /^-/i) {
Irssi::Windowitem::command($witem,"say \003".int(rand(16)).",".int(rand(16))." $shit ");
}

if ($shit =~ /-gay/i) {
$shit =~ s/-gay //i;
Irssi::Windowitem::command($witem,"say \0030,5 $shit ");
Irssi::Windowitem::command($witem,"say \0030,7 $shit ");
Irssi::Windowitem::command($witem,"say \0030,8 $shit ");
Irssi::Windowitem::command($witem,"say \0030,3 $shit ");
Irssi::Windowitem::command($witem,"say \0030,2 $shit ");
Irssi::Windowitem::command($witem,"say \0030,6 $shit ");
}

if ($shit =~ /-rasta/i) {
$shit =~ s/-rasta //i;
Irssi::Windowitem::command($witem,"say \0030,9 $shit ");
Irssi::Windowitem::command($witem,"say \0030,8 $shit ");
Irssi::Windowitem::command($witem,"say \0030,5 $shit ");
}

if ($shit =~ /-usa/i) {
$shit =~ s/-usa //i;
Irssi::Windowitem::command($witem,"say \003,2 \0031,0 $shit ");
Irssi::Windowitem::command($witem,"say \003,2 \0031,5 $shit ");
Irssi::Windowitem::command($witem,"say \0031,0 $shit ");
Irssi::Windowitem::command($witem,"say \0031,5 $shit ");
Irssi::Windowitem::command($witem,"say \0031,0 $shit ");
}

if ($shit =~ /-heil/i) {
$shit =~ s/-heil //i;
Irssi::Windowitem::command($witem,"say \0034,1 $shit ");
Irssi::Windowitem::command($witem,"say \0038,4 $shit ");
Irssi::Windowitem::command($witem,"say \0031,8 $shit ");
}

if ($shit =~ /-random/i) {
$shit =~ s/-random //i;
for (my $nigs=1; $nigs<7; $nigs++) {
Irssi::Windowitem::command($witem,"say \003".int(rand(16)).",".int(rand(16))." $shit ");
} }

if ($shit =~ /-lots/i) {
$shit =~ s/-lots //i;
for (my $nigs=1; $nigs<$lotsamount+1; $nigs++) {
Irssi::Windowitem::command($witem,"say \003".int(rand(16)).",".int(rand(16))." $shit ");
} }

}

Irssi::command_bind('blocks', 'blocks');
</pre>

Irssi/scripts/blocks.pl - Revision history

imported>LulzKiller at 10:19, 13 July 2015

imported>Finney: category plz

imported>Finney: category plz

imported>Finney: category plz

imported>Finney: category plz

imported>Karbraxis at 06:41, 18 December 2012

imported>Meepsheep: Created page with "
#!/usr/bin/perl use strict; use Irssi; use vars qw($VERSION %IRSSI); my $VERSION = '2 :0'; %IRSSI = ( authors => 'Meepsheep', contact => 'irc.maract.us #dongfo..."