Не корректно отрабатывает поиск предметов.

[Tomers]

Всем доброго времени суток!

Может у меня глаза замылились, но реально не понимаю, почему может не работать вот эта хренотень:

Code: Select all

const
sunduk=$40B9EEFE;

var
i,j:byte;
ring:array of word;

begin
ignorereset;
ring:=[$044E,$0483,$2258,$2259];
UseObject(sunduk);
wait(3000);
for i:=0 to 3 do begin
    for j:=0 to high(ring) do begin
        addtosystemjournal(inttostr(finditem)+' -- '+GetCliloc(finditem));
        if BMSearch(5,GetCliloc(finditem),' +')>0 then begin
            addtosystemjournal(GetCliloc(finditem));
            wait(500);
        end;
        ignore(finditem);
    end;
end;
end.

По идее должен открываться сундук и в системный журнал выписывать бижу с " +" в гампе. Но что-то пошло не так. Скрипт просто не видит предметов. Сам ящик открывается нормально. Может кто-то увидит, в чем проблема.
Заранее спасибо.

[Vizit0r]

может в том, что собственно поиска, который FindType, в скрипте-то и нет?

[Tomers]

Вот блин. Когда костыли все удалял, чтоб суда выложить, потер и поиск.

Вот в таком виде тоже не пашет:

Code: Select all

const
sunduk=$40B9EEFE;

var
i,j:byte;
ring:array of word;

begin
ignorereset;
ring:=[$044E,$0483,$2258,$2259];
UseObject(sunduk);
wait(3000);
for i:=0 to 3 do begin
    for j:=0 to high(ring) do begin
        FindType(ring[j],sunduk);
        addtosystemjournal(inttostr(finditem)+' -- '+GetCliloc(finditem));
        if BMSearch(5,GetCliloc(finditem),' +')>0 then begin
            addtosystemjournal(GetCliloc(finditem));
            wait(500);
        end;
        ignore(finditem);
    end;
end;
end.

[Vizit0r]

так навскидку причины не видно.
напиши мне в скайп\дискорд, гляну что там