RO-fan

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

ss Pharmacy

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

package autoCraft;
# by EternalHarvest (rofan.ru)

use strict;

Plugins::register ('autoCraft', 'auto forging and brewing', \&unload);
my $hook = Plugins::addHook ('packet/forge_list', \&forge_list, undef);
sub unload { Plugins::delHook ($hook); }

sub forge_list {
	my (undef, $args) = @_;
	my $flag = 0;
	for (my $i = 4; !$flag && $i < $args->{RAW_MSG_SIZE}; $i += 8) {
		$flag |= int $Globals::config{autoCraft} == unpack 'v', substr $args->{RAW_MSG}, $i, 2;
	}
	if ($flag) {
		$Globals::messageSender->sendForgeItem (int $Globals::config{autoCraft}, 0, 0, 0);
	} else {
		Log::message "autoCraft: you can't forge this item now, or no item configured\n";
	}
}

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

ss Pharmacy
craft 504

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

package craft;
# by EternalHarvest (rofan.ru)
use strict;

use Globals;
use Log qw(message);
use Network;
use Network::Send;

Plugins::register('craft', 'crafting', \&Unload, \&Reload);
my $chooks = Commands::register(['craft', "crafting", \&Craft]);

sub Reload {}
sub Unload {Commands::unregister($chooks);}

sub Craft {
	shift;
	if (!defined $_[0]) {
		message "Usage: craft [item id]\n";
		return;
	}
	
	my $item = shift;
	$messageSender->sendForgeItem ($item, 0, 0, 0);
}