WPEPRO
10/04/2008, 11:18:35
Debardo Por favor aki, olha so, eu baixei o lockmap.pl Link -> http://rapidshare.com/files/71362627/lockMap.pl.html
Ele é assim:
# licensed under gpl by joseph
package lockMap;
use strict;
use Globals;
use Utils qw(timeOut);
use Log qw(message);
Plugins::register('lockMap', 'lockMap_#', \&on_unload);
my $hooks = Plugins::addHooks(
['AI_pre', \&ai_hook, undef]
);
sub on_unload {
Plugins::delHooks($hooks);
}
our $lockMap = {};
sub ai_hook {
if ($config{lockMap_0} && timeOut($lockMap)) {
nextMap();
}
}
sub nextMap {
$lockMap->{pos}++;
$lockMap->{pos} = 0 if (!$config{"lockMap_$lockMap->{pos}"});
my $pos = $lockMap->{pos};
message "Switching lockMap to slot $pos: ".$config{"lockMap_$pos"}."\n";
$lockMap->{time} = time;
$lockMap->{timeout} = $config{"lockMap_$pos"."_timeout"};
$lockMap->{timeout} ||= 99999999999; # forever
$config{lockMap} = $config{"lockMap_$pos"};
$config{lockMap_x} = $config{"lockMap_$pos"."_x"};
$config{lockMap_y} = $config{"lockMap_$pos"."_y"};
$config{lockMap_randX} = $config{"lockMap_$pos"."_randX"};
$config{lockMap_randY} = $config{"lockMap_$pos"."_randY"};
if ($config{"lockMap_$pos"."_config"}) {
my @list = split(/ *,+ */, $config{"lockMap_$pos"."_config"});
my ($opt,$val);
foreach my $item (@list) {
($opt,$val) = $item =~ /(\S+) (.*)/;
$config{$opt} = $val;
message "[lockMap] Changed $opt to $val\n";
}
}
}
1;Só que quando ta ligado o KORE ele so fica warpando no mesmo mapa e so ajusta a configuração pro mapa que ele está. Olha como ta meu config do lockmap:
lockMap gon_dun01 {
timeout 15
config teleportAuto_useChatCommand @warp gon_dun01
}
lockmap nif_fild01 {
timeout 900
teleportAuto_useChatCommand @warp nif_fild01
}
lockmap beach_dun2 {
timeout 900
config teleportAuto_useChatCommand @warp beach_dun2
}
lockmap tur_dun03 {
timeout 900
config teleportAuto_useChatCommand @warp tur_dun03
}
Quando ativa o plugin aparece isso:
Switching lockMap to slot 0: gon_dun01
[lockMap] Changed teleportAuto_useChatCommand to @warp gon_dun01E não muda'-'. Me ajuda ai pls, nao entendo muito disso mas acho que fiz alguma coisa errada:frown2:
Ele é assim:
# licensed under gpl by joseph
package lockMap;
use strict;
use Globals;
use Utils qw(timeOut);
use Log qw(message);
Plugins::register('lockMap', 'lockMap_#', \&on_unload);
my $hooks = Plugins::addHooks(
['AI_pre', \&ai_hook, undef]
);
sub on_unload {
Plugins::delHooks($hooks);
}
our $lockMap = {};
sub ai_hook {
if ($config{lockMap_0} && timeOut($lockMap)) {
nextMap();
}
}
sub nextMap {
$lockMap->{pos}++;
$lockMap->{pos} = 0 if (!$config{"lockMap_$lockMap->{pos}"});
my $pos = $lockMap->{pos};
message "Switching lockMap to slot $pos: ".$config{"lockMap_$pos"}."\n";
$lockMap->{time} = time;
$lockMap->{timeout} = $config{"lockMap_$pos"."_timeout"};
$lockMap->{timeout} ||= 99999999999; # forever
$config{lockMap} = $config{"lockMap_$pos"};
$config{lockMap_x} = $config{"lockMap_$pos"."_x"};
$config{lockMap_y} = $config{"lockMap_$pos"."_y"};
$config{lockMap_randX} = $config{"lockMap_$pos"."_randX"};
$config{lockMap_randY} = $config{"lockMap_$pos"."_randY"};
if ($config{"lockMap_$pos"."_config"}) {
my @list = split(/ *,+ */, $config{"lockMap_$pos"."_config"});
my ($opt,$val);
foreach my $item (@list) {
($opt,$val) = $item =~ /(\S+) (.*)/;
$config{$opt} = $val;
message "[lockMap] Changed $opt to $val\n";
}
}
}
1;Só que quando ta ligado o KORE ele so fica warpando no mesmo mapa e so ajusta a configuração pro mapa que ele está. Olha como ta meu config do lockmap:
lockMap gon_dun01 {
timeout 15
config teleportAuto_useChatCommand @warp gon_dun01
}
lockmap nif_fild01 {
timeout 900
teleportAuto_useChatCommand @warp nif_fild01
}
lockmap beach_dun2 {
timeout 900
config teleportAuto_useChatCommand @warp beach_dun2
}
lockmap tur_dun03 {
timeout 900
config teleportAuto_useChatCommand @warp tur_dun03
}
Quando ativa o plugin aparece isso:
Switching lockMap to slot 0: gon_dun01
[lockMap] Changed teleportAuto_useChatCommand to @warp gon_dun01E não muda'-'. Me ajuda ai pls, nao entendo muito disso mas acho que fiz alguma coisa errada:frown2: