anchor.diff:  procedure TKMHouse.UpdateDamage;
   var Dmg: integer;
   begin
  -  Dmg := GetMaxHealth div 8; //There are 8 fire places for each house, so the increment for each fire level is Max_Health / 8
  +  Dmg := MaxHealth div 8; //There are 8 fire places for each house, so the increment for each fire level is Max_Health / 8
     fCurrentAction.SubActionRem([ha_Fire1,ha_Fire2,ha_Fire3,ha_Fire4,ha_Fire5,ha_Fire6,ha_Fire7,ha_Fire8]);
     if fDamage > 0*Dmg then fCurrentAction.SubActionAdd([ha_Fire1]);
     if fDamage > 1*Dmg then fCurrentAction.SubActionAdd([ha_Fire2]);
  
positive.code: end;
  
  
  function TKMHouse.GetMaxHealth:word;
  begin
    Result := fResource.HouseDat[fHouseType].WoodCost*50 + fResource.HouseDat[fHouseType].StoneCost*50;
  end;
  
  
  
negative.code: function TKMHousesCollection.GetTotalPointers: integer;
  var i:integer;
  begin
    Result := 0;
    for i:=0 to Count-1 do
      Result := Result + Houses[i].PointerCount;
  end;
  
  
  