Strict

Import newfile

Class TouchInput

	Global _hit:Int[5]
	Global _down:Int[5]
	Global _released:Int[5]
	Global _up:Int[5]
	

	Const TOUCH_ONE:Int = 0
	Const TOUCH_TWO:Int = 1
	Const TOUCH_THREE:Int = 2
	Const TOUCH_FOUR:Int = 3
	Const TOUCH_FIVE:Int = 4
	
	Function Update:Int()
		
	'HTML and glfw target. There is a check for Mousehit / MouseDown only!
		#If TARGET="glfw" Or TARGET = "html5"
		'Support Left, Right and Middlebutton.
			Local keys:Int[] =[MOUSE_LEFT, MOUSE_RIGHT, MOUSE_MIDDLE]
		
			For Local i:Int = 0 To keys.Length - 1
				_released[i] = False 'reset the released state each time.
			' Check the MouseHit
				If MouseHit(keys[i]) Then
					If _up[i] > 0 Then _up[i] = 0
					_hit[i] = True
			' No Mousehit? Check the MouseDown
				Else If MouseDown(keys[i]) Then
					If _up[i] > 0 Then _up[i] = 0
					_down[i] = True
			' Nothings down or hit? Check last state
				Else If _hit[i] > 0 Or _down[i] > 0 Then
					_up[i] = True
					_hit[i] = 0
					_down[i] = 0
					_released[i] = True
				EndIf
			Next
		
		#EndIf	
	'Android and other smartphone / tablet targets. I can only support the android target.
		#If TARGET="android" 
		
		'Support up to 5 Finger-touches. I cant debug more on my own.
			For Local i:Int = 0 Until 5
			
				_released[i] = False 'reset the released state each time.
				
			'Check the TouchHit
				If TouchHit(i) Then
					If _up[i] > 0 Then _up[i] = 0
					_hit[i] = True
			' No TouchHit? Check the TouchDown
				Else If TouchDown(i) Then
					If _up[i] > 0 Then _up[i] = 0
					_down[i] = True
			' Nothings down or hit? Check last state
				Else If _hit[i] > 0 Or _down[i] > 0 Then
					_up[i] = True
					_hit[i] = False
					_down[i] = False
					_released[i] = True
				EndIf
			Next
		#EndIf
		
		Return True
	
	End
	
	Function IsHit:Int(button:Int, reset_after:Int = False)
		If button <= 4 And button > 0 And _up[button] = False Then
			If reset_after Then
				Local i:Int = _hit[button]
				_hit[button] = False
				Return i
			EndIf
			Return _hit[button]
		EndIf
		Return -1
	End
	Function IsDown:Int(button:Int)
		If button < TOUCH_FIVE And button >= TOUCH_ONE And _up[button] = False Then
			Return _down[button]
		EndIf
		Return -1
	End
	
	Function IsReleased:Int(button:Int)
		If button < TOUCH_FIVE And button >= TOUCH_ONE And _up[button] = True Then
			Return _released[button]
		EndIf
		Return -1
	End

	Function IsUp:Int(button:Int)
		
		If button < TOUCH_FIVE And button >= TOUCH_ONE Then
			Return _up[button]
		EndIf
		Return -1
	End
End

[...]
Import Input

[...]

If Input.TouchInput.IsDown(i) > 0  Then

[...]

...
Import Input
...

If TouchInput.IsDown(i) > 0  Then
...