anchor.diff:  
     fFieldsList     := TKMPointTagList.Create;
     fHousePlansList := TKMPointDirList.Create;
  -  fTabletsList := TKMPointTagList.Create;
  +  fTabletsList    := TKMPointTagList.Create;
  +  fMarksList      := TKMPointTagList.Create;
  +  fHouseOutline   := TKMPointList.Create;
     //fSampleHouse := TOBJModel.Create;
     //fSampleHouse.LoadFromFile(ExeDir + 'Store.obj');
   end;
  
positive.code: procedure TRenderPool.RenderWireHousePlan(P: TKMPoint; aHouseType: THouseType);
  var
    I: Integer;
    MarksList: TKMPointTagList;
  begin
    MarksList := TKMPointTagList.Create;
    gPlayers[MySpectator.PlayerIndex].GetHouseMarks(P, aHouseType, MarksList);
  
    for I := 0 to MarksList.Count - 1 do
    if MarksList.Tag[I] = TC_OUTLINE then
      RenderWire(MarksList[I], $FFFFFF00) //Cyan rect
    else
      RenderSpriteOnTile(MarksList[I], MarksList.Tag[I]); //icon
  
    MarksList.Free;
  end;
  
  
  
negative.code: end;
  
  
  procedure TRenderPool.RenderWireTile(P: TKMPoint; Col: TColor4);
  begin
    if not gTerrain.TileInMapCoords(P.X, P.Y) then exit;
    glColor4ubv(@Col);
  