51 lines
1.4 KiB
Perl
Executable file
51 lines
1.4 KiB
Perl
Executable file
#!/usr/bin/env perl
|
|
|
|
package DirkBot;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use lib './lib';
|
|
|
|
use Bot::BasicBot::Pluggable;
|
|
use POE::Component::IRC::Plugin::NickServID;
|
|
use POE qw(Component::BukkitDtach Component::BukkitRestart);
|
|
|
|
our $dtach = POE::Component::BukkitDtach->spawn("/home/minecraft/dtach"); # change this for production
|
|
our $reset = POE::Component::BukkitRestart->spawn();
|
|
|
|
my $bot = Bot::BasicBot::Pluggable->new(
|
|
channels => ["#dirkocraft", "#main", "#new", "#dirkocraft-admin"],
|
|
server => "localhost",
|
|
port => "6667",
|
|
|
|
nick => "dirkobot",
|
|
password => "sindarin",
|
|
altnicks => ["dirkbot"],
|
|
username => "simcop2387",
|
|
name => "Yet Another Pluggable Bot, for dirkocraft",
|
|
|
|
ignore_list => [qw()],
|
|
);
|
|
|
|
my $info = $bot->load("Infobot");
|
|
my $rss = $bot->load("RssPromote");
|
|
my $spam = $bot->load("Spam");
|
|
my $seen = $bot->load("Seen");
|
|
my $restart = $bot->load("Restart");
|
|
my $titles = $bot->load("Titles");
|
|
my $minecraftirc = $bot->load("MineCraftIRC");
|
|
my $minecraftcoords = $bot->load("MineCraftCoords");
|
|
my $irc = $bot->pocoirc();
|
|
|
|
#$irc->plugin_add( 'NickServID', POE::Component::IRC::Plugin::NickServID->new(
|
|
# Password => 'sindarin'
|
|
#));
|
|
|
|
#$minecraftirc->set(MC_Channel => "#dirkocraft");
|
|
$seen->set(user_allow_hiding => 1);
|
|
$info->set(user_require_question => 0);
|
|
$info->set(user_passive_answer => 1);
|
|
$info->set(user_allow_searching =>1);
|
|
|
|
$bot->run();
|