dirInput.ms

Point={}
Point.make = function(x,y)
	p = new Point
	p.x = x; p.y = y
	return p
end function
Point.zero = Point.make(0, 0)

current = null

dirInput = {}

dirInput.update = function
	x = key.axis("Horizontal")
	y = key.axis("Vertical")
	ax = abs(x)
	ay = abs(y)
	if ax < 0.8 and ay < 0.8 then
		p = null
	else
		p = Point.make(sign(x)*(ax>0.2), sign(y)*(ay>0.2))
	end if
	outer.current = p
end function

dirInput.available = function(update=true)
	if update then self.update
	return current != null
end function

dirInput.get = function
	if current == null then return Point.zero
	result = current
	outer.current = null
	return result
end function


if locals == globals then
	while true
		if dirInput.available then
			d = dirInput.get
			print time +  ": " + d.x + "," + d.y
		end if
		yield
	end while
end if