###################################################################
# Este plugin é um software livre; você pode redistribui-lo e/ou #
# modifica-lo dentro dos termos da Licença Pública Geral GNU como #
# publicada pela Fundação do Software Livre (FSF); na versão 2 da #
# Licença #
###################################################################
package upReport;
use strict;
use Plugins;
use Log qw(warning);
Plugins::register("Up Report", "Salva certas informações de up em um arquivo na pasta logs", \&Unload);
my $hooks = Plugins::addHooks(
['target_died', \&onHookReceived],
['self_died', \&onHookReceived],
['packet_storage_close', \&onHookReceived],
['teleport_sent', \&onHookReceived],
);
my $mortos;
my $morri;
my $storage;
my $teleporte;
sub Unload {
open(F, ">>$Settings::logs_folder/upReport.txt");
print F ("[".scalar localtime."]
Monstros mortos: $mortos
Morri $morri vezes
Fui ao storage $storage vezes
Teleportei $teleporte vezes
--------------------------------------------------------------\n");
close(F);
warning("Plugin upReport unloading!\n");
Plugins::delHook($hooks);
}
sub onHookReceived {
my $hook = shift;
if ($hook eq 'target_died') {
$mortos++;
} elsif ($hook eq 'self_died') {
$morri++;
} elsif ($hook eq 'packet_storage_close') {
$storage++;
} elsif ($hook eq 'teleport_sent') {
$teleporte++;
}
}
1;
###################################################################
# Este plugin é um software livre; você pode redistribui-lo e/ou #
# modifica-lo dentro dos termos da Licença Pública Geral GNU como #
# publicada pela Fundação do Software Livre (FSF); na versão 2 da #
# Licença #
###################################################################
package upReport;
use strict;
use Plugins;
use Log qw(warning);
Plugins::register("Up Report", "Salva certas informações de up em um arquivo na pasta logs", \&Unload);
my $hooks = Plugins::addHooks(
['target_died', \&onHookReceived],
['self_died', \&onHookReceived],
['packet_storage_close', \&onHookReceived],
['teleport_sent', \&onHookReceived],
);
my $mortos;
my $morri;
my $storage;
my $teleporte;
sub Unload {
open(F, ">>$Settings::logs_folder/upReport.txt");
print F ("[".scalar localtime."]
Monstros mortos: $mortos
Morri $morri vezes
Fui ao storage $storage vezes
Teleportei $teleporte vezes
--------------------------------------------------------------\n");
close(F);
warning("Plugin upReport unloading!\n");
Plugins::delHook($hooks);
}
sub onHookReceived {
my $hook = shift;
if ($hook eq 'target_died') {
$mortos++;
} elsif ($hook eq 'self_died') {
$morri++;
} elsif ($hook eq 'packet_storage_close') {
$storage++;
} elsif ($hook eq 'teleport_sent') {
$teleporte++;
}
}
1;