пвп скрипт

[Ner0]

прошу помочь кто в курсе как прописать(написать) условие в скрипте чтобы варов по профе атаковал бы т е

проверка в зоне на наличе варов
проверка профы (к примеру хил)
атака
следующая профа либо цель



заранее благодарю облазил все форумы не нашел даже примеров

 

[zefi]

Вот что удалось набросать:

Спойлер

const
CLASS_ID_TO_ATTACK = 0;
ITERATION_DELAY = 100;
USE_CTRL_ATTACK = false;

procedure Attack ();
const
ATTACK_TIMEOUT = 2000;
begin
// Add skills if needed
Engine.Attack(ATTACK_TIMEOUT, USE_CTRL_ATTACK);
end;

procedure GetNewTarget();
var
CurrentChar: TL2Char;
i: Integer;
begin
for i:=0 to CharList.Count - 1 do
begin
CurrentChar := CharList.Items(i);
// Define conditions for attack
if (CurrentChar.Attackable and (CurrentChar.ClassID = CLASS_ID_TO_ATTACK)) then
begin
Engine.SetTarget(CurrentChar);
end;
end;
end;

begin

while Engine.Status = lsOnline do
begin

if (User.Target) then
begin
Attack();
end
else
begin
GetNewTarget();
end;

Delay(ITERATION_DELAY);

end;

end.

Скрипт не тестировал, возможны ошибки.

 

[Ner0]

спс потестю завтро а классы как в адрике определить ?

CLASS_ID_TO_ATTACK = 0;

 

[zefi]

Не знаю, как в адреналине, но можно зайти на http://l2kc.ru/ в раздел "Классы и умения", выбрать интересующий класс и посмотреть id в URL: http://l2kc.ru/classes/skills/97- Cardinal, id=97

 

[Ner0]

ругается на 37 строку условие если цель в таргете то атак если нет и тут ступор полный

1. if (User.Target) then
2. Attack();
3. else
4. GetNewTarget();

 

[zefi]

Поправил немного скрипт (http://rawr.su/topic/1975-pvp-skript/#entry3160), попробуйте, пожалуйста, измененную версию. Если не заработает, укажите, пожалуйста, что конкретно выводится в лог бота. У меня пока нет возможности его проверить и отладить.

 

[Ner0]

спс общими усилиями сделали