Ares Stats Collector

(* Import from oc.tc/stats, put in one big 2D list *)
lastPage = lastPage;  (* Replace this with whatever the highest page of the oc.tc/stats is *)
stats = {};
Do[
  query = "?page=" <> ToString[i];
  page = Import["http://oc.tc/stats" <> query, "Data"];
  Do[
   AppendTo[stats, page[[2, 1, 2, j]]];
   , {j, Length[page[[2, 1, 2]]]}];
  If[Mod[i, 100] == 0, Print[i]];
  , {i, lastPage}];

(* Export as CSV if desired *)
Export["C:\\yourpath\\aresstats.csv", stats, "CSV"]