anchor.diff:    U: TKMUnit;
     H: TKMHouse;
   begin
  -  if fDraggingObject then
  +  if fDragingObject then
     begin
       DragHouseModeEnd;
       ResetDragObject;
  
positive.code: 
      HouseNewPos := KMPointAdd(gGameCursor.Cell, fDragHouseOffset);
  
      if not fDraggingObject then
        H.SetPosition(HouseNewPos)  //handles Right click, when house is selected
      else
        if not IsDragHouseModeOn then
  
negative.code:       fDragObject := Obj;
        if Obj is TKMHouse then
          fDragHouseOffset := KMPointSubtract(TKMHouse(Obj).Entrance, gGameCursor.Cell); //Save drag point adjustement to house position
        fDragObjectReady := True;
      end;
    end;
  
  