Import scripts from scripts.irssi.org

1 files changed, 235 insertions, 0 deletions

diff --git a/scripts/pelix.pl b/scripts/pelix.pl
new file mode 100644
index 0000000..4e1125f
--- /dev/null
+++ b/scripts/pelix.pl
@@ -0,0 +1,235 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '0.3';
+%IRSSI = (
+	authors     => 'Mankeli',
+	contact     => 'mankeli@einari.org',
+	name        => '#pelix Helpers',
+	description => 'This script allows you flood shit.',
+	license     => 'GNU/GPL',
+);
+
+# INSTRUCTIONS:
+# /pelix [cmd] [length]
+#
+# cmds are: wtf, biy0, sepi, jupe and veez
+# (sepi cmd is experimental and should be handled with extreme care)
+
+# VERSION HISTORY:
+# 0.1 		wtf
+# 0.1.5		biy0
+# 0.1.6		sepi
+# 0.2		jupe
+# 0.3		veez
+
+# biy0 script ripped from palomies mirc-script copyright(c) 2003 veezay/palomies.com(r) all rights reserved, used with permission.
+
+sub pelix_biyo
+{
+	my ($pituus) = @_;
+	my $temppi;
+	my $koht;
+	my $tod;
+	my $eka;
+	my $wanha;
+
+	$tod = int(rand(2));
+	if ($tod eq 0)
+	{
+		$koht = int(rand(6));
+		if ($koht eq 0) { $temppi = ":"; }
+		if ($koht eq 1) { $temppi = "."; }
+		if ($koht eq 2) { $temppi = "D"; }
+		if ($koht eq 3) { $temppi = "d"; }
+		if ($koht eq 4) { $temppi = ";"; }
+		if ($koht eq 5) { $temppi = ","; }
+	}
+	else
+	{
+		$temppi = ":";
+	}
+	$wanha = -1;
+	for ($koht=0; $koht<$pituus; $koht++)
+	{
+		$eka = int(rand(10));
+		if (($eka == 0) && ($wanha != 0)) { $temppi.=":"; }
+		if (($eka == 1) && ($wanha != 1)) { $temppi.="."; }
+		if (($eka == 2) && ($wanha != 2)) { $temppi.="d"; }
+		if (($eka == 3) && ($wanha != 3)) { $temppi.=";"; }
+		if (($eka == 4) && ($wanha != 4)) { $temppi.=","; }
+		if (($eka == 5) && ($wanha != 5)) { $temppi.=":"; }
+		if (($eka > 5) && ($eka <= 7) && ($wanha != $eka)) { $temppi.="D"; }
+		if (($eka == 9) && ($eka != $wanha)) { $temppi.="_"; }
+	}
+	return ($temppi);
+}
+
+sub pelix_wtf
+{
+	my ($pituus) = @_;
+	my $temppi;
+	my $koht;
+	$temppi = "";
+#	srand();
+	for ($koht=0; $koht<$pituus; $koht++)
+	{
+		if (int(rand(2)) eq 0)
+		{
+			$temppi.=";D ";
+		}
+		else
+		{
+			$temppi.="? ";
+		}
+	}
+	return($temppi);
+}
+
+sub pelix_jupe
+{ 
+        my ($pituus) = @_;
+        my $temppi;
+        my $koht;
+	my $luku;
+        $temppi = "";
+#       srand();
+        for ($koht=0; $koht<$pituus; $koht++)
+        {
+		$luku = int(rand(7));
+                if ($luku < 3)
+                {
+                        $temppi.=":P";
+                }
+		elsif($luku == 3)
+		{
+			$temppi.=";PP;"
+		}
+                else
+                {
+                        $temppi.="?";
+                }
+
+		if (int(rand(4)) < 3)
+		{
+			$temppi.=" ";
+		}
+        }
+        return($temppi);
+}
+
+sub pelix_veez
+{
+	my ($pituus) = @_;
+	my $temppi;
+	my $koht;
+	$temppi = "";
+	for ($koht=0; $koht<$pituus; $koht++)
+	{
+		if (int(rand(2)) eq 0)
+		{
+			$temppi.=";";
+		}
+		else
+		{
+			$temppi.=")";
+		}
+	}
+	return($temppi);
+	
+}
+
+
+sub sepinsqd_smile
+{
+	my ($pituus) = @_;
+	my $temppi;
+	my $koht;
+	my $arvo;
+
+	$temppi = "";
+	for ($koht=0; $koht<$pituus; $koht++)
+	{
+		$arvo = int(rand(4));
+		if($arvo eq 0)
+		{
+			$temppi.="A";
+		}
+		elsif($arvo eq 1)
+		{
+			$temppi.="Å";
+		}
+		else
+		{
+			$temppi.=";";
+		}
+	}
+	return($temppi);
+}
+
+sub pelix
+{
+	my @teksti;
+#     @version = $finger =~ /:\s*(\S+)\s*$/gm;
+	my ($data, $server, $witem) = @_;
+	my @arg = split(/ +/, $data);
+	my $tpit;
+	
+	$tpit = @arg[1];
+	
+
+	if (@arg[0] eq "biy0")
+	{
+		@teksti = pelix_biyo($tpit);
+	}
+	elsif (@arg[0] eq "wtf")
+	{
+		@teksti = pelix_wtf($tpit);
+	}
+	elsif (@arg[0] eq "jupe")
+	{
+		@teksti = pelix_jupe($tpit);
+	}
+	elsif (@arg[0] eq "veez")
+	{
+		@teksti = pelix_veez($tpit);
+	}
+	elsif (@arg[0] eq "sepi")
+	{
+		@teksti = sepinsqd_smile($tpit);
+	}
+	elsif (@arg[0] eq "")
+	{
+		Irssi::print("no ÄgZön specified.");
+		return;
+	}
+	else
+	{
+		Irssi::print("No such ÄgZön as @arg[0].");
+		return;
+	}
+      
+	if (!$server || !$server->{connected})
+	{
+		Irssi::print("Not connected to server");
+		return;	
+	}
+	
+	if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY"))
+	{
+		$witem->command("MSG ".$witem->{name}." @teksti");
+	}
+		else
+	{
+		Irssi::print("No active channel/query in window");
+	}
+}
+
+sub pelix_help
+{
+	Irssi::print("Usage: runQ");
+}
+
+Irssi::command_bind('pelix', 'pelix');
+Irssi::command_bind('help pelix','pelix_help');