RO-fan

Код: Выделить всё

[AzRO]
ip 93.125.74.230
port 6900
private 1
master_version 25
version 30
charBlockSize 144
serverType kRO_RagexeRE_2012_04_10a
serverEncoding Russian
addTableFolders AzRO;translated/kRO_english;kRO

Код: Выделить всё

# Anti-Bot plugin for AzRO server.
# This plugin is licensed under the GNU GPL.
# (C) 2013 Kissa2k
# https://ro-fan.ru/viewtopic.php?f=4&t=9786

package azro;

use strict;
use Plugins;
use Globals;
use Log qw(message warning error);
use I18N qw(bytesToString stringToUTF8);

Plugins::register('azro', 'Anti-Bot plugin for AzRO.', \&onUnload, \&onUnload);

my $hooks = (
	Plugins::addHooks(
			['packet/npc_talk', \&onNPCTalk, undef]
	)
);

sub onUnload {
	Plugins::delHooks($hooks);
}

sub onNPCTalk {
	my (undef, $args) = @_; 
	my $msg = unpack("Z*", substr($args->{RAW_MSG}, 8)); 
	$msg = I18N::stringToUTF8(I18N::bytesToString($msg));
	
	if($msg =~ /^Введите число \^ff0000(\d{5})\^000000 !$/){
		sleep(1);
		Commands::run("talk num $1"); 
	}
}

1;