on 1:LOAD:{
.echo mIRC serveme filter loaded
.window -a @serveme
.auser 11 *!*serveme??@*
.set %smc $?="Put you default serveme channel with the channel prefix (shift 3) here"
.set %qwcolor $?="Chose color for qw output 1-15 (mirc colors)"
.set %spamcolor $?="Chose color for spam output 1-15 (mirc colors)"
}
on 1:CONNECT:/window -a @serveme

on ^11:TEXT:*-qw-*:#:{
if $chan == %smc {
haltdef
aline -phc $+ %qwcolor @serveme $time $1-
}
else {
haltdef
}
}
on ^11:text:*-spam-*:#:{
if $chan == %smc {
haltdef
aline -phc $+ %spamcolor @serveme $time $1-
}
else {
haltdef
}
}
on ^11:text:mnet*:#:{
if $chan == %smc {
haltdef
aline -ph @serveme $time $1-
}
else {
haltdef
}
}
on 1:text:.qw*:#:{
if $nick isop $chan && $chan == %smc {
aline -phc $+ %qwcolor @serveme $time -qw- $nick - $chan $2-
}
else {
halt
}
}
on 1:text:.spam*:#:{
if $nick isop $chan && $chan == %smc {
aline -phc $+ %spamcolor @serveme $time -spam- $nick - $chan $2-
}
else {
halt
}
}

on ^*:text:*:#:{
var %o = $strip($1-)
cprot.chktxtevent $1-
if ($contentfilter(%o).chan) { haltdef }
elseif serveme isin $nick { halt }
elseif (!$halted) && ($nick != $me) {
var %z = $isachl(%o),%a = $cid
if (%z) {
if (%pprot.highlightflood) { checkpp highlightflood }
if (!$halted) {
if (%showhla) && ($chan != $active) && ((@MinIRC != $active) || ($chan != $wd(%minirc,1)) || ($cid != $wd(%minirc,2))) {
scid $activecid
thmecho -a $thmhl($nick) highlighted you in $iif($activecid != %a,$thmhl($chan) on $thmhl($iif($scid(%a).network,$v1,$scid(%a).server)),$thmhl($chan)) $+ : $1-
scid -r
}
aw.chkhl
}
}
}
}

#!/usr/bin/perl
use strict;
use warnings;

# --------------------------------------------------------------------------------
# Documentation
# --------------------------------------------------------------------------------
#
# Intercepts messages from ServeMe-bots and displays them in separate query
# windows, <qw> and <spam>.
#
# Commands:
#
# serveme_channel - Sets channel from where to read ServeMe-messages. The default
# channel is #quakeworld you must be on the channel for the
# script to work. Ex. /serveme_channel #quakeworld
#
# serveme_channel_current - Prints current channel in the active window
#
# Contact:
#
# QuakeNet, #clan-sm, apa
#
# --------------------------------------------------------------------------------

# Configuration
my $serveme_channel = "#quakeworld";

# Script info
my $name = "ServeMe";
my $version = "0.1";
Xchat::register($name, $version, "ServeMe messages are intercepted and put in separate query windows.";

Xchat::print("Loaded $name $version";
serveme_channel_current();
open_query_windows();

# Hooks
Xchat::hook_print("Channel Message", \&channel_message_callback);
Xchat::hook_print("Channel Msg Hilight", \&channel_message_callback);
Xchat::hook_print("Connected", \&connected_callback);
Xchat::hook_command("serveme_channel", \&set_serveme_channel, {help_text => "Sets channel where ServeMe messages are intercepted."});
Xchat::hook_command("serveme_channel_current", \&serveme_channel_current, {help_text => "Prints the current ServeMe channel."});

# Methods
sub channel_message_callback
{
my $nick = Xchat::strip_code($_[0][0]);

# Check if the message is from a ServeMe user
if ($nick =~ m/^\[ServeMe\]\d\d$/i)
{
my $msg = Xchat::strip_code($_[0][1]);
# Info message "mnet: Message sent to 1338 users in 155 channels."
if ($msg =~ m/^mnet/i)
{
return Xchat::EAT_NONE;
}
# Check if the ServeMe message is from the input channel
if (Xchat::get_context() == Xchat::find_context($serveme_channel))
{
open_query_windows();
my $context = Xchat::get_context();
if ($msg =~ m/^-qw-/i)
{
Xchat::set_context(Xchat::find_context("<qw>");
}
elsif ($msg =~ m/^-spam-/i)
{
Xchat::set_context(Xchat::find_context("<spam>");
}
else
{
# this should never happen
if (!Xchat::find_context("<unknown>")
{
Xchat::command("query <unknown>";
}
Xchat::set_context(Xchat::find_context("<unknown>");
}
Xchat::emit_print("Channel Message", $nick, $msg, $_[0][2], $_[0][3]);
Xchat::set_context($context);
}
return Xchat::EAT_ALL;
}
else
{
return Xchat::EAT_NONE;
}
}

sub connected_callback
{
open_query_windows();
}

sub set_serveme_channel
{
if ($_[0][1] =~ m/^#[a-z0-9_]+/i)
{
$serveme_channel = $_[0][1];
serveme_channel_current();
}
else
{
Xchat::print("Invalid channel name $_[0][1].";
}
}

sub serveme_channel_current
{
Xchat::print("ServeMe channel: $serveme_channel";
}

sub open_query_windows
{
if (!Xchat::find_context("<qw>")
{
Xchat::command("query <qw>";
}
if (!Xchat::find_context("<spam>")
{
Xchat::command("query <spam>";
}
}