В control/config.txt добавить
dSpam_advert reklama #текст рекламного сообщения.
Код: Выделить всё
package dSpam;
use strict;
use Plugins;
use Log qw(message);
use Globals;
use Settings;
use Utils;
use Misc;
Plugins::register("dSpam", "dSpam plugin", \&unload);
my $hooks = Plugins::addHooks(
['charNameUpdate', \&player]
);
sub unload {
Plugins::delHook($hooks);
}
sub player {
my (undef, $args) = @_;
my $player = $args->{name};
message("[dSpam]: spaming player $player\n", "info");
sendMessage($messageSender, "pm", $config{'dSpam_advert'}, $player);
}
1;
