author | Wuzzy <Wuzzy2@mail.ru> |
Fri, 17 May 2019 16:49:28 +0200 | |
changeset 15012 | dc50766f6d0c |
parent 14932 | 938e67bc08ac |
child 15024 | d84136589c04 |
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 |
14918 | 63 |
uses uKeyNames, uConsole, uCommands, uVariables, uConsts, uUtils, uDebug, uPhysFSLayer, uCursor, uScript; |
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; |
|
190 |
s : string; |
|
191 |
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
|
192 |
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
|
193 |
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
|
194 |
|
6917 | 195 |
Trusted:= (CurrentTeam <> nil) |
196 |
and (not CurrentTeam^.ExtDriven) |
|
197 |
and (CurrentHedgehog^.BotLevel = 0); |
|
9714 | 198 |
// REVIEW OR FIXME |
199 |
// 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. |
|
200 |
// There's no confirmation at all |
|
6942 | 201 |
// 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
|
202 |
if(KeyDown and (code = SDLK_q)) then |
6942 | 203 |
begin |
204 |
{$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
|
205 |
if tkbd[KeyNameToCode('left_meta')] or tkbd[KeyNameToCode('right_meta')] then |
6942 | 206 |
{$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
|
207 |
if tkbd[KeyNameToCode('left_ctrl')] or tkbd[KeyNameToCode('right_ctrl')] then |
6942 | 208 |
{$ENDIF} |
7869
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
209 |
ParseCommand('halt', true); |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
210 |
end; |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
211 |
|
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
212 |
// ctrl/cmd + w to close engine |
8746
55539c550c33
use SDL keycode for shortcuts (doesn't fix layout issues)
koda
parents:
8370
diff
changeset
|
213 |
if(KeyDown and (code = SDLK_w)) then |
7869
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
214 |
begin |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
215 |
{$IFDEF DARWIN} |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
216 |
// on OS X it this is expected behaviour |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
217 |
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
|
218 |
{$ELSE} |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
219 |
// 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
|
220 |
if tkbd[KeyNameToCode('left_ctrl')] or tkbd[KeyNameToCode('right_ctrl')] then |
13068 | 221 |
if ((CurrentBinds.indices[KeyNameToCode('left_ctrl')] = 0) or |
222 |
(CurrentBinds.indices[KeyNameToCode('right_ctrl')] = 0)) and |
|
223 |
(CurrentBinds.indices[SDLK_w] = 0) then |
|
7869
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
224 |
{$ENDIF} |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
225 |
ParseCommand('forcequit', true); |
6942 | 226 |
end; |
227 |
||
13068 | 228 |
if CurrentBinds.indices[code] > 0 then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
229 |
begin |
9694 | 230 |
if (code < cKeyMaxIndex - 2) // means not mouse buttons |
231 |
and KeyDown |
|
13068 | 232 |
and (not ((CurrentBinds.binds[CurrentBinds.indices[code]] = 'put') |
233 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = 'ammomenu') |
|
234 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = '+cur_u') |
|
235 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = '+cur_d') |
|
236 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = '+cur_l') |
|
237 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = '+cur_r'))) |
|
9694 | 238 |
and (CurrentTeam <> nil) |
239 |
and (not CurrentTeam^.ExtDriven) |
|
240 |
then bShowAmmoMenu:= false; |
|
7118 | 241 |
|
7140
29948153fda2
Don't allow for multiple key up(or down) events, it will ignore the excess events
Xeli
parents:
7118
diff
changeset
|
242 |
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
|
243 |
begin |
10392 | 244 |
Trusted:= Trusted and (not isPaused); //releasing keys during pause should be allowed on the other hand |
10510 | 245 |
|
13068 | 246 |
if CurrentBinds.binds[CurrentBinds.indices[code]] = 'switch' then |
9714 | 247 |
LocalMessage:= LocalMessage or gmSwitch |
13068 | 248 |
else if CurrentBinds.binds[CurrentBinds.indices[code]] = '+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
|
249 |
begin |
9714 | 250 |
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
|
251 |
updateVolumeDelta(true); |
14917
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14916
diff
changeset
|
252 |
updateCursorMovementDelta(true, CursorMovementX, CursorMovementX); |
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14916
diff
changeset
|
253 |
updateCursorMovementDelta(true, CursorMovementY, CursorMovementY); |
14918 | 254 |
ScriptCall('onPreciseLocal'); |
14916
d4a19bf6687e
Fix incorrect handling of slow/precise volume change when it's not your turn
Wuzzy <Wuzzy2@mail.ru>
parents:
14915
diff
changeset
|
255 |
end; |
10015 | 256 |
|
13068 | 257 |
ParseCommand(CurrentBinds.binds[CurrentBinds.indices[code]], Trusted); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
258 |
if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
259 |
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
|
260 |
end |
13068 | 261 |
else if (CurrentBinds.binds[CurrentBinds.indices[code]][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
|
262 |
begin |
13068 | 263 |
if CurrentBinds.binds[CurrentBinds.indices[code]] = '+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
|
264 |
begin |
9954 | 265 |
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
|
266 |
updateVolumeDelta(false); |
14917
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14916
diff
changeset
|
267 |
updateCursorMovementDelta(false, CursorMovementX, CursorMovementX); |
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14916
diff
changeset
|
268 |
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
|
269 |
end; |
13068 | 270 |
s:= CurrentBinds.binds[CurrentBinds.indices[code]]; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
271 |
s[1]:= '-'; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
272 |
ParseCommand(s, Trusted); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
273 |
if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
274 |
ParseCommand('gencmd R', true) |
9693 | 275 |
end |
276 |
else |
|
277 |
begin |
|
13068 | 278 |
if CurrentBinds.binds[CurrentBinds.indices[code]] = 'switch' then |
9954 | 279 |
LocalMessage:= LocalMessage and (not gmSwitch) |
9693 | 280 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
281 |
end |
6917 | 282 |
end; |
283 |
||
9691 | 284 |
procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
285 |
var code: LongInt; |
|
286 |
begin |
|
11365 | 287 |
// TODO |
288 |
code:= LongInt(event.keysym.scancode); |
|
9694 | 289 |
//writelntoconsole('[KEY] '+inttostr(code)+ ' -> ''' +KeyNames[code] + ''', type = '+inttostr(event.type_)); |
9691 | 290 |
ProcessKey(code, event.type_ = SDL_KEYDOWN); |
291 |
end; |
|
6917 | 292 |
|
14829 | 293 |
procedure ProcessMouseButton(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
6917 | 294 |
begin |
9694 | 295 |
//writelntoconsole('[MOUSE] '+inttostr(event.button)); |
296 |
case event.button of |
|
297 |
SDL_BUTTON_LEFT: |
|
298 |
ProcessKey(KeyNameToCode('mousel'), ButtonDown); |
|
299 |
SDL_BUTTON_MIDDLE: |
|
300 |
ProcessKey(KeyNameToCode('mousem'), ButtonDown); |
|
301 |
SDL_BUTTON_RIGHT: |
|
302 |
ProcessKey(KeyNameToCode('mouser'), ButtonDown); |
|
14866
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
303 |
SDL_BUTTON_X1: |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
304 |
ProcessKey(KeyNameToCode('mousex1'), ButtonDown); |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
305 |
SDL_BUTTON_X2: |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
306 |
ProcessKey(KeyNameToCode('mousex2'), ButtonDown); |
9694 | 307 |
end; |
308 |
end; |
|
309 |
||
14829 | 310 |
procedure ProcessMouseMotion(xrel, yrel: LongInt); |
311 |
begin |
|
312 |
uCursor.updatePositionDelta(xrel, yrel); |
|
313 |
end; |
|
314 |
||
11486 | 315 |
var mwheelupCode, mwheeldownCode: Integer; |
316 |
||
12621 | 317 |
//procedure ProcessMouseWheel(x, y: LongInt); |
318 |
procedure ProcessMouseWheel(y: LongInt); |
|
9694 | 319 |
begin |
12621 | 320 |
// we don't use |
9694 | 321 |
//writelntoconsole('[MOUSEWHEEL] '+inttostr(x)+', '+inttostr(y)); |
322 |
if y > 0 then |
|
11486 | 323 |
begin |
324 |
// reset other direction |
|
325 |
if tkbd[mwheeldownCode] then |
|
326 |
ProcessKey(mwheeldownCode, false); |
|
327 |
// trigger "button down" event |
|
328 |
if (not tkbd[mwheelupCode]) then |
|
329 |
ProcessKey(mwheelupCode, true); |
|
330 |
end |
|
9694 | 331 |
else if y < 0 then |
11486 | 332 |
begin |
333 |
// reset other direction |
|
334 |
if tkbd[mwheelupCode] then |
|
335 |
ProcessKey(mwheelupCode, false); |
|
336 |
// trigger "button down" event |
|
337 |
if (not tkbd[mwheeldownCode]) then |
|
338 |
ProcessKey(mwheeldownCode, true); |
|
339 |
end; |
|
340 |
end; |
|
341 |
||
342 |
procedure ResetMouseWheel(); |
|
343 |
begin |
|
344 |
if tkbd[mwheelupCode] then |
|
345 |
ProcessKey(mwheelupCode, false); |
|
346 |
if tkbd[mwheeldownCode] then |
|
347 |
ProcessKey(mwheeldownCode, false); |
|
4 | 348 |
end; |
349 |
||
350 |
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
|
351 |
var t: LongInt; |
4 | 352 |
begin |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
353 |
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
|
354 |
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
|
355 |
ProcessKey(t, False); |
4 | 356 |
end; |
357 |
||
13068 | 358 |
procedure RegisterBind(var binds: TBinds; key, value: shortstring); |
359 |
var code: LongInt; |
|
360 |
begin |
|
13504
c41b16ac2e05
Clarify the wording of a few checkFails messages
Wuzzy <Wuzzy2@mail.ru>
parents:
13491
diff
changeset
|
361 |
checkFails(binds.lastIndex < 255, 'Too many key bindings', true); |
13068 | 362 |
|
363 |
code:= KeyNameToCode(key); |
|
364 |
||
365 |
checkFails(code >= 0, 'unknown key', true); |
|
366 |
||
13132 | 367 |
if binds.indices[code] > 0 then |
368 |
begin |
|
369 |
binds.binds[binds.indices[code]]:= value |
|
370 |
end |
|
371 |
else begin |
|
372 |
inc(binds.lastIndex); |
|
373 |
binds.indices[code]:= binds.lastIndex; |
|
374 |
binds.binds[binds.indices[code]]:= value |
|
375 |
end; |
|
13068 | 376 |
end; |
9691 | 377 |
|
378 |
procedure InitDefaultBinds; |
|
379 |
var i: Longword; |
|
380 |
begin |
|
13068 | 381 |
RegisterBind(DefaultBinds, 'escape', 'quit'); |
382 |
RegisterBind(DefaultBinds, _S'`', 'history'); |
|
383 |
RegisterBind(DefaultBinds, 'delete', 'rotmask'); |
|
384 |
RegisterBind(DefaultBinds, 'home', 'rottags'); |
|
13897
aa321e51da14
make explicit for pas2c some string casts that fpc was probably doing automatically
nemo
parents:
13568
diff
changeset
|
385 |
RegisterBind(DefaultBinds, _S'm', '+mission'); |
14770
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14554
diff
changeset
|
386 |
RegisterBind(DefaultBinds, _S'o', 'gearinfo'); |
9691 | 387 |
|
388 |
//numpad |
|
14915
5a6da39c5f2a
hwengine: Add missing default binds for camera movement and team chat
Wuzzy <Wuzzy2@mail.ru>
parents:
14866
diff
changeset
|
389 |
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
|
390 |
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
|
391 |
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
|
392 |
RegisterBind(DefaultBinds, 'keypad_2', '+cur_d'); |
9691 | 393 |
|
13068 | 394 |
RegisterBind(DefaultBinds, _S'0', '+volup'); |
395 |
RegisterBind(DefaultBinds, _S'9', '+voldown'); |
|
396 |
RegisterBind(DefaultBinds, _S'8', 'mute'); |
|
397 |
RegisterBind(DefaultBinds, _S'c', 'capture'); |
|
398 |
RegisterBind(DefaultBinds, _S'r', 'record'); |
|
399 |
RegisterBind(DefaultBinds, _S'h', 'findhh'); |
|
400 |
RegisterBind(DefaultBinds, _S'p', 'pause'); |
|
14932
938e67bc08ac
Change default demo speedup key from S to F
Wuzzy <Wuzzy2@mail.ru>
parents:
14918
diff
changeset
|
401 |
RegisterBind(DefaultBinds, _S'f', '+speedup'); |
13068 | 402 |
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
|
403 |
RegisterBind(DefaultBinds, _S'u', 'chat team'); |
13068 | 404 |
RegisterBind(DefaultBinds, _S'y', 'confirm'); |
9691 | 405 |
|
13068 | 406 |
RegisterBind(DefaultBinds, 'mousem', 'zoomreset'); |
407 |
RegisterBind(DefaultBinds, 'wheelup', 'zoomin'); |
|
408 |
RegisterBind(DefaultBinds, 'wheeldown', 'zoomout'); |
|
9691 | 409 |
|
13068 | 410 |
RegisterBind(DefaultBinds, 'f12', 'fullscr'); |
9691 | 411 |
|
13533
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13527
diff
changeset
|
412 |
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
|
413 |
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
|
414 |
RegisterBind(DefaultBinds, _S'n', 'timer_u'); |
9691 | 415 |
|
13068 | 416 |
RegisterBind(DefaultBinds, 'mousel', '/put'); |
417 |
RegisterBind(DefaultBinds, 'mouser', 'ammomenu'); |
|
418 |
RegisterBind(DefaultBinds, 'backspace', 'hjump'); |
|
419 |
RegisterBind(DefaultBinds, 'tab', 'switch'); |
|
420 |
RegisterBind(DefaultBinds, 'return', 'ljump'); |
|
421 |
RegisterBind(DefaultBinds, 'space', '+attack'); |
|
422 |
RegisterBind(DefaultBinds, 'up', '+up'); |
|
423 |
RegisterBind(DefaultBinds, 'down', '+down'); |
|
424 |
RegisterBind(DefaultBinds, 'left', '+left'); |
|
425 |
RegisterBind(DefaultBinds, 'right', '+right'); |
|
426 |
RegisterBind(DefaultBinds, 'left_shift', '+precise'); |
|
9691 | 427 |
|
13527
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
428 |
// Default controls for first connected controller |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
429 |
{ NOTE: This is provided for convenience so players |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
430 |
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
|
431 |
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
|
432 |
set up things manually. } |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
433 |
// Essential controls |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
434 |
RegisterBind(DefaultBinds, 'j0h0r', '+right'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
435 |
RegisterBind(DefaultBinds, 'j0h0l', '+left'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
436 |
RegisterBind(DefaultBinds, 'j0h0u', '+up'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
437 |
RegisterBind(DefaultBinds, 'j0h0d', '+down'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
438 |
RegisterBind(DefaultBinds, 'j0b0', 'ljump'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
439 |
RegisterBind(DefaultBinds, 'j0b1', 'hjump'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
440 |
RegisterBind(DefaultBinds, 'j0b2', '+attack'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
441 |
RegisterBind(DefaultBinds, 'j0b3', 'ammomenu'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
442 |
RegisterBind(DefaultBinds, 'j0b4', '+precise'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
443 |
RegisterBind(DefaultBinds, 'j0b5', 'put'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
444 |
RegisterBind(DefaultBinds, 'j0b6', 'switch'); |
13533
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13527
diff
changeset
|
445 |
RegisterBind(DefaultBinds, 'j0b7', 'timer_u'); |
9691 | 446 |
|
13527
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
447 |
// Cursor movement (also essential) |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
448 |
RegisterBind(DefaultBinds, 'j0h1r', '+cur_r'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
449 |
RegisterBind(DefaultBinds, 'j0h1l', '+cur_l'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
450 |
RegisterBind(DefaultBinds, 'j0h1d', '+cur_d'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
451 |
RegisterBind(DefaultBinds, 'j0h1u', '+cur_u'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
452 |
|
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
453 |
RegisterBind(DefaultBinds, 'j0a0u', '+cur_r'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
454 |
RegisterBind(DefaultBinds, 'j0a0d', '+cur_l'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
455 |
RegisterBind(DefaultBinds, 'j0a1u', '+cur_d'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
456 |
RegisterBind(DefaultBinds, 'j0a1d', '+cur_u'); |
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
457 |
|
1232ab8206d4
Add more sane default controls for controller
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
458 |
// Additional controls |
13533
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13527
diff
changeset
|
459 |
RegisterBind(DefaultBinds, 'j0b8', 'findhh'); |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13527
diff
changeset
|
460 |
RegisterBind(DefaultBinds, 'j0b9', '+mission'); |
9691 | 461 |
|
12106
9bc19f722169
Bug #108 - Phyfs/Pathz: Fix binds not being loaded
sheepluva
parents:
11664
diff
changeset
|
462 |
loadBinds('dbind', cPathz[ptConfig] + '/settings.ini'); |
9691 | 463 |
end; |
464 |
||
465 |
||
466 |
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
|
467 |
var i, j, k: LongInt; |
9691 | 468 |
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
|
469 |
// Mouse buttons and mouse wheel |
9691 | 470 |
KeyNames[cKeyMaxIndex ]:= 'mousel'; |
471 |
KeyNames[cKeyMaxIndex - 1]:= 'mousem'; |
|
472 |
KeyNames[cKeyMaxIndex - 2]:= 'mouser'; |
|
14866
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
473 |
KeyNames[cKeyMaxIndex - 3]:= 'mousex1'; |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
474 |
KeyNames[cKeyMaxIndex - 4]:= 'mousex2'; |
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
475 |
mwheelupCode:= cKeyMaxIndex - 5; |
11486 | 476 |
KeyNames[mwheelupCode]:= 'wheelup'; |
14866
6c51f74d80a8
Add support for 4th and 5th mouse button
Wuzzy <Wuzzy2@mail.ru>
parents:
14853
diff
changeset
|
477 |
mwheeldownCode:= cKeyMaxIndex - 6; |
11486 | 478 |
KeyNames[mwheeldownCode]:= 'wheeldown'; |
9691 | 479 |
|
14853
769189675b6c
Add lookup table for Hedgewars key IDs instead of generating IDs on the fly
Wuzzy <Wuzzy2@mail.ru>
parents:
14829
diff
changeset
|
480 |
// 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
|
481 |
uKeyNames.populateKeyNames(KeyNames); |
9691 | 482 |
|
483 |
// 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
|
484 |
SDL_GetKeyboardState(@k); |
9691 | 485 |
|
486 |
// Controller(s) |
|
487 |
for j:= 0 to Pred(ControllerNumControllers) do |
|
488 |
begin |
|
489 |
for i:= 0 to Pred(ControllerNumAxes[j]) do |
|
490 |
begin |
|
491 |
KeyNames[k + 0]:= 'j' + IntToStr(j) + 'a' + IntToStr(i) + 'u'; |
|
492 |
KeyNames[k + 1]:= 'j' + IntToStr(j) + 'a' + IntToStr(i) + 'd'; |
|
493 |
inc(k, 2); |
|
494 |
end; |
|
495 |
for i:= 0 to Pred(ControllerNumHats[j]) do |
|
496 |
begin |
|
497 |
KeyNames[k + 0]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'u'; |
|
498 |
KeyNames[k + 1]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'r'; |
|
499 |
KeyNames[k + 2]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'd'; |
|
500 |
KeyNames[k + 3]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'l'; |
|
501 |
inc(k, 4); |
|
502 |
end; |
|
503 |
for i:= 0 to Pred(ControllerNumButtons[j]) do |
|
504 |
begin |
|
505 |
KeyNames[k]:= 'j' + IntToStr(j) + 'b' + IntToStr(i); |
|
506 |
inc(k, 1); |
|
507 |
end; |
|
508 |
end; |
|
509 |
||
510 |
InitDefaultBinds |
|
511 |
end; |
|
2606
ed687a8d081f
updated build files for macosx and optimization system
koda
parents:
2599
diff
changeset
|
512 |
|
1051
dfdd5dfe97d4
Enable fullscreen switching back, now it's bound on F12
unc0rr
parents:
1022
diff
changeset
|
513 |
|
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
|
514 |
{$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
|
515 |
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
|
516 |
{$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
|
517 |
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
|
518 |
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
|
519 |
{$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
|
520 |
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
|
521 |
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
|
522 |
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
|
523 |
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
|
524 |
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
|
525 |
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
|
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 |
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
|
529 |
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
|
530 |
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
|
531 |
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
|
532 |
{$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
|
533 |
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
|
534 |
{$ENDIF} |
2786 | 535 |
|
9691 | 536 |
{$IFNDEF MOBILE} |
167 | 537 |
procedure SetBinds(var binds: TBinds); |
7184
211ab9e2cb15
only reset those keys which actually change their bindings
Xeli
parents:
7151
diff
changeset
|
538 |
var |
211ab9e2cb15
only reset those keys which actually change their bindings
Xeli
parents:
7151
diff
changeset
|
539 |
t: LongInt; |
167 | 540 |
begin |
8346 | 541 |
for t:= 0 to cKbdMaxIndex do |
13068 | 542 |
if (CurrentBinds.binds[CurrentBinds.indices[t]] <> binds.binds[binds.indices[t]]) and tkbd[t] then |
8346 | 543 |
ProcessKey(t, False); |
7184
211ab9e2cb15
only reset those keys which actually change their bindings
Xeli
parents:
7151
diff
changeset
|
544 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
545 |
CurrentBinds:= binds; |
9691 | 546 |
end; |
547 |
{$ELSE} |
|
548 |
procedure SetBinds(var binds: TBinds); |
|
549 |
begin |
|
550 |
binds:= binds; // avoid hint |
|
551 |
CurrentBinds:= DefaultBinds; |
|
552 |
end; |
|
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
553 |
{$ENDIF} |
167 | 554 |
|
555 |
procedure SetDefaultBinds; |
|
556 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
557 |
CurrentBinds:= DefaultBinds; |
167 | 558 |
end; |
559 |
||
948 | 560 |
procedure FreezeEnterKey; |
561 |
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
|
562 |
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
|
563 |
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
|
564 |
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
|
565 |
tkbd[271]:= True; |
948 | 566 |
end; |
167 | 567 |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
568 |
var Controller: array [0..5] of PSDL_Joystick; |
3697 | 569 |
|
2428 | 570 |
procedure ControllerInit; |
8370 | 571 |
var j: Integer; |
2428 | 572 |
begin |
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
573 |
ControllerEnabled:= 0; |
12866
13143137c2ff
- Fix ifdef (why this even worked before ??)
antonc27 <antonc27@mail.ru>
parents:
12790
diff
changeset
|
574 |
{$IFDEF IPHONEOS} |
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
575 |
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
|
576 |
{$ENDIF} |
2674
2fce032f2f95
lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents:
2671
diff
changeset
|
577 |
|
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
578 |
SDL_InitSubSystem(SDL_INIT_JOYSTICK); |
2674
2fce032f2f95
lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents:
2671
diff
changeset
|
579 |
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
|
580 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
581 |
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
|
582 |
ControllerNumControllers:= 6; |
2428 | 583 |
|
4374 | 584 |
WriteLnToConsole('Number of game controllers: ' + IntToStr(ControllerNumControllers)); |
2428 | 585 |
|
586 |
if ControllerNumControllers > 0 then |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
587 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
588 |
for j:= 0 to pred(ControllerNumControllers) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
589 |
begin |
13491
4faebbf9c44f
Fix hwengine crash when using >1 controllers
Wuzzy <Wuzzy2@mail.ru>
parents:
13465
diff
changeset
|
590 |
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
|
591 |
Controller[j]:= SDL_JoystickOpen(j); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
592 |
if Controller[j] = nil then |
13491
4faebbf9c44f
Fix hwengine crash when using >1 controllers
Wuzzy <Wuzzy2@mail.ru>
parents:
13465
diff
changeset
|
593 |
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
|
594 |
else |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
595 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
596 |
ControllerNumAxes[j]:= SDL_JoystickNumAxes(Controller[j]); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
597 |
//ControllerNumBalls[j]:= SDL_JoystickNumBalls(Controller[j]); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
598 |
ControllerNumHats[j]:= SDL_JoystickNumHats(Controller[j]); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
599 |
ControllerNumButtons[j]:= SDL_JoystickNumButtons(Controller[j]); |
4374 | 600 |
WriteLnToConsole('* Number of axes: ' + IntToStr(ControllerNumAxes[j])); |
601 |
//WriteLnToConsole('* Number of balls: ' + IntToStr(ControllerNumBalls[j])); |
|
602 |
WriteLnToConsole('* Number of hats: ' + IntToStr(ControllerNumHats[j])); |
|
603 |
WriteLnToConsole('* Number of buttons: ' + IntToStr(ControllerNumButtons[j])); |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
604 |
ControllerEnabled:= 1; |
3697 | 605 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
606 |
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
|
607 |
ControllerNumAxes[j]:= 20; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
608 |
//if ControllerNumBalls[j] > 20 then ControllerNumBalls[j]:= 20; |
8330 | 609 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
610 |
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
|
611 |
ControllerNumHats[j]:= 20; |
8330 | 612 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
613 |
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
|
614 |
ControllerNumButtons[j]:= 20; |
3697 | 615 |
|
8370 | 616 |
(*// reset all buttons/axes |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
617 |
for i:= 0 to pred(ControllerNumAxes[j]) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
618 |
ControllerAxes[j][i]:= 0; |
8370 | 619 |
for i:= 0 to pred(ControllerNumBalls[j]) do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
620 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
621 |
ControllerBalls[j][i][0]:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
622 |
ControllerBalls[j][i][1]:= 0; |
8370 | 623 |
end; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
624 |
for i:= 0 to pred(ControllerNumHats[j]) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
625 |
ControllerHats[j][i]:= SDL_HAT_CENTERED; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
626 |
for i:= 0 to pred(ControllerNumButtons[j]) do |
8370 | 627 |
ControllerButtons[j][i]:= 0;*) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
628 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
629 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
630 |
// enable event generation/controller updating |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
631 |
SDL_JoystickEventState(1); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
632 |
end |
3697 | 633 |
else |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
634 |
WriteLnToConsole('Not using any game controller'); |
2428 | 635 |
end; |
636 |
||
637 |
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
|
638 |
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
|
639 |
k: LongInt; |
2428 | 640 |
begin |
11368
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11365
diff
changeset
|
641 |
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
|
642 |
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
|
643 |
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
|
644 |
ProcessKey(k + (axis*2)+1, value < -20000); |
2428 | 645 |
end; |
646 |
||
647 |
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
|
648 |
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
|
649 |
k: LongInt; |
2428 | 650 |
begin |
11368
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11365
diff
changeset
|
651 |
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
|
652 |
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
|
653 |
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
|
654 |
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
|
655 |
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
|
656 |
ProcessKey(k + ControllerNumAxes[joy]*2 + hat*4 + 3, (value and SDL_HAT_LEFT) <> 0); |
2428 | 657 |
end; |
658 |
||
659 |
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
|
660 |
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
|
661 |
k: LongInt; |
2428 | 662 |
begin |
11368
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11365
diff
changeset
|
663 |
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
|
664 |
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
|
665 |
ProcessKey(k + ControllerNumAxes[joy]*2 + ControllerNumHats[joy]*4 + button, pressed); |
2428 | 666 |
end; |
667 |
||
9466 | 668 |
procedure loadBinds(cmd, s: shortstring); |
669 |
var i: LongInt; |
|
670 |
f: PFSFile; |
|
671 |
p, l: shortstring; |
|
672 |
b: byte; |
|
673 |
begin |
|
10139 | 674 |
if cOnlyStats then exit; |
10510 | 675 |
|
9466 | 676 |
AddFileLog('[BINDS] Loading binds from: ' + s); |
677 |
||
678 |
l:= ''; |
|
679 |
if pfsExists(s) then |
|
680 |
begin |
|
681 |
f:= pfsOpenRead(s); |
|
682 |
while (not pfsEOF(f)) and (l <> '[Binds]') do |
|
683 |
pfsReadLn(f, l); |
|
684 |
||
685 |
while (not pfsEOF(f)) and (l <> '') do |
|
686 |
begin |
|
687 |
pfsReadLn(f, l); |
|
688 |
||
689 |
p:= ''; |
|
690 |
i:= 1; |
|
691 |
while (i <= length(l)) and (l[i] <> '=') do |
|
692 |
begin |
|
9981 | 693 |
if l[i] = '%' then |
9466 | 694 |
begin |
695 |
l[i]:= '$'; |
|
696 |
val(copy(l, i, 3), b); |
|
697 |
p:= p + char(b); |
|
698 |
inc(i, 3) |
|
10015 | 699 |
end |
9981 | 700 |
else |
701 |
begin |
|
702 |
p:= p + l[i]; |
|
703 |
inc(i) |
|
9466 | 704 |
end; |
705 |
end; |
|
706 |
||
707 |
if i < length(l) then |
|
708 |
begin |
|
709 |
l:= copy(l, i + 1, length(l) - i); |
|
710 |
if l <> 'default' then |
|
711 |
begin |
|
10015 | 712 |
if (length(l) = 2) and (l[1] = '\') then |
10080 | 713 |
l:= l[1] + '' |
9981 | 714 |
else if (l[1] = '"') and (l[length(l)] = '"') then |
715 |
l:= copy(l, 2, length(l) - 2); |
|
716 |
||
9466 | 717 |
p:= cmd + ' ' + l + ' ' + p; |
718 |
ParseCommand(p, true) |
|
719 |
end |
|
720 |
end |
|
721 |
end; |
|
722 |
||
723 |
pfsClose(f) |
|
10015 | 724 |
end |
9466 | 725 |
else |
726 |
AddFileLog('[BINDS] file not found'); |
|
727 |
end; |
|
728 |
||
729 |
||
730 |
procedure addBind(var binds: TBinds; var id: shortstring); |
|
8346 | 731 |
var KeyName, Modifier, tmp: shortstring; |
13132 | 732 |
i, newCode, code, b: LongInt; |
13131 | 733 |
begin |
13132 | 734 |
KeyName:= ''; |
735 |
Modifier:= ''; |
|
736 |
||
737 |
if(Pos('mod:', id) <> 0)then |
|
738 |
begin |
|
739 |
tmp:= ''; |
|
740 |
SplitBySpace(id, tmp); |
|
741 |
Modifier:= id; |
|
742 |
id:= tmp; |
|
743 |
end; |
|
13131 | 744 |
|
13132 | 745 |
SplitBySpace(id, KeyName); |
746 |
if KeyName[1]='"' then |
|
747 |
Delete(KeyName, 1, 1); |
|
748 |
if KeyName[byte(KeyName[0])]='"' then |
|
749 |
Delete(KeyName, byte(KeyName[0]), 1); |
|
750 |
b:= KeyNameToCode(id, Modifier); |
|
751 |
if b = 0 then |
|
752 |
OutError(errmsgUnknownVariable + ' "' + id + '"', false) |
|
753 |
else |
|
13068 | 754 |
begin |
13132 | 755 |
// add bind: first check if this cmd is already bound, and remove old bind |
756 |
i:= Low(binds.binds); |
|
757 |
while (i <= High(binds.binds)) and (binds.binds[i] <> KeyName) do |
|
758 |
inc(i); |
|
13131 | 759 |
|
13132 | 760 |
if (i <= High(binds.binds)) then |
761 |
begin |
|
762 |
code:= Low(binds.indices); |
|
763 |
while (code <= High(binds.indices)) and (binds.indices[code] <> i) do |
|
764 |
inc(code); |
|
765 |
||
766 |
checkFails(code <= High(binds.indices), 'binds registry inconsistency', true); |
|
767 |
||
768 |
binds.indices[code]:= 0; |
|
769 |
binds.binds[i]:= '' |
|
770 |
end; |
|
13131 | 771 |
|
13132 | 772 |
if binds.indices[b] > 0 then |
773 |
newCode:= binds.indices[b] |
|
774 |
else if i >= High(binds.binds) then |
|
775 |
begin |
|
776 |
inc(binds.lastIndex); |
|
777 |
checkFails(binds.lastIndex < High(binds.binds), 'too many binds', true); |
|
778 |
newCode:= binds.lastIndex |
|
779 |
end else |
|
780 |
newCode:= i; |
|
9466 | 781 |
|
13132 | 782 |
|
783 |
binds.indices[b]:= newCode; |
|
784 |
binds.binds[binds.indices[b]]:= KeyName |
|
9466 | 785 |
end |
786 |
end; |
|
787 |
||
788 |
// Bind that isn't a team bind, but overrides defaultbinds. |
|
789 |
procedure chDefaultBind(var id: shortstring); |
|
790 |
begin |
|
791 |
addBind(DefaultBinds, id) |
|
8346 | 792 |
end; |
793 |
||
3038 | 794 |
procedure initModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
795 |
begin |
11486 | 796 |
// assign 0 until InitKbdKeyTable is called |
797 |
mwheelupCode:= 0; |
|
798 |
mwheeldownCode:= 0; |
|
799 |
||
8346 | 800 |
RegisterVariable('dbind', @chDefaultBind, true ); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
801 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
802 |
|
3038 | 803 |
procedure freeModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
804 |
var j: LongInt; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
805 |
begin |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
806 |
// close gamepad controllers |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
807 |
if ControllerEnabled > 0 then |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
808 |
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
|
809 |
SDL_JoystickClose(Controller[j]); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
810 |
end; |
4 | 811 |
|
812 |
end. |