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