[bb] User input system by eBusiness [ 1+ years ago ]

[BlitzBot]

Title : User input system
Author : eBusiness
Posted : 1+ years ago

Description : A dynamic system for getting user input from keyboard, mouse and a simple joystick
Written by Jacob Christian Munch-Andersen

Copy the Initialization to the beginning of your code, then decide how many inputs you want to use,
this can always be changed later. Also copy the six function to anywhere in your code.
In order to configure an input, first run the preidsconfigure function, then run the
idsconfigure function, with the id number of the input that you want to configure as parameter,
in a loop, untill it return 0, this will happen when the user make an input.
The hit and down functions work almost like the Blitz Basic Hit and Down function families,
A difference is that the down function will return values depending on how much the user push the
joystick, or how far the user have moved the mouse since last check. Check the array
keynames$(input id) to get the name of a key/input, this should work almost correctly with any
keyboard, you can alter the keynames if you like. The save and load functions will save/load all
input settings, you can pass a filename/path yourself, or use the default.

Code :

Code: BlitzBasic

1. Graphics 640,480
2.  
3.  
4.  
5. ;A dynamic system for getting user input from keyboard, mouse and a simple joystick
6. ;Written by Jacob Christian Munch-Andersen
7.  
8. ;Copy the Initialization to the beginning of your code, then decide how many inputs you want to use,
9. ;this can always be changed later. Also copy the six function to anywhere in your code.
10. ;In order to configure an input, first run the preidsconfigure function, then run the
11. ;idsconfigure function, with the id number of the input that you want to configure as parameter,
12. ;in a loop, untill it return 0, this will happen when the user make an input.
13. ;The hit and down functions work almost like the Blitz Basic Hit and Down function families,
14. ;A difference is that the down function will return values depending on how much the user push the
15. ;joystick, or how far the user have moved the mouse since last check. Check the array
16. ;keynames$(input id) to get the name of a key/input, this should work almost correctly with any
17. ;keyboard, you can alter the keynames if you like. The save and load functions will save/load all
18. ;input settings, you can pass a filename/path yourself, or use the default.
19.  
20. ;This code is public domain, you can use it, alter it and pass it to others, free of charge.
21.  
22.  
23.  
24. ;Initialization
25. Global key_num=4 ;How many inputs do you need?
26. Dim ids(1,key_num)
27. Dim keynames$(key_num)
28. Global mx_keys
29. Global my_keys
30. Global mz_keys
31. Global last_mouse_x_pos
32. Global last_mouse_y_pos
33. Global last_mouse_z_pos
34. Global last_mouse_x_neg
35. Global last_mouse_y_neg
36. Global last_mouse_z_neg
37. Global last_mouse_x_hitp
38. Global last_mouse_y_hitp
39. Global last_mouse_x_hitn
40. Global last_mouse_y_hitn
41. Global mouse_factor_x#=1.0
42. Global mouse_factor_y#=1.0
43. Global mouse_factor_z#=1.0
44. Global joystick_factor_x#=1.0
45. Global joystick_factor_y#=1.0
46. Dim joystick_minmax#(7)
47. joystick_minmax(0)=-.08
48. joystick_minmax(1)=-.8
49. joystick_minmax(2)=.08
50. joystick_minmax(3)=.8
51. joystick_minmax(4)=-.08
52. joystick_minmax(5)=-.8
53. joystick_minmax(6)=.08
54. joystick_minmax(7)=.8
55. Dim joy_dir_list(3)
56. ;End of initialization
57.  
58.  
59.  
60. ;Demo code
61. For a=0 To key_num
62.         Write "Key "+a+" = "
63.         b=-1
64.         preidsconfigure()
65.         While b=-1
66.                 b=idsconfigure(a)
67.         Wend
68.         Print keynames$(a)
69. Next
70. While Not KeyDown(1)
71.         For a=0 To key_num
72.                 If hit(a) Print a+" "+down#(0)
73.         Next
74.         Delay 30
75. Wend
76. End
77.  
78.  
79.  
80. Function save_key_settings(file$="keysettings.dat")
81.         filehandle=WriteFile(file$)
82.         If filehandle=0 Then Return 0
83.         WriteFloat filehandle,mouse_factor_x#
84.         WriteFloat filehandle,mouse_factor_y#
85.         WriteFloat filehandle,mouse_factor_z#
86.         WriteFloat filehandle,joystick_factor_x#
87.         WriteFloat filehandle,joystick_factor_y#
88.         For a_keys=0 To 7
89.                 WriteFloat filehandle,joystick_minmax(a_keys)
90.         Next
91.         For a_keys=0 To key_num
92.                 WriteInt filehandle,ids(0,a_keys)
93.                 WriteInt filehandle,ids(1,a_keys)
94.                 WriteString filehandle,keynames(a_keys)
95.         Next
96.         CloseFile filehandle
97.         Return 1
98. End Function
99. Function load_key_settings(file$="keysettings.dat")
100.         filehandle=ReadFile(file$)
101.         If filehandle=0 Then Return 0
102.         mouse_factor_x#=ReadFloat(filehandle)
103.         mouse_factor_y#=ReadFloat(filehandle)
104.         mouse_factor_z#=ReadFloat(filehandle)
105.         joystick_factor_x#=ReadFloat(filehandle)
106.         joystick_factor_y#=ReadFloat(filehandle)
107.         For a_keys=0 To 7
108.                 joystick_minmax(a_keys)=ReadFloat(filehandle)
109.         Next
110.         For a_keys=0 To key_num
111.                 ids(0,a_keys)=ReadInt(filehandle)
112.                 ids(1,a_keys)=ReadInt(filehandle)
113.                 keynames(a_keys)=ReadString(filehandle)
114.         Next
115.         CloseFile filehandle
116.         Return 1
117. End Function
118. Function hit(id)
119.         If ids(0,id)=0 Then
120.                 Return KeyHit(ids(1,id))
121.         Else If ids(0,id)=1 Then
122.                 Return MouseHit(ids(1,id))
123.         Else If ids(0,id)=2 Then
124.                 Return JoyHit(ids(1,id))
125.         Else If ids(0,id)=3 Then
126.                 If ids(1,id)=0 Then
127.                         a_keys=MouseX()-last_mouse_x_hitn
128.                         If a_keys<-20 Then
129.                                 last_mouse_x_hitn=MouseX()
130.                                 Return 1
131.                         Else If a_keys>20 Then
132.                                 last_mouse_x_hitn=MouseX()
133.                                 Return 0
134.                         Else
135.                                 Return 0
136.                         End If
137.                 Else If ids(1,id)=1 Then
138.                         a_keys=MouseX()-last_mouse_x_hitp
139.                         If a_keys>20 Then
140.                                 last_mouse_x_hitp=MouseX()
141.                                 Return 1
142.                         Else If a_keys<-20 Then
143.                                 last_mouse_x_hitp=MouseX()
144.                                 Return 0
145.                         Else
146.                                 Return 0
147.                         End If
148.                 Else If ids(1,id)=2 Then
149.                         a_keys=MouseY()-last_mouse_y_hitn
150.                         If a_keys<-20 Then
151.                                 last_mouse_y_hitn=MouseY()
152.                                 Return 1
153.                         Else If a_keys>20 Then
154.                                 last_mouse_y_hitn=MouseY()
155.                                 Return 0
156.                         Else
157.                                 Return 0
158.                         End If
159.                 Else If ids(1,id)=3 Then
160.                         a_keys=MouseY()-last_mouse_y_hitp
161.                         If a_keys>20 Then
162.                                 last_mouse_y_hitp=MouseY()
163.                                 Return 1
164.                         Else If a_keys<-20 Then
165.                                 last_mouse_y_hitp=MouseY()
166.                                 Return 0
167.                         Else
168.                                 Return 0
169.                         End If
170.                 Else If ids(1,id)=4 Then
171.                         a_keys=MouseZ()-last_mouse_z_neg
172.                         last_mouse_z_neg=MouseZ()
173.                         If a_keys<0 Then
174.                                 Return 1
175.                         Else
176.                                 Return 0
177.                         End If
178.                 Else If ids(1,id)=5 Then
179.                         a_keys=MouseZ()-last_mouse_z_pos
180.                         last_mouse_z_pos=MouseZ()
181.                         If a_keys>0 Then
182.                                 Return 1
183.                         Else
184.                                 Return 0
185.                         End If
186.                 Else If ids(1,id)=6
187.                         If JoyXDir()=-1 Then
188.                                 If joy_dir_list(0)=1 Then
189.                                         Return 0
190.                                 Else
191.                                         joy_dir_list(0)=1
192.                                         Return 1
193.                                 End If
194.                         Else
195.                                 joy_dir_list(0)=0
196.                                 Return 0
197.                         End If
198.                 Else If ids(1,id)=7
199.                         If JoyXDir()=1 Then
200.                                 If joy_dir_list(1)=1 Then
201.                                         Return 0
202.                                 Else
203.                                         joy_dir_list(1)=1
204.                                         Return 1
205.                                 End If
206.                         Else
207.                                 joy_dir_list(1)=0
208.                                 Return 0
209.                         End If
210.                 Else If ids(1,id)=8
211.                         If JoyYDir()=-1 Then
212.                                 If joy_dir_list(2)=1 Then
213.                                         Return 0
214.                                 Else
215.                                         joy_dir_list(2)=1
216.                                         Return 1
217.                                 End If
218.                         Else
219.                                 joy_dir_list(2)=0
220.                                 Return 0
221.                         End If
222.                 Else If ids(1,id)=9
223.                         If JoyYDir()=1 Then
224.                                 If joy_dir_list(3)=1 Then
225.                                         Return 0
226.                                 Else
227.                                         joy_dir_list(3)=1
228.                                         Return 1
229.                                 End If
230.                         Else
231.                                 joy_dir_list(3)=0
232.                                 Return 0
233.                         End If
234.                 End If
235.         End If
236. End Function
237. Function down#(id)
238.         If ids(0,id)=0 Then
239.                 Return KeyDown(ids(1,id))
240.         Else If ids(0,id)=1 Then
241.                 Return MouseDown(ids(1,id))
242.         Else If ids(0,id)=2 Then
243.                 Return JoyDown(ids(1,id))
244.         Else If ids(0,id)=3 Then
245.                 If ids(1,id)=0 Then
246.                         a_keys=MouseX()-last_mouse_x_neg
247.                         last_mouse_x_neg=MouseX()
248.                         If a_keys<0 Then
249.                                 Return -a_keys*mouse_factor_x#
250.                         Else
251.                                 Return 0
252.                         End If
253.                 Else If ids(1,id)=1 Then
254.                         a_keys=MouseX()-last_mouse_x_pos
255.                         last_mouse_x_pos=MouseX()
256.                         If a_keys>0 Then
257.                                 Return a_keys*mouse_factor_x#
258.                         Else
259.                                 Return 0
260.                         End If
261.                 Else If ids(1,id)=2 Then
262.                         a_keys=MouseY()-last_mouse_y_neg
263.                         last_mouse_y_neg=MouseY()
264.                         If a_keys<0 Then
265.                                 Return -a_keys*mouse_factor_y#
266.                         Else
267.                                 Return 0
268.                         End If
269.                 Else If ids(1,id)=3 Then
270.                         a_keys=MouseY()-last_mouse_y_pos
271.                         last_mouse_y_pos=MouseY()
272.                         If a_keys>0 Then
273.                                 Return a_keys*mouse_factor_y#
274.                         Else
275.                                 Return 0
276.                         End If
277.                 Else If ids(1,id)=4 Then
278.                         a_keys=MouseZ()-last_mouse_z_neg
279.                         last_mouse_z_neg=MouseZ()
280.                         If a_keys<0 Then
281.                                 Return -a_keys*mouse_factor_z#
282.                         Else
283.                                 Return 0
284.                         End If
285.                 Else If ids(1,id)=5 Then
286.                         a_keys=MouseZ()-last_mouse_z_pos
287.                         last_mouse_z_pos=MouseZ()
288.                         If a_keys>0 Then
289.                                 Return a_keys*mouse_factor_z#
290.                         Else
291.                                 Return 0
292.                         End If
293.                 Else If ids(1,id)=6 Then
294.                         a_keyss#=JoyX()
295.                         If a_keyss>joystick_minmax(0) Then
296.                                 Return 0
297.                         Else If a_keyss>joystick_minmax(1) Then
298.                                 Return joystick_factor_x*(joystick_minmax(0)-a_keyss)/(joystick_minmax(0)-joystick_minmax(1))
299.                         Else
300.                                 Return 1
301.                         End If
302.                 Else If ids(1,id)=7 Then
303.                         a_keyss#=JoyX()
304.                         If a_keyss<joystick_minmax(2) Then
305.                                 Return 0
306.                         Else If a_keyss<joystick_minmax(3) Then
307.                                 Return joystick_factor_x*(joystick_minmax(2)-a_keyss)/(joystick_minmax(2)-joystick_minmax(3))
308.                         Else
309.                                 Return 1
310.                         End If
311.                 Else If ids(1,id)=8 Then
312.                         a_keyss#=JoyY()
313.                         If a_keyss>joystick_minmax(4) Then
314.                                 Return 0
315.                         Else If a_keyss>joystick_minmax(5) Then
316.                                 Return joystick_factor_y*(joystick_minmax(4)-a_keyss)/(joystick_minmax(4)-joystick_minmax(5))
317.                         Else
318.                                 Return 1
319.                         End If
320.                 Else If ids(1,id)=9 Then
321.                         a_keyss#=JoyY()
322.                         If a_keyss<joystick_minmax(6) Then
323.                                 Return 0
324.                         Else If a_keyss<joystick_minmax(7) Then
325.                                 Return joystick_factor_y*(joystick_minmax(6)-a_keyss)/(joystick_minmax(6)-joystick_minmax(7))
326.                         Else
327.                                 Return 1
328.                         End If
329.                 End If
330.         End If
331. End Function
332. Function preidsconfigure()
333.         FlushKeys
334.         FlushMouse
335.         MoveMouse(GraphicsWidth()/2,GraphicsHeight()/2) ;Optionanl
336.         mx_keys=MouseX()
337.         my_keys=MouseY()
338.         mz_keys=MouseZ()
339.         joy_dir_list(0)=(JoyXDir()=-1)
340.         joy_dir_list(1)=(JoyXDir()=1)
341.         joy_dir_list(2)=(JoyYDir()=-1)
342.         joy_dir_list(3)=(JoyYDir()=1)
343. End Function
344. Function idsconfigure(id)
345. ;       Repeat
346.                 If JoyXDir()<>-1 Then joy_dir_list(0)=0
347.                 If JoyXDir()<>1 Then joy_dir_list(1)=0
348.                 If JoyYDir()<>-1 Then joy_dir_list(2)=0
349.                 If JoyYDir()<>1 Then joy_dir_list(3)=0
350.                 If MouseX()-mx_keys<-50 Then
351.                         ids(0,id)=3
352.                         ids(1,id)=0
353.                         keynames(id)="Move Mouse Left"
354.                         Return
355.                 Else If MouseX()-mx_keys>50 Then
356.                         ids(0,id)=3
357.                         ids(1,id)=1
358.                         keynames(id)="Move Mouse Right"
359.                         Return
360.                 Else If MouseY()-my_keys<-50 Then
361.                         ids(0,id)=3
362.                         ids(1,id)=2
363.                         keynames(id)="Move Mouse Up"
364.                         Return
365.                 Else If MouseY()-my_keys>50 Then
366.                         ids(0,id)=3
367.                         ids(1,id)=3
368.                         keynames(id)="Move Mouse Down"
369.                         Return
370.                 Else If MouseZ()-mz_keys<0 Then
371.                         ids(0,id)=3
372.                         ids(1,id)=4
373.                         keynames(id)="Roll Whell Backward"
374.                         Return
375.                 Else If MouseZ()-mz_keys>0 Then
376.                         ids(0,id)=3
377.                         ids(1,id)=5
378.                         keynames(id)="Roll Whell Forward"
379.                         Return
380.                 Else If JoyXDir()=-1 And joy_dir_list(0)=0 Then
381.                         ids(0,id)=3
382.                         ids(1,id)=6
383.                         keynames(id)="Joystick Left"
384.                         Return
385.                 Else If JoyXDir()=1 And joy_dir_list(1)=0 Then
386.                         ids(0,id)=3
387.                         ids(1,id)=7
388.                         keynames(id)="Joystick Right"
389.                         Return
390.                 Else If JoyYDir()=-1 And joy_dir_list(2)=0 Then
391.                         ids(0,id)=3
392.                         ids(1,id)=8
393.                         keynames(id)="Joystick Up"
394.                         Return
395.                 Else If JoyYDir()=1 And joy_dir_list(3)=0 Then
396.                         ids(0,id)=3
397.                         ids(1,id)=9
398.                         keynames(id)="Joystick Down"
399.                         Return
400.                 End If
401.                 For a=0 To 255
402.                         If KeyHit(a) Then
403.                                 ids(0,id)=0
404.                                 ids(1,id)=a
405.                                 keys_midvar=GetKey()
406. ;                               If keys_midvar=0 Or a=57 Or a>70 And a<84 Or a=55 Or a=181 Or 1=1 Then
407.                                         If a=1 Then
408.                                                 keynames(id)="Escape"
409.                                         Else If a=15 Then
410.                                                 keynames(id)="Tab"
411.                                         Else If a=58 Then
412.                                                 keynames(id)="Caps Lock"
413.                                         Else If a=42 Then
414.                                                 keynames(id)="Left Shift"
415.                                         Else If a=29 Then
416.                                                 keynames(id)="Left Control"
417.                                         Else If a=219 Then
418.                                                 keynames(id)="Left Start"
419.                                         Else If a=56 Then
420.                                                 keynames(id)="Left Alt"
421.                                         Else If a=57 Then
422.                                                 keynames(id)="Space"
423.                                         Else If a=184 Then
424.                                                 keynames(id)="Right Alt Gr"
425.                                         Else If a=220 Then
426.                                                 keynames(id)="Right Start"
427.                                         Else If a=221 Then
428.                                                 keynames(id)="Menu Button"
429.                                         Else If a=157 Then
430.                                                 keynames(id)="Right Control"
431.                                         Else If a=54 Then
432.                                                 keynames(id)="Right Shift"
433.                                         Else If a=28 Then
434.                                                 keynames(id)="Enter"
435.                                         Else If a=14 Then
436.                                                 keynames(id)="Backspace"
437.                                         Else If a=59 Then
438.                                                 keynames(id)="F1"
439.                                         Else If a=60 Then
440.                                                 keynames(id)="F2"
441.                                         Else If a=61 Then
442.                                                 keynames(id)="F3"
443.                                         Else If a=62 Then
444.                                                 keynames(id)="F4"
445.                                         Else If a=63 Then
446.                                                 keynames(id)="F5"
447.                                         Else If a=64 Then
448.                                                 keynames(id)="F6"
449.                                         Else If a=65 Then
450.                                                 keynames(id)="F7"
451.                                         Else If a=66 Then
452.                                                 keynames(id)="F8"
453.                                         Else If a=67 Then
454.                                                 keynames(id)="F9"
455.                                         Else If a=68 Then
456.                                                 keynames(id)="F10"
457.                                         Else If a=87 Then
458.                                                 keynames(id)="F11"
459.                                         Else If a=88 Then
460.                                                 keynames(id)="F12"
461.                                         Else If a=183 Then
462.                                                 keynames(id)="Print Screen"
463.                                         Else If a=70 Then
464.                                                 keynames(id)="Pause"
465.                                         Else If a=197 Then
466.                                                 keynames(id)="Num Lock"
467.                                         Else If a=210 Then
468.                                                 keynames(id)="Insert"
469.                                         Else If a=199 Then
470.                                                 keynames(id)="Home"
471.                                         Else If a=201 Then
472.                                                 keynames(id)="Page Up"
473.                                         Else If a=211 Then
474.                                                 keynames(id)="Delete"
475.                                         Else If a=207 Then
476.                                                 keynames(id)="End"
477.                                         Else If a=209 Then
478.                                                 keynames(id)="Page Down"
479.                                         Else If a=200 Then
480.                                                 keynames(id)="Arrow Up"
481.                                         Else If a=203 Then
482.                                                 keynames(id)="Arrow Left"
483.                                         Else If a=208 Then
484.                                                 keynames(id)="Arrow Down"
485.                                         Else If a=205 Then
486.                                                 keynames(id)="Arrow Right"
487.                                         Else If a=69 Then
488.                                                 keynames(id)="Num Lock"
489.                                         Else If a=181 Then
490.                                                 keynames(id)="Numpad /"
491.                                         Else If a=55 Then
492.                                                 keynames(id)="Numpad *"
493.                                         Else If a=71 Then
494.                                                 keynames(id)="Numpad 7"
495.                                         Else If a=72 Then
496.                                                 keynames(id)="Numpad 8"
497.                                         Else If a=73 Then
498.                                                 keynames(id)="Numpad 9"
499.                                         Else If a=74 Then
500.                                                 keynames(id)="Numpad -"
501.                                         Else If a=75 Then
502.                                                 keynames(id)="Numpad 4"
503.                                         Else If a=76 Then
504.                                                 keynames(id)="Numpad 5"
505.                                         Else If a=77 Then
506.                                                 keynames(id)="Numpad 6"
507.                                         Else If a=78 Then
508.                                                 keynames(id)="Munpad +"
509.                                         Else If a=79 Then
510.                                                 keynames(id)="Numpad 1"
511.                                         Else If a=80 Then
512.                                                 keynames(id)="Numpad 2"
513.                                         Else If a=81 Then
514.                                                 keynames(id)="Numpad 3"
515.                                         Else If a=82 Then
516.                                                 keynames(id)="Numpad 0"
517.                                         Else If a=83 Then
518.                                                 If keys_midvar=0 Then
519.                                                         keynames(id)="Numpad ."
520.                                                 Else
521.                                                         keynames(id)="Numpad "+Chr(keys_midvar)
522.                                                 End If
523.                                         Else If a=156 Then
524.                                                 keynames(id)="Numpad Enter"
525.                                         Else
526. ;                                               keynames(id)="Unknown key "+a
527.                                                 If keys_midvar>223 Then keys_midvar=keys_midvar-32
528.                                                 If keys_midvar=0 Then
529.                                                         keynames(id)="Unknown Key"
530.                                                 Else
531.                                                         keynames(id)=Upper(Chr(keys_midvar));+" Key"
532.                                                 End If
533.                                         End If
534. ;                               Else
535. ;                                       If keys_midvar>223 Then keys_midvar=keys_midvar-32
536. ;                                       keynames(id)=Upper(Chr(keys_midvar));+" Key"
537. ;                               End If
538.                                 Return
539.                         End If
540.                 Next
541.                 For a=0 To 15
542.                         If JoyHit(a) Then
543.                                 ids(0,id)=2
544.                                 ids(1,id)=a
545.                                 keynames(id)="Joystick Button "+a
546.                                 Return
547.                         End If
548.                 Next
549.                 For a=1 To 3
550.                         If MouseHit(a) Then
551.                                 ids(0,id)=1
552.                                 ids(1,id)=a
553.                                 If a=1 Then
554.                                         keynames(id)="Left Mouse Key"
555.                                 Else If a=2 Then
556.                                         keynames(id)="Right Mouse Key"
557.                                 Else
558.                                         keynames(id)="Middle Mouse Key"
559.                                 End If
560.                                 Return
561.                         End If
562.                 Next
563. ;               Delay 5
564. ;       Forever
565.         Return -1
566. End Function

Comments : none...