; additional window script for mnet technology
; Copyright (C) 2004 Nils Mause
;
; This program is free software; you can redistribute it and/or
; modify it under the terms of the GNU General Public License
; as published by the Free Software Foundation; either version 2
; of the License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA


; changelog
;
; 2004-10-21
; the script is released as GPL
;
; 2004-10-22
; using regex instead of ?? (better "finetuning"
;
; 2004-10-24
; no self repeating messages, f.ex. if one is colored or bold and the other is "normal"
; 2007-09-08
; update by biomass to adjust script for the QW ServeMe bot

; --------------------------------------------------------------- --- -- -
; | Author: Calis
; | Version: 1.02
; | IRC: #quadaver #messagenet (Quakenet)
; | e-mail: calis@quadaver.net
; | any feedback is appreciated
; | replace the -spam- with the part your bot always sends out (1)
; | or add new parts with (xxx isin $1-) at (1) but don't forget the || , they mean or
; --------------------------------------------------------------- --- -- -


on ^*:TEXT:*:#: {
if (( $regex( $nick, \[ServeMe\][0-9][0-9] ) == 1 )) {
if ((-spam- isin $1-) || (-qw- isin $1-)) {
set %c_mnet.msg.1 $strip( $1- , buc )
if ( $strip( %c_mnet.msg.1 , buc ) != $strip( %c_mnet.msg.2 , buc ) ) {
WINDOW @ServeMe
ECHO @ServeMe $timestamp $network $1-
/servememsgvar
halt
}
elseif ( $strip( %c_mnet.msg.1 , buc ) == $strip( %c_mnet.msg.2 , buc ) ) {
halt
}
}
}
}

ALIAS servememsgvar {
set %c_mnet.msg.2 $strip( %c_mnet.msg.1 , buc )
}

on *:EXIT: {
unset %c_mnet.*
}

use Irssi ;
$VERSION = "0.1";
%IRSSI = (
authors => 'Jogihoogi',
contact => 'jogihoogi[at]gmx.net',
name => 'surfme',
description => 'moves the servme output to a single window',
license => 'GNU GPLv2 or later',
);

use strict;

sub servme_rd {
my $aliases = Irssi::settings_get_str("servme_alias";
my ($server, $text, $nick, $address, $channel) = @_;
my $window;
if ( $nick =~ /^$aliases/ ){
Irssi::signal_stop();
$window = Irssi::window_find_name('servme');
if ($window){
$window->print($text);
}

}

}

my $window = Irssi::window_find_name('servme');
Irssi::print("create a window servme"if(!$window);

Irssi::signal_add_last("message public", "servme_rd";
Irssi::settings_add_str('servmeredirect','servme_alias','\[ServeMe]\d\d');

use Irssi ;
$VERSION = "0.2";
%IRSSI = (
authors => 'Jogihoogi',
contact => 'jogihoogi[at]gmx.net',
name => 'surfme',
description => 'moves the servme output to a single window',
license => 'GNU GPLv2 or later',
);

use strict;
my $lasttext;
sub servme_rd {
my $aliases = Irssi::settings_get_str("servme_alias";
my ($server, $text, $nick, $address, $channel) = @_;
my $window;
if ( $nick =~ /^$aliases/ ){
Irssi::signal_stop();
$window = Irssi::window_find_name('servme');
if ($window){
if ($lasttext ne $text){
$window->print($text);
$lasttext = $text;
}
}

}

}

my $window = Irssi::window_find_name('servme');
Irssi::print("create a window servme"if(!$window);

Irssi::signal_add_last("message public", "servme_rd";
Irssi::settings_add_str('servmeredirect','servme_alias','\[ServeMe]\d\d');

use Irssi ;
$VERSION = "0.3";
%IRSSI = (
authors => 'Jogihoogi',
contact => 'jogihoogi[at]gmx.net',
name => 'servme',
description => 'moves the serveme bot output to a single window',
license => 'GNU GPLv2 or later',
);

use strict;


my $serveme_window_name = "serveme";
my $serveme_prefix = "msg: ";
my $serveme_highlight_prefix = "msg!: ";


my $lasttext;
sub serveme_rd {
my $aliases = Irssi::settings_get_str("serveme_alias";
my ($server, $text, $nick, $address, $channel) = @_;
my $window;
my $window_name;
my $my_nick;
if ( $nick =~ m/$aliases/ )
{
Irssi::signal_stop();
$window_name = Irssi::settings_get_str("serveme_window";
$window = Irssi::window_find_name($window_name);
if ($window)
{
$my_nick = Irssi::settings_get_str("nick";
$text =~ s/\cc[0-9]{1,2}(,[0-9]{1,2})?//g;
$text =~ s/\cb//g;
$text =~ s/\cf//g;
$text =~ s/\c_//g;
if ($lasttext ne $text)
{
if ( $text =~ /$my_nick/)
{
$window->print(Irssi::settings_get_str("serveme_highlight_prefix". $text, MSGLEVEL_CLIENTCRAP);
}
else
{
$window->print(Irssi::settings_get_str("serveme_prefix" . $text, MSGLEVEL_CLIENTCRAP);
}
$lasttext = $text;
}
}

}

}

Irssi::signal_add_last("message public", "serveme_rd";
Irssi::settings_add_str('servemeredirect','serveme_alias','\[ServeMe\]\d\d');
Irssi::settings_add_str('servemeredirect','serveme_window',$serveme_window_name);
Irssi::settings_add_str('servemeredirect','serveme_highlight_prefix', $serveme_highlight_prefix);
Irssi::settings_add_str('servemeredirect','serveme_prefix', $serveme_prefix);

my $window = Irssi::window_find_name('serveme');
my $oldwin = Irssi::active_win();
if (!$window)
{
Irssi::print("creating servme window";
$window = Irssi::Windowitem->window_create($serveme_window_name);
$oldwin->set_active();
}