/*
 *  $VER: shuffle_statistic.rexx 1.0 (28.06.2007) © 2007 Christian Rosentreter
 *
 *  Shows statistical information about all Shuffle level in form of a nice
 *  table.
 *
 *  > rx shuffle_statistics.rexx
 */

options results; 

if show("P","SHUFFLE") then signal SHUFFLE
say "Shuffle is not running.";
exit;

SHUFFLE:
	address shuffle; 

	querystats LEVELTOTAL; 
	leveltotal = result

	say "----+--------+--------+-----------+------------+--------------------------"
	say " ID | Played | Solved | Best Time | Slide Rec. | Name"
	say "----+--------+--------+-----------+------------+--------------------------"

	do i=1 to leveltotal
		querystats 'NAME' i;        name     = result;
		querystats 'SOLVED' i;      solved   = result;
		querystats 'PLAYED' i;      played   = result;
		querystats 'BESTTIME' i;    besttime = result;
		querystats 'SLIDERECORD' i; record   = result;

		say RIGHT(i,3) '|' RIGHT(played,6) '|' RIGHT(solved,6) '|' RIGHT(besttime,9) '|' RIGHT(record,10) '|' name;
	end

	say "----+--------+--------+-----------+------------+--------------------------"

	exit;