anchor.diff:    begin
       MyPlayer.Stats.HouseBlocked[H] := True;
       MyPlayer.Stats.HouseGranted[H] := False;
  -    Image_BlockHouse[I].TexID := 32;
     end else
     if MyPlayer.Stats.HouseBlocked[H] and not MyPlayer.Stats.HouseGranted[H] then
     begin
       MyPlayer.Stats.HouseBlocked[H] := False;
       MyPlayer.Stats.HouseGranted[H] := True;
  -    Image_BlockHouse[I].TexID := 33;
     end else
     begin
       MyPlayer.Stats.HouseBlocked[H] := False;
       MyPlayer.Stats.HouseGranted[H] := False;
  -    Image_BlockHouse[I].TexID := 0;
  -  end;
  -end;
  -
  -
  -procedure TKMapEdInterface.Player_BlockRefresh;
  +  end;
  +
  +  Player_BlockHouseRefresh;
  +end;
  +
  +
  +procedure TKMapEdInterface.Player_BlockHouseRefresh;
   var
     I: Integer;
     H: THouseType;
  
positive.code: end;
  
  
  procedure TKMapEdInterface.Player_BlockClick(Sender: TObject);
  var
    I: Integer;
    H: THouseType;
  
negative.code: 
      //Non-visual stuff per-player
      Panel_Player: TKMPanel;
        Button_Player: array [TKMPlayerTab] of TKMButton;
        Panel_Goals: TKMPanel;
          //
        Panel_Color: TKMPanel;
  