anchor.diff:  
     obj: TObjTemplate;
   
  -  keyword: string;
  +  keyword, s: string;
   
     keywords: TStringList;
   
  -
  -  tt: TTerrainType;
     i: Integer;
     obj_type: TObjType;
     obj_subtype: TObjSubType;
  
positive.code:     keywords.Clear;
      obj := FAllTemplates[idx];
  
      //index by terrain name, temp
      for tt in TTerrainType do
      begin
        if [tt] * obj.AllowedTerrains = [tt] then
        begin
          keywords.Add(UTF8LowerCase(GetEnumName(TypeInfo(TTerrainType), Integer(tt))));
        end;
      end;
  
      obj_type := obj.ObjType;
  
negative.code:     str: String;
  
      passable, active: Boolean;
      mask_conf, visit_conf, allowedTerrains, tags: TJSONArray;
      //anim: TDefAnimation;
      width_tiles: Integer;
      height_tiles: Integer;
  