В 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;