anchor.diff:  
   
   function TKMUnitSpec.SupportsAction(aAct: TKMUnitActionType): Boolean;
  -const UnitSupportedActions: array [TKMUnitType] of TKMUnitActionTypeSet = (
  +const
  +  UnitSupportedActions: array [TKMUnitType] of TKMUnitActionTypeSet = (
       [], [], //None, Any
       [uaWalk, uaDie, uaEat, uaWalkArm], //Serf
       [uaWalk, uaWork, uaDie, uaWork1, uaEat..uaWalkTool2],
  
positive.code: 
  function TKMUnitSpec.GetUnitTextID: Integer;
  begin
    if IsValid then
      case fUnitType of
        utWolf:        Result := TX_UNITS_WOLF;
        utFish:        Result := TX_UNITS_FISH;
        utWatersnake:  Result := TX_UNITS_WATERSNAKE;
        utSeastar:     Result := TX_UNITS_SEASTAR;
        utCrab:        Result := TX_UNITS_CRAB;
        utWaterflower: Result := TX_UNITS_WATERFLOWER;
        utWaterleaf:   Result := TX_UNITS_WATERLEAF;
        utDuck:        Result := TX_UNITS_DUCK;
        else            Result := TX_UNITS_NAMES__29 + UNIT_TYPE_TO_ID[fUnitType];
      end
    else
      Result := -1;
  end;
  
  
  
negative.code: //Animals don't have team and thus are rendered in their own prefered clors
  function TKMUnitSpec.GetMinimapColor: Cardinal;
  const
    MMColor: array[TKMUnitType] of Cardinal = (
      0,0,0,0,0,0,0,0,0,0,
      0,0,0,0,0,0,0,0,0,0,
      0,0,0,0,0,0,0,0,0,0,
  