anchor.diff:    dirBase, dirShad, dirTeam, suffixPath: string;
     needsMask: Boolean;
   begin
  -  if aDir = dirNA then
  -    Exit(-1);
  -
  -  A := fResUnits[aUT].UnitAnim[aAction,aDir];
  -
  -  if (A.Count <= 1) or (A.Step[1] = -1) or not (aAction in UNIT_SUPPORTED_ANIMS[aUT]) then
  -    Exit(-1);
  -
     for I := Low(fAnimCache) to High(fAnimCache) do
     begin
       if SameAnim(fAnimCache[I].A, A) then
  
positive.code: 
  
  function TForm1.DoInterpUnit(aUT: TKMUnitType; aAction: TKMUnitActionType; aDir: TKMDirection; var aPicOffset: Integer): Integer;
  
    function SameAnim(A, B: TKMAnimLoop): Boolean;
    var
  
negative.code:   KMDeleteFolder(dirShad);
    KMDeleteFolder(dirTeam);
  
    MakeInterpImages(RT, A, dirBase, ietBase);
    MakeInterpImages(RT, A, dirShad, ietShadows);
    MakeInterpImages(RT, A, dirTeam, ietTeamMask);
  
    StrList := TStringList.Create;
  
  