aabot.pl:
Код: Выделить всё
###########################
# Anti-Anti-Bot plugin for ZenyRO by _vit
# Version 0.01
# 26.01.2008
###########################
package aabot;
use strict;
use Plugins;
use Globals;
use Log qw(message warning error);
use I18N qw(bytesToString);
Plugins::register('aabot', 'Anti-Anti-Bot plugin for ZenyRO', \&onUnload);
my $hooks = Plugins::addHooks(['packet/npc_talk', \&onMsg, undef]);
sub onUnload {
Plugins::delHooks($hooks);
};
sub onMsg {
my (undef, $args) = @_;
my $msg = I18N::bytesToString(unpack("Z*", substr($args->{RAW_MSG}, 8)));
if($msg =~ /\^000000(\d+)\^FFFFFF/){
sleep(1);
Commands::run("talk num $1");
}
}
return 1;
Фигасе заява.
