Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

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

тут можно задать вопрос по скриптингу
Post Reply
Tomers
Novice
Novice
Posts: 99
Joined: 06.08.2009 11:51

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

Post by 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.
По идее должен открываться сундук и в системный журнал выписывать бижу с " +" в гампе. Но что-то пошло не так. Скрипт просто не видит предметов. Сам ящик открывается нормально. Может кто-то увидит, в чем проблема.
Заранее спасибо.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

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

Post by Vizit0r »

может в том, что собственно поиска, который FindType, в скрипте-то и нет?
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Tomers
Novice
Novice
Posts: 99
Joined: 06.08.2009 11:51

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

Post by 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.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

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

Post by Vizit0r »

так навскидку причины не видно.
напиши мне в скайп\дискорд, гляну что там
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Post Reply