Code: Select all
Program Anatomy;
var t : Integer;
enemy : Cardinal;
{$Include 'all.inc'}
Begin
Enemy := $12345678;
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(5,2);
CheckSave;
UseSkill('Anatomy');
WaitTargetObject(enemy);
Wait(10000);
end;
Hungry(1,backpack);
end;
end;
End.