#base "../mod.vmt"

"UnlitGeneric" {
	$digit 0 
	$override 0
	
	$leading 0
	$leading_check 0
	
	$left 0
	$left_factor1 0
	$left_factor2 0
	$left_factor3 0
	
	$lt 9999
	$gt -1

	$const_interval	0.06 // update interval
	$const_ten 10 $const_one 1 $const_half 0.5 $const_zero 0
	$const_hun 100 $const_tou 1000

	$value 0 $value_digit 0

	Proxies {
		// Get player's speed
		PlayerSpeed { scale 1 resultVar $value }

		// Swap digits if ($left == 1)
		Equals { srcVar1 $digit resultVar $override }
	
		Equals { srcVar1 $const_ten resultVar $left_factor1 }
		Equals { srcVar1 $const_hun resultVar $left_factor2 }
		Equals { srcVar1 $const_tou resultVar $left_factor3 }
		Divide { srcVar1 $left_factor1 srcVar2 $digit resultVar $left_factor1 }
		Divide { srcVar1 $left_factor2 srcVar2 $digit resultVar $left_factor2 }
		Divide { srcVar1 $left_factor3 srcVar2 $digit resultVar $left_factor3 }
		LessOrEqual {
			lessEqualVar $override greaterVar $left_factor1
			srcVar1 $value srcVar2 $const_ten
			resultVar $override
		}
		LessOrEqual {
			lessEqualVar $override greaterVar $left_factor2
			srcVar1 $value srcVar2 $const_hun
			resultVar $override
		}
		LessOrEqual {
			lessEqualVar $override greaterVar $left_factor3
			srcVar1 $value srcVar2 $const_tou
			resultVar $override
		}
		LessOrEqual {
			lessEqualVar $digit greaterVar $override
			srcVar1 $left srcVar2 $const_zero
			resultVar $override
		}
		
		// Display digit
		Divide { srcVar1 $value srcVar2 $override resultVar $value_digit }
		WrapMinMax { srcVar1 $value_digit maxVal $const_ten resultVar $frame }
		
		// Set to frame 10 (empty) if ($leading == 1) && digit is leading zero 
		Equals { srcVar1 $const_zero resultVar $leading_check }
		LessOrEqual {
			lessEqualVar $value greaterVar $const_tou
			srcVar1 $leading srcVar2 $const_zero
			resultVar $leading_check
		}
		Add { srcVar1 $leading_check srcVar2 $const_one resultVar $leading_check }
		LessOrEqual {
			lessEqualVar $const_ten greaterVar $frame
			srcVar1 $leading_check srcVar2 $digit
			resultVar $frame
		}
		
		// Set to frame 10 (empty) if (less than $lt or greater than $gt)
		LessOrEqual {
			lessEqualVar $frame greaterVar $const_ten
			srcVar1 $value srcVar2 $lt
			resultVar $frame
		}
		LessOrEqual {
			lessEqualVar $const_ten greaterVar $frame
			srcVar1 $value srcVar2 $gt
			resultVar $frame
		}
	}
}