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

$VERSION = "1.00";
%IRSSI = (
  authors     => 'toast',
  name        => 'eye4eye',
  description => 'If killed, reocnnect and /kill back',
  license     => 'Public Domain',
  changed	=> 'Mon Jun 30 13:59:43 PDT 2003'
);

sub event_killed {
  my ($server, $path, $oper, $address) = @_;
  my ($nick, $garbage) = split(/ :/, $path);

  Irssi::print("Killed by $oper.. :(  Don't worry, they'll pay!");

  $e4e_killer = $oper;  # remember that fucker

  $server->command("reconnect");

  # Add ourselves to the *end* of the reconnect event list (so we
  # *should* get called after the /oper and /joins)
  Irssi::signal_add_last('event connected', 'event_connected');
}

sub event_connected {
  my ($server) = @_;

  if($e4e_killer){
    Irssi::print("Hella gonna kill $e4e_killer");

    # pwned
    $server->command("MSG $e4e_killer bitch :(");
    $server->send_raw("KILL $e4e_killer asshat");
  }
  # we're no longer needed
  Irssi::signal_remove('event connected', 'event_connected');
}

Irssi::signal_add_last('event kill', 'event_killed');