author | Wuzzy <Wuzzy2@mail.ru> |
Sat, 18 May 2019 19:33:49 +0200 | |
changeset 15028 | 9d00a873bbcc |
parent 15027 | f81b46f584c7 |
child 15300 | 7ab5cf405686 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
11046 | 3 |
* Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
4 | 4 |
* |
183 | 5 |
* This program is free software; you can redistribute it and/or modify |
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
4 | 8 |
* |
183 | 9 |
* This program is distributed in the hope that it will be useful, |
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
4 | 13 |
* |
183 | 14 |
* You should have received a copy of the GNU General Public License |
15 |
* along with this program; if not, write to the Free Software |
|
10108
c68cf030eded
update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents:
10080
diff
changeset
|
16 |
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
4 | 17 |
*) |
18 |
||
2630 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
6954
a61458a81480
changed uKeys to uInputHandler to better reflect its function
Xeli
parents:
6942
diff
changeset
|
21 |
unit uInputHandler; |
4 | 22 |
interface |
4363 | 23 |
uses SDLh, uTypes; |
4 | 24 |
|
3038 | 25 |
procedure initModule; |
26 |
procedure freeModule; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
27 |
|
7426
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
28 |
function KeyNameToCode(name: shortstring): LongInt; inline; |
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
29 |
function KeyNameToCode(name: shortstring; Modifier: shortstring): LongInt; |
13042
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
30 |
|
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
31 |
function KeyBindToCode(bind: shortstring): LongInt; |
13343
93325e13d329
Change KeyBindToName to shortstring
Wuzzy <Wuzzy2@mail.ru>
parents:
13132
diff
changeset
|
32 |
function KeyBindToName(bind: shortstring): shortstring; |
7426
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
33 |
//procedure MaskModifier(var code: LongInt; modifier: LongWord); |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
34 |
procedure MaskModifier(Modifier: shortstring; var code: LongInt); |
14829 | 35 |
procedure ProcessMouseButton(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
36 |
procedure ProcessMouseMotion(xrel, yrel: LongInt); |
|
12621 | 37 |
//procedure ProcessMouseWheel(x, y: LongInt); |
38 |
procedure ProcessMouseWheel(y: LongInt); |
|
6992 | 39 |
procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
40 |
procedure ProcessKey(code: LongInt; KeyDown: boolean); |
|
41 |
||
14432
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
42 |
{$IFDEF USE_AM_NUMCOLUMN} |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
43 |
function CheckDefaultSlotKeys: boolean; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
44 |
{$ENDIF} |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
45 |
|
4 | 46 |
procedure ResetKbd; |
11486 | 47 |
procedure ResetMouseWheel; |
948 | 48 |
procedure FreezeEnterKey; |
4 | 49 |
procedure InitKbdKeyTable; |
50 |
||
167 | 51 |
procedure SetBinds(var binds: TBinds); |
52 |
procedure SetDefaultBinds; |
|
8346 | 53 |
procedure chDefaultBind(var id: shortstring); |
9466 | 54 |
procedure loadBinds(cmd, s: shortstring); |
55 |
procedure addBind(var binds: TBinds; var id: shortstring); |
|
167 | 56 |
|
2428 | 57 |
procedure ControllerInit; |
58 |
procedure ControllerAxisEvent(joy, axis: Byte; value: Integer); |
|
59 |
procedure ControllerHatEvent(joy, hat, value: Byte); |
|
60 |
procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean); |
|
61 |
||
4 | 62 |
implementation |
15024
d84136589c04
Backed out changeset 6a928999fefd (onPreciseLocal causes desyncs)
Wuzzy <Wuzzy2@mail.ru>
parents:
14932
diff
changeset
|
63 |
uses uKeyNames, uConsole, uCommands, uVariables, uConsts, uUtils, uDebug, uPhysFSLayer, uCursor; |
167 | 64 |
|
7193 | 65 |
const |
66 |
LSHIFT = $0200; |
|
67 |
RSHIFT = $0400; |
|
68 |
LALT = $0800; |
|
69 |
RALT = $1000; |
|
70 |
LCTRL = $2000; |
|
8330 | 71 |
RCTRL = $4000; |
7193 | 72 |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
73 |
var tkbd: array[0..cKbdMaxIndex] of boolean; |
14853
769189675b6c
Add lookup table for Hedgewars key IDs instead of generating IDs on the fly
Wuzzy <Wuzzy2@mail.ru>
parents:
14829
diff
changeset
|
74 |
KeyNames: TKeyNames; |
6982 | 75 |
CurrentBinds: TBinds; |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
76 |
ControllerNumControllers: Integer; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
77 |
ControllerEnabled: Integer; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
78 |
ControllerNumAxes: array[0..5] of Integer; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
79 |
//ControllerNumBalls: array[0..5] of Integer; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
80 |
ControllerNumHats: array[0..5] of Integer; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
81 |
ControllerNumButtons: array[0..5] of Integer; |
8370 | 82 |
//ControllerAxes: array[0..5] of array[0..19] of Integer; |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
83 |
//ControllerBalls: array[0..5] of array[0..19] of array[0..1] of Integer; |
8370 | 84 |
//ControllerHats: array[0..5] of array[0..19] of Byte; |
85 |
//ControllerButtons: array[0..5] of array[0..19] of Byte; |
|
3697 | 86 |
|
7426
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
87 |
function KeyNameToCode(name: shortstring): LongInt; inline; |
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
88 |
begin |
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
89 |
KeyNameToCode:= KeyNameToCode(name, ''); |
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
90 |
end; |
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
91 |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
92 |
function KeyNameToCode(name: shortstring; Modifier: shortstring): LongInt; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
93 |
var code: LongInt; |
2678
334016e8d895
injection of custom code in SDL for iPhone in order to implement our frontend
koda
parents:
2674
diff
changeset
|
94 |
begin |
6917 | 95 |
name:= LowerCase(name); |
9694 | 96 |
code:= 0; |
97 |
while (code <= cKeyMaxIndex) and (KeyNames[code] <> name) do inc(code); |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
98 |
|
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
99 |
MaskModifier(Modifier, code); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
100 |
KeyNameToCode:= code; |
2678
334016e8d895
injection of custom code in SDL for iPhone in order to implement our frontend
koda
parents:
2674
diff
changeset
|
101 |
end; |
13042
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
102 |
|
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
103 |
// Takes a control name (e.g. 'quit') and returns the corresponding key code, |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
104 |
// if it has been bound. |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
105 |
// Returns -1 if the control has not been bound. |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
106 |
function KeyBindToCode(bind: shortstring): LongInt; |
13068 | 107 |
var code, index: LongInt; |
13042
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
108 |
begin |
13068 | 109 |
index:= 0; |
110 |
while (index <= High(CurrentBinds.binds)) and (CurrentBinds.binds[index] <> bind) do inc(index); |
|
111 |
if index > High(CurrentBinds.binds) then |
|
13042
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
112 |
// Return error |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
113 |
KeyBindToCode:= -1 |
13068 | 114 |
else begin |
115 |
code:= 0; |
|
116 |
while (code <= High(CurrentBinds.indices)) and (CurrentBinds.indices[code] <> index) do inc(code); |
|
13504
c41b16ac2e05
Clarify the wording of a few checkFails messages
Wuzzy <Wuzzy2@mail.ru>
parents:
13491
diff
changeset
|
117 |
checkFails(code <= High(CurrentBinds.indices), 'Inconsistency in key binding registry', True); |
13042
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
118 |
KeyBindToCode:= code; |
13068 | 119 |
end; |
13042
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
120 |
end; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
121 |
|
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
122 |
// Takes a control name (e.g. 'quit') and returns the corresponding |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
123 |
// human-readable key name from SDL. |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
124 |
// FIXME: Does not work 100% for all keys yet, but at least it no |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
125 |
// longer hardcodes any key name. |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
126 |
// TODO: Localize |
13343
93325e13d329
Change KeyBindToName to shortstring
Wuzzy <Wuzzy2@mail.ru>
parents:
13132
diff
changeset
|
127 |
function KeyBindToName(bind: shortstring): shortstring; |
13042
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
128 |
var code: LongInt; |
13343
93325e13d329
Change KeyBindToName to shortstring
Wuzzy <Wuzzy2@mail.ru>
parents:
13132
diff
changeset
|
129 |
name: shortstring; |
13042
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
130 |
begin |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
131 |
code:= KeyBindToCode(bind); |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
132 |
if code = -1 then |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
133 |
KeyBindToName:= trmsg[sidUnknownKey] |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
134 |
else |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
135 |
begin |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
136 |
name:= SDL_GetKeyName(SDL_GetKeyFromScancode(code)); |
13045
25a9260244f3
InputHandler: Shorten "Escape" to "Esc"
Wuzzy <Wuzzy2@mail.ru>
parents:
13042
diff
changeset
|
137 |
if (name = 'Escape') then |
14387
2ab312c47dc3
make pas2c function without haskell aborting if locale is C
nemo
parents:
13897
diff
changeset
|
138 |
// Let's shorten the name "Escape" for the quit menu |
13045
25a9260244f3
InputHandler: Shorten "Escape" to "Esc"
Wuzzy <Wuzzy2@mail.ru>
parents:
13042
diff
changeset
|
139 |
KeyBindToName:= 'Esc' |
13343
93325e13d329
Change KeyBindToName to shortstring
Wuzzy <Wuzzy2@mail.ru>
parents:
13132
diff
changeset
|
140 |
else if (length(name) <> 0) then |
13042
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
141 |
KeyBindToName:= name |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
142 |
else |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
143 |
begin |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
144 |
WriteLnToConsole('Error: KeyBindToName('+bind+') failed to find SDL key name!'); |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
145 |
KeyBindToName:= trmsg[sidUnknownKey]; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
146 |
end; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
147 |
end; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
148 |
end; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
149 |
|
7426
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
150 |
(* |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
151 |
procedure MaskModifier(var code: LongInt; Modifier: LongWord); |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
152 |
begin |
8330 | 153 |
if(Modifier and KMOD_LSHIFT) <> 0 then code:= code or LSHIFT; |
154 |
if(Modifier and KMOD_RSHIFT) <> 0 then code:= code or LSHIFT; |
|
155 |
if(Modifier and KMOD_LALT) <> 0 then code:= code or LALT; |
|
156 |
if(Modifier and KMOD_RALT) <> 0 then code:= code or LALT; |
|
157 |
if(Modifier and KMOD_LCTRL) <> 0 then code:= code or LCTRL; |
|
158 |
if(Modifier and KMOD_RCTRL) <> 0 then code:= code or LCTRL; |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
159 |
end; |
7426
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7403
diff
changeset
|
160 |
*) |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
161 |
procedure MaskModifier(Modifier: shortstring; var code: LongInt); |
10015 | 162 |
var mod_ : shortstring = ''; |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
163 |
ModifierCount, i: LongInt; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
164 |
begin |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
165 |
if Modifier = '' then exit; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
166 |
ModifierCount:= 0; |
7202 | 167 |
|
168 |
for i:= 1 to Length(Modifier) do |
|
169 |
if(Modifier[i] = ':') then inc(ModifierCount); |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
170 |
|
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
171 |
SplitByChar(Modifier, mod_, ':');//remove the first mod: part |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
172 |
Modifier:= mod_; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
173 |
for i:= 0 to ModifierCount do |
8330 | 174 |
begin |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
175 |
mod_:= ''; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
176 |
SplitByChar(Modifier, mod_, ':'); |
7193 | 177 |
if (Modifier = 'lshift') then code:= code or LSHIFT; |
178 |
if (Modifier = 'rshift') then code:= code or RSHIFT; |
|
179 |
if (Modifier = 'lalt') then code:= code or LALT; |
|
180 |
if (Modifier = 'ralt') then code:= code or RALT; |
|
181 |
if (Modifier = 'lctrl') or (mod_ = 'lmeta') then code:= code or LCTRL; |
|
182 |
if (Modifier = 'rctrl') or (mod_ = 'rmeta') then code:= code or RCTRL; |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
183 |
Modifier:= mod_; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
184 |
end; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
185 |
end; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
186 |
|
6917 | 187 |
procedure ProcessKey(code: LongInt; KeyDown: boolean); |
188 |
var |
|
189 |
Trusted: boolean; |
|
15027 | 190 |
curBind, s: shortstring; |
15028
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
191 |
readyAborter: boolean; |
6917 | 192 |
begin |
7141
ea6ad9a97fca
change the array which represents the keyboard state to be a boolean array rather than byte array
Xeli
parents:
7140
diff
changeset
|
193 |
if not(tkbd[code] xor KeyDown) then exit; |
ea6ad9a97fca
change the array which represents the keyboard state to be a boolean array rather than byte array
Xeli
parents:
7140
diff
changeset
|
194 |
tkbd[code]:= KeyDown; |
7140
29948153fda2
Don't allow for multiple key up(or down) events, it will ignore the excess events
Xeli
parents:
7118
diff
changeset
|
195 |
|
6917 | 196 |
Trusted:= (CurrentTeam <> nil) |
197 |
and (not CurrentTeam^.ExtDriven) |
|
198 |
and (CurrentHedgehog^.BotLevel = 0); |
|
9714 | 199 |
// REVIEW OR FIXME |
200 |
// ctrl/cmd + q to close engine and frontend - this seems like a bad idea, since we let people set arbitrary binds, and don't warn them of this. |
|
201 |
// There's no confirmation at all |
|
6942 | 202 |
// ctrl/cmd + q to close engine and frontend |
8746
55539c550c33
use SDL keycode for shortcuts (doesn't fix layout issues)
koda
parents:
8370
diff
changeset
|
203 |
if(KeyDown and (code = SDLK_q)) then |
6942 | 204 |
begin |
205 |
{$IFDEF DARWIN} |
|
7141
ea6ad9a97fca
change the array which represents the keyboard state to be a boolean array rather than byte array
Xeli
parents:
7140
diff
changeset
|
206 |
if tkbd[KeyNameToCode('left_meta')] or tkbd[KeyNameToCode('right_meta')] then |
6942 | 207 |
{$ELSE} |
7141
ea6ad9a97fca
change the array which represents the keyboard state to be a boolean array rather than byte array
Xeli
parents:
7140
diff
changeset
|
208 |
if tkbd[KeyNameToCode('left_ctrl')] or tkbd[KeyNameToCode('right_ctrl')] then |
6942 | 209 |
{$ENDIF} |
7869
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
210 |
ParseCommand('halt', true); |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
211 |
end; |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
212 |
|
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
213 |
// ctrl/cmd + w to close engine |
8746
55539c550c33
use SDL keycode for shortcuts (doesn't fix layout issues)
koda
parents:
8370
diff
changeset
|
214 |
if(KeyDown and (code = SDLK_w)) then |
7869
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
215 |
begin |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
216 |
{$IFDEF DARWIN} |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
217 |
// on OS X it this is expected behaviour |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
218 |
if tkbd[KeyNameToCode('left_meta')] or tkbd[KeyNameToCode('right_meta')] then |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
219 |
{$ELSE} |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
220 |
// on other systems use this shortcut only if the keys are not bound to any command |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
221 |
if tkbd[KeyNameToCode('left_ctrl')] or tkbd[KeyNameToCode('right_ctrl')] then |
13068 | 222 |
if ((CurrentBinds.indices[KeyNameToCode('left_ctrl')] = 0) or |
223 |
(CurrentBinds.indices[KeyNameToCode('right_ctrl')] = 0)) and |
|
224 |
(CurrentBinds.indices[SDLK_w] = 0) then |
|
7869
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
225 |
{$ENDIF} |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
226 |
ParseCommand('forcequit', true); |
6942 | 227 |
end; |
228 |
||
13068 | 229 |
if CurrentBinds.indices[code] > 0 then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
230 |
begin |
15027 | 231 |
curBind:= CurrentBinds.binds[CurrentBinds.indices[code]]; |
15028
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
232 |
|
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
233 |
// Check if the keypress should end the ready phase. |
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
234 |
// Camera movement keys are "safe" since its equivalent to moving the mouse, |
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
235 |
// which also does not end the ready phase. |
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
236 |
readyAborter:= (curBind <> '+cur_u') and (curBind <> '+cur_d') and (curBind <> '+cur_l') and (curBind <> '+cur_r'); |
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
237 |
|
9694 | 238 |
if (code < cKeyMaxIndex - 2) // means not mouse buttons |
239 |
and KeyDown |
|
15027 | 240 |
and (not ((curBind = 'put') |
241 |
or (curBind = 'ammomenu') |
|
242 |
or (curBind = '+cur_u') |
|
243 |
or (curBind = '+cur_d') |
|
244 |
or (curBind = '+cur_l') |
|
245 |
or (curBind = '+cur_r'))) |
|
246 |
and (CurrentTeam <> nil) |
|
247 |
and (not CurrentTeam^.ExtDriven) |
|
9694 | 248 |
then bShowAmmoMenu:= false; |
7118 | 249 |
|
7140
29948153fda2
Don't allow for multiple key up(or down) events, it will ignore the excess events
Xeli
parents:
7118
diff
changeset
|
250 |
if KeyDown then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
251 |
begin |
10392 | 252 |
Trusted:= Trusted and (not isPaused); //releasing keys during pause should be allowed on the other hand |
10510 | 253 |
|
15027 | 254 |
if curBind = 'switch' then |
9714 | 255 |
LocalMessage:= LocalMessage or gmSwitch |
15027 | 256 |
else if curBind = '+precise' then |
14916
d4a19bf6687e
Fix incorrect handling of slow/precise volume change when it's not your turn
Wuzzy <Wuzzy2@mail.ru>
parents:
14915
diff
changeset
|
257 |
begin |
9714 | 258 |
LocalMessage:= LocalMessage or gmPrecise; |
14916
d4a19bf6687e
Fix incorrect handling of slow/precise volume change when it's not your turn
Wuzzy <Wuzzy2@mail.ru>
parents:
14915
diff
changeset
|
259 |
updateVolumeDelta(true); |
14917
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14916
diff
changeset
|
260 |
updateCursorMovementDelta(true, CursorMovementX, CursorMovementX); |
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14916
diff
changeset
|
261 |
updateCursorMovementDelta(true, CursorMovementY, CursorMovementY); |
14916
d4a19bf6687e
Fix incorrect handling of slow/precise volume change when it's not your turn
Wuzzy <Wuzzy2@mail.ru>
parents:
14915
diff
changeset
|
262 |
end; |
10015 | 263 |
|
15027 | 264 |
ParseCommand(curBind, Trusted); |
15028
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
265 |
// End ready phase |
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
266 |
if (readyAborter) and (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
267 |
ParseCommand('gencmd R', true) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
268 |
end |
15027 | 269 |
else if (curBind[1] = '+') then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
270 |
begin |
15027 | 271 |
if curBind = '+precise' then |
14916
d4a19bf6687e
Fix incorrect handling of slow/precise volume change when it's not your turn
Wuzzy <Wuzzy2@mail.ru>
parents:
14915
diff
changeset
|
272 |
begin |
9954 | 273 |
LocalMessage:= LocalMessage and (not gmPrecise); |
14916
d4a19bf6687e
Fix incorrect handling of slow/precise volume change when it's not your turn
Wuzzy <Wuzzy2@mail.ru>
parents:
14915
diff
changeset
|
274 |
updateVolumeDelta(false); |
14917
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14916
diff
changeset
|
275 |
updateCursorMovementDelta(false, CursorMovementX, CursorMovementX); |
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14916
diff
changeset
|
276 |
updateCursorMovementDelta(false, CursorMovementY, CursorMovementY); |
14916
d4a19bf6687e
Fix incorrect handling of slow/precise volume change when it's not your turn
Wuzzy <Wuzzy2@mail.ru>
parents:
14915
diff
changeset
|
277 |
end; |
15027 | 278 |
s:= curBind; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
279 |
s[1]:= '-'; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
280 |
ParseCommand(s, Trusted); |
15028
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
281 |
// End ready phase |
9d00a873bbcc
Don't abort ready phase for moving camera with keys
Wuzzy <Wuzzy2@mail.ru>
parents:
15027
diff
changeset
|
282 |
if (readyAborter) and (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
283 |
ParseCommand('gencmd R', true) |
9693 | 284 |
end |
285 |
else |
|
286 |
begin |
|
15027 | 287 |
if curBind = 'switch' then |
9954 | 288 |
LocalMessage:= LocalMessage and (not gmSwitch) |
9693 | 289 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
290 |
end |
6917 | 291 |
end; |
292 |
||
9691 | 293 |
procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
294 |
var code: LongInt; |
|
295 |
begin |
|
11365 | 296 |
// TODO |
297 |
code:= LongInt(event.keysym.scancode); |
|
9694 | 298 |
//writelntoconsole('[KEY] '+inttostr(code)+ ' -> ''' +KeyNames[code] + ''', type = '+inttostr(event.type_)); |
9691 | 299 |
ProcessKey(code, event.type_ = SDL_KEYDOWN); |
300 |
end; |
|
6917 | 301 |
|
14829 | 302 |
procedure ProcessMouseButton(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
6917 | 303 |
begin |
9694 | 304 |
//writelntoconsole('[MOUSE] '+inttostr(event.button)); |
305 |
case event.button of |
|
306 |
SDL_BUTTON_LEFT: |
|
307 |
ProcessKey(KeyNameToCode('mousel'), ButtonDown); |
|
308 |
SDL_BUTTON_MIDDLE: |
|
309 |
ProcessKey(KeyNameToCode('mousem'), ButtonDown); |
|
310 |
SDL_BUTTON_RIGHT: |
|
311 |
ProcessKey(KeyNameToCode('mouser'), ButtonDown); |
|
14866
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
312 |
SDL_BUTTON_X1: |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
313 |
ProcessKey(KeyNameToCode('mousex1'), ButtonDown); |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
314 |
SDL_BUTTON_X2: |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
315 |
ProcessKey(KeyNameToCode('mousex2'), ButtonDown); |
9694 | 316 |
end; |
317 |
end; |
|
318 |
||
14829 | 319 |
procedure ProcessMouseMotion(xrel, yrel: LongInt); |
320 |
begin |
|
321 |
uCursor.updatePositionDelta(xrel, yrel); |
|
322 |
end; |
|
323 |
||
11486 | 324 |
var mwheelupCode, mwheeldownCode: Integer; |
325 |
||
12621 | 326 |
//procedure ProcessMouseWheel(x, y: LongInt); |
327 |
procedure ProcessMouseWheel(y: LongInt); |
|
9694 | 328 |
begin |
12621 | 329 |
// we don't use |
9694 | 330 |
//writelntoconsole('[MOUSEWHEEL] '+inttostr(x)+', '+inttostr(y)); |
331 |
if y > 0 then |
|
11486 | 332 |
begin |
333 |
// reset other direction |
|
334 |
if tkbd[mwheeldownCode] then |
|
335 |
ProcessKey(mwheeldownCode, false); |
|
336 |
// trigger "button down" event |
|
337 |
if (not tkbd[mwheelupCode]) then |
|
338 |
ProcessKey(mwheelupCode, true); |
|
339 |
end |
|
9694 | 340 |
else if y < 0 then |
11486 | 341 |
begin |
342 |
// reset other direction |
|
343 |
if tkbd[mwheelupCode] then |
|
344 |
ProcessKey(mwheelupCode, false); |
|
345 |
// trigger "button down" event |
|
346 |
if (not tkbd[mwheeldownCode]) then |
|
347 |
ProcessKey(mwheeldownCode, true); |
|
348 |
end; |
|
349 |
end; |
|
350 |
||
351 |
procedure ResetMouseWheel(); |
|
352 |
begin |
|
353 |
if tkbd[mwheelupCode] then |
|
354 |
ProcessKey(mwheelupCode, false); |
|
355 |
if tkbd[mwheeldownCode] then |
|
356 |
ProcessKey(mwheeldownCode, false); |
|
4 | 357 |
end; |
358 |
||
359 |
procedure ResetKbd; |
|
7117
7df6386f7090
reimplemented ResetKbd and calling it when exiting gsChat status, this restores behavior from.17: You can now walk -> press t/chat -> type some stuff while still walking -> exit gsChat and stop walking at that moment
Xeli
parents:
7106
diff
changeset
|
360 |
var t: LongInt; |
4 | 361 |
begin |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
362 |
for t:= 0 to cKbdMaxIndex do |
7141
ea6ad9a97fca
change the array which represents the keyboard state to be a boolean array rather than byte array
Xeli
parents:
7140
diff
changeset
|
363 |
if tkbd[t] then |
7117
7df6386f7090
reimplemented ResetKbd and calling it when exiting gsChat status, this restores behavior from.17: You can now walk -> press t/chat -> type some stuff while still walking -> exit gsChat and stop walking at that moment
Xeli
parents:
7106
diff
changeset
|
364 |
ProcessKey(t, False); |
4 | 365 |
end; |
366 |
||
13068 | 367 |
procedure RegisterBind(var binds: TBinds; key, value: shortstring); |
368 |
var code: LongInt; |
|
369 |
begin |
|
13504
c41b16ac2e05
Clarify the wording of a few checkFails messages
Wuzzy <Wuzzy2@mail.ru>
parents:
13491
diff
changeset
|
370 |
checkFails(binds.lastIndex < 255, 'Too many key bindings', true); |
13068 | 371 |
|
372 |
code:= KeyNameToCode(key); |
|
373 |
||
374 |
checkFails(code >= 0, 'unknown key', true); |
|
375 |
||
13132 | 376 |
if binds.indices[code] > 0 then |
377 |
begin |
|
378 |
binds.binds[binds.indices[code]]:= value |
|
379 |
end |
|
380 |
else begin |
|
381 |
inc(binds.lastIndex); |
|
382 |
binds.indices[code]:= binds.lastIndex; |
|
383 |
binds.binds[binds.indices[code]]:= value |
|
384 |
end; |
|
13068 | 385 |
end; |
9691 | 386 |
|
387 |
procedure InitDefaultBinds; |
|
388 |
var i: Longword; |
|
389 |
begin |
|
13068 | 390 |
RegisterBind(DefaultBinds, 'escape', 'quit'); |
391 |
RegisterBind(DefaultBinds, _S'`', 'history'); |
|
392 |
RegisterBind(DefaultBinds, 'delete', 'rotmask'); |
|
393 |
RegisterBind(DefaultBinds, 'home', 'rottags'); |
|
13897
aa321e51da14
make explicit for pas2c some string casts that fpc was probably doing automatically
nemo
parents:
13568
diff
changeset
|
394 |
RegisterBind(DefaultBinds, _S'm', '+mission'); |
14770
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14554
diff
changeset
|
395 |
RegisterBind(DefaultBinds, _S'o', 'gearinfo'); |
9691 | 396 |
|
397 |
//numpad |
|
14915
5a6da39c5f2a
hwengine: Add missing default binds for camera movement and team chat
Wuzzy <Wuzzy2@mail.ru>
parents:
14866
diff
changeset
|
398 |
RegisterBind(DefaultBinds, 'keypad_8', '+cur_u'); |
5a6da39c5f2a
hwengine: Add missing default binds for camera movement and team chat
Wuzzy <Wuzzy2@mail.ru>
parents:
14866
diff
changeset
|
399 |
RegisterBind(DefaultBinds, 'keypad_6', '+cur_r'); |
5a6da39c5f2a
hwengine: Add missing default binds for camera movement and team chat
Wuzzy <Wuzzy2@mail.ru>
parents:
14866
diff
changeset
|
400 |
RegisterBind(DefaultBinds, 'keypad_4', '+cur_l'); |
5a6da39c5f2a
hwengine: Add missing default binds for camera movement and team chat
Wuzzy <Wuzzy2@mail.ru>
parents:
14866
diff
changeset
|
401 |
RegisterBind(DefaultBinds, 'keypad_2', '+cur_d'); |
9691 | 402 |
|
13068 | 403 |
RegisterBind(DefaultBinds, _S'0', '+volup'); |
404 |
RegisterBind(DefaultBinds, _S'9', '+voldown'); |
|
405 |
RegisterBind(DefaultBinds, _S'8', 'mute'); |
|
406 |
RegisterBind(DefaultBinds, _S'c', 'capture'); |
|
407 |
RegisterBind(DefaultBinds, _S'r', 'record'); |
|
408 |
RegisterBind(DefaultBinds, _S'h', 'findhh'); |
|
409 |
RegisterBind(DefaultBinds, _S'p', 'pause'); |
|
14932
938e67bc08ac
Change default demo speedup key from S to F
Wuzzy <Wuzzy2@mail.ru>
parents:
14918
diff
changeset
|
410 |
RegisterBind(DefaultBinds, _S'f', '+speedup'); |
13068 | 411 |
RegisterBind(DefaultBinds, _S't', 'chat'); |
14915
5a6da39c5f2a
hwengine: Add missing default binds for camera movement and team chat
Wuzzy <Wuzzy2@mail.ru>
parents:
14866
diff
changeset
|
412 |
RegisterBind(DefaultBinds, _S'u', 'chat team'); |
13068 | 413 |
RegisterBind(DefaultBinds, _S'y', 'confirm'); |
9691 | 414 |
|
13068 | 415 |
RegisterBind(DefaultBinds, 'mousem', 'zoomreset'); |
416 |
RegisterBind(DefaultBinds, 'wheelup', 'zoomin'); |
|
417 |
RegisterBind(DefaultBinds, 'wheeldown', 'zoomout'); |
|
9691 | 418 |
|
13068 | 419 |
RegisterBind(DefaultBinds, 'f12', 'fullscr'); |
9691 | 420 |
|
13533
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13527
diff
changeset
|
421 |
for i:= 1 to 10 do RegisterBind(DefaultBinds, 'f'+IntToStr(i), 'slot '+char(48+i)); |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13527
diff
changeset
|
422 |
for i:= 1 to 5 do RegisterBind(DefaultBinds, IntToStr(i), 'timer '+IntToStr(i)); |
13897
aa321e51da14
make explicit for pas2c some string casts that fpc was probably doing automatically
nemo
parents:
13568
diff
changeset
|
423 |
RegisterBind(DefaultBinds, _S'n', 'timer_u'); |
9691 | 424 |
|
13068 | 425 |
RegisterBind(DefaultBinds, 'mousel', '/put'); |
426 |
RegisterBind(DefaultBinds, 'mouser', 'ammomenu'); |
|
427 |
RegisterBind(DefaultBinds, 'backspace', 'hjump'); |
|
428 |
RegisterBind(DefaultBinds, 'tab', 'switch'); |
|
429 |
RegisterBind(DefaultBinds, 'return', 'ljump'); |
|
430 |
RegisterBind(DefaultBinds, 'space', '+attack'); |
|
431 |
RegisterBind(DefaultBinds, 'up', '+up'); |
|
432 |
RegisterBind(DefaultBinds, 'down', '+down'); |
|
433 |
RegisterBind(DefaultBinds, 'left', '+left'); |
|
434 |
RegisterBind(DefaultBinds, 'right', '+right'); |
|
435 |
RegisterBind(DefaultBinds, 'left_shift', '+precise'); |
|
9691 | 436 |
|
13527
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
437 |
// Default controls for first connected controller |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
438 |
{ NOTE: This is provided for convenience so players |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
439 |
don't have to set-up the controller entirely in a new install. |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
440 |
It's not ideal, so players are still encourages to |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
441 |
set up things manually. } |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
442 |
// Essential controls |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
443 |
RegisterBind(DefaultBinds, 'j0h0r', '+right'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
444 |
RegisterBind(DefaultBinds, 'j0h0l', '+left'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
445 |
RegisterBind(DefaultBinds, 'j0h0u', '+up'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
446 |
RegisterBind(DefaultBinds, 'j0h0d', '+down'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
447 |
RegisterBind(DefaultBinds, 'j0b0', 'ljump'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
448 |
RegisterBind(DefaultBinds, 'j0b1', 'hjump'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
449 |
RegisterBind(DefaultBinds, 'j0b2', '+attack'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
450 |
RegisterBind(DefaultBinds, 'j0b3', 'ammomenu'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
451 |
RegisterBind(DefaultBinds, 'j0b4', '+precise'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
452 |
RegisterBind(DefaultBinds, 'j0b5', 'put'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
453 |
RegisterBind(DefaultBinds, 'j0b6', 'switch'); |
13533
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13527
diff
changeset
|
454 |
RegisterBind(DefaultBinds, 'j0b7', 'timer_u'); |
9691 | 455 |
|
13527
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
456 |
// Cursor movement (also essential) |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
457 |
RegisterBind(DefaultBinds, 'j0h1r', '+cur_r'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
458 |
RegisterBind(DefaultBinds, 'j0h1l', '+cur_l'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
459 |
RegisterBind(DefaultBinds, 'j0h1d', '+cur_d'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
460 |
RegisterBind(DefaultBinds, 'j0h1u', '+cur_u'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
461 |
|
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
462 |
RegisterBind(DefaultBinds, 'j0a0u', '+cur_r'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
463 |
RegisterBind(DefaultBinds, 'j0a0d', '+cur_l'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
464 |
RegisterBind(DefaultBinds, 'j0a1u', '+cur_d'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
465 |
RegisterBind(DefaultBinds, 'j0a1d', '+cur_u'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
466 |
|
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
467 |
// Additional controls |
13533
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13527
diff
changeset
|
468 |
RegisterBind(DefaultBinds, 'j0b8', 'findhh'); |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13527
diff
changeset
|
469 |
RegisterBind(DefaultBinds, 'j0b9', '+mission'); |
9691 | 470 |
|
12106
9bc19f722169
Bug #108 - Phyfs/Pathz: Fix binds not being loaded
sheepluva
parents:
11664
diff
changeset
|
471 |
loadBinds('dbind', cPathz[ptConfig] + '/settings.ini'); |
9691 | 472 |
end; |
473 |
||
474 |
||
475 |
procedure InitKbdKeyTable; |
|
14853
769189675b6c
Add lookup table for Hedgewars key IDs instead of generating IDs on the fly
Wuzzy <Wuzzy2@mail.ru>
parents:
14829
diff
changeset
|
476 |
var i, j, k: LongInt; |
9691 | 477 |
begin |
14853
769189675b6c
Add lookup table for Hedgewars key IDs instead of generating IDs on the fly
Wuzzy <Wuzzy2@mail.ru>
parents:
14829
diff
changeset
|
478 |
// Mouse buttons and mouse wheel |
9691 | 479 |
KeyNames[cKeyMaxIndex ]:= 'mousel'; |
480 |
KeyNames[cKeyMaxIndex - 1]:= 'mousem'; |
|
481 |
KeyNames[cKeyMaxIndex - 2]:= 'mouser'; |
|
14866
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
482 |
KeyNames[cKeyMaxIndex - 3]:= 'mousex1'; |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
483 |
KeyNames[cKeyMaxIndex - 4]:= 'mousex2'; |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
484 |
mwheelupCode:= cKeyMaxIndex - 5; |
11486 | 485 |
KeyNames[mwheelupCode]:= 'wheelup'; |
14866
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
486 |
mwheeldownCode:= cKeyMaxIndex - 6; |
11486 | 487 |
KeyNames[mwheeldownCode]:= 'wheeldown'; |
9691 | 488 |
|
14853
769189675b6c
Add lookup table for Hedgewars key IDs instead of generating IDs on the fly
Wuzzy <Wuzzy2@mail.ru>
parents:
14829
diff
changeset
|
489 |
// Keyboard keys |
769189675b6c
Add lookup table for Hedgewars key IDs instead of generating IDs on the fly
Wuzzy <Wuzzy2@mail.ru>
parents:
14829
diff
changeset
|
490 |
uKeyNames.populateKeyNames(KeyNames); |
9691 | 491 |
|
492 |
// get the size of keyboard array |
|
11368
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11365
diff
changeset
|
493 |
SDL_GetKeyboardState(@k); |
9691 | 494 |
|
495 |
// Controller(s) |
|
496 |
for j:= 0 to Pred(ControllerNumControllers) do |
|
497 |
begin |
|
498 |
for i:= 0 to Pred(ControllerNumAxes[j]) do |
|
499 |
begin |
|
500 |
KeyNames[k + 0]:= 'j' + IntToStr(j) + 'a' + IntToStr(i) + 'u'; |
|
501 |
KeyNames[k + 1]:= 'j' + IntToStr(j) + 'a' + IntToStr(i) + 'd'; |
|
502 |
inc(k, 2); |
|
503 |
end; |
|
504 |
for i:= 0 to Pred(ControllerNumHats[j]) do |
|
505 |
begin |
|
506 |
KeyNames[k + 0]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'u'; |
|
507 |
KeyNames[k + 1]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'r'; |
|
508 |
KeyNames[k + 2]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'd'; |
|
509 |
KeyNames[k + 3]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'l'; |
|
510 |
inc(k, 4); |
|
511 |
end; |
|
512 |
for i:= 0 to Pred(ControllerNumButtons[j]) do |
|
513 |
begin |
|
514 |
KeyNames[k]:= 'j' + IntToStr(j) + 'b' + IntToStr(i); |
|
515 |
inc(k, 1); |
|
516 |
end; |
|
517 |
end; |
|
518 |
||
519 |
InitDefaultBinds |
|
520 |
end; |
|
2606
ed687a8d081f
updated build files for macosx and optimization system
koda
parents:
2599
diff
changeset
|
521 |
|
1051
dfdd5dfe97d4
Enable fullscreen switching back, now it's bound on F12
unc0rr
parents:
1022
diff
changeset
|
522 |
|
14432
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
523 |
{$IFDEF USE_AM_NUMCOLUMN} |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
524 |
function CheckDefaultSlotKeys: boolean; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
525 |
{$IFDEF USE_TOUCH_INTERFACE} |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
526 |
begin |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
527 |
CheckDefaultSlotKeys:= false; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
528 |
{$ELSE} |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
529 |
var i, code: LongInt; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
530 |
begin |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
531 |
for i:=1 to cMaxSlotIndex do |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
532 |
begin |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
533 |
code:= KeyNameToCode('f'+IntToStr(i)); |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
534 |
if CurrentBinds.binds[CurrentBinds.indices[code]] <> 'slot '+char(i+48) then |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
535 |
begin |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
536 |
CheckDefaultSlotKeys:= false; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
537 |
exit; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
538 |
end; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
539 |
end; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
540 |
CheckDefaultSlotKeys:= true; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
541 |
{$ENDIF} |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
542 |
end; |
71359339a493
Ammo menu: Show number instead F1, etc. if slot keys differ from default or in Touch interface
Wuzzy <Wuzzy2@mail.ru>
parents:
14387
diff
changeset
|
543 |
{$ENDIF} |
2786 | 544 |
|
9691 | 545 |
{$IFNDEF MOBILE} |
167 | 546 |
procedure SetBinds(var binds: TBinds); |
7184
211ab9e2cb15
only reset those keys which actually change their bindings
Xeli
parents:
7151
diff
changeset
|
547 |
var |
211ab9e2cb15
only reset those keys which actually change their bindings
Xeli
parents:
7151
diff
changeset
|
548 |
t: LongInt; |
167 | 549 |
begin |
8346 | 550 |
for t:= 0 to cKbdMaxIndex do |
13068 | 551 |
if (CurrentBinds.binds[CurrentBinds.indices[t]] <> binds.binds[binds.indices[t]]) and tkbd[t] then |
8346 | 552 |
ProcessKey(t, False); |
7184
211ab9e2cb15
only reset those keys which actually change their bindings
Xeli
parents:
7151
diff
changeset
|
553 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
554 |
CurrentBinds:= binds; |
9691 | 555 |
end; |
556 |
{$ELSE} |
|
557 |
procedure SetBinds(var binds: TBinds); |
|
558 |
begin |
|
559 |
binds:= binds; // avoid hint |
|
560 |
CurrentBinds:= DefaultBinds; |
|
561 |
end; |
|
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
562 |
{$ENDIF} |
167 | 563 |
|
564 |
procedure SetDefaultBinds; |
|
565 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
566 |
CurrentBinds:= DefaultBinds; |
167 | 567 |
end; |
568 |
||
948 | 569 |
procedure FreezeEnterKey; |
570 |
begin |
|
7141
ea6ad9a97fca
change the array which represents the keyboard state to be a boolean array rather than byte array
Xeli
parents:
7140
diff
changeset
|
571 |
tkbd[3]:= True; |
ea6ad9a97fca
change the array which represents the keyboard state to be a boolean array rather than byte array
Xeli
parents:
7140
diff
changeset
|
572 |
tkbd[13]:= True; |
ea6ad9a97fca
change the array which represents the keyboard state to be a boolean array rather than byte array
Xeli
parents:
7140
diff
changeset
|
573 |
tkbd[27]:= True; |
ea6ad9a97fca
change the array which represents the keyboard state to be a boolean array rather than byte array
Xeli
parents:
7140
diff
changeset
|
574 |
tkbd[271]:= True; |
948 | 575 |
end; |
167 | 576 |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
577 |
var Controller: array [0..5] of PSDL_Joystick; |
3697 | 578 |
|
2428 | 579 |
procedure ControllerInit; |
8370 | 580 |
var j: Integer; |
2428 | 581 |
begin |
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
582 |
ControllerEnabled:= 0; |
12866
13143137c2ff
- Fix ifdef (why this even worked before ??)
antonc27 <antonc27@mail.ru>
parents:
12790
diff
changeset
|
583 |
{$IFDEF IPHONEOS} |
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
584 |
exit; // joystick subsystem disabled on iPhone |
3513
f589230fa21b
now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents:
3493
diff
changeset
|
585 |
{$ENDIF} |
2674
2fce032f2f95
lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents:
2671
diff
changeset
|
586 |
|
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
587 |
SDL_InitSubSystem(SDL_INIT_JOYSTICK); |
2674
2fce032f2f95
lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents:
2671
diff
changeset
|
588 |
ControllerNumControllers:= SDL_NumJoysticks(); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
589 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
590 |
if ControllerNumControllers > 6 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
591 |
ControllerNumControllers:= 6; |
2428 | 592 |
|
4374 | 593 |
WriteLnToConsole('Number of game controllers: ' + IntToStr(ControllerNumControllers)); |
2428 | 594 |
|
595 |
if ControllerNumControllers > 0 then |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
596 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
597 |
for j:= 0 to pred(ControllerNumControllers) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
598 |
begin |
13491
4faebbf9c44f
Fix hwengine crash when using >1 controllers
Wuzzy <Wuzzy2@mail.ru>
parents:
13465
diff
changeset
|
599 |
WriteLnToConsole('Game controller no. ' + IntToStr(j) + ', name "' + shortstring(SDL_JoystickNameForIndex(j)) + '":'); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
600 |
Controller[j]:= SDL_JoystickOpen(j); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
601 |
if Controller[j] = nil then |
13491
4faebbf9c44f
Fix hwengine crash when using >1 controllers
Wuzzy <Wuzzy2@mail.ru>
parents:
13465
diff
changeset
|
602 |
WriteLnToConsole('* Failed to open game controller no. ' + IntToStr(j) + '!') |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
603 |
else |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
604 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
605 |
ControllerNumAxes[j]:= SDL_JoystickNumAxes(Controller[j]); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
606 |
//ControllerNumBalls[j]:= SDL_JoystickNumBalls(Controller[j]); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
607 |
ControllerNumHats[j]:= SDL_JoystickNumHats(Controller[j]); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
608 |
ControllerNumButtons[j]:= SDL_JoystickNumButtons(Controller[j]); |
4374 | 609 |
WriteLnToConsole('* Number of axes: ' + IntToStr(ControllerNumAxes[j])); |
610 |
//WriteLnToConsole('* Number of balls: ' + IntToStr(ControllerNumBalls[j])); |
|
611 |
WriteLnToConsole('* Number of hats: ' + IntToStr(ControllerNumHats[j])); |
|
612 |
WriteLnToConsole('* Number of buttons: ' + IntToStr(ControllerNumButtons[j])); |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
613 |
ControllerEnabled:= 1; |
3697 | 614 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
615 |
if ControllerNumAxes[j] > 20 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
616 |
ControllerNumAxes[j]:= 20; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
617 |
//if ControllerNumBalls[j] > 20 then ControllerNumBalls[j]:= 20; |
8330 | 618 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
619 |
if ControllerNumHats[j] > 20 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
620 |
ControllerNumHats[j]:= 20; |
8330 | 621 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
622 |
if ControllerNumButtons[j] > 20 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
623 |
ControllerNumButtons[j]:= 20; |
3697 | 624 |
|
8370 | 625 |
(*// reset all buttons/axes |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
626 |
for i:= 0 to pred(ControllerNumAxes[j]) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
627 |
ControllerAxes[j][i]:= 0; |
8370 | 628 |
for i:= 0 to pred(ControllerNumBalls[j]) do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
629 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
630 |
ControllerBalls[j][i][0]:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
631 |
ControllerBalls[j][i][1]:= 0; |
8370 | 632 |
end; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
633 |
for i:= 0 to pred(ControllerNumHats[j]) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
634 |
ControllerHats[j][i]:= SDL_HAT_CENTERED; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
635 |
for i:= 0 to pred(ControllerNumButtons[j]) do |
8370 | 636 |
ControllerButtons[j][i]:= 0;*) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
637 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
638 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
639 |
// enable event generation/controller updating |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
640 |
SDL_JoystickEventState(1); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
641 |
end |
3697 | 642 |
else |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
643 |
WriteLnToConsole('Not using any game controller'); |
2428 | 644 |
end; |
645 |
||
646 |
procedure ControllerAxisEvent(joy, axis: Byte; value: Integer); |
|
7088
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
647 |
var |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
648 |
k: LongInt; |
2428 | 649 |
begin |
11368
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11365
diff
changeset
|
650 |
SDL_GetKeyboardState(@k); |
7088
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
651 |
k:= k + joy * (ControllerNumAxes[joy]*2 + ControllerNumHats[joy]*4 + ControllerNumButtons[joy]*2); |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
652 |
ProcessKey(k + axis*2, value > 20000); |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
653 |
ProcessKey(k + (axis*2)+1, value < -20000); |
2428 | 654 |
end; |
655 |
||
656 |
procedure ControllerHatEvent(joy, hat, value: Byte); |
|
7088
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
657 |
var |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
658 |
k: LongInt; |
2428 | 659 |
begin |
11368
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11365
diff
changeset
|
660 |
SDL_GetKeyboardState(@k); |
7088
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
661 |
k:= k + joy * (ControllerNumAxes[joy]*2 + ControllerNumHats[joy]*4 + ControllerNumButtons[joy]*2); |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
662 |
ProcessKey(k + ControllerNumAxes[joy]*2 + hat*4 + 0, (value and SDL_HAT_UP) <> 0); |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
663 |
ProcessKey(k + ControllerNumAxes[joy]*2 + hat*4 + 1, (value and SDL_HAT_RIGHT)<> 0); |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
664 |
ProcessKey(k + ControllerNumAxes[joy]*2 + hat*4 + 2, (value and SDL_HAT_DOWN) <> 0); |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
665 |
ProcessKey(k + ControllerNumAxes[joy]*2 + hat*4 + 3, (value and SDL_HAT_LEFT) <> 0); |
2428 | 666 |
end; |
667 |
||
668 |
procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean); |
|
7088
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
669 |
var |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
670 |
k: LongInt; |
2428 | 671 |
begin |
11368
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11365
diff
changeset
|
672 |
SDL_GetKeyboardState(@k); |
7088
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
673 |
k:= k + joy * (ControllerNumAxes[joy]*2 + ControllerNumHats[joy]*4 + ControllerNumButtons[joy]*2); |
dbec9bae4de1
first attempt at fixing controller/gamepad, it works with the android controller but it doesnt have hats/buttons, needs testing
Xeli
parents:
7071
diff
changeset
|
674 |
ProcessKey(k + ControllerNumAxes[joy]*2 + ControllerNumHats[joy]*4 + button, pressed); |
2428 | 675 |
end; |
676 |
||
9466 | 677 |
procedure loadBinds(cmd, s: shortstring); |
678 |
var i: LongInt; |
|
679 |
f: PFSFile; |
|
680 |
p, l: shortstring; |
|
681 |
b: byte; |
|
682 |
begin |
|
10139 | 683 |
if cOnlyStats then exit; |
10510 | 684 |
|
9466 | 685 |
AddFileLog('[BINDS] Loading binds from: ' + s); |
686 |
||
687 |
l:= ''; |
|
688 |
if pfsExists(s) then |
|
689 |
begin |
|
690 |
f:= pfsOpenRead(s); |
|
691 |
while (not pfsEOF(f)) and (l <> '[Binds]') do |
|
692 |
pfsReadLn(f, l); |
|
693 |
||
694 |
while (not pfsEOF(f)) and (l <> '') do |
|
695 |
begin |
|
696 |
pfsReadLn(f, l); |
|
697 |
||
698 |
p:= ''; |
|
699 |
i:= 1; |
|
700 |
while (i <= length(l)) and (l[i] <> '=') do |
|
701 |
begin |
|
9981 | 702 |
if l[i] = '%' then |
9466 | 703 |
begin |
704 |
l[i]:= '$'; |
|
705 |
val(copy(l, i, 3), b); |
|
706 |
p:= p + char(b); |
|
707 |
inc(i, 3) |
|
10015 | 708 |
end |
9981 | 709 |
else |
710 |
begin |
|
711 |
p:= p + l[i]; |
|
712 |
inc(i) |
|
9466 | 713 |
end; |
714 |
end; |
|
715 |
||
716 |
if i < length(l) then |
|
717 |
begin |
|
718 |
l:= copy(l, i + 1, length(l) - i); |
|
719 |
if l <> 'default' then |
|
720 |
begin |
|
10015 | 721 |
if (length(l) = 2) and (l[1] = '\') then |
10080 | 722 |
l:= l[1] + '' |
9981 | 723 |
else if (l[1] = '"') and (l[length(l)] = '"') then |
724 |
l:= copy(l, 2, length(l) - 2); |
|
725 |
||
9466 | 726 |
p:= cmd + ' ' + l + ' ' + p; |
727 |
ParseCommand(p, true) |
|
728 |
end |
|
729 |
end |
|
730 |
end; |
|
731 |
||
732 |
pfsClose(f) |
|
10015 | 733 |
end |
9466 | 734 |
else |
735 |
AddFileLog('[BINDS] file not found'); |
|
736 |
end; |
|
737 |
||
738 |
||
739 |
procedure addBind(var binds: TBinds; var id: shortstring); |
|
8346 | 740 |
var KeyName, Modifier, tmp: shortstring; |
13132 | 741 |
i, newCode, code, b: LongInt; |
13131 | 742 |
begin |
13132 | 743 |
KeyName:= ''; |
744 |
Modifier:= ''; |
|
745 |
||
746 |
if(Pos('mod:', id) <> 0)then |
|
747 |
begin |
|
748 |
tmp:= ''; |
|
749 |
SplitBySpace(id, tmp); |
|
750 |
Modifier:= id; |
|
751 |
id:= tmp; |
|
752 |
end; |
|
13131 | 753 |
|
13132 | 754 |
SplitBySpace(id, KeyName); |
755 |
if KeyName[1]='"' then |
|
756 |
Delete(KeyName, 1, 1); |
|
757 |
if KeyName[byte(KeyName[0])]='"' then |
|
758 |
Delete(KeyName, byte(KeyName[0]), 1); |
|
759 |
b:= KeyNameToCode(id, Modifier); |
|
760 |
if b = 0 then |
|
761 |
OutError(errmsgUnknownVariable + ' "' + id + '"', false) |
|
762 |
else |
|
13068 | 763 |
begin |
13132 | 764 |
// add bind: first check if this cmd is already bound, and remove old bind |
765 |
i:= Low(binds.binds); |
|
766 |
while (i <= High(binds.binds)) and (binds.binds[i] <> KeyName) do |
|
767 |
inc(i); |
|
13131 | 768 |
|
13132 | 769 |
if (i <= High(binds.binds)) then |
770 |
begin |
|
771 |
code:= Low(binds.indices); |
|
772 |
while (code <= High(binds.indices)) and (binds.indices[code] <> i) do |
|
773 |
inc(code); |
|
774 |
||
775 |
checkFails(code <= High(binds.indices), 'binds registry inconsistency', true); |
|
776 |
||
777 |
binds.indices[code]:= 0; |
|
778 |
binds.binds[i]:= '' |
|
779 |
end; |
|
13131 | 780 |
|
13132 | 781 |
if binds.indices[b] > 0 then |
782 |
newCode:= binds.indices[b] |
|
783 |
else if i >= High(binds.binds) then |
|
784 |
begin |
|
785 |
inc(binds.lastIndex); |
|
786 |
checkFails(binds.lastIndex < High(binds.binds), 'too many binds', true); |
|
787 |
newCode:= binds.lastIndex |
|
788 |
end else |
|
789 |
newCode:= i; |
|
9466 | 790 |
|
13132 | 791 |
|
792 |
binds.indices[b]:= newCode; |
|
793 |
binds.binds[binds.indices[b]]:= KeyName |
|
9466 | 794 |
end |
795 |
end; |
|
796 |
||
797 |
// Bind that isn't a team bind, but overrides defaultbinds. |
|
798 |
procedure chDefaultBind(var id: shortstring); |
|
799 |
begin |
|
800 |
addBind(DefaultBinds, id) |
|
8346 | 801 |
end; |
802 |
||
3038 | 803 |
procedure initModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
804 |
begin |
11486 | 805 |
// assign 0 until InitKbdKeyTable is called |
806 |
mwheelupCode:= 0; |
|
807 |
mwheeldownCode:= 0; |
|
808 |
||
8346 | 809 |
RegisterVariable('dbind', @chDefaultBind, true ); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
810 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
811 |
|
3038 | 812 |
procedure freeModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
813 |
var j: LongInt; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
814 |
begin |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
815 |
// close gamepad controllers |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
816 |
if ControllerEnabled > 0 then |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
817 |
for j:= 0 to pred(ControllerNumControllers) do |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
818 |
SDL_JoystickClose(Controller[j]); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
819 |
end; |
4 | 820 |
|
821 |
end. |