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