# description: simply, use /slap <nick>

# Author: tomekk
# e-mail:  tomekk/@/oswiecim/./eu/./org
# home page: http://tomekk.oswiecim.eu.org/
#
# Version 0.1
#
# This file is Copyrighted under the GNU Public License.
# http://www.gnu.org/copyleft/gpl.html


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

$VERSION = '0.1';
%IRSSI = (
	  authors     => 'tomekk',
	  contact     => 'tomekk\@\oswiecim\.\eu\.\org',
	  name        => 'slap',
	  description => 'slaps person',
	  license     => 'GPL',
	  url         => 'http://irssi.org/scripts/',
	  changed     => 'wen may 10 16:38:22 CEST 2006',
	  commands    => '/slap'
);

sub slaps {
	
	my ($data, $server, $channel) = @_;

	my $nick;
	my $output;
       
	$nick = "$data";

	if ($nick) {
		
		$nick =~ s/ //;
	
		$output = "slaps $nick around a bit with a large trout";

		Irssi::active_win()->command('me ' . $output);

	} else {
		Irssi::print "nick not found";
	}
			
}

Irssi::command_bind('slap', 'slaps');