Модератор: 4epT
Код: Выделить всё
$item{storage}{index} = findKeyString(\%storage, "name", $item{name});Код: Выделить всё
sub storage_opened {
my ($self, $args) = @_;
$storage{items} = $args->{items};
$storage{items_max} = $args->{items_max};
$ai_v{temp}{storage_opened} = 1;
if (!$storage{opened}) {
$storage{opened} = 1;
message T("Storage opened.\n"), "storage";
Plugins::callHook('packet_storage_open');
}
}Код: Выделить всё
sub findKeyString {
my $r_hash = shift;
my $match = shift;
my $ID = shift;
foreach (keys %{$r_hash}) {
if (ref($r_hash->{$_}) && $r_hash->{$_}{$match} eq $ID) {
return $_;
}
}
}Код: Выделить всё
сегодня пороюся # scan the entire items.txt file (this is slow)
foreach (keys %items_lut) {
if (lc($items_lut{$_}) eq lc($config{"buyAuto_$args->{index}"})) {
$args->{itemID} = $_;
}
}Код: Выделить всё
my %item;
my $itemName = $config{"getAuto_$args->{index}"};
if (!$itemName) {
$args->{index}++;
next;
}
my $invItem = $char->inventory->getByName($itemName);
$item{name} = $itemName;
$item{inventory}{index} = $invItem ? $invItem->{invIndex} : undef;
$item{inventory}{amount} = $invItem ? $invItem->{amount} : 0;
$item{storage}{index} = findKeyString(\%storage, "name", $item{name});
$item{storage}{amount} = ($item{storage}{index} ne "")? $storage{$item{storage}{index}}{amount} : 0;
$item{max_amount} = $config{"getAuto_$args->{index}"."_maxAmount"};
$item{amount_needed} = $item{max_amount} - $item{inventory}{amount};
# Calculate the amount to get
if ($item{amount_needed} > 0) {
$item{amount_get} = ($item{storage}{amount} >= $item{amount_needed})? $item{amount_needed} : $item{storage}{amount};
}
Код: Выделить всё
my $invItem = $char->inventory->getByName($itemName);
$item{name} = $itemName;
+ foreach (keys %items_lut) {
+ if (lc($items_lut{$_}) eq lc($config{"getAuto_$args->{index}"})) {
+ $item{name} = $items_lut{$_};
+ }
+ }
$item{inventory}{index} = $invItem ? $invItem->{invIndex} : undef;
$item{inventory}{amount} = $invItem ? $invItem->{amount} : 0;
andrey1234 писал(а):Оооо спасибо....Теперь кушает поушены нормально)Stack писал(а):что заработало то?
вот так написал? :
useSelf_item Red Potion {
hp < 30%
inLockOnly 0
notWhileSitting 1
notInTown 1
timeout
disabled 0
inInventory
manualAI 0
}
Теперь объясните чем этот конфиг отличается вот от этого:
useSelf_item Red Potion {
hp < 30%
}
??????
Код: Выделить всё
if ($config{$prefix."_whenPermitSkill"}) {
return 0 unless $char->{permitSkill} &&
$char->{permitSkill}->name eq $config{$prefix."_whenPermitSkill"};
}
if ($config{$prefix."_whenNotPermitSkill"}) {
return 0 if $char->{permitSkill} &&
$char->{permitSkill}->name eq $config{$prefix."_whenNotPermitSkill"};
}
Код: Выделить всё
if ($config{$prefix."_whenPermitSkill"}) {
return 0 unless $char->{permitSkill} &&
$char->{permitSkill}->getName() eq $config{$prefix."_whenPermitSkill"};
}
if ($config{$prefix."_whenNotPermitSkill"}) {
return 0 if $char->{permitSkill} &&
$char->{permitSkill}->getName() eq $config{$prefix."_whenNotPermitSkill"};
}
Код: Выделить всё
&& scalar(keys %{$monster->{castOnByPlayer}}) == 0Код: Выделить всё
###
my $allowed = 1;
if (scalar(keys %{$monster->{castOnByPlayer}}) > 0) {
foreach (keys %{$monster->{castOnByPlayer}}) {
my $ID1=$_;
my $source = Actor::get($_);
warning TF("Player %s is casting on mob %d times\n",$source->name,$monster->{castOnByPlayer}{$_});
if ( existsInList($config{tankersList}, $source->{name}) ||
($char->{party} && %{$char->{party}} && $char->{party}{users}{$ID1} && %{$char->{party}{users}{$ID1}})
) {
warning TF("And it is a party member\n");
}
else
{
warning TF("And it is not a party member");
$allowed = 0;
}
}
}
###
# If monster hasn't been attacked by other players
if (scalar(keys %{$monster->{missedFromPlayer}}) == 0
&& scalar(keys %{$monster->{dmgFromPlayer}}) == 0
### && scalar(keys %{$monster->{castOnByPlayer}}) == 0
&& $allowed == 1
Ммм, это мой сырой код с отладкой, сообщения естесвенно выкинуть надо, и может проверку оптимизировать как нить? Делано на скорую руку.Click писал(а):проверку я думаю стоит оставить, так как не охото атаковать моба на которого кинули аги блес и тп, а так же не правильно атаковать моба на которого кинули провок.
проверку на пати нужно добавить, но эти сообщения думаю стоит убрать, так как про касты на мобов сообщения и так выводятся, и если килстил, то сообщение тоже выводиться, просто много спама будет.
ок?
Код: Выделить всё
--- Misc.pm Mon Mar 17 12:59:30 2008
+++ misc.my Thu Jun 05 12:40:50 2008
@@ -1329,8 +1329,29 @@
}
+
+ ###
+ my $allowed = 1;
+ if (scalar(keys %{$monster->{castOnByPlayer}}) > 0)
+ {
+ foreach (keys %{$monster->{castOnByPlayer}})
+ {
+ my $ID1=$_;
+ my $source = Actor::get($_);
+ unless ( existsInList($config{tankersList}, $source->{name}) ||
+ ($char->{party} && %{$char->{party}} && $char->{party}{users}{$ID1} && %{$char->{party}{users}{$ID1}}))
+ {
+ $allowed = 0;
+ last;
+ }
+ }
+ }
+ ###
+
# If monster hasn't been attacked by other players
if (scalar(keys %{$monster->{missedFromPlayer}}) == 0
&& scalar(keys %{$monster->{dmgFromPlayer}}) == 0
- && scalar(keys %{$monster->{castOnByPlayer}}) == 0
+### && scalar(keys %{$monster->{castOnByPlayer}}) == 0
+ && $allowed
+
# and it hasn't attacked any other player