KBS beta get it here

Community Forums/Showcase/KBS beta get it here

Eole	(Posted 2004) [#1]



;==================================================================
; Project Title	: Key Binding System
;
; File			: KBS_V100.bb
;
; Author		: Poursin Nicolas
; Email			: Nicolas.poursin@...
;
; Version		: 1.0.0          
; Date			: 07.05.2004
;         
;==================================================================

; Constante to identify the type of action
Const KBS_Key			= 1
Const KBS_JoystickHit	= 2
Const KBS_JoystickAxis	= 3
Const KBS_MouseHit		= 4
Const KBS_MouseAxis		= 5


; Global to retreive some informations for mouse
Global KBS_MWheel#	; mousezspped() if you don't use the BCF 3.0
Global KBS_MX#		; mousexspeed()
Global KBS_MY#      ; mouseyspeed()

; Global to retreive some informations for joystick (all joyx(), joyy() etc ...
Global KBS_JX#		
Global KBS_JY#	
Global KBS_JZ#		
Global KBS_JU#		
Global KBS_JV#
Global KBS_JRoll#
Global KBS_JPitch#
Global KBS_JYaw#

; Global to set the dead zone of each joystick axis
Global KBS_JDeadZone_X# 	= 0.1
Global KBS_JDeadZone_Y# 	= 0.1
Global KBS_JDeadZone_Z# 	= 0.1
Global KBS_JDeadZone_U# 	= 0.1
Global KBS_JDeadZone_V# 	= 0.1
Global KBS_JDeadZone_Pitch#	= 0.1
Global KBS_JDeadZone_Yaw# 	= 0.1
Global KBS_JDeadZone_Roll# 	= 0.1

; internat global for filter axis don't use it
Global KBS_joyvx1#,KBS_joyvx2#,KBS_joyvx3#
Global KBS_joyvy1#,KBS_joyvy2#,KBS_joyvy3#
Global KBS_joyvz1#,KBS_joyvz2#,KBS_joyvz3#
Global KBS_joyvu1#,KBS_joyvu2#,KBS_joyvu3#
Global KBS_joyvv1#,KBS_joyvv2#,KBS_joyvv3#
Global KBS_joyvp1#,KBS_joyvp2#,KBS_joyvp3#
Global KBS_joyvyy1#,KBS_joyvyy2#,KBS_joyvyy3#
Global KBS_joyvr1#,KBS_joyvr2#,KBS_joyvr3#


; The TYPE :-)
Type KBS_Action

	Field Label$
	Field state
	Field Value#
	Field key1
	Field Key2
	
End Type




Function KBS_Action( action$ )

	For c.KBS_Action = Each KBS_Action

		If c\label$ = action$ Then
			Return c\state
		EndIf
	Next

	Return False
	
End Function

Function KBS_TypeAction( action$, key )

	For c.KBS_Action = Each KBS_Action

		If c\label$ = action$ Then

			If key=1 Then
				ak = c\key1
			Else
				ak = c\key2
			EndIf

			If ak<1000 Then
				Return KBS_Key
			Else If ak>=1000 And ak<1100 Then
				Return KBS_MouseHit
			Else If ak>=1100 And ak<2000 Then
				Return KBS_MouseAxis
			Else If ak>=2000 And ak<2100 Then
				Return KBS_JoystickHit
			Else If ak>=2100 Then
				Return KBS_JoystickAxis
			EndIf
			
		End If
	Next

End Function

Function KBS_ActionValue#( action$ )

	For c.KBS_Action = Each KBS_Action
		If c\label$ = action$ Then
			Return c\value#
		EndIf
	Next
	
End Function


;==================================================================
; init the action
;==================================================================
Function KBS_AddAction( label$ , key1 , key2 = -1)

	For c.KBS_Action = Each KBS_Action
		If c\label$ = label$ Then
			Return False
		EndIf
	Next

	c.KBS_Action = New KBS_Action

	c\Label$ = label$
	c\state = False
	c\key1 = key1
	c\key2 = key2

	Return True
	
End Function

Function KBS_ChangeAction( label$, key1 , key2  )

	For c.KBS_Action = Each KBS_Action
		If c\label$ = label$
			c\key1 = key1
			c\key2 = key2
					
		EndIf
	Next
End Function

Function KBS_ChangeActionKey1( label$ , key1 )

	For c.KBS_Action = Each KBS_Action
		If c\label$ = label$
			c\key1=key1
		EndIf 
	Next
	
End Function

Function KBS_ChangeActionKey2( label$ , key2 )

	For c.KBS_Action = Each KBS_Action
		If c\label$ = label$
			c\key2=key2
		EndIf 
	Next
	
End Function


;==================================================================
; The main update fonction, put it in the main loop
;==================================================================
Function KBS_Update( BCF=False )

	; Get the mouse informations
	If BCF Then
		KBS_MWheel# = BCF_MouseZSpeed#
	Else
		KBS_MWheel#	= MouseZSpeed()
	EndIf
	
	KBS_MX#		= MouseXSpeed()
	KBS_MY#		= MouseYSpeed()
	
	For c.KBS_Action = Each KBS_Action

		c\value# = KBS_CheckKeyboard#( c\key1)
		state = 1
		If c\value#=0 Then
			
			c\value# =  KBS_CheckKeyboard#( c\key2)
			state = 2
		EndIf

		If c\Value# = 0 Then
			c\state=False
		Else
			c\state=state
		EndIf
		
	Next
	
End Function

Function KBS_CheckKeyboard#( key )

	
	If key<1000 Then
		If KeyDown(key) Then 
			Return 1
		Else
			Return 0
		EndIf
	Else
		If KBS_CheckJoyMous(key) Then
			Return 1
		Else
			Return KBS_CheckJoyMousAxis(key)

		EndIf
	EndIf

	
End Function

Function KBS_CheckJoyMous(key)

	Select key
	
		; Souris
		Case 1001
			If MouseDown(1) Then
				
				Return True
			Else
				Return False
			EndIf
		Case 1002
			If MouseDown(2) Then
				
				Return True
			Else
				Return False
			EndIf
		Case 1003
			If MouseDown(3) Then
				Return True
			Else
				Return False
			EndIf
		Case 1004
			If KBS_MWheel#>=1 Then
				Return True
			Else
				Return False
			EndIf
		Case 1005
			If KBS_MWheel#<=-1 Then
				Return True
			Else
				Return False
			EndIf

		; Joystick
		Case 2001
			If JoyDown(1) Then
				Return True
			Else
				Return False
			EndIf
		Case 2002
			If JoyDown(2) Then
				Return True
			Else
				Return False
			EndIf
		Case 2003
			If JoyDown(3) Then
				Return True
			Else
				Return False
			EndIf
		Case 2004
			If JoyDown(4) Then
				Return True
			Else
				Return False
			EndIf
		Case 2005
			If JoyDown(5) Then
				Return True
			Else
				Return False
			EndIf
		Case 2006
			If JoyDown(6) Then
				Return True
			Else
				Return False
			EndIf
		Case 2007
			If JoyDown(7) Then
				Return True
			Else
				Return False
			EndIf
		Case 2008
			If JoyDown(8) Then
				Return True
			Else
				Return False
			EndIf
		Case 2009
			If JoyDown(9) Then
				Return True
			Else
				Return False
			EndIf

	End Select

End Function

Function KBS_CheckJoyMousAxis#(key)

	Select Key
		Case KBS_Joy_X
		
			KBS_JX# = KBS_GetJoyX()

			Return KBS_JX#

			
		Case KBS_Joy_Y
		
			KBS_JY# = KBS_GetJoyY()

			Return KBS_JY#


		Case KBS_Joy_Z
		
			KBS_JZ# = KBS_GetJoyZ()

			Return KBS_JZ#

			
		Case KBS_Joy_U

			KBS_JU# = KBS_GetJoyU()

			Return KBS_JU#
			
		Case KBS_Joy_V
		
			KBS_JV# = KBS_GetJoyV()
			
			Return KBS_JV#
			
		Case KBS_Joy_Roll
		
			KBS_JRoll# = KBS_GetJoyRoll()
			
			Return KBS_JRoll#

		Case KBS_Joy_Pitch
		
			KBS_Jpitch# = KBS_GetJoyPitch()

			Return KBS_Jpitch#

		Case KBS_Joy_Yaw
		
			KBS_JYaw# = KBS_GetJoyYaw()

			Return KBS_JYaw#

		Case KBS_Mous_Mou_X

			Return KBS_MX#	
			
		Case KBS_Mous_Mou_Y

			Return KBS_MY#	
	End Select

End Function


;==================================================================
; Function to create a Control Binding
;==================================================================
Function KBS_GetLabelCode$( KeyCode )

	Select KeyCode

		; -------------
		; La souris
		; -------------
		Case 1001
			Return "Right Click"
		Case 1002
			Return "Left Click"
		Case 1003
			Return "Wheel Click "
		Case 1004
			Return "Wheel Up"
		Case 1005
			Return "Wheel Down"
		Case 1100
			Return "Mouse X Axis"
		Case 1101
			Return "Mouse Y Axis"
			
		; -------------
		; Le joystick
		; -------------
		Case 2001
			Return "Button 1"
		Case 2002
			Return "Button 2"
		Case 2003
			Return "Button 3"
		Case 2004
			Return "Button 4"
		Case 2005
			Return "Button 5"
		Case 2006
			Return "Button 6"
		Case 2007
			Return "Button 7"
		Case 2008
			Return "Button 8"
		Case 2009
			Return "Button 9"

		Case 2101
			Return "Joy X axis"
		Case 2102
			Return "Joy Y axis"
		Case 2103
			Return "Joy Z axis"
		Case 2104
			Return "Joy U axis"
		Case 2105
			Return "Joy V axis"
		Case 2106
			Return "Joy Yaw axis"
		Case 2107
			Return "Joy Pitch axis"
		Case 2108
			Return "Joy Roll axis"


		; -----------------------------
		; Touches de direction
		; -----------------------------
		Case 203
			Return "Left"
		Case 205
			Return "Right"
		Case 200
			Return "Up"
		Case 208
			Return "Down"

		; -----------------------------------------------------------------------
		; Pave de touche au dessus des touches de direction
		; -----------------------------------------------------------------------
		Case 210
			Return "Insert"
		Case 211
			Return "Delete"
		Case 201
			Return "Page Up"
		Case 209
			Return "Page Down"
		Case 207
			Return "End"
		Case 199
			Return "Home"

		; ----------------------------
		; Touches de fonction
		; ----------------------------
		Case 59
			Return "F1"
		Case 60
			Return "F2"
		Case 61
			Return "F3"
		Case 62
			Return "F4"
		Case 63
			Return "F5"
		Case 64
			Return "F6"
		Case 65
			Return "F7"
		Case 66
			Return "F8"
		Case 67
			Return "F9"
		Case 68
			Return "F10"
		Case 87
			Return "F11"
		Case 88
			Return "F12"

		; ------------------------
		; Touches de 0 a 9
		; ------------------------
		Case 2
			Return "1"
		Case 3
			Return "2"
		Case 4
			Return "3"
		Case 5
			Return "4"
		Case 6
			Return "5"
		Case 7
			Return "6"
		Case 8
			Return "7"
		Case 9
			Return "8"
		Case 10
			Return "9"
		Case 11
			Return "0"
		Case 12
			Return "-"
		Case 13
			Return "="
		Case 14
			Return "Backspace"

		; ------------------------------------------------------------------------------------
		; Touches de controle ENTER + RETURN + ESCAPE + SPACE
		; ------------------------------------------------------------------------------------
		Case 1
			Return "ESC"
		Case 57
			Return "Space"
		Case 28
			Return "Enter"
		Case 156
			Return "Return"
		Case 15
			Return "Tab"

		; -----------------------------------------------
		; Touches Ctrl + Alt + shift + window
		; -----------------------------------------------
		Case 29
			Return "Left Control"
		Case 157
			Return "Right Control"
		Case 56
			Return "Left Alt"
		Case 184
			Return "Right Alt"
		Case 42
			Return "Left Shift"
		Case 54
			Return "Right Shift"
		Case 219
			Return "Left Windows"
		Case 220
			Return "Right Windows"

		; -------------------------------
		; Les lettres + symboles
		; -------------------------------
		Case 16
			Return "Q"
		Case 17
			Return "W"
		Case 18
			Return "E"
		Case 19
			Return "R"
		Case 20
			Return "T"
		Case 21
			Return "Y"
		Case 22
			Return "U"
		Case 23
			Return "I"
		Case 24
			Return "O"
		Case 25
			Return "P"
		Case 26
			Return "["
		Case 27
			Return "]"
		Case 30
			Return "A"
		Case 31
			Return "S"
		Case 32
			Return "D"
		Case 33
			Return "F"
		Case 34
			Return "G"
		Case 35
			Return "H"
		Case 36
			Return "J"
		Case 37
			Return "K"
		Case 38
			Return "L"
		Case 39
			Return ";"
		Case 40
			Return "'"
		Case 41
			Return "Grave"
		Case 44
			Return "Z"
		Case 45
			Return "X"
		Case 46
			Return "C"
		Case 47
			Return "V"
		Case 48
			Return "B"
		Case 49
			Return "N"
		Case 50
			Return "M"
		Case 51
			Return ","
		Case 52
			Return "."
		Case 53
			Return "/"

		; -----------------------
		; Pave numerique
		; -----------------------
		Case 82
			Return "Numpad 0"
		Case 79
			Return "Numpad 1"
		Case 80
			Return "Numpad 2"
		Case 81
			Return "Numpad 3"
		Case 75
			Return "Numpad 4"
		Case 76
			Return "Numpad 5"
		Case 77
			Return "Numpad 6"
		Case 71
			Return "Numpad 7"
		Case 72
			Return "Numpad 8"
		Case 73
			Return "Numpad 9"
		Case 83
			Return "."
		Case 74
			Return "-"
		Case 78
			Return "+"
		Case 69
			Return "Lock"
		Case 181
			Return "/"
		Case 55
			Return "*"
	End Select
	
End Function

Function KBS_GetActionCode(keyclick=True,mouse=True,joy=True)


	FlushKeys()
	FlushMouse()
	FlushJoy()

	
 	x# = KBS_JDeadZone_X# 	
 	y# = KBS_JDeadZone_Y# 	
 	z# = KBS_JDeadZone_Z# 	
 	u# = KBS_JDeadZone_U# 	
 	v# = KBS_JDeadZone_V# 	
 	p# = KBS_JDeadZone_Pitch#
 	yy# = KBS_JDeadZone_Yaw# 	
 	r# = KBS_JDeadZone_Roll# 
	
 	KBS_JDeadZone_X# 	= 0.7
 	KBS_JDeadZone_Y# 	= 0.7
 	KBS_JDeadZone_Z# 	= 0.7
 	KBS_JDeadZone_U# 	= 0.7
 	KBS_JDeadZone_V# 	= 0.7
 	KBS_JDeadZone_Pitch#= 0.7
 	KBS_JDeadZone_Yaw# 	= 0.7
 	KBS_JDeadZone_Roll# = 0.7

	ju# = KBS_GetJoyU#()
	jv# = KBS_GetJoyV#()
	jp# = KBS_GetJoyPitch#()
	jyw# = KBS_GetJoyYaw#()
	jr# = KBS_GetJoyRoll#()

	ju# = KBS_GetJoyU#()
	jv# = KBS_GetJoyV#()
	jp# = KBS_GetJoyPitch#()
	jyw# = KBS_GetJoyYaw#()
	jr# = KBS_GetJoyRoll#()
	
	scancode=-1
	
	While scancode=-1


	
		For i=1 To 237

			If keyclick Then
				; -------------
				; Clavier
				; -------------
				If KeyDown(i) Then
					scancode=i
					Exit
				EndIf

				; -------------
				; Souris
				; -------------
				If MouseDown(2) Then
					scancode=KBS_Mous_RightClick
					Exit
				EndIf
			
				If MouseDown(1) Then
					scancode=KBS_Mous_LeftClick
					Exit
				EndIf
			
				If MouseDown(3) Then
					scancode=KBS_Mous_WheelClick
					Exit
				EndIf
				
				w=MouseZSpeed()
				
				If w>=1 Then
					scancode=KBS_Mous_WheelUp
					Exit
				EndIf
				
				If w<=-1 Then
					scancode=KBS_Mous_WheelDown
					Exit
				EndIf

				; -------------
				; Joystick
				; -------------
				If JoyDown(1) Then
					scancode=KBS_Joy_button1
					Exit
				EndIf
	
				If JoyDown(2) Then
					scancode=KBS_Joy_button2
					Exit
				EndIf
	
				If JoyDown(3) Then
					scancode=KBS_Joy_button3
					Exit
				EndIf
	
				If JoyDown(4) Then
					scancode=KBS_Joy_button4
					Exit
				EndIf
	
				If JoyDown(5) Then
					scancode=KBS_Joy_button5
					Exit
				EndIf
	
				If JoyDown(6) Then
					scancode=KBS_Joy_button6
					Exit
				EndIf
	
				If JoyDown(7) Then
					scancode=KBS_Joy_button7
					Exit
				EndIf
	
				If JoyDown(8) Then
					scancode=KBS_Joy_button8
					Exit
				EndIf
	
				If JoyDown(9) Then
					scancode=KBS_Joy_button9
					Exit
				EndIf

			EndIf

			If mouse Then
				If MouseXSpeed()<>0 Then
					scancode=KBS_Mous_Mou_X
					Exit
				EndIf

				If MouseYSpeed()<>0 Then
					scancode=KBS_Mous_Mou_Y
					Exit
				EndIf
			EndIf


			If joy Then
			
				If KBS_GetJoyX#()<>0 Then
					scancode= KBS_Joy_X
					Exit
				EndIf

				If KBS_GetJoyY#()<>0 Then
					scancode= KBS_Joy_Y
					Exit
				End If

				If KBS_GetJoyZ#()<>0 Then
					scancode= KBS_Joy_Z
					Exit
				End If

				tmp# = KBS_GetJoyU#()
				If tmp#<>ju# Then
					scancode= KBS_Joy_U
					Exit
				End If

				tmp# = KBS_GetJoyV#()
				If tmp#<>jv# Then
					scancode= KBS_Joy_V
					Exit
				End If

				tmp# = KBS_GetJoyYaw#()
				If tmp#<>jyw# Then
					scancode= KBS_Joy_Yaw
					Exit
				End If

				tmp# = KBS_GetJoyPitch#()
				If tmp#<>jp# Then
					scancode= KBS_Joy_Pitch
					Exit
				End If

				tmp# = KBS_GetJoyRoll#()
				If tmp#<>jr# Then
					scancode= KBS_Joy_Roll
					Exit
				End If

			End If
			
		Next
		
	Wend

 	x# = KBS_JDeadZone_X# 	
 	y# = KBS_JDeadZone_Y# 	
 	z# = KBS_JDeadZone_Z# 	
 	u# = KBS_JDeadZone_U# 	
 	v# = KBS_JDeadZone_V# 	
 	p# = KBS_JDeadZone_Pitch#
 	yy# = KBS_JDeadZone_Yaw# 	
 	r# = KBS_JDeadZone_Roll#
	
	Return scancode
	
End Function

Function KBS_WaitOldKey()

	bOk=False
	While bOk=False
		bOk=True
		For i=1 To 237
			z = MouseZSpeed()
			If KeyDown(i) Or MouseDown(1) Or MouseDown(2) Or MouseDown(3) Or z<>0 Then
				bOk=False
			EndIf
			If JoyDown(1) Or JoyDown(2) Or JoyDown(3) Or JoyDown(4) Or JoyDown(5) Or JoyDown(6) Or JoyDown(7) Or JoyDown(8) Or JoyDown(9) Then
				bOk=False
			EndIf
		Next
		
	Wend
	
End Function



;==================================================================
; Internal Joystick fonction
;==================================================================
Function KBS_GetJoyX#()

	joy# = KBS_FilterJoyX#()

	If Abs(joy#)<KBS_JDeadZone_X# Then joy#=0

	Return joy# 
	
End Function

Function KBS_GetJoyY#()

	joy# = KBS_FilterJoyY#()

	If Abs(joy#)<KBS_JDeadZone_Y# Then joy#=0

	Return joy#
	
End Function

Function KBS_GetJoyZ#()

	joy# = KBS_FilterJoyZ#()

	If Abs(joy#)<KBS_JDeadZone_Z# Then joy#=0

	Return joy#
	
End Function

Function KBS_GetJoyU#()

	
	joy# = KBS_FilterJoyU#()

	joy# = (joy#-1)*-0.5
	
	If Abs(joy#)<KBS_JDeadZone_U# Then joy#=0
	
	Return joy#  

End Function

Function KBS_GetJoyV#()

	
	joy# = KBS_FilterJoyV#()

	joy# = (joy#-1)*-0.5
	
	If Abs(joy#)<KBS_JDeadZone_V# Then joy#=0
	
	
	Return joy#  

End Function

Function KBS_GetJoyPitch#()

	joy# = KBS_FilterJoyPitch#()

	joy# = joy#/180
	
	If Abs(joy#)<KBS_JDeadZone_Pitch# Then joy#=0
	
	Return joy#
	
End Function

Function KBS_GetJoyYaw#()

	joy# = KBS_FilterJoyYaw#()

	joy# = joy#/180
	
	If Abs(joy#)<KBS_JDeadZone_Yaw# Then joy#=0
	
	Return joy#
	
End Function

Function KBS_GetJoyRoll#()

	joy# = KBS_FilterJoyRoll#()

	joy# = joy#/180
	
	If Abs(joy#)<KBS_JDeadZone_Roll# Then joy#=0
	
	Return joy#
	
End Function




Function KBS_FilterJoyX#()

 jl#=JoyX()
 
 jst$=Str$(jl#)
 jle=Len(jst$)
 
 If jle>10 Then
  	If Mid$(jst$,jle-4,1)="e"
   		jl=0.0
  	EndIf
 EndIf
 
 KBS_joyvx3 = KBS_joyvx2
 KBS_joyvx2 = KBS_joyvx1
 KBS_joyvx1 = jl
 
 If (Abs(KBS_joyvx3-KBS_joyvx2)>0.1) And (Abs(KBS_joyvx2-KBS_joyvx1)>0.1)
  	KBS_joyvx2=(KBS_joyvx3+KBS_joyvx1)/2
 EndIf
 
 Return KBS_joyvx2
 
End Function

Function KBS_FilterJoyY#()

 jl#=JoyY()
 
 jst$=Str$(jl#)
 jle=Len(jst$)
 
 If jle>10 Then
  	If Mid$(jst$,jle-4,1)="e"
   		jl=0.0
  	EndIf
 EndIf
 
 KBS_joyvy3 = KBS_joyvy2
 KBS_joyvy2 = KBS_joyvy1
 KBS_joyvy1 = jl
 
 If (Abs(KBS_joyvy3-KBS_joyvy2)>0.1) And (Abs(KBS_joyvy2-KBS_joyvy1)>0.1)
  	KBS_joyvy2=(KBS_joyvy3+KBS_joyvy1)/2
 EndIf
 
 Return KBS_joyvy2
 
End Function

Function KBS_FilterJoyZ#()

 jl#=JoyY()
 
 jst$=Str$(jl#)
 jle=Len(jst$)
 
 If jle>10 Then
  	If Mid$(jst$,jle-4,1)="e"
   		jl=0.0
  	EndIf
 EndIf
 
 KBS_joyvz3 = KBS_joyvz2
 KBS_joyvz2 = KBS_joyvz1
 KBS_joyvz1 = jl
 
 If (Abs(KBS_joyvz3-KBS_joyvz2)>0.1) And (Abs(KBS_joyvz2-KBS_joyvz1)>0.1)
  	KBS_joyvz2=(KBS_joyvz3+KBS_joyvz1)/2
 EndIf
 
 Return KBS_joyvz2
 
End Function

Function KBS_FilterJoyU#()

 jl#=JoyU#()
 
 jst$=Str$(jl#)
 jle=Len(jst$)
 
 If jle>10 Then
  	If Mid$(jst$,jle-4,1)="e"
   		jl=1.0
  	EndIf
 EndIf
 
 KBS_joyvu3 = KBS_joyvu2
 KBS_joyvu2 = KBS_joyvu1
 KBS_joyvu1 = jl
 
 If (Abs(KBS_joyvu3-KBS_joyvu2)>0.1) And (Abs(KBS_joyvu2-KBS_joyvu1)>0.1)
  	KBS_joyvu2=(KBS_joyvu3+KBS_joyvu1)/2
 EndIf
 
 Return KBS_joyvu2
 
End Function

Function KBS_FilterJoyV#()

 jl#=JoyV#()
 
 jst$=Str$(jl#)
 jle=Len(jst$)
 
 If jle>10 Then
  	If Mid$(jst$,jle-4,1)="e"
   		jl=1.0
  	EndIf
 EndIf
 
 KBS_joyvv3 = KBS_joyvv2
 KBS_joyvv2 = KBS_joyvv1
 KBS_joyvv1 = jl
 
 If (Abs(KBS_joyvv3-KBS_joyvv2)>0.1) And (Abs(KBS_joyvv2-KBS_joyvv1)>0.1)
  	KBS_joyvv2=(KBS_joyvv3+KBS_joyvv1)/2
 EndIf
 
 Return KBS_joyvv2
 
End Function

Function KBS_FilterJoyPitch#()

 jl#=JoyPitch()
 
 jst$=Str$(jl#)
 jle=Len(jst$)
 
 If jle>10 Then
  	If Mid$(jst$,jle-4,1)="e"
   		jl=0.0
  	EndIf
 EndIf
 
 KBS_joyvp3 = KBS_joyvp2
 KBS_joyvp2 = KBS_joyvp1
 KBS_joyvp1 = jl
 
 If (Abs(KBS_joyvp3-KBS_joyvp2)>0.1) And (Abs(KBS_joyvp2-KBS_joyvp1)>0.1)
  	KBS_joyvr2=(KBS_joyvp3+KBS_joyvp1)/2
 EndIf
 
 Return KBS_joyvp2
 
End Function

Function KBS_FilterJoyYaw#()

 jl#=JoyYaw()
 
 jst$=Str$(jl#)
 jle=Len(jst$)
 
 If jle>10 Then
  	If Mid$(jst$,jle-4,1)="e"
   		jl=0.0
  	EndIf
 EndIf
 
 KBS_joyvyy3 = KBS_joyvyy2
 KBS_joyvyy2 = KBS_joyvyy1
 KBS_joyvyy1 = jl
 
 If (Abs(KBS_joyvyy3-KBS_joyvyy2)>0.1) And (Abs(KBS_joyvyy2-KBS_joyvyy1)>0.1)
  	KBS_joyvyy2=(KBS_joyvyy3+KBS_joyvyy1)/2
 EndIf
 
 Return KBS_joyvyy2
 
End Function

Function KBS_FilterJoyRoll#()

 jl#=JoyRoll#()
 
 jst$=Str$(jl#)
 jle=Len(jst$)
 
 If jle>10 Then
  	If Mid$(jst$,jle-4,1)="e"
   		jl=0.0
  	EndIf
 EndIf
 
 KBS_joyvr3 = KBS_joyvr2
 KBS_joyvr2 = KBS_joyvr1
 KBS_joyvr1 = jl
 
 If (Abs(KBS_joyvr3-KBS_joyvr2)>0.1) And (Abs(KBS_joyvr2-KBS_joyvr1)>0.1)
  	KBS_joyvr2=(KBS_joyvr3+KBS_joyvr1)/2
 EndIf
 
 Return KBS_joyvr2
 
End Function




;==================================================================
; 						CONSTANTE DECLARATION
;==================================================================

; the mouse
Const KBS_Mous_RightClick	= 1001
Const KBS_Mous_LeftClick 	= 1002
Const KBS_Mous_WheelClick 	= 1003
Const KBS_Mous_WheelUp	 	= 1004
Const KBS_Mous_WheelDown 	= 1005
Const KBS_Mous_Mou_X		= 1100
Const KBS_Mous_Mou_Y		= 1101

; Joystock
Const KBS_Joy_button1		= 2001
Const KBS_Joy_button2		= 2002
Const KBS_Joy_button3		= 2003
Const KBS_Joy_button4		= 2004
Const KBS_Joy_button5		= 2005
Const KBS_Joy_button6		= 2006
Const KBS_Joy_button7		= 2007
Const KBS_Joy_button8		= 2008
Const KBS_Joy_button9		= 2009
Const KBS_Joy_X				= 2101
Const KBS_Joy_Y				= 2102
Const KBS_Joy_z				= 2103
Const KBS_Joy_u				= 2104
Const KBS_Joy_v				= 2105
Const KBS_Joy_Yaw			= 2106
Const KBS_Joy_Pitch			= 2107
Const KBS_Joy_Roll			= 2108


; Directional KBS_Key
Const KBS_Key_Left			= 203
Const KBS_Key_Right 		= 205
Const KBS_Key_Up 			= 200
Const KBS_Key_Down 			= 208

; INSERT + DELETE + PAGE UP / DOWN + END + HOME
Const KBS_Key_Insert 		= 210
Const KBS_Key_Delete 		= 211
Const KBS_Key_PageUp 		= 201
Const KBS_Key_PageDown 		= 209
Const KBS_Key_End 			= 207
Const KBS_Key_Home			= 199

; F1 to F12
Const KBS_Key_F1 			= 59
Const KBS_Key_F2 			= 60
Const KBS_Key_F3 			= 61
Const KBS_Key_F4 			= 62
Const KBS_Key_F5 			= 63
Const KBS_Key_F6 			= 64
Const KBS_Key_F7 			= 65
Const KBS_Key_F8 			= 66
Const KBS_Key_F9 			= 67
Const KBS_Key_F10 			= 68
Const KBS_Key_F11 			= 87
Const KBS_Key_F12 			= 88

;  0 to 9
Const KBS_Key_1 			= 2
Const KBS_Key_2 			= 3
Const KBS_Key_3 			= 4
Const KBS_Key_4 			= 5
Const KBS_Key_5 			= 6
Const KBS_Key_6 			= 7
Const KBS_Key_7 			= 8
Const KBS_Key_8 			= 9
Const KBS_Key_9 			= 10
Const KBS_Key_0 			= 11
Const KBS_Key_Minus 		= 12
Const KBS_Key_Equal 		= 13
Const KBS_Key_Backspace 	= 14

; ENTER + RETURN + ESCAPE + SPACE + Tab
Const KBS_Key_ESC 			= 1
Const KBS_Key_Space 		= 57
Const KBS_Key_Enter 		= 28
Const KBS_Key_Return 		= 156
Const KBS_Key_Tab 			= 15

; Ctrl + Alt + shift + window
Const KBS_Key_LeftControl 	= 29
Const KBS_Key_RightControl 	= 157
Const KBS_Key_LeftAlt 		= 56
Const KBS_Key_RightAlt 		= 184
Const KBS_Key_LeftShift 	= 42
Const KBS_Key_RightShift 	= 54
Const KBS_Key_LeftWindows 	= 219
Const KBS_Key_RightWindows 	= 220

; A to Z etc ...
Const KBS_Key_Q 			= 16
Const KBS_Key_W 			= 17
Const KBS_Key_E 			= 18
Const KBS_Key_R 			= 19
Const KBS_Key_T 			= 20
Const KBS_Key_Y 			= 21
Const KBS_Key_U 			= 22
Const KBS_Key_I 			= 23
Const KBS_Key_O 			= 24
Const KBS_Key_P 			= 25
Const KBS_Key_Left_Bracket 	= 26
Const KBS_Key_Right_Bracket = 27

Const KBS_Key_A 			= 30
Const KBS_Key_S 			= 31
Const KBS_Key_D 			= 32
Const KBS_Key_F 			= 33
Const KBS_Key_G 			= 34
Const KBS_Key_H 			= 35
Const KBS_Key_J 			= 36
Const KBS_Key_K 			= 37
Const KBS_Key_L 			= 38
Const KBS_Key_SemiColon		= 39
Const KBS_Key_Apostrophe 	= 40
Const KBS_Key_Grave 		= 41

Const KBS_Key_Z 			= 44
Const KBS_Key_X 			= 45
Const KBS_Key_C 			= 46
Const KBS_Key_V 			= 47
Const KBS_Key_B 			= 48
Const KBS_Key_N 			= 49
Const KBS_Key_M 			= 50
Const KBS_Key_Comma 		= 51
Const KBS_Key_Period 		= 52
Const KBS_Key_Slash 		= 53

; Number
Const KBS_Key_Numpad0 		= 82
Const KBS_Key_Numpad1 		= 79
Const KBS_Key_Numpad2 		= 80
Const KBS_Key_Numpad3 		= 81
Const KBS_Key_Numpad4 		= 75
Const KBS_Key_Numpad5 		= 76
Const KBS_Key_Numpad6 		= 77
Const KBS_Key_Numpad7 		= 71
Const KBS_Key_Numpad8 		= 72
Const KBS_Key_Numpad9 		= 73

Const KBS_Key_Decimal		= 83
Const KBS_Key_Substract		= 74
Const KBS_Key_Add 			= 78
Const KBS_Key_Lock 			= 69
Const KBS_Key_Div 			= 181
Const KBS_Key_Mult			 = 55

eBusiness

(Posted 2004) [#2]

Lower part of mouth drops down, and hit the table

1372 lines, for a keybinding system, ok it seems to have the features needed, all but: Support for foregin keyboards (an imperfection, muhahahaha). If you want it to be abselutely perfect, then that is what you need. Now I just need to consider if I want to add that mountain to any of my code. Hmmmm...

Eole	(Posted 2004) [#3]

Show me where I said that this Lib it's finish ... Now it's really finish, because I stop it

Yes there is a lot of line of code, because if you don't see, there is 4 part:
- One to manage the key binding (mouse/joy/keyboard)
- One to manage a GUI to create the setting ...

- Save and load setting (not in because i stopp it)
- FPS + Chase Camera (not in because i stopp it)

So buy some glass

You don't like OK, you can do the same thing in less line of code OK, We don't need the hit table in your code OK, you don't nedd Joystick OK

But now stop, please

Now I think some people find some utilty of me code

dangerdave

(Posted 2004) [#4]

Thanks for posting this Eole.
Unfortunately, some people seem to think it is not worthwhile.
I think it is.

aCiD2

(Posted 2004) [#5]

Great job Eole! Although i enjoy doing the coding myself, i think its an excelletn contribution! Haven't tested it yet but still - good work :)

eBusiness

(Posted 2004) [#6]

Don't take my words as hard as you do, I'm sorry if I got my critics mixed with some inappropiat comments.
You tend to be very easily provoked, try to avoid provoking back if you feel that somebody provoke you. Also remember, most people post critics in order to help you make your work better, even if the critics seems harsh.

fredborg

(Posted 2004) [#7]

Thanks! Good work, easy to use and easy to understand!

The post in the code archives seem to be missing some of the code?

Eole	(Posted 2004) [#8]

Ok, I will look at this ...

Eole	(Posted 2004) [#9]

Now it's good in the code archive, some probleme with ctrl+c ctrl+v lol

scribbla

(Posted 2004) [#10]

from a noobi point of view i learn alot from people showing there code....thanks Eole

Eole	(Posted 2004) [#11]

I add some little documentation in the code archive :
http://www.blitzbasic.com/codearcs/codearcs.php?code=1026

ashmantle

(Posted 2004) [#12]

Thanks Eole for releasing this code.. I find it very useful to learn from :)

Mustang

(Posted 2004) [#13]

Nice! As I have already done my own (not public) GUI menu frontend and key binding system (that let's you choose HW / game settings too) for my games(s) I know that making good and versatile system takes more than two lines of code... small and simple systems are good for tech demos and such, but doing one for a true game takes bit more effort. I appreciate what you have done here, and nice for you to release it for free.

Dragon57

(Posted 2004) [#14]

Very nice! Much appreciated.

Eole	(Posted 2004) [#15]

Thank ..

Rob Farley

(Posted 2004) [#16]

Just skimming though the code but would it not have been easier to have stuck all the scan code names into a data statement (or external file for multi-keyboard support) then just read them into an array?

[edit]Here's something I knocked up...

Dim scancode$(255)

filein = ReadFile("scancodes.csv")
Repeat
tmp$=ReadLine(filein)
scancode(Left(tmp,Instr(tmp,",")))=Right(tmp,Len(tmp)-Instr(tmp,","))
Until Eof(filein)
CloseFile filein

SetBuffer BackBuffer()
Repeat
Cls
y=0
For n=2 To 255
If KeyDown(n) Then Text 0,y,scancode(n):y=y+15
Next
Flip
Until KeyHit(1)

Then copied and pasted from the scancodes list in the help, tidied it up in excel and saved as scancodes.csv to create, using this method you can have any type of keyboard attached to the computer and you just change this file:

1,ESCAPE
2,1
3,2
4,3
5,4
6,5
7,6
8,7
9,8
10,9
11,0
12,Minus (-)
13,Equals (=)
14,Backspace
15,Tab
16,Q
17,W
18,E
19,R
20,T
21,Y
22,U
23,I
24,O
25,P
26,Left Bracket ([)
27,Right Bracket (])
28,Return/Enter
29,Left Control
30,A
31,S
32,D
33,F
34,G
35,H
36,J
37,K
38,L
39,Semi-Colon (;)
40,Apostrophe (')
41,Grave
42,Left Shift
43,Backslash (\)
44,Z
45,X
46,C
47,V
48,B
49,N
50,M
51,Comma
52,Period (.)
53,Slash (/)
54,Right Shift
55,Multiply (*)
56,Left Alt/Menu
57,Space
58,Capital
59,F1
60,F2
61,F3
62,F4
63,F5
64,F6
65,F7
66,F8
67,F9
68,F10
69,NumLock
70,Scroll Lock
71,NumPad 7
72,NumPad 8
73,NumPad 9
74,Subtract (-)
75,NumPad 4
76,NumPad 5
77,NumPad 6
78,Add (+)
79,NumPad 1
80,NumPad 2
81,NumPad 3
82,NumPad 0
83,Decimal (.)
86,OEM_102
87,F11
88,F12
100,F13
101,F14
102,F15
112,Kana
115,ABNT_C1
121,Convert
123,NoConvert
125,Yen
126,ABNT_C2
141,Equals
144,PrevTrack
145,AT
146,Colon (:)
147,Underline
148,Kanji
149,Stop
150,AX
151,Unlabeled
153,Next Track
156,Enter
157,Right Control
160,Mute
161,Calculator
162,Play/Pause
164,Media Stop
174,Volume Down
176,Volume Up
178,Web Home
179,Comma
181,Divide (/)
183,SysReq
184,Right Alt/Menu
197,Pause
199,Home
200,Up
201,Page Up/Prior
203,Left
205,Right
207,End
208,Down
209,Next
210,Insert
211,Delete
219,Left Windows
220,Right Windows
221,Apps
222,Power
223,Sleep
227,Wake
229,Web Search
230,Web Favorites
231,Web Refresh
232,Web Stop
233,Web Forward
234,Web Back
235,My Computer
236,Mail
237,Media Select

Eole	(Posted 2004) [#17]

Yes a lot of thing can be add, in this lib like :
- Hit or down
- multi keyboard support
- Read and write functions to load and save setting
- A little GUI to create a setting, before the begining of the game
etc ...

But now, you have the base you can do all you want

eBusiness

(Posted 2004) [#18]

I have expanded my competiting code (see code archives) a bit, by the way. Thanks for putting me on the job, I liked coding it :)

Ross C

(Posted 2004) [#19]

Eole, very nice :) But you could put the above code in a codebox, new feature to the forum, just been added.

(codebox)

(/codebox)

replace the brackets with [] brackets :)

Eole	(Posted 2004) [#20]

You can find this code, in the Code Archive ...

Eole	(Posted 2004) [#21]

It's very nice codebax ...