font Stripper for CHATSUSA (xchat)

[Haggis]

Here it is the font stripper for xchat (linux cersion i dunno if it will work on windows)

 

just paste this code into a text pad and save it as file.pl

 

save it to the .xchat2 directory and then reopen xchat this will autoload it

 

# *********************************************** #
#       Xchat Font Stripper for Chats USA         #
#                Coded by Haggis                  # 
#                 3rd April '05                   #
#          http://www.haggistech.co.uk            #
# *********************************************** #

Xchat::register("Split font","0.");
Xchat::print("Stripper Loaded\n");
Xchat::print("http://www.haggistech.co.uk\n");  
IRC::add_message_handler("PRIVMSG", "say"); 

sub say
{

 my $line = shift; 

if($line =~ m/CUSA/)
{


my $namehost, $prvmsg, $to, $font, $msg, $msg2, $font2;
($namehost, $prvmsg, $to, $font, $msg) = split(/ /, $line, 5);
($name, $host) = split(/!/, $namehost);
($font2, $msg2) = split(/:/,$msg,2);
$name =~ s/://;
$msg =~ s/://;

Xchat::emit_print("Private Message to Dialog", $name, $msg2);
return Xchat::EAT_XCHAT;
}
return Xchat::EAT_NONE;
}

 

 

i know this is gonna get ripped by some but ach if ur that sad what can ya do lol

any problems let me know

 

 

Edited April 3, 2005 by Haggis

[Daemon]

Nice job haggis Its working very nice

[Haggis]

Yay am so chuffed i managed it lol

[Ziggy]

Yay!

 

Don't forget #!/usr/bin/perl at the top, just in case your distro sucks and can't tell that's Perl.

[Haggis]

u tried it yet ziggy

[Ziggy]

Nope, not yet. Working on it though (haven't gotten around to opening up nautilus...).

[Haggis]

ok found a flaw

 

when ur in a whisper if u go to main scren it will echo whispers there

 

so am workig on that the now

 

am not gonna code a stripper for whispers yet and i dont whisper so dont need it lol