Someone

package Xchat::mazzanet::WallopsWindow;
use Xchat qw( :all );

my $script_name = "WallopsWindow";
my $script_version = '0.1';

Xchat::register($script_name, $script_version, "Moves wallops to a seperate window");
Xchat::print("$script_name-$script_version by mazzanet loading...\n");

Xchat:hook_print("Receive Wallops", 'display_wallops');

sub display_wallops {
 my $nick = $_[0][0];
 my $msg = $_[0][1];
 unless(Xchat::print(sprintf("\00313-%s-\017 %s", $nick, $msg), '@wallops', Xchat::get_info("server"))) {
  Xchat::command('QUERY (wallops)');
  Xchat::print(sprintf("\00313-%s-\017 %s", $nick, $msg), '@wallops', Xchat::get_info("server"));
 }
 return Xchat::EAT_ALL;