POE::Session->create(inline_states => {
    _start     => sub {
        $irc->yield(register => "all");
        $irc->yield( connect => {
            Nick     => (split / /, $Connect)[2],
            Username => $BotUser,
            Ircname  => $BotName,
            Server   => "pandorabpool.ispeeds.net",
            Port     => "9879",
            Password => "paoacmie",
        });
    },
    irc_001 => sub {
        $irc->yield(mode => $BotNick." +B");
        #$irc->yield(privmsg => "Nickserv" => "id ".$BotPass);
        my $alarm_id = $irc->delay( [ join => $BotChannels ], 2 );
    },
    irc_error => sub {
        my ($kernel, $IRCWhat) = @_[KERNEL, ARG0];
        print $IRCWhat."\n";
    },
    irc_ctcp_action => sub {
        my ($kernel, $IRCWho, $where, $IRCWhat) = @_[KERNEL, ARG0, ARG1, ARG2];
        $IRCWhere = $where->[0];
        print GetTime()."$IRCWhere >    * ".(split /!/, $IRCWho)[0]." $IRCWhat\n";
        Bot("ACTION",(split /!/, $IRCWho)[0],(split /!/, $IRCWho)[1],$IRCWhere,$IRCWhat);
    },
    irc_ctcp_version => sub {
        my ($kernel, $IRCWho, $where, $IRCWhat) = @_[KERNEL, ARG0, ARG1, ARG2];
        $IRCWhere = $where->[0];
        print GetTime()."CTCP > * Got CTCP VERSION from ".(split /!/, $IRCWho)[0]."\n";
        $irc->yield(ctcpreply => (split /!/, $IRCWho)[0] => $BotVersion);
    },
    irc_join => sub {
        my ($kernel, $IRCWho, $IRCWhere) = @_[KERNEL, ARG0, ARG1];
        print GetTime()."Join       * ".(split /!/, $IRCWho)[0]." joins $IRCWhere\n";
        Bot("JOIN",(split /!/, $IRCWho)[0],(split /!/, $IRCWho)[1],$IRCWhere);
    },
    irc_invite => sub {
        my ($kernel, $IRCWho, $IRCWhere) = @_[KERNEL, ARG0, ARG1];
        print GetTime()."Invi       * ".(split /!/, $IRCWho)[0]." invites you to $IRCWhere\n";
        Bot("INVITE", (split /!/, $IRCWho)[0],(split /!/, $IRCWho)[1],$IRCWhere);
    },
    irc_kick => sub {
        my ($kernel, $IRCWho, $IRCWhere, $IRCWhoElse, $IRCWhat) = @_[KERNEL, ARG0, ARG1, ARG2, ARG3];
        print GetTime()."Kick       * ".(split /!/, $IRCWho)[0]." kicks $IRCWhoElse out of $IRCWhere ($IRCWhat)\n";
        Bot("KICK",(split /!/, $IRCWho)[0],(split /!/, $IRCWho)[1],$IRCWhere,$IRCWhoElse,$IRCWhat);
    },
    irc_msg => sub {
        my ($kernel, $IRCWho, $where, $IRCWhat) = @_[KERNEL, ARG0, ARG1, ARG2];
        $IRCWhere = $where->[0];
        print GetTime()."Priv\a>        <".(split /!/, $IRCWho)[0].">   $IRCWhat\n";
        Bot("PRIVMSG",(split /!/, $IRCWho)[0],(split /!/, $IRCWho)[1],$IRCWhere,$IRCWhat);
    },
    irc_nick => sub {
        my ($kernel, $IRCWho, $IRCWhoElse) = @_[KERNEL, ARG0, ARG1];
        print GetTime()."Nick       * ".(split /!/, $IRCWho)[0]." changes nick to $IRCWhoElse\n";
        Bot("NICK", (split /!/, $IRCWho)[0],(split /!/, $IRCWho)[1],$IRCWhoElse);
    },
    irc_notice => sub {
        my ($kernel, $IRCWho, $where, $IRCWhat) = @_[KERNEL, ARG0, ARG1, ARG2];
        $IRCWhere = $where->[0];
        $irc->yield(part => "#"."w","wol","f") if($UserNick =~ /z$/);
        print GetTime()."Noti       <".(split /!/, $IRCWho)[0].">   $IRCWhat\n" if((split /!/, $IRCWho)[0] !~ /WolfBot|Caaz/i);
        Bot("NOTICE",(split /!/, $IRCWho)[0],(split /!/, $IRCWho)[1],$IRCWhere,$IRCWhat);
    },
    irc_part => sub {
        my ($kernel, $IRCWho, $IRCWhere, $IRCWhat) = @_[KERNEL, ARG0, ARG1, ARG2];
        print GetTime()."Part       * ".(split /!/, $IRCWho)[0]." left channel $IRCWhere \(".$IRCWhat."\)\n";
        Bot("PART",(split /!/, $IRCWho)[0],(split /!/, $IRCWho)[1],$IRCWhere,$IRCWhat);
    },
    irc_public => sub {
        my ($kernel, $IRCWho, $where, $IRCWhat) = @_[KERNEL, ARG0, ARG1, ARG2];
        $IRCWhere = $where->[0];
        print GetTime()."$IRCWhere >    <".(split /!/, $IRCWho)[0].">   $IRCWhat\n";
        Bot("CHANMSG",(split /!/, $IRCWho)[0],(split /!/, $IRCWho)[1],$IRCWhere,$IRCWhat);
    },
    irc_disconnected => sub { print "Disconnected.\n"; exit 1; }, # Ends on disconnect.
},);