author | Wuzzy <Wuzzy2@mail.ru> |
Wed, 14 Mar 2018 23:02:39 +0100 | |
changeset 13216 | 667f28278aa4 |
parent 13137 | 52178e8ffdfc |
child 13348 | 93325e13d329 |
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; |
13047
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
30 |
|
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
31 |
function KeyBindToCode(bind: shortstring): LongInt; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
32 |
function KeyBindToName(bind: shortstring): ansistring; |
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); |
6917 | 35 |
procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
12626 | 36 |
//procedure ProcessMouseWheel(x, y: LongInt); |
37 |
procedure ProcessMouseWheel(y: LongInt); |
|
6992 | 38 |
procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
39 |
procedure ProcessKey(code: LongInt; KeyDown: boolean); |
|
40 |
||
4 | 41 |
procedure ResetKbd; |
11491 | 42 |
procedure ResetMouseWheel; |
948 | 43 |
procedure FreezeEnterKey; |
4 | 44 |
procedure InitKbdKeyTable; |
45 |
||
167 | 46 |
procedure SetBinds(var binds: TBinds); |
47 |
procedure SetDefaultBinds; |
|
8346 | 48 |
procedure chDefaultBind(var id: shortstring); |
9466 | 49 |
procedure loadBinds(cmd, s: shortstring); |
50 |
procedure addBind(var binds: TBinds; var id: shortstring); |
|
167 | 51 |
|
2428 | 52 |
procedure ControllerInit; |
53 |
procedure ControllerAxisEvent(joy, axis: Byte; value: Integer); |
|
54 |
procedure ControllerHatEvent(joy, hat, value: Byte); |
|
55 |
procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean); |
|
56 |
||
4 | 57 |
implementation |
10015 | 58 |
uses uConsole, uCommands, uVariables, uConsts, uUtils, uDebug, uPhysFSLayer; |
167 | 59 |
|
7193 | 60 |
const |
61 |
LSHIFT = $0200; |
|
62 |
RSHIFT = $0400; |
|
63 |
LALT = $0800; |
|
64 |
RALT = $1000; |
|
65 |
LCTRL = $2000; |
|
8330 | 66 |
RCTRL = $4000; |
7193 | 67 |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
68 |
var tkbd: array[0..cKbdMaxIndex] of boolean; |
4 | 69 |
KeyNames: array [0..cKeyMaxIndex] of string[15]; |
6982 | 70 |
CurrentBinds: TBinds; |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
71 |
ControllerNumControllers: Integer; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
72 |
ControllerEnabled: Integer; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7974
diff
changeset
|
73 |
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
|
74 |
//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
|
75 |
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
|
76 |
ControllerNumButtons: array[0..5] of Integer; |
8370 | 77 |
//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
|
78 |
//ControllerBalls: array[0..5] of array[0..19] of array[0..1] of Integer; |
8370 | 79 |
//ControllerHats: array[0..5] of array[0..19] of Byte; |
80 |
//ControllerButtons: array[0..5] of array[0..19] of Byte; |
|
3697 | 81 |
|
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
|
82 |
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
|
83 |
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
|
84 |
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
|
85 |
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
|
86 |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
87 |
function KeyNameToCode(name: shortstring; Modifier: shortstring): LongInt; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
88 |
var code: LongInt; |
2678
334016e8d895
injection of custom code in SDL for iPhone in order to implement our frontend
koda
parents:
2674
diff
changeset
|
89 |
begin |
6917 | 90 |
name:= LowerCase(name); |
9694 | 91 |
code:= 0; |
92 |
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
|
93 |
|
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
94 |
MaskModifier(Modifier, code); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
95 |
KeyNameToCode:= code; |
2678
334016e8d895
injection of custom code in SDL for iPhone in order to implement our frontend
koda
parents:
2674
diff
changeset
|
96 |
end; |
13047
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
97 |
|
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
98 |
// 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:
13002
diff
changeset
|
99 |
// if it has been bound. |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
100 |
// Returns -1 if the control has not been bound. |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
101 |
function KeyBindToCode(bind: shortstring): LongInt; |
13073 | 102 |
var code, index: LongInt; |
13047
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
103 |
begin |
13073 | 104 |
index:= 0; |
105 |
while (index <= High(CurrentBinds.binds)) and (CurrentBinds.binds[index] <> bind) do inc(index); |
|
106 |
if index > High(CurrentBinds.binds) then |
|
13047
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
107 |
// Return error |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
108 |
KeyBindToCode:= -1 |
13073 | 109 |
else begin |
110 |
code:= 0; |
|
111 |
while (code <= High(CurrentBinds.indices)) and (CurrentBinds.indices[code] <> index) do inc(code); |
|
112 |
checkFails(code <= High(CurrentBinds.indices), 'binds registry inconsistency', True); |
|
13047
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
113 |
KeyBindToCode:= code; |
13073 | 114 |
end; |
13047
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
115 |
end; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
116 |
|
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
117 |
// 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:
13002
diff
changeset
|
118 |
// human-readable key name from SDL. |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
119 |
// 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:
13002
diff
changeset
|
120 |
// longer hardcodes any key name. |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
121 |
// TODO: Localize |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
122 |
function KeyBindToName(bind: shortstring): ansistring; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
123 |
var code: LongInt; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
124 |
name: ansistring; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
125 |
begin |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
126 |
code:= KeyBindToCode(bind); |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
127 |
if code = -1 then |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
128 |
KeyBindToName:= trmsg[sidUnknownKey] |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
129 |
else |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
130 |
begin |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
131 |
name:= SDL_GetKeyName(SDL_GetKeyFromScancode(code)); |
13050
25a9260244f3
InputHandler: Shorten "Escape" to "Esc"
Wuzzy <Wuzzy2@mail.ru>
parents:
13047
diff
changeset
|
132 |
if (name = 'Escape') then |
25a9260244f3
InputHandler: Shorten "Escape" to "Esc"
Wuzzy <Wuzzy2@mail.ru>
parents:
13047
diff
changeset
|
133 |
// Let's shorten the name “Escape” for the quit menu |
25a9260244f3
InputHandler: Shorten "Escape" to "Esc"
Wuzzy <Wuzzy2@mail.ru>
parents:
13047
diff
changeset
|
134 |
KeyBindToName:= 'Esc' |
25a9260244f3
InputHandler: Shorten "Escape" to "Esc"
Wuzzy <Wuzzy2@mail.ru>
parents:
13047
diff
changeset
|
135 |
else if (name <> '') then |
13047
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
136 |
KeyBindToName:= name |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
137 |
else |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
138 |
begin |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
139 |
WriteLnToConsole('Error: KeyBindToName('+bind+') failed to find SDL key name!'); |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
140 |
KeyBindToName:= trmsg[sidUnknownKey]; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
141 |
end; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
142 |
end; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
143 |
end; |
29357016f374
uInputManager: Add functions to get SDL key name
Wuzzy <Wuzzy2@mail.ru>
parents:
13002
diff
changeset
|
144 |
|
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
|
145 |
(* |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
146 |
procedure MaskModifier(var code: LongInt; Modifier: LongWord); |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
147 |
begin |
8330 | 148 |
if(Modifier and KMOD_LSHIFT) <> 0 then code:= code or LSHIFT; |
149 |
if(Modifier and KMOD_RSHIFT) <> 0 then code:= code or LSHIFT; |
|
150 |
if(Modifier and KMOD_LALT) <> 0 then code:= code or LALT; |
|
151 |
if(Modifier and KMOD_RALT) <> 0 then code:= code or LALT; |
|
152 |
if(Modifier and KMOD_LCTRL) <> 0 then code:= code or LCTRL; |
|
153 |
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
|
154 |
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
|
155 |
*) |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
156 |
procedure MaskModifier(Modifier: shortstring; var code: LongInt); |
10015 | 157 |
var mod_ : shortstring = ''; |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
158 |
ModifierCount, i: LongInt; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
159 |
begin |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
160 |
if Modifier = '' then exit; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
161 |
ModifierCount:= 0; |
7202 | 162 |
|
163 |
for i:= 1 to Length(Modifier) do |
|
164 |
if(Modifier[i] = ':') then inc(ModifierCount); |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
165 |
|
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
166 |
SplitByChar(Modifier, mod_, ':');//remove the first mod: part |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
167 |
Modifier:= mod_; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
168 |
for i:= 0 to ModifierCount do |
8330 | 169 |
begin |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
170 |
mod_:= ''; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
171 |
SplitByChar(Modifier, mod_, ':'); |
7193 | 172 |
if (Modifier = 'lshift') then code:= code or LSHIFT; |
173 |
if (Modifier = 'rshift') then code:= code or RSHIFT; |
|
174 |
if (Modifier = 'lalt') then code:= code or LALT; |
|
175 |
if (Modifier = 'ralt') then code:= code or RALT; |
|
176 |
if (Modifier = 'lctrl') or (mod_ = 'lmeta') then code:= code or LCTRL; |
|
177 |
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
|
178 |
Modifier:= mod_; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
179 |
end; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
180 |
end; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
181 |
|
6917 | 182 |
procedure ProcessKey(code: LongInt; KeyDown: boolean); |
183 |
var |
|
184 |
Trusted: boolean; |
|
185 |
s : string; |
|
186 |
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
|
187 |
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
|
188 |
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
|
189 |
|
6917 | 190 |
Trusted:= (CurrentTeam <> nil) |
191 |
and (not CurrentTeam^.ExtDriven) |
|
192 |
and (CurrentHedgehog^.BotLevel = 0); |
|
9714 | 193 |
// REVIEW OR FIXME |
194 |
// 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. |
|
195 |
// There's no confirmation at all |
|
6942 | 196 |
// 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
|
197 |
if(KeyDown and (code = SDLK_q)) then |
6942 | 198 |
begin |
199 |
{$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
|
200 |
if tkbd[KeyNameToCode('left_meta')] or tkbd[KeyNameToCode('right_meta')] then |
6942 | 201 |
{$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
|
202 |
if tkbd[KeyNameToCode('left_ctrl')] or tkbd[KeyNameToCode('right_ctrl')] then |
6942 | 203 |
{$ENDIF} |
7869
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
204 |
ParseCommand('halt', true); |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
205 |
end; |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
206 |
|
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
207 |
// ctrl/cmd + w to close engine |
8746
55539c550c33
use SDL keycode for shortcuts (doesn't fix layout issues)
koda
parents:
8370
diff
changeset
|
208 |
if(KeyDown and (code = SDLK_w)) then |
7869
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
209 |
begin |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
210 |
{$IFDEF DARWIN} |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
211 |
// on OS X it this is expected behaviour |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
212 |
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
|
213 |
{$ELSE} |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
214 |
// 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
|
215 |
if tkbd[KeyNameToCode('left_ctrl')] or tkbd[KeyNameToCode('right_ctrl')] then |
13073 | 216 |
if ((CurrentBinds.indices[KeyNameToCode('left_ctrl')] = 0) or |
217 |
(CurrentBinds.indices[KeyNameToCode('right_ctrl')] = 0)) and |
|
218 |
(CurrentBinds.indices[SDLK_w] = 0) then |
|
7869
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
219 |
{$ENDIF} |
5dd2c047c96f
close engine shortcut, from the discussion in issue 317
koda
parents:
7848
diff
changeset
|
220 |
ParseCommand('forcequit', true); |
6942 | 221 |
end; |
222 |
||
13073 | 223 |
if CurrentBinds.indices[code] > 0 then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
224 |
begin |
9694 | 225 |
if (code < cKeyMaxIndex - 2) // means not mouse buttons |
226 |
and KeyDown |
|
13073 | 227 |
and (not ((CurrentBinds.binds[CurrentBinds.indices[code]] = 'put') |
228 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = 'ammomenu') |
|
229 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = '+cur_u') |
|
230 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = '+cur_d') |
|
231 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = '+cur_l') |
|
232 |
or (CurrentBinds.binds[CurrentBinds.indices[code]] = '+cur_r'))) |
|
9694 | 233 |
and (CurrentTeam <> nil) |
234 |
and (not CurrentTeam^.ExtDriven) |
|
235 |
then bShowAmmoMenu:= false; |
|
7118 | 236 |
|
7140
29948153fda2
Don't allow for multiple key up(or down) events, it will ignore the excess events
Xeli
parents:
7118
diff
changeset
|
237 |
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
|
238 |
begin |
10392 | 239 |
Trusted:= Trusted and (not isPaused); //releasing keys during pause should be allowed on the other hand |
10510 | 240 |
|
13073 | 241 |
if CurrentBinds.binds[CurrentBinds.indices[code]] = 'switch' then |
9714 | 242 |
LocalMessage:= LocalMessage or gmSwitch |
13073 | 243 |
else if CurrentBinds.binds[CurrentBinds.indices[code]] = '+precise' then |
9714 | 244 |
LocalMessage:= LocalMessage or gmPrecise; |
10015 | 245 |
|
13073 | 246 |
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
|
247 |
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
|
248 |
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
|
249 |
end |
13073 | 250 |
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
|
251 |
begin |
13073 | 252 |
if CurrentBinds.binds[CurrentBinds.indices[code]] = '+precise' then |
9954 | 253 |
LocalMessage:= LocalMessage and (not gmPrecise); |
13073 | 254 |
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
|
255 |
s[1]:= '-'; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
256 |
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
|
257 |
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
|
258 |
ParseCommand('gencmd R', true) |
9693 | 259 |
end |
260 |
else |
|
261 |
begin |
|
13073 | 262 |
if CurrentBinds.binds[CurrentBinds.indices[code]] = 'switch' then |
9954 | 263 |
LocalMessage:= LocalMessage and (not gmSwitch) |
9693 | 264 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
265 |
end |
6917 | 266 |
end; |
267 |
||
9691 | 268 |
procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
269 |
var code: LongInt; |
|
270 |
begin |
|
11356 | 271 |
// TODO |
272 |
code:= LongInt(event.keysym.scancode); |
|
9694 | 273 |
//writelntoconsole('[KEY] '+inttostr(code)+ ' -> ''' +KeyNames[code] + ''', type = '+inttostr(event.type_)); |
9691 | 274 |
ProcessKey(code, event.type_ = SDL_KEYDOWN); |
275 |
end; |
|
6917 | 276 |
|
277 |
procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
|
278 |
begin |
|
9694 | 279 |
//writelntoconsole('[MOUSE] '+inttostr(event.button)); |
280 |
case event.button of |
|
281 |
SDL_BUTTON_LEFT: |
|
282 |
ProcessKey(KeyNameToCode('mousel'), ButtonDown); |
|
283 |
SDL_BUTTON_MIDDLE: |
|
284 |
ProcessKey(KeyNameToCode('mousem'), ButtonDown); |
|
285 |
SDL_BUTTON_RIGHT: |
|
286 |
ProcessKey(KeyNameToCode('mouser'), ButtonDown); |
|
287 |
end; |
|
288 |
end; |
|
289 |
||
11491 | 290 |
var mwheelupCode, mwheeldownCode: Integer; |
291 |
||
12626 | 292 |
//procedure ProcessMouseWheel(x, y: LongInt); |
293 |
procedure ProcessMouseWheel(y: LongInt); |
|
9694 | 294 |
begin |
12626 | 295 |
// we don't use |
9694 | 296 |
//writelntoconsole('[MOUSEWHEEL] '+inttostr(x)+', '+inttostr(y)); |
297 |
if y > 0 then |
|
11491 | 298 |
begin |
299 |
// reset other direction |
|
300 |
if tkbd[mwheeldownCode] then |
|
301 |
ProcessKey(mwheeldownCode, false); |
|
302 |
// trigger "button down" event |
|
303 |
if (not tkbd[mwheelupCode]) then |
|
304 |
ProcessKey(mwheelupCode, true); |
|
305 |
end |
|
9694 | 306 |
else if y < 0 then |
11491 | 307 |
begin |
308 |
// reset other direction |
|
309 |
if tkbd[mwheelupCode] then |
|
310 |
ProcessKey(mwheelupCode, false); |
|
311 |
// trigger "button down" event |
|
312 |
if (not tkbd[mwheeldownCode]) then |
|
313 |
ProcessKey(mwheeldownCode, true); |
|
314 |
end; |
|
315 |
end; |
|
316 |
||
317 |
procedure ResetMouseWheel(); |
|
318 |
begin |
|
319 |
if tkbd[mwheelupCode] then |
|
320 |
ProcessKey(mwheelupCode, false); |
|
321 |
if tkbd[mwheeldownCode] then |
|
322 |
ProcessKey(mwheeldownCode, false); |
|
4 | 323 |
end; |
324 |
||
325 |
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
|
326 |
var t: LongInt; |
4 | 327 |
begin |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7184
diff
changeset
|
328 |
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
|
329 |
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
|
330 |
ProcessKey(t, False); |
4 | 331 |
end; |
332 |
||
13073 | 333 |
procedure RegisterBind(var binds: TBinds; key, value: shortstring); |
334 |
var code: LongInt; |
|
335 |
begin |
|
336 |
checkFails(binds.lastIndex < 255, 'too many binds', true); |
|
337 |
||
338 |
code:= KeyNameToCode(key); |
|
339 |
||
340 |
checkFails(code >= 0, 'unknown key', true); |
|
341 |
||
13137 | 342 |
if binds.indices[code] > 0 then |
343 |
begin |
|
344 |
binds.binds[binds.indices[code]]:= value |
|
345 |
end |
|
346 |
else begin |
|
347 |
inc(binds.lastIndex); |
|
348 |
binds.indices[code]:= binds.lastIndex; |
|
349 |
binds.binds[binds.indices[code]]:= value |
|
350 |
end; |
|
13073 | 351 |
end; |
9691 | 352 |
|
353 |
procedure InitDefaultBinds; |
|
354 |
var i: Longword; |
|
355 |
begin |
|
13073 | 356 |
RegisterBind(DefaultBinds, 'escape', 'quit'); |
357 |
RegisterBind(DefaultBinds, _S'`', 'history'); |
|
358 |
RegisterBind(DefaultBinds, 'delete', 'rotmask'); |
|
359 |
RegisterBind(DefaultBinds, 'home', 'rottags'); |
|
9691 | 360 |
|
361 |
//numpad |
|
362 |
//DefaultBinds[265]:= '+volup'; |
|
363 |
//DefaultBinds[256]:= '+voldown'; |
|
364 |
||
13073 | 365 |
RegisterBind(DefaultBinds, _S'0', '+volup'); |
366 |
RegisterBind(DefaultBinds, _S'9', '+voldown'); |
|
367 |
RegisterBind(DefaultBinds, _S'8', 'mute'); |
|
368 |
RegisterBind(DefaultBinds, _S'c', 'capture'); |
|
369 |
RegisterBind(DefaultBinds, _S'r', 'record'); |
|
370 |
RegisterBind(DefaultBinds, _S'h', 'findhh'); |
|
371 |
RegisterBind(DefaultBinds, _S'p', 'pause'); |
|
372 |
RegisterBind(DefaultBinds, _S's', '+speedup'); |
|
373 |
RegisterBind(DefaultBinds, _S't', 'chat'); |
|
374 |
RegisterBind(DefaultBinds, _S'y', 'confirm'); |
|
9691 | 375 |
|
13073 | 376 |
RegisterBind(DefaultBinds, 'mousem', 'zoomreset'); |
377 |
RegisterBind(DefaultBinds, 'wheelup', 'zoomin'); |
|
378 |
RegisterBind(DefaultBinds, 'wheeldown', 'zoomout'); |
|
9691 | 379 |
|
13073 | 380 |
RegisterBind(DefaultBinds, 'f12', 'fullscr'); |
9691 | 381 |
|
382 |
||
13073 | 383 |
RegisterBind(DefaultBinds, 'mousel', '/put'); |
384 |
RegisterBind(DefaultBinds, 'mouser', 'ammomenu'); |
|
385 |
RegisterBind(DefaultBinds, 'backspace', 'hjump'); |
|
386 |
RegisterBind(DefaultBinds, 'tab', 'switch'); |
|
387 |
RegisterBind(DefaultBinds, 'return', 'ljump'); |
|
388 |
RegisterBind(DefaultBinds, 'space', '+attack'); |
|
389 |
RegisterBind(DefaultBinds, 'up', '+up'); |
|
390 |
RegisterBind(DefaultBinds, 'down', '+down'); |
|
391 |
RegisterBind(DefaultBinds, 'left', '+left'); |
|
392 |
RegisterBind(DefaultBinds, 'right', '+right'); |
|
393 |
RegisterBind(DefaultBinds, 'left_shift', '+precise'); |
|
9691 | 394 |
|
395 |
||
13073 | 396 |
RegisterBind(DefaultBinds, 'j0a0u', '+left'); |
397 |
RegisterBind(DefaultBinds, 'j0a0d', '+right'); |
|
398 |
RegisterBind(DefaultBinds, 'j0a1u', '+up'); |
|
399 |
RegisterBind(DefaultBinds, 'j0a1d', '+down'); |
|
400 |
for i:= 1 to 10 do RegisterBind(DefaultBinds, 'f'+IntToStr(i), 'slot '+char(48+i)); |
|
401 |
for i:= 1 to 5 do RegisterBind(DefaultBinds, IntToStr(i), 'timer '+IntToStr(i)); |
|
9691 | 402 |
|
12111
9bc19f722169
Bug #108 - Phyfs/Pathz: Fix binds not being loaded
sheepluva
parents:
11669
diff
changeset
|
403 |
loadBinds('dbind', cPathz[ptConfig] + '/settings.ini'); |
9691 | 404 |
end; |
405 |
||
406 |
||
407 |
procedure InitKbdKeyTable; |
|
408 |
var i, j, k, t: LongInt; |
|
409 |
s: string[15]; |
|
410 |
begin |
|
411 |
KeyNames[cKeyMaxIndex ]:= 'mousel'; |
|
412 |
KeyNames[cKeyMaxIndex - 1]:= 'mousem'; |
|
413 |
KeyNames[cKeyMaxIndex - 2]:= 'mouser'; |
|
11491 | 414 |
mwheelupCode:= cKeyMaxIndex - 3; |
415 |
KeyNames[mwheelupCode]:= 'wheelup'; |
|
416 |
mwheeldownCode:= cKeyMaxIndex - 4; |
|
417 |
KeyNames[mwheeldownCode]:= 'wheeldown'; |
|
9691 | 418 |
|
419 |
for i:= 0 to cKeyMaxIndex - 5 do |
|
420 |
begin |
|
11356 | 421 |
s:= shortstring(SDL_GetScancodeName(TSDL_Scancode(i))); |
9691 | 422 |
|
423 |
for t:= 1 to Length(s) do |
|
424 |
if s[t] = ' ' then |
|
425 |
s[t]:= '_'; |
|
426 |
KeyNames[i]:= LowerCase(s) |
|
427 |
end; |
|
428 |
||
429 |
||
430 |
// get the size of keyboard array |
|
11359
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11356
diff
changeset
|
431 |
SDL_GetKeyboardState(@k); |
9691 | 432 |
|
433 |
// Controller(s) |
|
434 |
for j:= 0 to Pred(ControllerNumControllers) do |
|
435 |
begin |
|
436 |
for i:= 0 to Pred(ControllerNumAxes[j]) do |
|
437 |
begin |
|
438 |
KeyNames[k + 0]:= 'j' + IntToStr(j) + 'a' + IntToStr(i) + 'u'; |
|
439 |
KeyNames[k + 1]:= 'j' + IntToStr(j) + 'a' + IntToStr(i) + 'd'; |
|
440 |
inc(k, 2); |
|
441 |
end; |
|
442 |
for i:= 0 to Pred(ControllerNumHats[j]) do |
|
443 |
begin |
|
444 |
KeyNames[k + 0]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'u'; |
|
445 |
KeyNames[k + 1]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'r'; |
|
446 |
KeyNames[k + 2]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'd'; |
|
447 |
KeyNames[k + 3]:= 'j' + IntToStr(j) + 'h' + IntToStr(i) + 'l'; |
|
448 |
inc(k, 4); |
|
449 |
end; |
|
450 |
for i:= 0 to Pred(ControllerNumButtons[j]) do |
|
451 |
begin |
|
452 |
KeyNames[k]:= 'j' + IntToStr(j) + 'b' + IntToStr(i); |
|
453 |
inc(k, 1); |
|
454 |
end; |
|
455 |
end; |
|
456 |
||
457 |
InitDefaultBinds |
|
458 |
end; |
|
2606
ed687a8d081f
updated build files for macosx and optimization system
koda
parents:
2599
diff
changeset
|
459 |
|
1051
dfdd5dfe97d4
Enable fullscreen switching back, now it's bound on F12
unc0rr
parents:
1022
diff
changeset
|
460 |
|
2786 | 461 |
|
9691 | 462 |
{$IFNDEF MOBILE} |
167 | 463 |
procedure SetBinds(var binds: TBinds); |
7184
211ab9e2cb15
only reset those keys which actually change their bindings
Xeli
parents:
7151
diff
changeset
|
464 |
var |
211ab9e2cb15
only reset those keys which actually change their bindings
Xeli
parents:
7151
diff
changeset
|
465 |
t: LongInt; |
167 | 466 |
begin |
8346 | 467 |
for t:= 0 to cKbdMaxIndex do |
13073 | 468 |
if (CurrentBinds.binds[CurrentBinds.indices[t]] <> binds.binds[binds.indices[t]]) and tkbd[t] then |
8346 | 469 |
ProcessKey(t, False); |
7184
211ab9e2cb15
only reset those keys which actually change their bindings
Xeli
parents:
7151
diff
changeset
|
470 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
471 |
CurrentBinds:= binds; |
9691 | 472 |
end; |
473 |
{$ELSE} |
|
474 |
procedure SetBinds(var binds: TBinds); |
|
475 |
begin |
|
476 |
binds:= binds; // avoid hint |
|
477 |
CurrentBinds:= DefaultBinds; |
|
478 |
end; |
|
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
479 |
{$ENDIF} |
167 | 480 |
|
481 |
procedure SetDefaultBinds; |
|
482 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
483 |
CurrentBinds:= DefaultBinds; |
167 | 484 |
end; |
485 |
||
948 | 486 |
procedure FreezeEnterKey; |
487 |
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
|
488 |
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
|
489 |
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
|
490 |
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
|
491 |
tkbd[271]:= True; |
948 | 492 |
end; |
167 | 493 |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
494 |
var Controller: array [0..5] of PSDL_Joystick; |
3697 | 495 |
|
2428 | 496 |
procedure ControllerInit; |
8370 | 497 |
var j: Integer; |
2428 | 498 |
begin |
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
499 |
ControllerEnabled:= 0; |
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
|
500 |
{$IFDEF IPHONE} |
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
501 |
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
|
502 |
{$ENDIF} |
2674
2fce032f2f95
lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents:
2671
diff
changeset
|
503 |
|
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3651
diff
changeset
|
504 |
SDL_InitSubSystem(SDL_INIT_JOYSTICK); |
2674
2fce032f2f95
lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents:
2671
diff
changeset
|
505 |
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
|
506 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
507 |
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
|
508 |
ControllerNumControllers:= 6; |
2428 | 509 |
|
4374 | 510 |
WriteLnToConsole('Number of game controllers: ' + IntToStr(ControllerNumControllers)); |
2428 | 511 |
|
512 |
if ControllerNumControllers > 0 then |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
513 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
514 |
for j:= 0 to pred(ControllerNumControllers) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
515 |
begin |
7151 | 516 |
WriteLnToConsole('Using game controller: ' + shortstring(SDL_JoystickName(j))); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
517 |
Controller[j]:= SDL_JoystickOpen(j); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
518 |
if Controller[j] = nil then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
519 |
WriteLnToConsole('* Failed to open game controller!') |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
520 |
else |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
521 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
522 |
ControllerNumAxes[j]:= SDL_JoystickNumAxes(Controller[j]); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
523 |
//ControllerNumBalls[j]:= SDL_JoystickNumBalls(Controller[j]); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
524 |
ControllerNumHats[j]:= SDL_JoystickNumHats(Controller[j]); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
525 |
ControllerNumButtons[j]:= SDL_JoystickNumButtons(Controller[j]); |
4374 | 526 |
WriteLnToConsole('* Number of axes: ' + IntToStr(ControllerNumAxes[j])); |
527 |
//WriteLnToConsole('* Number of balls: ' + IntToStr(ControllerNumBalls[j])); |
|
528 |
WriteLnToConsole('* Number of hats: ' + IntToStr(ControllerNumHats[j])); |
|
529 |
WriteLnToConsole('* Number of buttons: ' + IntToStr(ControllerNumButtons[j])); |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
530 |
ControllerEnabled:= 1; |
3697 | 531 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
532 |
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
|
533 |
ControllerNumAxes[j]:= 20; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
534 |
//if ControllerNumBalls[j] > 20 then ControllerNumBalls[j]:= 20; |
8330 | 535 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
536 |
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
|
537 |
ControllerNumHats[j]:= 20; |
8330 | 538 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6497
diff
changeset
|
539 |
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
|
540 |
ControllerNumButtons[j]:= 20; |
3697 | 541 |
|
8370 | 542 |
(*// reset all buttons/axes |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
543 |
for i:= 0 to pred(ControllerNumAxes[j]) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
544 |
ControllerAxes[j][i]:= 0; |
8370 | 545 |
for i:= 0 to pred(ControllerNumBalls[j]) do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
546 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
547 |
ControllerBalls[j][i][0]:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
548 |
ControllerBalls[j][i][1]:= 0; |
8370 | 549 |
end; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
550 |
for i:= 0 to pred(ControllerNumHats[j]) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
551 |
ControllerHats[j][i]:= SDL_HAT_CENTERED; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
552 |
for i:= 0 to pred(ControllerNumButtons[j]) do |
8370 | 553 |
ControllerButtons[j][i]:= 0;*) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
554 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
555 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
556 |
// enable event generation/controller updating |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
557 |
SDL_JoystickEventState(1); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
558 |
end |
3697 | 559 |
else |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
560 |
WriteLnToConsole('Not using any game controller'); |
2428 | 561 |
end; |
562 |
||
563 |
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
|
564 |
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
|
565 |
k: LongInt; |
2428 | 566 |
begin |
11359
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11356
diff
changeset
|
567 |
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
|
568 |
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
|
569 |
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
|
570 |
ProcessKey(k + (axis*2)+1, value < -20000); |
2428 | 571 |
end; |
572 |
||
573 |
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
|
574 |
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
|
575 |
k: LongInt; |
2428 | 576 |
begin |
11359
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11356
diff
changeset
|
577 |
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
|
578 |
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
|
579 |
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
|
580 |
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
|
581 |
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
|
582 |
ProcessKey(k + ControllerNumAxes[joy]*2 + hat*4 + 3, (value and SDL_HAT_LEFT) <> 0); |
2428 | 583 |
end; |
584 |
||
585 |
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
|
586 |
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
|
587 |
k: LongInt; |
2428 | 588 |
begin |
11359
c481d087f653
cmake tweaks. make pas2c build with sdl2 (keycodes or something still missing)
sheepluva
parents:
11356
diff
changeset
|
589 |
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
|
590 |
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
|
591 |
ProcessKey(k + ControllerNumAxes[joy]*2 + ControllerNumHats[joy]*4 + button, pressed); |
2428 | 592 |
end; |
593 |
||
9466 | 594 |
procedure loadBinds(cmd, s: shortstring); |
595 |
var i: LongInt; |
|
596 |
f: PFSFile; |
|
597 |
p, l: shortstring; |
|
598 |
b: byte; |
|
599 |
begin |
|
10139 | 600 |
if cOnlyStats then exit; |
10510 | 601 |
|
9466 | 602 |
AddFileLog('[BINDS] Loading binds from: ' + s); |
603 |
||
604 |
l:= ''; |
|
605 |
if pfsExists(s) then |
|
606 |
begin |
|
607 |
f:= pfsOpenRead(s); |
|
608 |
while (not pfsEOF(f)) and (l <> '[Binds]') do |
|
609 |
pfsReadLn(f, l); |
|
610 |
||
611 |
while (not pfsEOF(f)) and (l <> '') do |
|
612 |
begin |
|
613 |
pfsReadLn(f, l); |
|
614 |
||
615 |
p:= ''; |
|
616 |
i:= 1; |
|
617 |
while (i <= length(l)) and (l[i] <> '=') do |
|
618 |
begin |
|
9981 | 619 |
if l[i] = '%' then |
9466 | 620 |
begin |
621 |
l[i]:= '$'; |
|
622 |
val(copy(l, i, 3), b); |
|
623 |
p:= p + char(b); |
|
624 |
inc(i, 3) |
|
10015 | 625 |
end |
9981 | 626 |
else |
627 |
begin |
|
628 |
p:= p + l[i]; |
|
629 |
inc(i) |
|
9466 | 630 |
end; |
631 |
end; |
|
632 |
||
633 |
if i < length(l) then |
|
634 |
begin |
|
635 |
l:= copy(l, i + 1, length(l) - i); |
|
636 |
if l <> 'default' then |
|
637 |
begin |
|
10015 | 638 |
if (length(l) = 2) and (l[1] = '\') then |
10080 | 639 |
l:= l[1] + '' |
9981 | 640 |
else if (l[1] = '"') and (l[length(l)] = '"') then |
641 |
l:= copy(l, 2, length(l) - 2); |
|
642 |
||
9466 | 643 |
p:= cmd + ' ' + l + ' ' + p; |
644 |
ParseCommand(p, true) |
|
645 |
end |
|
646 |
end |
|
647 |
end; |
|
648 |
||
649 |
pfsClose(f) |
|
10015 | 650 |
end |
9466 | 651 |
else |
652 |
AddFileLog('[BINDS] file not found'); |
|
653 |
end; |
|
654 |
||
655 |
||
656 |
procedure addBind(var binds: TBinds; var id: shortstring); |
|
8346 | 657 |
var KeyName, Modifier, tmp: shortstring; |
13137 | 658 |
i, newCode, code, b: LongInt; |
13136 | 659 |
begin |
13137 | 660 |
KeyName:= ''; |
661 |
Modifier:= ''; |
|
662 |
||
663 |
if(Pos('mod:', id) <> 0)then |
|
664 |
begin |
|
665 |
tmp:= ''; |
|
666 |
SplitBySpace(id, tmp); |
|
667 |
Modifier:= id; |
|
668 |
id:= tmp; |
|
669 |
end; |
|
13136 | 670 |
|
13137 | 671 |
SplitBySpace(id, KeyName); |
672 |
if KeyName[1]='"' then |
|
673 |
Delete(KeyName, 1, 1); |
|
674 |
if KeyName[byte(KeyName[0])]='"' then |
|
675 |
Delete(KeyName, byte(KeyName[0]), 1); |
|
676 |
b:= KeyNameToCode(id, Modifier); |
|
677 |
if b = 0 then |
|
678 |
OutError(errmsgUnknownVariable + ' "' + id + '"', false) |
|
679 |
else |
|
13073 | 680 |
begin |
13137 | 681 |
// add bind: first check if this cmd is already bound, and remove old bind |
682 |
i:= Low(binds.binds); |
|
683 |
while (i <= High(binds.binds)) and (binds.binds[i] <> KeyName) do |
|
684 |
inc(i); |
|
13136 | 685 |
|
13137 | 686 |
if (i <= High(binds.binds)) then |
687 |
begin |
|
688 |
code:= Low(binds.indices); |
|
689 |
while (code <= High(binds.indices)) and (binds.indices[code] <> i) do |
|
690 |
inc(code); |
|
691 |
||
692 |
checkFails(code <= High(binds.indices), 'binds registry inconsistency', true); |
|
693 |
||
694 |
binds.indices[code]:= 0; |
|
695 |
binds.binds[i]:= '' |
|
696 |
end; |
|
13136 | 697 |
|
13137 | 698 |
if binds.indices[b] > 0 then |
699 |
newCode:= binds.indices[b] |
|
700 |
else if i >= High(binds.binds) then |
|
701 |
begin |
|
702 |
inc(binds.lastIndex); |
|
703 |
checkFails(binds.lastIndex < High(binds.binds), 'too many binds', true); |
|
704 |
newCode:= binds.lastIndex |
|
705 |
end else |
|
706 |
newCode:= i; |
|
9466 | 707 |
|
13137 | 708 |
|
709 |
binds.indices[b]:= newCode; |
|
710 |
binds.binds[binds.indices[b]]:= KeyName |
|
9466 | 711 |
end |
712 |
end; |
|
713 |
||
714 |
// Bind that isn't a team bind, but overrides defaultbinds. |
|
715 |
procedure chDefaultBind(var id: shortstring); |
|
716 |
begin |
|
717 |
addBind(DefaultBinds, id) |
|
8346 | 718 |
end; |
719 |
||
3038 | 720 |
procedure initModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
721 |
begin |
11491 | 722 |
// assign 0 until InitKbdKeyTable is called |
723 |
mwheelupCode:= 0; |
|
724 |
mwheeldownCode:= 0; |
|
725 |
||
8346 | 726 |
RegisterVariable('dbind', @chDefaultBind, true ); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
727 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
728 |
|
3038 | 729 |
procedure freeModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
730 |
var j: LongInt; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
731 |
begin |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
732 |
// close gamepad controllers |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
733 |
if ControllerEnabled > 0 then |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
6994
diff
changeset
|
734 |
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
|
735 |
SDL_JoystickClose(Controller[j]); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
736 |
end; |
4 | 737 |
|
738 |
end. |