anchor.diff:  end;
   
   
  -procedure TKMGamePlayInterface.HandlePauseKey(Key: Word; Shift: TShiftState);
  -var
  -  doSetPause: Boolean;
  -begin
  -  // General function keys
  -  if (Key <> gResKeys[kfPause]) then Exit;
  -
  -  doSetPause := False;
  -  case fUIMode of
  -    umSP:       doSetPause := True;
  -    umReplay:   ;
  -    umMP,
  -    umSpectate: doSetPause := SpeedChangeAllowedInMP;
  -  end;
  -
  -  if doSetPause then
  -    SetPause(True); // Display pause overlay
  -end;
  -
  -
  -procedure TKMGamePlayInterface.HandleDebugKeys(Key: Word; Shift: TShiftState);
  -begin
  +procedure TKMGamePlayInterface.HandleDebugKeys(Key: Word);
  +begin
  +  if fUIMode = umReplay then Exit;
  +
     { Temporary cheat codes }
     if DEBUG_CHEATS and (MULTIPLAYER_CHEATS or (fUIMode = umSP)) then
     begin
  
positive.code: end;
  
  
  procedure TKMGamePlayInterface.HandleSpeedUpKeys(Key: Word; Shift: TShiftState);
  begin
    if   (Key = gResKeys[kfSpeedup1])
      or (Key = gResKeys[kfSpeedup2])
  
negative.code:   inherited KeyDown(Key, Shift, aIsFirst, keyHandled);
    if keyHandled then Exit;
  
    if (Key = gResKeys[kfReplayPlayNextTick]) and Button_ReplayStep.IsClickable then
      ReplayClick(Button_ReplayStep);
  
    // Next keys are
    if not aIsFirst then Exit;
  
    HandleShowTeamKeyDown(Key);
    HandleMessageKeys(Key);
  
    // These keys are allowed during replays
    HandleMiscKeys(Key);
    HandleSelectKeys(Key, Shift);
    HandleMenuKeys(Key);
    HandleNextHouseKey(Key);
    HandleSpeedUpKeys(Key);
    HandleFieldPlanKeys(Key);
  
    // First check if this key was associated with some Spectate/Replay key
    if HandleSpectatorKeys(Key, Shift) then
      Exit;
  
    fGuiGameUnit.KeyUp(Key, Shift, keyHandled);
    fGuiGameHouse.KeyUp(Key, Shift, keyHandled);
  end;
  
  
  