src/BlocksLogic.pas

   1 unit BlocksLogic;
   2
   3 interface
   4
   5   procedure Draw(x, y, camx, camy : integer);
   6
   7 implementation
   8
   9   uses Vars, Blocks, Maps;
  10
  11   procedure Draw(x, y, camx, camy : integer);
  12     const
  13       tileSize = 16;
  14     var
  15       id : integer;
  16       texid : integer;
  17     begin
  18       id := Maps.GetMap(x, y);
  19       texid := Blocks.GetTexture(id);
  20       DrawImage(tex[texid], x * tileSize - camx, y * tileSize - camy);
  21     end;
  22
  23 initialization
  24
  25 end.