Re: playerRecorder plugin
Posted: 04 Jun 2013, 01:40
thanks a lot sir KeplerBR
Code: Select all
return if ((time - $nickListTime{$targetName}) < 1);
$nickListTime{$targetName} = time;
Code: Select all
package ExamplePlugin;
use strict;
use warnings;
use Plugins;
use Log qw(message);
use Globals;
use Settings;
use Actor;
Plugins::register('example', 'Example Plugin ', \&Unload, \&Reload);
Plugins::addHook('player_exist', \&Called, undef);
my $commandHangmanGame = Commands::register(
["inform", "Inform player list view", \&commandInform]
);
my %nickListTime;
sub Unload {
Plugins::addHook('charNameUpdate', \&Called);
}
sub Reload {
Plugins::addHook('charNameUpdate', \&Called);
}
sub Called {
my (undef, $args) = @_;
my $targetName = $args->{player}{name};
return if ($nickListTime{$targetName} && (time - $nickListTime{$targetName}) < 180);
$nickListTime{$targetName} = time;
Commands::run("p Player Seen: $targetName");
}
sub commandInform {
my $message;
for ( sort {$nickListTime{$b} <=> $nickListTime{$a}} keys %nickListTime) {
$message .= "* $_ - " . (time - $nickListTime{$_}) . "\n";
}
message $message;
}
return 1;
Code: Select all
return if ($nickListTime{$targetName} && (time - $nickListTime{$targetName}) < 5);
Code: Select all
Plugins::addHook('player_exist', \&Called, undef);
Code: Select all
sub commandInform {
my $message;
for ( sort {$nickListTime{$b} <=> $nickListTime{$a}} keys %nickListTime) {
$message .= "* $_ - " . (time - $nickListTime{$_}) . "\n";
}
message $message;
}
Code: Select all
Plugins::addHook('player_exist', \&Called, undef);
Code: Select all
Plugins::addHook('charNameUpdate', \&Called, undef);
Code: Select all
return if ($nickListTime{$targetName} && (time - $nickListTime{$targetName}) < 180)
Code: Select all
return if ((time - $nickListTime{$targetName}) < 180);
Enter the command inform in the consolegenuineopenkore wrote:how thus this code triggered sir?Code: Select all
sub commandInform { my $message; for ( sort {$nickListTime{$b} <=> $nickListTime{$a}} keys %nickListTime) { $message .= "* $_ - " . (time - $nickListTime{$_}) . "\n"; } message $message; }
still works the same sirreturn if ((time - $nickListTime{$targetName}) < 180);
This is what it printed when i type "inform" in the console. but when i'm not visible on the bot and when i type again the inform it still print the same* PLAYERTEST - 34
Code: Select all
return if ((time - $nickListTime{$targetName}) < 180);