My thanks goes to EternalHarvest for directing me on how to develop this here: http://forums.openkore.com/viewtopic.ph ... 513#p58751
Code: Select all
#############################################################################
# avoidGutterLines plugin by imikelance
#
# Openkore: http://openkore.com/
# Openkore Brazil: http://openkore.com.br/
#
# 05:15 sexta-feira, 6 de janeiro de 2012
#
# Usage:
# # bRO: Impacto de Tyr
# attackSkillSlot Bowling Bash {
# avoidGutterLines 1
# }
#
# This source code is licensed under the
# GNU General Public License, Version 3.
# See http://www.gnu.org/licenses/gpl.html
#############################################################################
package avoidGutterLines;
use strict;
use Config;
eval "no utf8;";
use Globals;
use Log qw(message warning error debug);
use Misc;
use Plugins;
Plugins::register('avoidGutterLines', 'avoid using bowling bash inside gutterlines', \&onUnload);
my $hooks = Plugins::addHooks(
['avoidGutterLines', \&avoidGutterLines, undef],
);
sub onUnload {
Plugins::delHooks($hooks);
}
sub avoidGutterLines {
my (undef, $args) = @_;
my $prefix = $args->{prefix};
if ($config{$prefix."_avoidGutterLines"}) {
my $pos = main::calcPosition($char);
if ($pos->{x}%40 <= 4 || $pos->{y}%40 <= 4) {
$args->{return} = 0;
}
}
}
return 1;