【文件属性】:
文件名称:CnKore for CRO
文件大小:24.1MB
文件格式:ZIP
更新时间:2016-05-11 14:52:55
RO,CRO
基于OpenKore开发的一款客户端
use strict;
use Time::HiRes qw(time);
use base qw/Actor::Slave/;
use Globals;
use Log qw/message warning error debug/;
use Utils;
use Misc;
use Translation;
use AI::Slave::Homunculus;
use AI::Slave::Mercenary;
# homunculus commands/skills can only be used
# if the homunculus is within this range
use constant MAX_DISTANCE => 17;
sub checkSkillOwnership {}
sub action {
my $slave = shift;
my $i = (defined $_[0] ? $_[0] : 0);
return $slave->{slave_ai_seq}[$i];
}
sub args {
my $slave = shift;
my $i = (defined $_[0] ? $_[0] : 0);
return \%{$slave->{slave_ai_seq_args}[$i]};
}
sub dequeue {
my $slave = shift;
shift @{$slave->{slave_ai_seq}};
shift @{$slave->{slave_ai_seq_args}};
}
sub queue {
my $slave = shift;
unshift @{$slave->{slave_ai_seq}}, shift;
my $args = shift;
unshift @{$slave->{slave_ai_seq_args}}, ((defined $args) ? $args : {});
}
sub clear {
my $slave = shift;
if (@_) {
my $changed;
for (my $i = 0; $i < @{$slave->{slave_ai_seq}}; $i++) {
if (defined binFind(\@_, $slave->{slave_ai_seq}[$i])) {
delete $slave->{slave_ai_seq}[$i];
delete $slave->{slave_ai_seq_args}[$i];
$changed = 1;
}
}
if ($changed) {
my (@new_seq, @new_args);
for (my $i = 0; $i < @{$slave->{slave_ai_seq}}; $i++) {
if (defined $slave->{slave_ai_seq}[$i]) {
push @new_seq, $slave->{slave_ai_seq}[$i];
push @new_args, $slave->{slave_ai_seq_args}[$i];
}
}
@{$slave->{slave_ai_seq}} = @new_seq;
@{$slave->{slave_ai_seq_args}} = @new_args;
}
} else {
undef @{$slave->{slave_ai_seq}};
undef @{$slave->{slave_ai_seq_args}};
}
}
sub suspend {
my $slave = shift;
my $i = (defined $_[0] ? $_[0] : 0);
$slave->{slave_ai_seq_args}[$i]{suspended} = time if $i < @{$slave->{slave_ai_seq_args}};
}
sub mapChanged {
my $slave = shift;
my $i = (defined $_[0] ? $_[0] : 0);
$slave->{slave_ai_seq_args}[$i]{mapChanged} = time if $i < @{$slave->{slave_ai_seq_args}};
}
网友评论
- 就是用来借鉴中文配置的,很好很强大
- 不错,好多参数配置都可以借鉴一下
- 可以用,不错的资源
- 可以用的,防毒软件设置信任
- 还是能用的。杀毒必须选为信任
- ESET报毒,直接悲剧