function traverse {
	if [[ ! -e player.php\@id\=$(printf "%06d\\n" $1) ]]; then
		wget  --retry-on-http-error=403 --retry-connrefused http://pwrfactory.ru/stats/as/player.php?id=$(printf "%06d\\n" $1)
		
		maxlinks=1000
		local links=$(
			{
			for i in $(seq.exe 0 100 $maxlinks); do
				ID=$(wget  --retry-on-http-error=403 --retry-connrefused -O - 'http://pwrfactory.ru/stats/as/player.php?id='$1'&vlimit=100&vsort=kills&vorder=desc&vstart='$i | grep -Po '(?<=player.php\?id=)\d+(?=[^\d])(?<!='$1')')
				echo ------------------------------------------ >&2
				echo $1 >&2
				echo $ID >&2
				echo `wc -l <<< $ID` >&2
				echo ------------------------------------------ >&2
				if [[ $ID ]]; then
					echo $ID
				fi
				if (( `wc -l <<< $ID` < 100 )); then
					break
				fi
			done; } | sort | uniq );
		for l in $links; do
			traverse $l;
		done
	fi
}

# http://pwrfactory.ru/stats/as/index.php?sort=skill&order=desc&limit=500&q=&start=0
# http://pwrfactory.ru/stats/as/player.php?id=237669
# http://pwrfactory.ru/stats/as/player.php?id=237669&vlimit=100&vsort=kills&vorder=desc&vstart=0#victims

cd /cygdrive/f/Sync/QT_STEAM/qbans/statdump/
mkdir `date +%Y%m%j`; cd `date +%Y%m%j`


if [[ $1 != "" ]]; then pages=$1; else pages=3000; fi


playerIDs=$( { for i in $(seq 0 500 $pages); do
		wget --retry-on-http-error=403 --retry-connrefused -O - 'http://pwrfactory.ru/stats/as/index.php?sort=skill&order=desc&limit=500&q=&start='$i | grep -Po '(?<=player.php\?id=)\d+'
done; } | sort | uniq );


for pl in $playerIDs; do
	traverse $pl
done