anchor.diff:    if (A.Count <= 1) or (A.Step[1] = -1) then
       Exit(-1);
   
  -  Result := DoInterp(rxHouses, A, $000000, aPicOffset, aDryRun);
  +  Result := DoInterp(rxHouses, A, (aHouseAct in [haSmoke, haFire1..haFire8]), $000000, aPicOffset, aDryRun);
   end;
   
   
  
positive.code:   if (A.Count <= 1) or (A.Step[1] = -1) then
      Exit(-1);
  
    Result := DoInterp(rxUnits, A, $000000, aPicOffset, aDryRun);
  end;
  
  
  
negative.code:   if (A.Count <= 1) or (A.Step[1] = -1) then
      Exit(-1);
  
    Result := DoInterp(rxUnits, A, False, $FFFFFF, aPicOffset, aDryRun);
  end;
  
  
  