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.

