diff options
Diffstat (limited to 'scripts/wordscramble.pl')
| -rw-r--r-- | scripts/wordscramble.pl | 160 |
1 files changed, 160 insertions, 0 deletions
diff --git a/scripts/wordscramble.pl b/scripts/wordscramble.pl new file mode 100644 index 0000000..a05cab3 --- /dev/null +++ b/scripts/wordscramble.pl @@ -0,0 +1,160 @@ +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 |