Так не хотелось опять создавать тему(

[supernewbie]

Но нигде не могу найти ответ, вернее скрипт.
Хочу написать скрипт который сканирует инвентарь. Но не так чтобы все записывал) а на проверку 2-3 итемов. Вот нашел только это

procedure scan;
begin
j:=4;
listcount:=readh(j);
for i:=1 to listcount do begin
j:=j+6;
if (readd(j)=ArcanaMace) then begin
Say('арку');
end;
if (readd(j)=Gem) then begin
Say('гем');
end;
if (readd(j)=LS) then begin
Say('ЛС');
end;
j:=j+72;
end;
end;

но он почему-то не работает.

помогите кто чем может)