add ziew.pl script

diff --git a/scripts/ziew.pl b/scripts/ziew.pl
new file mode 100644 (file)
index 0000000..025bc36
--- /dev/null
+++ b/scripts/ziew.pl
@@ -0,0 +1,123 @@
+# /ziew ile
+# Grzegorz Jaskiewicz aka giejot 2004
+# credits to Smiechu for help
+
+use strict;
+use Irssi;
+use Irssi qw(command_bind command signal_add_last signal_stop settings_get_bool settings_add_bool);
+
+use vars qw($VERSION %IRSSI);
+
+%IRSSI = (
+        authors     => "Grzegorz Jaskiewicz",
+        contact     => "gj\@pointblue.com.pl",
+        name        => "ziew",
+        description => "yawners toy",
+        license     => "GPLv2",
+        url         => "http://gj.pointblue.com.pl/projects/ziew",
+    );
+
+$VERSION = "0.56";
+my $iscolor=0;
+
+#rozne wersje jezykowe ziewow
+
+my %ziew = (
+       "pl" => [ "zi", "e", "w" ],
+       "en" => [ "y", "a", "wn" ],
+       "jp" => [ "ak", "u", "bi" ],
+       "de" => [ "gä", "h", "nen" ],
+       "fr" => [ "bâil", "l", "er" ],
+);
+
+## stolen from rainbow.pl
+
+# colors list
+#  0 == white
+#  4 == light red
+#  8 == yellow
+#  9 == light green
+# 11 == light cyan
+# 12 == light blue
+# 13 == light magenta
+my @colors = ('0', '4', '8', '9', '11', '12', '13');
+
+# str make_colors($string)
+# returns random-coloured string
+sub make_colors {
+       my ($string) = @_;
+       my $newstr = "";
+       my $last = 255;
+       my $color = 0;
+
+       for (my $c = 0; $c < length($string); $c++) {
+               my $char = substr($string, $c, 1);
+               if ($char eq ' ') {
+                       $newstr .= $char;
+                       next;
+               }
+               while (($color = int(rand(scalar(@colors)))) == $last) {};
+               $color = int(rand(scalar(@colors)));
+               $last = $color;
+               $newstr .= "\003";
+               $newstr .= sprintf("%02d", $colors[$color]);
+               $newstr .= (($char eq ",") ? ",," : $char);
+       }
+
+       return $newstr;
+}
+
+sub ziewaj($$) {
+    my( $ilosc, $lang ) = @_;
+    
+    if (!$ziew{ $lang }->[0]) {
+       $lang="pl";     
+    }
+
+    return $ziew{$lang}->[0].($ziew{$lang}->[1]x$ilosc).$ziew{$lang}->[2]; 
+
+}
+
+sub cmd_yawn {
+       my $out;
+       my $i;
+       my $l;
+       my @args = split(/ +/, $_[0]);
+       ( $i, $l ) = @args;
+       
+       if ( $i <=0 ) {
+           Irssi::print("ziew.pl: parametrem musi byc dodatnia liczba", MSGLEVEL_CRAP);
+           return;
+       }
+               
+       $out = ziewaj( $i, $l );
+
+       if ( $iscolor) {
+           $out = make_colors( $out );
+       }
+                       
+       my $window = Irssi::active_win();
+       $window->command( "/say ".$out );
+}
+
+sub cmd_ryawn {
+       $iscolor=1;
+       cmd_yawn(@_);
+       $iscolor=0;
+}
+
+Irssi::command_bind('yawn', 'cmd_yawn');
+Irssi::command_bind('ryawn', 'cmd_ryawn');
+
+Irssi::print("--------------------------------------");
+Irssi::print("/yawn En [en|pl|jp|de|fr]");
+Irssi::print("En - ilosc  'e' w ziew");
+Irssi::print("");
+Irssi::print("/ryawn En [en|pl|jp|de|fr]");
+Irssi::print("En - ilosc  'e' w ziew, w kolorkach!");
+Irssi::print("");
+Irssi::print("drugi parametr to jezyk, narazie obsluguje en,jp,de,fr,pl");
+Irssi::print("pl jest domyslne");
+Irssi::print("");
+Irssi::print("wiecej opcji na gwiazdke w przyszlym roku ;)");
+Irssi::print("--------------------------------------");