function RunesExists: Boolean;
var
i, ii: Integer;
RuneArr: Array of ListItem;
TextArr: TStringArray;
InvItem: ListItem;
begin
SetLength(RuneArr, 3);
SetLength(TextArr, 3);
RuneArr :=[AirRune, WaterRune, LawRune];
TextArr :=[AirRune.UpTextArr, WaterRune.UpTextArr,LawRune.UpTextArr];
for i:=0 to 2 do
begin
for ii:=1 to 28 do
begin
InvItem:= GetInvItem(ii);
if CompareBlacklist(InvItem, RuneArr[i], TextArr[i], tab_Inv) then
begin
writeln('found rune')
end;
end;
end;
end;