anchor.diff:  destructor TUnitActionGoInOut.Destroy;
   begin
     if fUsedDoorway then DecDoorway;
  +  if fHouse<>nil then fPlayers.CleanUpHousePointer(fHouse);
     Inherited;
   end;
   
  
positive.code:   Inherited Create(aAction);
    fActionName     := uan_GoInOut;
    Locked          := true;
    fHouse          := aHouse;
    fDirection      := aDirection;
    fHasStarted     := false;
    fWaitingForPush := false;
  
negative.code:     if fUsingDoorway then
      begin
        IncDoorway;
        if fHouse<>nil then
          KMUnit.IsExchanging := (fHouse.DoorwayUse > 1);
      end;
      
      fHasStarted:=true;
  