1use Irssi; 2use strict; 3use 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 14print "<--------[------------------------------]-------->"; 15print "<--------[ smiley-script v. $VERSION. ]-------->"; 16print "<--------[ /smiley to generate a smiley ]-------->"; 17print "<--------[------------------------------]-------->"; 18 19sub 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 43Irssi::command_bind('smiley', 'gen_smiley'); 44