Рекол по рунам

[Venom]

Подскажите плс, как сделать рекол по рунам по очереди, если их более чем одна.
Т.е. среколились по одной руне, выполнили действие, вернулись назад.
Среколились по второй руне - выполнили действие, вернулись назад.

Code: Select all

Program New;
var
Rune: array [0..1] of Cardinal;

procedure Recall_1;
var
r: integer;

begin
//// открыли бокс где лежат руны
//// нашли руну в боксе
//// если нашли то что искали, то
begin
Cast('Recall');
WaitTargetObject(Rune[r]);
//// выполнили действие и вернулись назад к боксу.
end;
end;

begin

Rune[0]:=$6C02C5DB; // 
Rune[1]:=$6DD771DC; // 

while....

end;
end.

PS.
Неохота плодить процедуры.

[Fenix]

Самое простое, но не элегантное решение, - посре рекола добавляй руну в игнор-лист. Как только руны в паке закончатся - очищай игнор и иди по второму кругу.
Решение посложнее - получать список всех найденых рун в паке через GetFindedList и уже там реколиться. Естественно, придётся сохранять индекс руны, которую юзали последний раз.