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
    for ii :=1 to 28 do
    begin
      InvItem := GetInvItem(ii);
      if (CompareBlacklist(InvItem, RuneArr[i], TextArr[i], tab_Inv)) then
        WriteLn('found rune')
    end;
end