[wordscramble] fix help

diff --git a/scripts/wordscramble.pl b/scripts/wordscramble.pl
index 091ee28ce8eab6ea1b75949add4f6970e40a49f1..a05cab3cdf6d4185f733607a8289c3738c8e8d21 100644 (file)
--- a/scripts/wordscramble.pl
+++ b/scripts/wordscramble.pl
@@ -2,21 +2,25 @@ use Irssi;
 use strict;
 use vars qw($VERSION %IRSSI);
 
-$VERSION = '0.0.2';
+$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     => '2003-09-15'
+       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
@@ -40,17 +44,21 @@ sub cmd_help {
        my ($about) = @_;
 
        %myHELP = (
-               ws => "
-ws - wordscramble 
+               ws =>
+"%9ws - wordscramble%9
+
+  /ws <text>
 
-scrambles the text you type, and outputs it in the current (active) channel
+scrambles the text you type,
+and outputs it in the current (active) channel
 or query.
 ",
-);
+       );
 
-       if ( $about =~ /(ws)/i ) { 
-               Irssi::print($myHELP{$1});
-       } 
+       if ( $about =~ /(ws)/i ) {
+               Irssi::print($myHELP{ws},MSGLEVEL_CLIENTCRAP);
+               Irssi::signal_stop;
+       }
 }
 
 #--------------------------------------------------------------------