Скриптинг в Stealth для чайников.

[DDoS]

Сделал

Code: Select all

function CountSub(itemType, itemColor, containerID : integer) : integer;
begin
	FindTypeEx(itemType, itemColor, containerID, true);
	result := FindFullQuantity();
end;

[Vizit0r]

а Count это и есть Findtype

function TScriptAPIThread.Script_CountEx(ObjType, Color : Word; Container : Cardinal) : Integer;
begin
...
Script_FindTypeEx(ObjType, Color, Container, false, True);

[DDoS]

Почему константы и переменные в program не видны для includes?

[nah nah]

разные пространства имён. везде так

[DDoS]

includes могут содержать в себе только одну процедуру/функцию?

[Vizit0r]

сколько угодно.

[DDoS]

FindTypeEx не умеет искать вещи на себе? Нужно сделать Count вещей на чаре, включая подконтейнеры и слои.

[Vizit0r]

FindTypeEx, и последний параметр в True.

[DDoS]

Так и делал, но на чаре итем не находит. В качестве контейнера указывал и Backpack и Self

[Vizit0r]

Code: Select all

var SL : TStringList;
    i : Integer;
begin
  FindTypeEx(-1,-1,Self,True);
   SL := TStringList.Create;
  GetFindedList(SL);
  if SL.Count > 0 then
    for i := 0 to SL.Count-1 do
      AddToSystemJournal('Obj ID: ' + SL.Strings[i]);
end.

Скрин с результатом приложен.
Если у тебя так не работает - стучись в Дискорд, будем копать.

[DDoS]

Я понял в чем проблема, это баг как был в Орионе когда-то. Это FindFullQuantity возвращает 0 если искать определенную вещь, и она одета на чаре. Если вещь положить в пак - вернет 1. Если вещь одеть даблкликом - вернет 1. Если вещь одеть перемещением на папердол - вернет 0. Или если зайти в игру с уже надетым предметом, тоже вернет 0. Для того же бекпака будет всегда 0.

Code: Select all

program Test;
begin
	AddToSystemJournal(IntToHex(FindTypeEx($0E75, $FFFF, Self(), True), 8));
	AddToSystemJournal(IntToStr(FindFullQuantity()));
end.

[Vizit0r]

это приколы конкретного сервера.
Для точного кол-ва найденных айтемов - используй FindCount
FindQuantity (ну и FindFullQuantity) используются в основном для подсчета айтемов в пачках, уж там-то сервер присылает правильно.

[DDoS]

Это скрипт на добор ресурсов, там и стакуемые и одиночные считать нужно. Сделал костыль, нормально

Code: Select all

function CountSub(itemType, itemColor, containerID : integer) : integer;
begin
	FindTypeEx(itemType, itemColor, containerID, true);
	
	if (FindCount() > FindFullQuantity()) then
	begin
		result := FindCount();
	end
	else
	begin
		result := FindFullQuantity();
	end;
end;