;Alan's counter script
;Put this in the 1's spot with number pictures for states 0 through 9.
ON ENTER
{
	s_1 GLOBAL
	ME s_1 =
}

ON SELECT
{
	s_10 GLOBAL
		{ 0 ME SETSPOTSTATE
		s_10 SELECT
		} { ME GETSPOTSTATE 1 + ME SETSPOTSTATE } ME GETSPOTSTATE 9 == IFELSE
}




;Put this in the 10's spot with number pictures for states 0 through 9.
ON ENTER
{
	s_10 GLOBAL
	ME s_10 =
}

ON SELECT
{
	s_100 GLOBAL
		{ 0 ME SETSPOTSTATE
		s_100 SELECT
		} { ME GETSPOTSTATE 1 + ME SETSPOTSTATE } ME GETSPOTSTATE 9 == IFELSE
}




;Place this in the 100's spot with number pictures for states 0 through 9.
ON ENTER
{
	s_100 GLOBAL
	ME s_100 =
}

ON SELECT
{
	10 N =
	ME GETSPOTSTATE 1 + N % ME SETSPOTSTATE
}



;Place this in the 'reset' spot
ON SELECT
{
	{ DUP GLOBAL 0 SWAP SETSPOTSTATE } [ s_1 s_10 s_100 ] FOREACH
}