Type Tcontrol
	
	Field rightkey:Int
	Field leftkey:Int
	Field upkey:Int
	Field downkey:Int
	Field turbo:Int
	Field fire:Int
	Field juke:Int
	
	Field escape:Int
	Field pause:Int
	
	
	
	
End Type




Function createControl:Tcontrol(r:Int , l:Int , u:Int , d:Int , t:Int , f:Int , j:Int , esc:Int = KEY_ESCAPE , p:Int = KEY_P)
	Local control:Tcontrol = New Tcontrol
	control.rightkey = r
	control.leftkey = l
	control.upkey = u
	control.downkey = d
	control.turbo = t
	control.fire = f
	control.juke = j
	control.escape = esc
	control.pause = p
	
	Return control
End Function