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