Code: Select all
Program Arms;
var t : Integer;
{$Include 'all.inc'}
Begin
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
while not Dead do
begin
if Connected then
begin
for t := 0 to 10 do
begin
if TargetPresent then CancelTarget;
CheckTargetError(2,2);
CheckSave;
UseSkill('Arms Lore');
WaitTargetObject($011706B8); // ID вещи
Wait(10000);
end;
Hungry(1,backpack);
end;
end;
End.