Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
161 lines (136 sloc) 3.96 KB
use Irssi;
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '0.0.3';
%IRSSI = (
authors => 'Koenraad Heijlen',
contact => 'vipie@ulyssis.org',
commands => 'ws',
name => 'word_scramble',
description => 'A script that scrambles all the letters in a word except the first and last.',
license => 'GNU GPL version 2',
url => 'http://vipie.studentenweb.org/dev/irssi/wordscramble',
changed => '2018-05-11'
);
#--------------------------------------------------------------------
# Changelog
#--------------------------------------------------------------------
#
# word_scramble.pl 0.0.3 (2018-05-11)- bw1
# - fixed the help bug
#
# word_scramble.pl 0.0.2 (2003-09-17)- Koenraad Heijlen
# - fixed the four letter word bug
# - fixed the non alphanummeric characters bug
# - some improvement in returning \n
#
# word_scramble.pl 0.0.1 (2003-09-15) - Koenraad Heijlen
# - first draft
#
#--------------------------------------------------------------------
#--------------------------------------------------------------------
# Public Variables
#--------------------------------------------------------------------
my %myHELP = ();
#--------------------------------------------------------------------
# Help function
#--------------------------------------------------------------------
sub cmd_help {
my ($about) = @_;
%myHELP = (
ws =>
"%9ws - wordscramble%9
/ws <text>
scrambles the text you type,
and outputs it in the current (active) channel
or query.
",
);
if ( $about =~ /(ws)/i ) {
Irssi::print($myHELP{ws},MSGLEVEL_CLIENTCRAP);
Irssi::signal_stop;
}
}
#--------------------------------------------------------------------
# scrambles one word
#--------------------------------------------------------------------
sub scrambleWord {
# 0 : first
# length : last-1
# length+1 : last
#substr EXPR,OFFSET,LENGTH,REPLACEMENT
my $l = 0;
my $r = 0;
my $out = "";
my $word = shift;
chomp($word);
if (length($word) <= 3) {
return $word;
}
my $l = length($word)-2;
$l = $l;
$out = substr($word,0,1);
while ($l != 1) {
$r = int(rand()*$l+1);
if ($r == 0) {
next;
}
#$r == $l is no marginalcase.
$out .= substr($word,$r,1);
substr($word,$r,1,substr($word,$l,1));
$l--;
}
$out .= substr($word,$l,1);
$out .= substr($word,length($word)-1,1);
return $out;
}
#--------------------------------------------------------------------
# scrambles line
#--------------------------------------------------------------------
sub scrambleLine{
my $line = shift;
my $outline = "";
my $word = "";
my $i=0;
my @splitLine;
#we leave the \n at the end, less interference.
#chomp($line);
@splitLine=split(/(\W)/,$line);
# every other item in the array is the split string
for ($i=0; $i<= $#splitLine;$i++) {
$outline .= scrambleWord($splitLine[$i]);
$i++;
if ($i <= $#splitLine) {
$outline .= $splitLine[$i];
}
}
return $outline;
}
#--------------------------------------------------------------------
# Defintion of /ws
#--------------------------------------------------------------------
sub cmd_ws {
my ($args, $server, $witem) = @_;
if (!$server || !$server->{connected}) {
Irssi::print("Not connected to server");
return;
}
my $scrambledLine = scrambleLine($args);
if ($witem && ($witem->{type} eq "CHANNEL" ||
$witem->{type} eq "QUERY")) {
# there's query/channel active in window
$witem->command("MSG ".$witem->{name}." $scrambledLine");
} else {
Irssi::print("Nick not given, and no active channel/query in window");
}
}
#--------------------------------------------------------------------
# Irssi::Settings / Irssi::command_bind
#--------------------------------------------------------------------
Irssi::command_bind("ws", "cmd_ws", "Scramble Line");
Irssi::command_bind("help","cmd_help", "Irssi commands");
#--------------------------------------------------------------------
# This text is printed at Load time.
#--------------------------------------------------------------------
#nothing
#- end