use strict;
use Irssi;

our $VERSION = '1.0';
our %IRSSI = (
    authors     => 'florida_man',
    name        => 'gonzobot_cycle',
    description => 'Cycles nicks after snoonet bot gonzobot quits',
    license     => 'Public Domain',
);

sub on_quit {
    my ($server, $data, $nick, $address) = @_;
    return if $nick ne 'gonzobot';
    Irssi::print("gonzobot has quit. Starting nick cycle.");
    $server->command('NICK gonzobit');
    Irssi::timeout_add_once(45000, \&step_two, $server);
}

sub step_two {
    my $server = shift;
    $server->command('NICK gonzobot69');
    $server->command('NICK gonzobot');
    Irssi::timeout_add_once(45000, \&loop_step, $server);
}

sub loop_step {
    my $server = shift;
    $server->command('NICK gonzobot69');  # temporary change
    $server->command('NICK gonzobot');    # back to gonzobot
    Irssi::timeout_add_once(45000, \&loop_step, $server);
}

Irssi::signal_add('message quit', 'on_quit');