anchor.diff:    if InRange(aPlayer, 0, fPlayers.Count - 1) then
       Result := fPlayers[aPlayer].Stats.GetCitizensCount
     else
  -    LogError('States.ArmyCount', [aPlayer]);
  +  begin
  +    Result := 0;
  +    LogError('States.CitizenCount', [aPlayer]);
  +  end;
   end;
   
   
  
positive.code:   then
      Result := fPlayers[aPlayer].Stats.GetHouseQty(HouseIndexToType[aHouseType])
    else
      LogError('States.HouseTypeCount', [aPlayer]);
  end;
  
  
  
negative.code:   then
      Result := fPlayers[aPlayer].Stats.GetUnitQty(UnitIndexToType[aUnitType])
    else
    begin
      Result := 0;
      LogError('States.UnitTypeCount', [aPlayer]);
    end;
  end;
  
  
  