Stealth Client Forum

Code: Select all

procedure Grab;

begin
    UseObject(Sunduk);
    Wait(1500);
    FindType($097B, Sunduk);   
    if FindCount > 0 then
      begin
        if not (FindType($097B, backpack) > 0) then
          begin
            MoveItem(FindType($097B, Sunduk), 10, backpack, 0,0,0);
            Wait(1500);
          end;
      end;
end;

Code: Select all

begin
     if CountEx(GoldCoin,$0000,backpack) > 0 then
     begin
       FindTypeEx (GoldCoin,$0000,Backpack,True);
        MoveItem(FindItem,0,money,0,0,0); 
     end;
  end;

Code: Select all

function FindTypeEx(ObjType: Word; Color: Word; Container: Cardinal; InSub: Boolean): Cardinal; // Ищет объект указанного типа ObjType и цвета Color в указанном контейнере
Если указать [color=darkred]ObjType или Color = $FFFF, то ищет любого типа.
Container = Backpack - ищем в бекпаке.
Container = Ground - ищем на земле.
Container = $FFFFFFFF - ищем в бекпаке и на земле.
Если InSub = True, то ищем в подсумках.
Возвращает ID вещи.
Если контейнер не существует, то ищем в бекпаке
Если обьект найден, то Result = FindItem
Если ничего не найдено то результат нулевой!
Во время поиска учитываются FindDistance и FindVertical 

Code: Select all

procedure OpenCont;//Открыть все контейнеры, типы в массиве TypeCont[], для верности можно пару раз прогнать что бы найти вложенные контейнеры
var
List:TstringList;
i,ii:integer;
TypeCont:array[0..4] of cardinal;
begin
TypeCont[0]:=$0E76; TypeCont[1]:=$0E79; TypeCont[2]:=$0E75;
TypeCont[3]:=$0E7A; TypeCont[4]:=$0E80;
for ii := 0 to 4 do Begin
 List := TStringList.Create
 if FindTypeEx(TypeCont[ii],$FFFF,backpack,true) > 0 then begin
  GetFindedList(List); 
  for i := 0 to List.Count-1 do begin
   UseObject(StrToInt('$'+List.strings[i])); wait(50);
  end;
 end;
 List.Free;
end;

Code: Select all

procedure OpenContainers(Container: Cardinal)
var
	TypeContainers: array of Cardinal;
begin
	
	TypeOfContainers := [$0E76, $0E79, $0E75, $0E7A, $0E80]; //Сюда ложим известные типы контейнеров. Открывает только контейнеры с этими типами.
	OpenContainer(Container, TypeOfContainers);
	
end;

procedure OpenContainer(Container: Cardinal; TypeOfContainers: array of Cardinal)
var
	i, j: Cardinal;
	List: TStringList;
begin
	
	try
		List := TStringList.Create();
		for i := 0 to Length(TypeOfContainers) - 1 do begin
			if FindType(TypeOfContainers[i], Backpack) > 0 then begin\
				List.Clear();
				GetFindedList(List);
				for j := 0 to List.Count() - 1 do begin
					OpenContainer(StrToInt('$'+List.Strings[i]));
				end;
			end;
		end;
	finally
		List.Free();
	end;
	
end;