function RunesExists: Boolean;
var
  I, J: 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 := 1 to 28 do
  begin
    InvItem := GetInvItem(I);
    for J := 0 to 2 do
      if (CompareBlacklist(InvItem, RuneArr[J], TextArr[J], tab_Inv)) then
        WriteLn('Found Rune')
  end;
end;