anchor.diff:    ID: Integer;
   begin
     inherited;
  -  if not fVisible then exit;
  -  if fAction = nil then exit;
  +  if not fVisible then Exit;
  +  if fAction = nil then Exit;
     V := fVisual.GetLerp(aTickLag);
   
     XPaintPos := V.PosF.X + UNIT_OFF_X + V.SlideX;
  
positive.code:   Assert((fTask = nil) or (fTask is TKMTaskDie));
    if fTask is TKMTaskDie then
    case fTask.Execute of
      trTaskContinues:  exit;
      trTaskDone:       raise Exception.Create('Unexpected fUnitTask.Execute value = trTaskDone'); //TTaskDie never returns trTaskDone yet
    end;
  
  
negative.code:   LoadStream.Read(fDismissASAP);
    LoadStream.Read(Dismissable);
    LoadStream.Read(fLastTimeTrySetActionWalk);
  end;
  
  
  