Может у меня глаза замылились, но реально не понимаю, почему может не работать вот эта хренотень:
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.
Заранее спасибо.