Рекол по рунам
Posted: 12.04.2011 18:18
Подскажите плс, как сделать рекол по рунам по очереди, если их более чем одна.
Т.е. среколились по одной руне, выполнили действие, вернулись назад.
Среколились по второй руне - выполнили действие, вернулись назад.
PS.
Неохота плодить процедуры.
Т.е. среколились по одной руне, выполнили действие, вернулись назад.
Среколились по второй руне - выполнили действие, вернулись назад.
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.
Неохота плодить процедуры.