diff options
Diffstat (limited to 'scripts/hl.pl')
| -rw-r--r-- | scripts/hl.pl | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/scripts/hl.pl b/scripts/hl.pl new file mode 100644 index 0000000..7fd898d --- /dev/null +++ b/scripts/hl.pl @@ -0,0 +1,53 @@ +# CopyLeft Riku Voipio 2001 +# half-life bot script +use strict; +use Irssi; +use Irssi::Irc; +use vars qw($VERSION %IRSSI); + +# header begins here + +$VERSION = "1.2"; +%IRSSI = ( + authors => "Riku Voipio", + contact => "riku.voipio\@iki.fi", + name => "half-life", + description => "responds to \"!hl counterstrike.server \" command on channels/msg's to query counter-strike servers", + license => "GPLv2", + url => "http://nchip.ukkosenjyly.mine.nu/irssiscripts/", + ); + + +my $qdir="/home/nchip/qstat/"; + +sub cmd_hl { + my ($server, $data, $nick, $mask, $target) =@_; + if ($data=~/^!hl/){ + my @foo=split(/\s+/,$data); + my $len=@foo; + if ($len==1){ + $foo[1]="turpasauna.taikatech.com"; + } + #fixme, haxxor protection + my $word=$foo[1]; + $_=$word; + $word=~s/[^a-zA-ZäöÄÖ0-9\.]/ /g; + open(DAT, "-|", $qdir."qstat -hls $word"); + my $count=0; + foreach my $line (<DAT>) + { + if ($count==1) + { + $_=$line; + $line=~s/\s+/ /g; + #print($line); + $server->command("/notice ".$target." ".$line); + } + $count++; + } + close(DAT); + } +} + +Irssi::signal_add_last('message public', 'cmd_hl'); +Irssi::print("Half-life info bot by nchip loaded."); |