src/Blocks.mpsrc

   1 unit Blocks;
   2
   3 interface
   4
   5   function IsTransporent(id : integer) : boolean;
   6   function IsForeground(id : integer) : boolean;
   7   function IsOverlapped(id : integer) : boolean;
   8
   9 implementation
  10
  11   uses items_store;
  12
  13   function IsTransporent(id : integer) : boolean;
  14     begin
  15       result := (items_store.GetBlockFlags(id) and 1) <> 0;
  16     end;
  17
  18   function IsForeground(id : integer) : boolean;
  19     begin
  20       result := (getBlockFlags(id) and 2) <> 0;
  21     end;
  22
  23   function IsOverlapped(id : integer) : boolean;
  24     begin
  25       result := (getBlockFlags(id) and 4) <> 0;
  26     end;
  27
  28 end.