package AvoidReset;

use encoding "utf8";
use strict;
use Log qw(message);
use Globals qw($net %timeout);

my $dc = 0;
my $max_dc = 10;
my $timeout = {timeout => 3600};


Plugins::register("AvoidReset", "disconnect count", \&unload);


my $hooks  = Plugins::addHooks(
   ['disconnected', \&disconnect, undef]

);

my $cmd = Commands::register(
	['dc','disconnect infos',\&dcInfo],
	['AI_pre', \&reseting, undef],
);


sub unload {
   Plugins::delHooks($hooks);
   Commands::unregister($cmd);
   undef $hooks;
   undef $cmd;
}

sub dcInfo {
	my (undef, $args) = @_;

	if ($args eq 'count') {
		message("[plugin:AvoidReset] Você foi desconectado ".$dc." vez(es).\n","info");
	}
}

sub disconnect {
	$dc ++;
	if ($dc < $max_dc) {
	message "[AvoidReset] O contador está atualmente em $dc.\n";
	} else {
	message "[AvoidReset] Deslogando por levar muitos dcs em 1 hora.\n";
	Misc::offlineMode();
}
}

sub reseting {
	return if $net->getState != Network::IN_GAME;
	return if !timeOut( $timeout );
	$timeout->{time} = time;
	message "[AvoidReset] Resetando Contador.\n";
	$dc = 0;
	}
1;