hedgewars/uKeys.pas
author koda
Thu, 22 Oct 2009 21:03:38 +0000
changeset 2576 2eb7ce1c1f19
parent 2567 02ff5f9510b5
child 2579 e5e4ebf528b5
permissions -rw-r--r--
code cleanup for Surface2Tex (we don't have 3 bytes surfaces any more)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 1051
diff changeset
     2
 * Hedgewars, a free turn based strategy game
883
07a568ba44e0 Update copyright info in source files headers
unc0rr
parents: 846
diff changeset
     3
 * Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
     4
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
     8
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    12
 * GNU General Public License for more details.
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    13
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    14
 * You should have received a copy of the GNU General Public License
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    15
 * along with this program; if not, write to the Free Software
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    17
 *)
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    18
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    19
unit uKeys;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    20
interface
345
fa39c61be4de Some fixes, revert debug code
unc0rr
parents: 299
diff changeset
    21
uses uConsts;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    22
{$INCLUDE options.inc}
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    23
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    24
type TBinds = array[0..cKeyMaxIndex] of shortstring;
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    25
type TKeyboardState = array[0..cKeyMaxIndex] of Byte;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    26
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    27
function  KeyNameToCode(name: string): word;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    28
procedure ProcessKbd;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    29
procedure ResetKbd;
948
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
    30
procedure FreezeEnterKey;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    31
procedure InitKbdKeyTable;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    32
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    33
procedure SetBinds(var binds: TBinds);
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    34
procedure SetDefaultBinds;
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    35
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    36
procedure ControllerInit;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    37
procedure ControllerClose;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    38
procedure ControllerAxisEvent(joy, axis: Byte; value: Integer);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    39
procedure ControllerHatEvent(joy, hat, value: Byte);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    40
procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    41
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    42
var hideAmmoMenu: boolean;
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
    43
	wheelUp: boolean = false;
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
    44
	wheelDown: boolean = false;
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    45
{$IFDEF IPHONEOS}
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    46
        leftClick: boolean = false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    47
        middleClick: boolean = false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    48
        rightClick: boolean = false;
161
d8870bbf960e - AmmoMenu
unc0rr
parents: 109
diff changeset
    49
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    50
upKey: boolean = false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    51
downKey: boolean = false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    52
rightKey: boolean = false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    53
leftKey: boolean = false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    54
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    55
spaceKey: boolean = false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    56
enterKey: boolean = false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    57
{$ENDIF}
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    58
	ControllerNumControllers: Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    59
    ControllerEnabled: Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    60
    ControllerNumAxes: array[0..5] of Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    61
    //ControllerNumBalls: array[0..5] of Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    62
	ControllerNumHats: array[0..5] of Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    63
	ControllerNumButtons: array[0..5] of Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    64
	ControllerAxes: array[0..5] of array[0..19] of Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    65
	//ControllerBalls: array[0..5] of array[0..19] of array[0..1] of Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    66
	ControllerHats: array[0..5] of array[0..19] of Byte;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    67
	ControllerButtons: array[0..5] of array[0..19] of Byte;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    68
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    69
implementation
2222
2e98698b76aa reworked progress structure
koda
parents: 2171
diff changeset
    70
uses SDLh, uTeams, uConsole, uMisc, uStore;
109
ab0340f580c2 - Initialize translations earlier
unc0rr
parents: 42
diff changeset
    71
const KeyNumber = 1024;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    72
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
    73
var tkbd, tkbdn: TKeyboardState;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    74
    KeyNames: array [0..cKeyMaxIndex] of string[15];
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    75
    DefaultBinds, CurrentBinds: TBinds;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    76
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    77
function KeyNameToCode(name: string): word;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 345
diff changeset
    78
var Result: Word;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    79
begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    80
Result:= cKeyMaxIndex;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 345
diff changeset
    81
while (Result > 0) and (KeyNames[Result] <> name) do dec(Result);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 345
diff changeset
    82
KeyNameToCode:= Result
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    83
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    84
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    85
procedure ProcessKbd;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    86
var  i, j, k: LongInt;
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
    87
     s: shortstring;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    88
     pkbd: PByteArray;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    89
     Trusted: boolean;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    90
begin
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    91
hideAmmoMenu:= false;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    92
Trusted:= (CurrentTeam <> nil)
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 345
diff changeset
    93
          and (not CurrentTeam^.ExtDriven)
846
08c3f0bc766c Fix bug with handling keys while it is AI's turn
unc0rr
parents: 626
diff changeset
    94
          and (CurrentHedgehog^.BotLevel = 0);
161
d8870bbf960e - AmmoMenu
unc0rr
parents: 109
diff changeset
    95
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    96
// move cursor/camera
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    97
// TODO: Scale on screen dimensions and/or axis value (game controller)?
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    98
movecursor(5 * CursorMovementX, 5 * CursorMovementY);
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
    99
		  
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   100
{$IFDEF SDL13}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   101
pkbd := SDL_GetKeyboardState(@j);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   102
k    := SDL_GetMouseState(0, nil, nil);
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   103
{$ELSE}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   104
pkbd := SDL_GetKeyState(@j);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   105
k    := SDL_GetMouseState(nil, nil);
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   106
{$ENDIF}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   107
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   108
for i:= 6 to pred(j) do // first 6 will be overwritten
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   109
	tkbdn[i]:= pkbd^[i];
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   110
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   111
// mouse buttons
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   112
{$IFDEF DARWIN}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   113
tkbdn[1]:= ((k and 1) and not (tkbdn[306] or tkbdn[305]));
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   114
tkbdn[3]:= ((k and 1) and (tkbdn[306] or tkbdn[305])) or (k and 4);
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   115
{$ELSE}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   116
tkbdn[1]:= (k and 1);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   117
tkbdn[3]:= ((k shr 2) and 1);
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   118
{$ENDIF}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   119
tkbdn[2]:= ((k shr 1) and 1);
2328
e74f2db28b21 improved fix for right click on mac
koda
parents: 2312
diff changeset
   120
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   121
// mouse wheels (see event loop in project file)
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   122
tkbdn[4]:= ord(wheelDown);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   123
tkbdn[5]:= ord(wheelUp);
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   124
wheelUp:= false;
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   125
wheelDown:= false;
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   126
{$IFDEF IPHONEOS}
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   127
tkbdn[1]:= ord(leftClick);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   128
tkbdn[2]:= ord(middleClick);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   129
tkbdn[3]:= ord(rightClick);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   130
leftClick:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   131
middleClick:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   132
rightClick:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   133
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   134
{*
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   135
//sdl1.3 for these keys is messed up
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   136
tkbdn[273]:= ord(upKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   137
tkbdn[274]:= ord(downKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   138
tkbdn[275]:= ord(rightKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   139
tkbdn[276]:= ord(leftKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   140
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   141
tkbdn[32]:= ord(spaceKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   142
tkbdn[13]:= ord(enterKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   143
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   144
upKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   145
downKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   146
rightKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   147
leftKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   148
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   149
spaceKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   150
enterKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   151
*}
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   152
{$ENDIF}
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   153
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   154
// Controller(s)
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   155
k:= j; // should we test k for hitting the limit? sounds rather unlikely to ever reach it
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   156
for j:= 0 to Pred(ControllerNumControllers) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   157
	begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   158
	for i:= 0 to Pred(ControllerNumAxes[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   159
		begin
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   160
		if ControllerAxes[j][i] > 20000 then tkbdn[k + 0]:= 1 else tkbdn[k + 0]:= 0;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   161
		if ControllerAxes[j][i] < -20000 then tkbdn[k + 1]:= 1 else tkbdn[k + 1]:= 0;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   162
		inc(k, 2);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   163
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   164
	for i:= 0 to Pred(ControllerNumHats[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   165
		begin
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   166
		tkbdn[k + 0]:= ControllerHats[j][i] and SDL_HAT_UP;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   167
		tkbdn[k + 1]:= ControllerHats[j][i] and SDL_HAT_RIGHT;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   168
		tkbdn[k + 2]:= ControllerHats[j][i] and SDL_HAT_DOWN;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   169
		tkbdn[k + 3]:= ControllerHats[j][i] and SDL_HAT_LEFT;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   170
		inc(k, 4);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   171
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   172
	for i:= 0 to Pred(ControllerNumButtons[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   173
		begin
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   174
		tkbdn[k]:= ControllerButtons[j][i];
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   175
		inc(k, 1);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   176
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   177
	end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   178
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   179
// now process strokes
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   180
for i:= 0 to cKeyMaxIndex do
947
4e0c3ad89483 - 't' key for entering chat message
unc0rr
parents: 883
diff changeset
   181
if CurrentBinds[i][0] <> #0 then
4e0c3ad89483 - 't' key for entering chat message
unc0rr
parents: 883
diff changeset
   182
	begin
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   183
	if (i > 3) and (tkbdn[i] <> 0) and not ((CurrentBinds[i] = 'put') or (CurrentBinds[i] = 'ammomenu') or (CurrentBinds[i] = '+cur_u') or (CurrentBinds[i] = '+cur_d') or (CurrentBinds[i] = '+cur_l') or (CurrentBinds[i] = '+cur_r')) then hideAmmoMenu:= true;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   184
	if (tkbd[i] = 0) and (tkbdn[i] <> 0) then ParseCommand(CurrentBinds[i], Trusted)
947
4e0c3ad89483 - 't' key for entering chat message
unc0rr
parents: 883
diff changeset
   185
	else if (CurrentBinds[i][1] = '+')
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   186
			and (tkbdn[i] = 0)
948
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
   187
			and (tkbd[i] <> 0) then
947
4e0c3ad89483 - 't' key for entering chat message
unc0rr
parents: 883
diff changeset
   188
			begin
4e0c3ad89483 - 't' key for entering chat message
unc0rr
parents: 883
diff changeset
   189
			s:= CurrentBinds[i];
4e0c3ad89483 - 't' key for entering chat message
unc0rr
parents: 883
diff changeset
   190
			s[1]:= '-';
4e0c3ad89483 - 't' key for entering chat message
unc0rr
parents: 883
diff changeset
   191
			ParseCommand(s, Trusted)
4e0c3ad89483 - 't' key for entering chat message
unc0rr
parents: 883
diff changeset
   192
			end;
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   193
	tkbd[i]:= tkbdn[i]
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   194
	end
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   195
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   196
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   197
procedure ResetKbd;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   198
var i, j, k, t: LongInt;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   199
    pkbd: PByteArray;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   200
begin
2171
8208946331ba Smaxx refactor of LoadImage to use flags, iphone changes by koda (mostly use of rgba instead of rgb)
nemo
parents: 2163
diff changeset
   201
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   202
{$IFDEF SDL13}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   203
pkbd:= SDL_GetKeyboardState(@j);
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   204
k:= SDL_GetMouseState(0, nil, nil);
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   205
{$ELSE}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   206
pkbd:= SDL_GetKeyState(@j);
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   207
k:= SDL_GetMouseState(nil, nil);
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   208
{$ENDIF}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   209
TryDo(j < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(j) + ')', true);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   210
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   211
for i:= 1 to pred(j) do
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   212
	tkbdn[i]:= pkbd^[i];
2171
8208946331ba Smaxx refactor of LoadImage to use flags, iphone changes by koda (mostly use of rgba instead of rgb)
nemo
parents: 2163
diff changeset
   213
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   214
// mouse buttons
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   215
{$IFDEF DARWIN}
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   216
tkbdn[1]:= ((k and 1) and not (tkbdn[306] or tkbdn[305]));
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   217
tkbdn[3]:= ((k and 1) and (tkbdn[306] or tkbdn[305])) or (k and 4);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   218
{$ELSE}
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   219
tkbdn[1]:= (k and 1);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   220
tkbdn[3]:= ((k shr 2) and 1);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   221
{$ENDIF}
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   222
tkbdn[2]:= ((k shr 1) and 1);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   223
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   224
// mouse wheels (see event loop in project file)
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   225
tkbdn[4]:= ord(wheelDown);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   226
tkbdn[5]:= ord(wheelUp);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   227
wheelUp:= false;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   228
wheelDown:= false;
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   229
{$IFDEF IPHONEOS}
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   230
tkbdn[1]:= ord(leftClick);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   231
tkbdn[2]:= ord(middleClick);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   232
tkbdn[3]:= ord(rightClick);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   233
leftClick:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   234
middleClick:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   235
rightClick:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   236
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   237
{*
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   238
tkbdn[273]:= ord(upKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   239
tkbdn[274]:= ord(downKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   240
tkbdn[275]:= ord(rightKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   241
tkbdn[276]:= ord(leftKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   242
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   243
tkbdn[32]:= ord(spaceKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   244
tkbdn[13]:= ord(enterKey);
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   245
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   246
upKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   247
downKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   248
rightKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   249
leftKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   250
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   251
spaceKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   252
enterKey:= false;
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   253
*}
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   254
{$ENDIF}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   255
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   256
// Controller(s)
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   257
k:= j; // should we test k for hitting the limit? sounds rather unlikely to ever reach it
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   258
for j:= 0 to Pred(ControllerNumControllers) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   259
	begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   260
	for i:= 0 to Pred(ControllerNumAxes[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   261
		begin
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   262
		if ControllerAxes[j][i] > 20000 then tkbdn[k + 0]:= 1 else tkbdn[k + 0]:= 0;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   263
		if ControllerAxes[j][i] < -20000 then tkbdn[k + 1]:= 1 else tkbdn[k + 1]:= 0;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   264
		inc(k, 2);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   265
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   266
	for i:= 0 to Pred(ControllerNumHats[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   267
		begin
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   268
		tkbdn[k + 0]:= ControllerHats[j][i] and SDL_HAT_UP;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   269
		tkbdn[k + 1]:= ControllerHats[j][i] and SDL_HAT_RIGHT;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   270
		tkbdn[k + 2]:= ControllerHats[j][i] and SDL_HAT_DOWN;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   271
		tkbdn[k + 3]:= ControllerHats[j][i] and SDL_HAT_LEFT;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   272
		inc(k, 4);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   273
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   274
	for i:= 0 to Pred(ControllerNumButtons[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   275
		begin
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   276
		tkbdn[k]:= ControllerButtons[j][i];
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   277
		inc(k, 1);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   278
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   279
	end;
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   280
	
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   281
for t:= 0 to cKeyMaxIndex do
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   282
    tkbd[i]:= tkbdn[i]
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   283
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   284
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   285
procedure InitKbdKeyTable;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   286
var i, j, k, t: LongInt;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   287
    s: string[15];
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   288
begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   289
KeyNames[1]:= 'mousel';
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   290
KeyNames[2]:= 'mousem';
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   291
KeyNames[3]:= 'mouser';
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   292
KeyNames[4]:= 'wheelup';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   293
KeyNames[5]:= 'wheeldown';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   294
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   295
for i:= 6 to cKeyMaxIndex do
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   296
    begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   297
    s:= SDL_GetKeyName(i);
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   298
	//addfilelog(inttostr(i) + ' ' + s);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   299
    if s = 'unknown key' then KeyNames[i]:= ''
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   300
       else begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   301
       for t:= 1 to Length(s) do
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   302
           if s[t] = ' ' then s[t]:= '_';
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   303
       KeyNames[i]:= s
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   304
       end;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   305
    end;
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   306
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   307
{$IFDEF SDL13}
2438
6df2e58b6ab2 can compile on iphone again
koda
parents: 2436
diff changeset
   308
PByteArray(SDL_GetKeyboardState(@i));
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   309
{$ELSE}
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   310
SDL_GetKeyState(@i);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   311
{$ENDIF}
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   312
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   313
// Controller(s)
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   314
k:= i;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   315
for j:= 0 to Pred(ControllerNumControllers) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   316
	begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   317
	for i:= 0 to Pred(ControllerNumAxes[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   318
		begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   319
		keynames[k + 0]:= 'j' + inttostr(j) + 'a' + inttostr(i) + 'u';
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   320
		keynames[k + 1]:= 'j' + inttostr(j) + 'a' + inttostr(i) + 'd';
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   321
		inc(k, 2);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   322
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   323
	for i:= 0 to Pred(ControllerNumHats[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   324
		begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   325
		keynames[k + 0]:= 'j' + inttostr(j) + 'h' + inttostr(i) + 'u';
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   326
		keynames[k + 1]:= 'j' + inttostr(j) + 'h' + inttostr(i) + 'r';
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   327
		keynames[k + 2]:= 'j' + inttostr(j) + 'h' + inttostr(i) + 'd';
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   328
		keynames[k + 3]:= 'j' + inttostr(j) + 'h' + inttostr(i) + 'l';
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   329
		inc(k, 4);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   330
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   331
	for i:= 0 to Pred(ControllerNumButtons[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   332
		begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   333
		keynames[k]:= 'j' + inttostr(j) + 'b' + inttostr(i);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   334
		inc(k, 1);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   335
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   336
	end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   337
	
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   338
DefaultBinds[ 27]:= 'quit';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   339
DefaultBinds[ 96]:= 'history';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   340
DefaultBinds[127]:= 'rotmask';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   341
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   342
DefaultBinds[KeyNameToCode('0')]:= '+volup';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   343
DefaultBinds[KeyNameToCode('9')]:= '+voldown';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   344
DefaultBinds[KeyNameToCode('c')]:= 'capture';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   345
DefaultBinds[KeyNameToCode('h')]:= 'findhh';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   346
DefaultBinds[KeyNameToCode('p')]:= 'pause';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   347
DefaultBinds[KeyNameToCode('s')]:= '+speedup';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   348
DefaultBinds[KeyNameToCode('t')]:= 'chat';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   349
DefaultBinds[KeyNameToCode('y')]:= 'confirm';
1051
dfdd5dfe97d4 Enable fullscreen switching back, now it's bound on F12
unc0rr
parents: 1022
diff changeset
   350
2407
9f413bd5150e - Fix mouse cursor bugs in net game (still has a bug near water)
unc0rr
parents: 2379
diff changeset
   351
DefaultBinds[KeyNameToCode('mousem')]:= 'zoomreset';
9f413bd5150e - Fix mouse cursor bugs in net game (still has a bug near water)
unc0rr
parents: 2379
diff changeset
   352
DefaultBinds[KeyNameToCode('wheelup')]:= 'zoomout';
9f413bd5150e - Fix mouse cursor bugs in net game (still has a bug near water)
unc0rr
parents: 2379
diff changeset
   353
DefaultBinds[KeyNameToCode('wheeldown')]:= 'zoomin';
9f413bd5150e - Fix mouse cursor bugs in net game (still has a bug near water)
unc0rr
parents: 2379
diff changeset
   354
1051
dfdd5dfe97d4 Enable fullscreen switching back, now it's bound on F12
unc0rr
parents: 1022
diff changeset
   355
DefaultBinds[KeyNameToCode('f12')]:= 'fullscr';
dfdd5dfe97d4 Enable fullscreen switching back, now it's bound on F12
unc0rr
parents: 1022
diff changeset
   356
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   357
SetDefaultBinds
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   358
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   359
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   360
procedure SetBinds(var binds: TBinds);
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   361
begin
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   362
CurrentBinds:= binds
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   363
end;
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   364
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   365
procedure SetDefaultBinds;
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   366
begin
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   367
CurrentBinds:= DefaultBinds
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   368
end;
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   369
948
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
   370
procedure FreezeEnterKey;
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
   371
begin
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
   372
tkbd[13]:= 1;
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   373
tkbd[271]:= 1;
948
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
   374
end;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   375
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   376
var Controller: array [0..5] of PSDLJoystick;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   377
	
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   378
procedure ControllerInit;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   379
var i, j: Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   380
begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   381
ControllerEnabled:= 0;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   382
ControllerNumControllers:= SDL_NumJoysticks;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   383
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   384
if ControllerNumControllers > 6 then ControllerNumControllers:= 6;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   385
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   386
WriteLnToConsole('Number of game controllers: ' + inttostr(ControllerNumControllers));
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   387
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   388
if ControllerNumControllers > 0 then
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   389
	begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   390
	for j:= 0 to pred(ControllerNumControllers) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   391
		begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   392
		WriteLnToConsole('Using game controller: ' + SDL_JoystickName(j));
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   393
		Controller[j]:= SDL_JoystickOpen(j);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   394
		if Controller[j] = nil then
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   395
			WriteLnToConsole('* Failed to open game controller!')
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   396
		else
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   397
			begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   398
			ControllerNumAxes[j]:= SDL_JoystickNumAxes(Controller[j]);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   399
			//ControllerNumBalls[j]:= SDL_JoystickNumBalls(Controller[j]);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   400
			ControllerNumHats[j]:= SDL_JoystickNumHats(Controller[j]);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   401
			ControllerNumButtons[j]:= SDL_JoystickNumButtons(Controller[j]);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   402
			WriteLnToConsole('* Number of axes: ' + inttostr(ControllerNumAxes[j]));
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   403
			//WriteLnToConsole('* Number of balls: ' + inttostr(ControllerNumBalls[j]));
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   404
			WriteLnToConsole('* Number of hats: ' + inttostr(ControllerNumHats[j]));
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   405
			WriteLnToConsole('* Number of buttons: ' + inttostr(ControllerNumButtons[j]));
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   406
			ControllerEnabled:= 1;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   407
			
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   408
			if ControllerNumAxes[j] > 20 then ControllerNumAxes[j]:= 20;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   409
			//if ControllerNumBalls[j] > 20 then ControllerNumBalls[j]:= 20;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   410
			if ControllerNumHats[j] > 20 then ControllerNumHats[j]:= 20;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   411
			if ControllerNumButtons[j] > 20 then ControllerNumButtons[j]:= 20;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   412
			
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   413
			// reset all buttons/axes
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   414
			for i:= 0 to pred(ControllerNumAxes[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   415
				ControllerAxes[j][i]:= 0;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   416
			(*for i:= 0 to pred(ControllerNumBalls[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   417
				begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   418
				ControllerBalls[j][i][0]:= 0;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   419
				ControllerBalls[j][i][1]:= 0;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   420
				end;*)
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   421
			for i:= 0 to pred(ControllerNumHats[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   422
				ControllerHats[j][i]:= SDL_HAT_CENTERED;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   423
			for i:= 0 to pred(ControllerNumButtons[j]) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   424
				ControllerButtons[j][i]:= 0;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   425
			end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   426
		end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   427
	// enable event generation/controller updating
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   428
	SDL_JoystickEventState(1);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   429
	end
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   430
else	
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   431
	WriteLnToConsole('Not using any game controller');
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   432
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   433
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   434
procedure ControllerClose;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   435
var j: Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   436
begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   437
if ControllerEnabled > 0 then
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   438
	for j:= 0 to pred(ControllerNumControllers) do
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   439
		SDL_JoystickClose(Controller[j]);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   440
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   441
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   442
procedure ControllerAxisEvent(joy, axis: Byte; value: Integer);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   443
begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   444
	ControllerAxes[joy][axis]:= value;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   445
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   446
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   447
procedure ControllerHatEvent(joy, hat, value: Byte);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   448
begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   449
	ControllerHats[joy][hat]:= value;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   450
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   451
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   452
procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   453
begin
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   454
	if pressed then ControllerButtons[joy][button]:= 1 else ControllerButtons[joy][button]:= 0;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   455
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   456
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   457
initialization
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   458
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   459
end.