unit Blocks;

interface

  function IsTransporent(id : integer) : boolean;
  function IsForeground(id : integer) : boolean;
  function IsOverlapped(id : integer) : boolean;

implementation

  uses items_store;

  function IsTransporent(id : integer) : boolean;
    begin
      result := (items_store.GetBlockFlags(id) and 1) <> 0;
    end;

  function IsForeground(id : integer) : boolean;
    begin
      result := (getBlockFlags(id) and 2) <> 0;
    end;

  function IsOverlapped(id : integer) : boolean;
    begin
      result := (getBlockFlags(id) and 4) <> 0;
    end;

end.