<?php
set_time_limit(0);
$counts=Array();
$counts["undetermined"]=0;
function splitBetween($string0,$string1,$string2,$number0,$number1) {
	$y=explode($string1,$string0);
	if (!empty($y[$number0])) {
		$x=explode($string2,$y[$number0]);
	}
	if (!empty($x[$number1])) {
		return $x[$number1];
	} else {
		return false;
	}
}
for ($page=1;$page<=1420;$page++) {
	$raw=file_get_contents("http://unrealsoftware.de/users.php?o=1&d=0&il=&f=&p=0&start=".((50*$page)-50));
	for ($i=1;$i<=50;$i++) {
		$country=splitBetween($raw,"<td>","</td>",5*$i,0);
		if ($country!=false) {
			if ($country=="-") {
				$counts["undetermined"]=$counts["undetermined"]+1;
			} else {
				$country=splitBetween($country,'" alt="','" title="',1,0);
				if (empty($counts[$country])) {
					$counts[$country]=0;
				}
				$counts[$country]=$counts[$country]+1;
			}
		}
	}
	$file=fopen("counts.txt", 'w');
	fwrite($file,print_r($counts,true)."\n\nPages: ".$page);
	fclose($file);
}
?>

<?php
function print_r_reverse($in) {
    $lines = explode("\n", trim($in));
    if (trim($lines[0]) != 'Array') {
        // bottomed out to something that isn't an array
        return $in;
    } else {
        // this is an array, lets parse it
        if (preg_match("/(\s{5,})\(/", $lines[1], $match)) {
            // this is a tested array/recursive call to this function
            // take a set of spaces off the beginning
            $spaces = $match[1];
            $spaces_length = strlen($spaces);
            $lines_total = count($lines);
            for ($i = 0; $i < $lines_total; $i++) {
                if (substr($lines[$i], 0, $spaces_length) == $spaces) {
                    $lines[$i] = substr($lines[$i], $spaces_length);
                }
            }
        }
        array_shift($lines); // Array
        array_shift($lines); // (
        array_pop($lines); // )
        $in = implode("\n", $lines);
        // make sure we only match stuff with 4 preceding spaces (stuff for this array and not a nested one)
        preg_match_all("/^\s{4}\[(.+?)\] \=\> /m", $in, $matches, PREG_OFFSET_CAPTURE | PREG_SET_ORDER);
        $pos = array();
        $previous_key = '';
        $in_length = strlen($in);
        // store the following in $pos:
        // array with key = key of the parsed array's item
        // value = array(start position in $in, $end position in $in)
        foreach ($matches as $match) {
            $key = $match[1][0];
            $start = $match[0][1] + strlen($match[0][0]);
            $pos[$key] = array($start, $in_length);
            if ($previous_key != '') $pos[$previous_key][1] = $match[0][1] - 1;
            $previous_key = $key;
        }
        $ret = array();
        foreach ($pos as $key => $where) {
            // recursively see if the parsed out value is an array too
            $ret[$key] = print_r_reverse(substr($in, $where[0], $where[1] - $where[0]));
        }
        return $ret;
    }
}
$counts=print_r_reverse(file_get_contents("counts.txt"));
arsort($counts);
foreach ($counts as $key => $value) {
	print("[b]".$key."[/b]: ".$value."\n");
}
?>