Anonymous

use strict;

our $server = 'irc.freenode.net';
our $nick = 'MiniTD';
our @channels = ('#thinkdifferent');
our %ops;

$ops{'Think_differentl!n=Think_Di@adsl-75-24-109-211.dsl.pltn13.sbcglobal.net'} = 'owner';

sub start_up {
	my ($self) = @_;
	
	$self->privmsg('NickServ', 'identify *****');
}

our $startup = \&start_up;
our %getmode;

sub getops {
	my ($self, $channel) = @_;
	
	if ($channel eq '#thinkdifferent') {
		$self->privmsg('ChanServ', "op $channel");
	}	
}

$getmode{'#thinkdifferent'} = \&getops;
do 'modules/ban.pl';
do 'modules/botwar.pl';
do 'modules/cycle.pl';
do 'modules/die.pl';
do 'modules/hi.pl';
do 'modules/invite.pl';
do 'modules/join.pl';
do 'modules/kick.pl';
do 'modules/load.pl';
do 'modules/mode.pl';
do 'modules/op.pl';
do 'modules/quit.pl';
do 'modules/say.pl';
do 'modules/topic.pl';
do 'modules/voice.pl';