anchor.diff:  //1. Process Controls
   //2. Show SelectingTroopDirection
   procedure TKMGamePlayInterface.MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
  -var U:TKMUnit; H:TKMHouse; MyRect:TRect;
  +var
  +  U: TKMUnit;
  +  H: TKMHouse;
  +  MyRect: TRect;
   begin
     inherited;
   
  -  if not (fGame.GameState in [gsRunning, gsReplay]) or (fMyControls.CtrlOver <> nil) then exit;
  +  if (fGame.GameState <> gsRunning) or (fMyControls.CtrlOver <> nil) then
  +    Exit;
   
     if SelectingTroopDirection then
     begin
  
positive.code:     Exit;
    end;
  
    if fShownUnit is TKMUnitWarrior then
    begin
      if (MyPlayer.FogOfWar.CheckTileRevelation(GameCursor.Cell.X, GameCursor.Cell.Y, false)>0) then
      begin
        U := fTerrain.UnitsHitTest (GameCursor.Cell.X, GameCursor.Cell.Y);
        H := fPlayers.HousesHitTest(GameCursor.Cell.X, GameCursor.Cell.Y);
  
negative.code:     end;
    end;
  
    if GameCursor.Mode <> cm_None then
    begin
      //Use the default cursor while placing roads, don't become stuck on c_Info or others
      if not fGame.Viewport.Scrolling then
  