html/smiley.pl

• package main
  • gen_smiley
• EOF

   1 use Irssi;
   2 use strict;
   3 use vars qw($VERSION %IRSSI);
   4 $VERSION = '0.69';
   5 
   6 %IRSSI = (
   7 	authors		=> 'Jonne Piittinen',
   8 	contact		=> 'jip@loota.org',
   9 	name		=> 'Smiley',
  10 	description	=> 'Very useful smiley-flooder',
  11 	license		=> 'Public Domain',
  12 );
  13 
  14 print "<--------[------------------------------]-------->";
  15 print "<--------[    smiley-script v. $VERSION.    ]-------->";
  16 print "<--------[ /smiley to generate a smiley ]-------->";
  17 print "<--------[------------------------------]-------->";
  18 
  19 sub gen_smiley {
  20 
  21 	my ($data, $server, $witem) = @_;
  22 	my @smilies;
  23 	my $string;
  24 	my $i;
  25 
  26 	@smilies = (':)',':D',';D',':P',':>','=D','=)',':E',':]');
  27 
  28 	for ($i = 0; $i < 100; $i++) {
  29 		if (rand(4) > 2 && $i > 0 && $string !~ / $/) {
  30 			$string .= " ";
  31 		} else {
  32 			$string .= @smilies[rand($#smilies-1)];
  33 		}
  34 	}
  35 	
  36 	if ($witem) {
  37 		$witem->command("MSG ".$witem->{name}." ".$string);
  38 	} else {
  39 		Irssi::print("No active channel or query in this window.");
  40 	}
  41 }
  42 
  43 Irssi::command_bind('smiley', 'gen_smiley');