anchor.diff:      end;
   end;
   
  -procedure TEntities<T>.Render;
  +procedure TEntities{$IFNDEF FPC} <T> {$ENDIF}.Render;
   var
     I: Integer;
   begin
  
positive.code:     end;
  end;
  
  function TEntities<T>.Has(X, Y: Integer): Integer;
  var
    I: Integer;
  begin
  
negative.code: {$REGION ' TCreatures '}
  
  type
    TCreatures = class({$IFDEF FPC} specialize {$ENDIF} TEntities<TCreature>, IStorage)
    public
      constructor Create;
      destructor Destroy; override;
  