#!/usr/bin/perl
use strict;
use warnings;
use File::Spec ();
BEGIN { use lib File::Spec->catdir( Xchat::get_info('xchatdir'), 'lib' ); }
use N0i::Xchat::31337;

my $leet = N0i::Xchat::31337->new or die "Fucked up. :(\n";
$leet->register;
$leet->set_hooks(
	[
		'command',
		'31337',
		sub {
		    my ($txt, $error) = $leet->leet($_[1]->[1]);
		    if ($error) {
		        Xchat::print('ERROR: ' . $error);
		    } else {
		        Xchat::command("say $txt");
		    }
			Xchat::EAT_ALL;
		},
		{ help_text => "\x02 31337 \x02 <\x02blah blah\x02> - text to 31337" }
	]
);
$leet->loaded;