Stealth Client Forum

Code: Select all

If Count($1BEF)<3 Then
 begin
  FindType($1BEF,MainBox);
  Grab(FindItem,200);
  wait(600)   
 end;

Code: Select all

If Count($1BEF)<3 Then
 begin
  FindType($1BEF,MainBox);
  MoveItem(FindItem,200,Backpack,0,0,0);
  wait(600)   
 end;

Code: Select all

UseObject(FindType($1EBC,Backpack))

Code: Select all

1:29:26 [Ribachok]: Drag error: Object not found.
1:29:27 [Ribachok]: UseObject error: Object not finded.

Code: Select all

var
 MainBox, Sunduk : Cardinal;
 STime: TDateTime;
Begin
MainBox := $40558AB2;

Code: Select all

FindType($1BEF,MainBox); 
//а тут можно вставить
if finditem = 0 then
  какое-то действие
  MoveItem(FindItem,200,Backpack,0,0,0);

Code: Select all

UseObject(FindType($1EBC,Backpack))

Code: Select all

// ОБЯЗАТЕЛЬНО открывай контейнер прежде чем в нем что-либо искать
//....
while (LastContainer<>Box) do
begin 
	UseObject(Box);
	CheckSave;
	wait(1000);
end;

//Да и перемещать лучше тоже с подстраховкой
//..
FindTypeEx(Ingot,IngColor,LastContainer,true);
if (FindCount>0) then begin
	while not MoveItem(FindItem,500, backpack, 0,0,0) do 
	begin 
	       CheckSave;
	       wait(1000);
	end;
end;