Stealth Client Forum

Code: Select all

Program ItemId;

const
 Chest = $00000000;
 
procedure WaitLag(WaitTimeMS : Integer);
begin
 CheckLag(30000);
 Wait(WaitTimeMS);
end;
 
function Identification(Item_Id : Cardinal) : Boolean;
var
 i     : Integer;
 cTime : TDateTime;
begin
 Result := False;
 if (Item_Id <> 0) and Connected and (Not Dead) then
  begin
   if TargetPresent then 
    CancelTarget
   else
	begin
	 cTime := Now;
	 UseSkill('Item Identification');
	 if WaitForTarget(30000) then
	  TargetToObject(Item_Id);
	 for i := 0 to 10 do
	  begin
	   if WaitJournalLine(cTime, 'item|object|not sure |It appears to be', 1000) or Dead or (not Connected) then
	    break;
	   CheckLag(30000); 
       Result := True;	   
	  end;
	end;
   end;
end;

begin
 if Chest <> 0 then
  begin
   UseObject(Chest);
   WaitLag(1000);
   while not Dead do
    begin
     While(FindType($FFFF, Chest) > 0) do
	  begin
       while not Identification(FindItem) do
        WaitLag(500);
	   Ignore(FindItem);
	  end;
	 IgnoreReset;
    end;
  end;
end.

Code: Select all

Program ItemId;
Program ItemId;

const
 ChestWithBags = $00000200;

var
 Bags : Array of Cardinal;
 k : Integer;
 
procedure WaitLag(WaitTimeMS : Integer);
begin
 CheckLag(30000);
 Wait(WaitTimeMS);
end;
 
function Identification(Item_Id : Cardinal) : Boolean;
var
 i     : Integer;
 cTime : TDateTime;
begin
 Result := False;
 if (Item_Id <> 0) and Connected and (Not Dead) then
  begin
   if TargetPresent then 
    CancelTarget
   else
	begin
	 cTime := Now;
	 UseSkill('Item Identification');
	 if WaitForTarget(30000) then
	  TargetToObject(Item_Id);
	 for i := 0 to 10 do
	  begin
	   if WaitJournalLine(cTime, 'item|object|not sure |It appears to be', 1000) or Dead or (not Connected) then
	    break;
	   CheckLag(30000); 
       Result := True;	   
	  end;
	end;
   end;
end;

begin
 Bags := [$000000002, $0000003, $0000000004]; //вписывай сколько нужно сумок
 if ChestWithBags <> 0 then
  begin
   UseObject(ChestWithBags);
   WaitLag(1000);
   for k := 0 to Length(Bags)-1 do
    While(FindType($FFFF, Bags[k]) > 0) do
	  begin
       Identification(FindItem);
       WaitLag(500);
	   Ignore(FindItem);
	  end;
	IgnoreReset;   
  end;
end.