Stealth Client Forum

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.

Code: Select all

DELETED

Code: Select all

while GetGumpsCount > 0 do CloseSimpleGump;

Code: Select all

repeat
   wait(50);
until (InJournal(WaitLine)<>-1) or (IsGump)

Code: Select all

Program AnimalLore; 
{$Include 'all.inc'}
var
i :integer;

const
      Animal = $00079662; //ID животного
begin
   while GetSkillValue('Animal Lore') < 100 do
   begin
      UseSkill('Animal Lore');
      WaitTargetObject(Animal); 
      for  i := 0 to GetGumpsCount - 1 do
      begin
        CloseSimpleGump(i);
      end;
      wait(1000);
   end;
end. 

Code: Select all

a := GetGumpsCount;
while a = GetGumpsCount do wait(50);
CloseSimpleGump(a+1);

Code: Select all

DELETED

Code: Select all

      repeat
         wait(50);
      until (InJournal(WaitLine)<>-1) or (IsGump)

Code: Select all

DELETED

Code: Select all

Procedure CloseGumps;
   var k : Integer;
   begin
      if IsGump then
      begin
         for k:=(GetGumpsCount-1) downto 0 do
         begin
            CloseSimpleGump(k);
         end;
      end;
   end;

Code: Select all

while (GetGumpsCount > 0) do CloseSimpleGump(0);

Code: Select all

DELETED