Code: Select all
Program AnimalLore;
var
b : TStringList;
i : Integer;
Begin
b := TStringList.Create;
while true do
begin
UseSkill('Animal Lore');
WaitTargetObject($00079662); //ID любой рядом стоящей живности
wait(2000);
for i := 0 to GetGumpsCount - 1 do
begin
CloseSimpleGump(i);
end;
end;
End.