Code: Select all
function CountSub(itemType, itemColor, containerID : integer) : integer;
begin
FindTypeEx(itemType, itemColor, containerID, true);
result := FindFullQuantity();
end;
Code: Select all
function CountSub(itemType, itemColor, containerID : integer) : integer;
begin
FindTypeEx(itemType, itemColor, containerID, true);
result := FindFullQuantity();
end;
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.
Code: Select all
program Test;
begin
AddToSystemJournal(IntToHex(FindTypeEx($0E75, $FFFF, Self(), True), 8));
AddToSystemJournal(IntToStr(FindFullQuantity()));
end.
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;