Update README.md

README.md

@@ -3,3 +3,5 @@
 Script for Irssi.
 
 Functions for Xenia, my IRC bot on irc.newnet.net
+
+At some point i plan port it to Limnoria or Eggdrop.

xenia.pl

@@ -1,7 +1,7 @@
 #!/usr/bin/perl use strict;
 use vars qw($VERSION %IRSSI);
-
 use Irssi;
+
 $VERSION = '1.00';
 %IRSSI = (
   authors     => 'Sunblade',
@@ -15,22 +15,22 @@ sub event_privmsg {
   # $data = "nick/#channel :text"
   my ($server, $data, $nick, $address) = @_;
   my ($target, $text) = split(/ :/, $data, 2);
-  if ($target == '#Enigma') {
-  if ($text eq '!try') {
+  if (lc($target) eq '#enigma') {
+  if (lc($text) eq '!try') {
     try($nick, $target, $data, $server, $text);
   }
  }
 }
 
 sub try {
-my ($nick, $target, $data, $server, $text) = @_; 
-my $tr = int(rand(1000000));
-if ($tr != 738056) {
-       $server->command("MSG $target $nick you have failed to find the awarded ticket - r: $tr");
+  my ($nick, $target, $data, $server, $text) = @_; 
+  my $tr = int(rand(1000000));
+  if ($tr != 738056) {
+       $server->command("MSG $target $nick you have failed to find the awarded ticket - Found: #$tr");
 }
 else {
-       $server->command("MSG $target $nick you have FOUND the awarded ticket...UNBELIEVABLE!");
-}
+       $server->command("MSG $target $nick you have FOUND the awarded ticket #$tr ... UNBELIEVABLE!");
+  }
 # Irssi::print("Debug: $target $nick - $data / $server / $text");
 }