diff options
Diffstat (limited to 'scripts/pelix.pl')
| -rw-r--r-- | scripts/pelix.pl | 235 |
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'); |