use strict;
use vars qw($VERSION %IRSSI);

use Irssi;

$VERSION = '1.00';
%IRSSI = (
	authors		=> 'Adam Wysocki',
	contact		=> 'gophi@wiadomo',
	name		=> 'nopokemon',
	description	=> 'depokemonizer',
	license		=> 'Public Domain',
	url		=> 'http://chmurka.net/',
	changed		=> '10 May 2005 16.12.32',
);


sub depokemonize {
	my ($server, $msg, $nick, $address, $target) = @_;

	my $repl = $msg;
	$repl =~ s/xD/:D/g;
	$repl =~ s/xP/:P/g;

	Irssi::signal_continue($server, $repl, $nick, $address, $target);
}

Irssi::signal_add('event privmsg', 'depokemonize');