anchor.diff:  
   procedure TKMGamePlayInterface.UpdateMenuState(aTactic: Boolean);
   begin
  -  Button_Main[1].Enabled := not aTactic and not fReplay;
  -  Button_Main[2].Enabled := not aTactic and not fReplay;
  -  Button_Main[3].Enabled := not aTactic;
  +  Button_Main[tbBuild].Enabled := not aTactic and not fReplay;
  +  Button_Main[tbRatio].Enabled := not aTactic and not fReplay;
  +  Button_Main[tbStats].Enabled := not aTactic;
   
     //No loading during multiplayer games
     Button_Menu_Load.Enabled := not fMultiplayer and not fReplay;
  
positive.code:       Label_VictoryChance : TKMLabel;
  
      Panel_Controls: TKMPanel;
        Button_Main: array[1..5]of TKMButton; //4 common buttons + Return
  
      Panel_Replay:TKMPanel; //Bigger Panel to contain Shapes to block all interface below
      Panel_ReplayCtrl:TKMPanel; //Smaller Panel to contain replay controls
  
negative.code: 
  procedure TKMGamePlayInterface.House_Demolish(Sender:TObject);
  begin
    if (fPlayers.Selected = nil) or not (fPlayers.Selected is TKMHouse) then Exit;
  
    if Sender = Button_House_DemolishYes then
    begin
      fGame.GameInputProcess.CmdBuild(gic_BuildRemoveHouse, TKMHouse(fPlayers.Selected).GetPosition);
      ShowHouseInfo(nil, False); //Simpliest way to reset page and ShownHouse
    end else
      fAskDemolish := False;
  
    SwitchPage(Button_Main[tbBuild]); //Return to build menu
  end;
  
  
  procedure TKMGamePlayInterface.House_RepairToggle(Sender: TObject);
  begin
    if (fPlayers.Selected = nil) or not (fPlayers.Selected is TKMHouse) then Exit;
  
    fGame.GameInputProcess.CmdHouse(gic_HouseRepairToggle, TKMHouse(fPlayers.Selected));
    Button_House_Repair.TexID := IfThen(TKMHouse(fPlayers.Selected).BuildingRepair, 39, 40);
  end;
  
  
  procedure TKMGamePlayInterface.House_WareDeliveryToggle(Sender: TObject);
  begin
    if (fPlayers.Selected = nil) or not (fPlayers.Selected is TKMHouse) then Exit;
  
    fGame.GameInputProcess.CmdHouse(gic_HouseDeliveryToggle, TKMHouse(fPlayers.Selected));
    Button_House_Goods.TexID := IfThen(TKMHouse(fPlayers.Selected).WareDelivery, 37, 38);
  end;
  
  
  procedure TKMGamePlayInterface.House_OrderClick(Sender: TObject; AButton: TMouseButton);
  var I: Integer; Amt:byte;
  begin
    if (fPlayers.Selected = nil) or not (fPlayers.Selected is TKMHouse) then Exit;
  
    Amt := 0;
    if AButton = mbLeft then Amt := 1;
  