 
#!/usr/bin/perl
#use strict;
# Copyright (c) 2002 Willem Penninckx.  All rights reserved.  This
# program is free software; you may redistribute it and/or modify it
# under the same terms as Perl itself.


#To install this script, just copy it to ~/.xchat
#To load it, type "/load ~/.xchat/wp.pl" (withoud the "")
#but it will be started when you start xchat :-)

#To use it, type /darkk <text>
IRC::register ("Darkk script", "1.0", "", ""); 
IRC::add_command_handler('darkk', darkkscreamcmd);
sub darkkscreamcmd{
my($pl);
$_[0]=~s/D/Ð/gi;
$_[0]=~s/E/ë/gi;
$_[0]=~s/A/å/gi;
$_[0]=~s/I/ï/gi;
$_[0]=~s/O/ö/gi;
$_[0]=~s/U/ü/gi;
IRC::command($_[0]);
return 1;
}
