hedgewars/uKeys.pas
author unc0rr
Sat, 26 Jun 2010 16:58:19 +0400
changeset 3565 bc3410104894
parent 3523 6592fbb969da
child 3598 a8aa06bae895
permissions -rw-r--r--
merge
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
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2613
diff changeset
    19
{$INCLUDE "options.inc"}
079ef82eac75 revamped file access and debug display
koda
parents: 2613
diff changeset
    20
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    21
unit uKeys;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    22
interface
2591
c6597b65caea other controls implementation + sdlh revisited (once again)
koda
parents: 2590
diff changeset
    23
uses uConsts, SDLh;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    24
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    25
type TBinds = array[0..cKeyMaxIndex] of shortstring;
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    26
type TKeyboardState = array[0..cKeyMaxIndex] of Byte;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    27
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    28
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    29
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
    30
2905
f3c79f7193a9 Engine:
smxx
parents: 2805
diff changeset
    31
function  KeyNameToCode(name: shortstring): word;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    32
procedure ProcessKbd;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    33
procedure ResetKbd;
948
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
    34
procedure FreezeEnterKey;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    35
procedure InitKbdKeyTable;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    36
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    37
procedure SetBinds(var binds: TBinds);
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    38
procedure SetDefaultBinds;
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    39
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    40
procedure ControllerInit;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    41
procedure ControllerClose;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    42
procedure ControllerAxisEvent(joy, axis: Byte; value: Integer);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    43
procedure ControllerHatEvent(joy, hat, value: Byte);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    44
procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
    45
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    46
var hideAmmoMenu: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    47
    wheelUp: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    48
    wheelDown: boolean;
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
    49
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    50
    ControllerNumControllers: Integer;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    51
    ControllerEnabled: Integer;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    52
    ControllerNumAxes: array[0..5] of Integer;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    53
    //ControllerNumBalls: array[0..5] of Integer;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    54
    ControllerNumHats: array[0..5] of Integer;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    55
    ControllerNumButtons: array[0..5] of Integer;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    56
    ControllerAxes: array[0..5] of array[0..19] of Integer;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    57
    //ControllerBalls: array[0..5] of array[0..19] of array[0..1] of Integer;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    58
    ControllerHats: array[0..5] of array[0..19] of Byte;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    59
    ControllerButtons: array[0..5] of array[0..19] of Byte;
2786
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
    60
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    61
    DefaultBinds, CurrentBinds: TBinds;
2786
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
    62
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
    63
    coeff: LongInt;
3493
2adbae321127 fix iphone version for map preview
koda
parents: 3407
diff changeset
    64
{$IFDEF HWLIBRARY}
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    65
    leftClick: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    66
    middleClick: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    67
    rightClick: boolean;
161
d8870bbf960e - AmmoMenu
unc0rr
parents: 109
diff changeset
    68
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    69
    upKey: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    70
    downKey: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    71
    rightKey: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    72
    leftKey: boolean;
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    73
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    74
    backspaceKey: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    75
    spaceKey: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    76
    enterKey: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    77
    tabKey: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    78
    
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    79
    chatAction: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    80
    pauseAction: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    81
    switchAction: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    82
    
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
    83
    cursorUp: boolean;
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
    84
    cursorDown: boolean;
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
    85
    cursorLeft: boolean;
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
    86
    cursorRight: boolean;
3493
2adbae321127 fix iphone version for map preview
koda
parents: 3407
diff changeset
    87
{$IFDEF IPHONEOS}    
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
    88
procedure setiPhoneBinds;
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
    89
{$ENDIF}
3493
2adbae321127 fix iphone version for map preview
koda
parents: 3407
diff changeset
    90
{$ENDIF}
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    91
implementation
3407
dcc129c4352e Engine:
smxx
parents: 3347
diff changeset
    92
uses uTeams, uConsole, uMisc;
dcc129c4352e Engine:
smxx
parents: 3347
diff changeset
    93
//const KeyNumber = 1024;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
    94
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
    95
var tkbd, tkbdn: TKeyboardState;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    96
    KeyNames: array [0..cKeyMaxIndex] of string[15];
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
    97
    
2905
f3c79f7193a9 Engine:
smxx
parents: 2805
diff changeset
    98
function KeyNameToCode(name: shortstring): word;
2678
334016e8d895 injection of custom code in SDL for iPhone in order to implement our frontend
koda
parents: 2674
diff changeset
    99
var code: Word;
334016e8d895 injection of custom code in SDL for iPhone in order to implement our frontend
koda
parents: 2674
diff changeset
   100
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   101
    code:= cKeyMaxIndex;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   102
    while (code > 0) and (KeyNames[code] <> name) do dec(code);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   103
    KeyNameToCode:= code;
2678
334016e8d895 injection of custom code in SDL for iPhone in order to implement our frontend
koda
parents: 2674
diff changeset
   104
end;
334016e8d895 injection of custom code in SDL for iPhone in order to implement our frontend
koda
parents: 2674
diff changeset
   105
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   106
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   107
procedure ProcessKbd;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   108
var  i, j, k: LongInt;
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   109
     s: shortstring;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   110
     Trusted: boolean;
3221
3e6586c1ab4f koda's changelog turn
koda
parents: 3038
diff changeset
   111
{$IFNDEF IPHONEOS}pkbd: PByteArray;{$ENDIF}
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   112
begin
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   113
hideAmmoMenu:= false;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   114
Trusted:= (CurrentTeam <> nil)
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 345
diff changeset
   115
          and (not CurrentTeam^.ExtDriven)
846
08c3f0bc766c Fix bug with handling keys while it is AI's turn
unc0rr
parents: 626
diff changeset
   116
          and (CurrentHedgehog^.BotLevel = 0);
161
d8870bbf960e - AmmoMenu
unc0rr
parents: 109
diff changeset
   117
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   118
// move cursor/camera
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   119
// TODO: Scale on screen dimensions and/or axis value (game controller)?
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   120
movecursor(coeff * CursorMovementX, coeff * CursorMovementY);
2671
7e0f88013fe8 smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents: 2630
diff changeset
   121
7e0f88013fe8 smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents: 2630
diff changeset
   122
k:= SDL_GetMouseState(nil, nil);
3221
3e6586c1ab4f koda's changelog turn
koda
parents: 3038
diff changeset
   123
3e6586c1ab4f koda's changelog turn
koda
parents: 3038
diff changeset
   124
{$IFDEF IPHONEOS}
3e6586c1ab4f koda's changelog turn
koda
parents: 3038
diff changeset
   125
SDL_GetKeyState(@j);
3e6586c1ab4f koda's changelog turn
koda
parents: 3038
diff changeset
   126
{$ELSE}
2671
7e0f88013fe8 smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents: 2630
diff changeset
   127
pkbd:= SDL_GetKeyState(@j);
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   128
for i:= 6 to pred(j) do // first 6 will be overwritten
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   129
    tkbdn[i]:= pkbd^[i];
2579
e5e4ebf528b5 more updates on touch input/control
koda
parents: 2567
diff changeset
   130
{$ENDIF}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   131
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   132
// mouse buttons
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   133
{$IFDEF DARWIN}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   134
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
   135
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
   136
{$ELSE}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   137
tkbdn[1]:= (k and 1);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   138
tkbdn[3]:= ((k shr 2) and 1);
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   139
{$ENDIF}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   140
tkbdn[2]:= ((k shr 1) and 1);
2328
e74f2db28b21 improved fix for right click on mac
koda
parents: 2312
diff changeset
   141
2678
334016e8d895 injection of custom code in SDL for iPhone in order to implement our frontend
koda
parents: 2674
diff changeset
   142
// mouse wheels
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   143
tkbdn[4]:= ord(wheelDown);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   144
tkbdn[5]:= ord(wheelUp);
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   145
wheelUp:= false;
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   146
wheelDown:= false;
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   147
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   148
{$IFDEF IPHONEOS}
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   149
setiPhoneBinds();
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   150
{$ENDIF}
2152
a2811690da1b Patch by koda:
unc0rr
parents: 2008
diff changeset
   151
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   152
// Controller(s)
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   153
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
   154
for j:= 0 to Pred(ControllerNumControllers) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   155
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   156
    for i:= 0 to Pred(ControllerNumAxes[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   157
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   158
        if ControllerAxes[j][i] > 20000 then tkbdn[k + 0]:= 1 else tkbdn[k + 0]:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   159
        if ControllerAxes[j][i] < -20000 then tkbdn[k + 1]:= 1 else tkbdn[k + 1]:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   160
        inc(k, 2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   161
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   162
    for i:= 0 to Pred(ControllerNumHats[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   163
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   164
        tkbdn[k + 0]:= ControllerHats[j][i] and SDL_HAT_UP;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   165
        tkbdn[k + 1]:= ControllerHats[j][i] and SDL_HAT_RIGHT;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   166
        tkbdn[k + 2]:= ControllerHats[j][i] and SDL_HAT_DOWN;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   167
        tkbdn[k + 3]:= ControllerHats[j][i] and SDL_HAT_LEFT;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   168
        inc(k, 4);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   169
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   170
    for i:= 0 to Pred(ControllerNumButtons[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   171
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   172
        tkbdn[k]:= ControllerButtons[j][i];
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   173
        inc(k, 1);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   174
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   175
    end;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   176
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   177
// now process strokes
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   178
for i:= 0 to cKeyMaxIndex do
947
4e0c3ad89483 - 't' key for entering chat message
unc0rr
parents: 883
diff changeset
   179
if CurrentBinds[i][0] <> #0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   180
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   181
    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;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   182
    if (tkbd[i] = 0) and (tkbdn[i] <> 0) then ParseCommand(CurrentBinds[i], Trusted)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   183
    else if (CurrentBinds[i][1] = '+')
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   184
            and (tkbdn[i] = 0)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   185
            and (tkbd[i] <> 0) then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   186
            begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   187
            s:= CurrentBinds[i];
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   188
            s[1]:= '-';
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   189
            ParseCommand(s, Trusted)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   190
            end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   191
    tkbd[i]:= tkbdn[i]
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   192
    end
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   193
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   194
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   195
procedure ResetKbd;
2590
e7e87e3c67db touch control completely revamped
koda
parents: 2586
diff changeset
   196
var i, j, k, t: LongInt;
3221
3e6586c1ab4f koda's changelog turn
koda
parents: 3038
diff changeset
   197
{$IFNDEF IPHONEOS}pkbd: PByteArray;{$ENDIF}
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   198
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
   199
2671
7e0f88013fe8 smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents: 2630
diff changeset
   200
k:= SDL_GetMouseState(nil, nil);
3221
3e6586c1ab4f koda's changelog turn
koda
parents: 3038
diff changeset
   201
{$IFNDEF IPHONEOS}pkbd:={$ENDIF}SDL_GetKeyState(@j);
2714
c85ffe57d971 update iphone frontend to the new (silly) sdl api, code cleanups for other sections
koda
parents: 2699
diff changeset
   202
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   203
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
   204
2579
e5e4ebf528b5 more updates on touch input/control
koda
parents: 2567
diff changeset
   205
{$IFNDEF IPHONEOS}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   206
for i:= 1 to pred(j) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   207
    tkbdn[i]:= pkbd^[i];
2579
e5e4ebf528b5 more updates on touch input/control
koda
parents: 2567
diff changeset
   208
{$ENDIF}
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
   209
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   210
// mouse buttons
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   211
{$IFDEF DARWIN}
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   212
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
   213
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
   214
{$ELSE}
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   215
tkbdn[1]:= (k and 1);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   216
tkbdn[3]:= ((k shr 2) and 1);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   217
{$ENDIF}
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   218
tkbdn[2]:= ((k shr 1) and 1);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   219
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   220
// mouse wheels
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   221
tkbdn[4]:= ord(wheelDown);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   222
tkbdn[5]:= ord(wheelUp);
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   223
wheelUp:= false;
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   224
wheelDown:= false;
2671
7e0f88013fe8 smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents: 2630
diff changeset
   225
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   226
{$IFDEF IPHONEOS}
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   227
setiPhoneBinds();
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   228
{$ENDIF}
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   229
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   230
// Controller(s)
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   231
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
   232
for j:= 0 to Pred(ControllerNumControllers) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   233
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   234
    for i:= 0 to Pred(ControllerNumAxes[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   235
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   236
        if ControllerAxes[j][i] > 20000 then tkbdn[k + 0]:= 1 else tkbdn[k + 0]:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   237
        if ControllerAxes[j][i] < -20000 then tkbdn[k + 1]:= 1 else tkbdn[k + 1]:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   238
        inc(k, 2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   239
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   240
    for i:= 0 to Pred(ControllerNumHats[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   241
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   242
        tkbdn[k + 0]:= ControllerHats[j][i] and SDL_HAT_UP;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   243
        tkbdn[k + 1]:= ControllerHats[j][i] and SDL_HAT_RIGHT;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   244
        tkbdn[k + 2]:= ControllerHats[j][i] and SDL_HAT_DOWN;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   245
        tkbdn[k + 3]:= ControllerHats[j][i] and SDL_HAT_LEFT;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   246
        inc(k, 4);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   247
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   248
    for i:= 0 to Pred(ControllerNumButtons[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   249
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   250
        tkbdn[k]:= ControllerButtons[j][i];
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   251
        inc(k, 1);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   252
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   253
    end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   254
    
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   255
for t:= 0 to cKeyMaxIndex do
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   256
    tkbd[i]:= tkbdn[i]
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   257
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   258
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   259
procedure InitKbdKeyTable;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   260
var i, j, k, t: LongInt;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   261
    s: string[15];
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   262
begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   263
KeyNames[1]:= 'mousel';
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   264
KeyNames[2]:= 'mousem';
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   265
KeyNames[3]:= 'mouser';
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   266
KeyNames[4]:= 'wheelup';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   267
KeyNames[5]:= 'wheeldown';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   268
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   269
for i:= 6 to cKeyMaxIndex do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   270
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   271
        s:= shortstring(sdl_getkeyname(i));
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   272
    //writeln(stdout,inttostr(i) + ': ' + s);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   273
        if s = 'unknown key' then KeyNames[i]:= ''
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   274
        else begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   275
        for t:= 1 to Length(s) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   276
            if s[t] = ' ' then s[t]:= '_';
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   277
            KeyNames[i]:= s
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   278
        end;
2613
e873f4bfed09 fix keybindings in PPC
koda
parents: 2606
diff changeset
   279
end;
e873f4bfed09 fix keybindings in PPC
koda
parents: 2606
diff changeset
   280
e873f4bfed09 fix keybindings in PPC
koda
parents: 2606
diff changeset
   281
//for i:= 0 to cKeyMaxIndex do writeln(stdout,inttostr(i) + ': ' + KeyNames[i]);
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   282
2671
7e0f88013fe8 smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents: 2630
diff changeset
   283
// get the size of keyboard array
7e0f88013fe8 smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents: 2630
diff changeset
   284
SDL_GetKeyState(@k);
2436
246ef6271470 Smaxx fix to overwriting private sdl's memory
unc0rr
parents: 2428
diff changeset
   285
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   286
// Controller(s)
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   287
for j:= 0 to Pred(ControllerNumControllers) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   288
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   289
    for i:= 0 to Pred(ControllerNumAxes[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   290
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   291
        keynames[k + 0]:= 'j' + inttostr(j) + 'a' + inttostr(i) + 'u';
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   292
        keynames[k + 1]:= 'j' + inttostr(j) + 'a' + inttostr(i) + 'd';
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   293
        inc(k, 2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   294
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   295
    for i:= 0 to Pred(ControllerNumHats[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   296
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   297
        keynames[k + 0]:= 'j' + inttostr(j) + 'h' + inttostr(i) + 'u';
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   298
        keynames[k + 1]:= 'j' + inttostr(j) + 'h' + inttostr(i) + 'r';
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   299
        keynames[k + 2]:= 'j' + inttostr(j) + 'h' + inttostr(i) + 'd';
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   300
        keynames[k + 3]:= 'j' + inttostr(j) + 'h' + inttostr(i) + 'l';
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   301
        inc(k, 4);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   302
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   303
    for i:= 0 to Pred(ControllerNumButtons[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   304
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   305
        keynames[k]:= 'j' + inttostr(j) + 'b' + inttostr(i);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   306
        inc(k, 1);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   307
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   308
    end;
2581
10f03732ea60 convert 24 bits images to 32 (faster to manage)
koda
parents: 2580
diff changeset
   309
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   310
DefaultBinds[ 27]:= 'quit';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   311
DefaultBinds[ 96]:= 'history';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   312
DefaultBinds[127]:= 'rotmask';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   313
2606
ed687a8d081f updated build files for macosx and optimization system
koda
parents: 2599
diff changeset
   314
//numpad
ed687a8d081f updated build files for macosx and optimization system
koda
parents: 2599
diff changeset
   315
//DefaultBinds[265]:= '+volup';
ed687a8d081f updated build files for macosx and optimization system
koda
parents: 2599
diff changeset
   316
//DefaultBinds[256]:= '+voldown';
ed687a8d081f updated build files for macosx and optimization system
koda
parents: 2599
diff changeset
   317
2379
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   318
DefaultBinds[KeyNameToCode('0')]:= '+volup';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   319
DefaultBinds[KeyNameToCode('9')]:= '+voldown';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   320
DefaultBinds[KeyNameToCode('c')]:= 'capture';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   321
DefaultBinds[KeyNameToCode('h')]:= 'findhh';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   322
DefaultBinds[KeyNameToCode('p')]:= 'pause';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   323
DefaultBinds[KeyNameToCode('s')]:= '+speedup';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   324
DefaultBinds[KeyNameToCode('t')]:= 'chat';
d62b1f224982 - Implement zoom reset
unc0rr
parents: 2328
diff changeset
   325
DefaultBinds[KeyNameToCode('y')]:= 'confirm';
1051
dfdd5dfe97d4 Enable fullscreen switching back, now it's bound on F12
unc0rr
parents: 1022
diff changeset
   326
2407
9f413bd5150e - Fix mouse cursor bugs in net game (still has a bug near water)
unc0rr
parents: 2379
diff changeset
   327
DefaultBinds[KeyNameToCode('mousem')]:= 'zoomreset';
9f413bd5150e - Fix mouse cursor bugs in net game (still has a bug near water)
unc0rr
parents: 2379
diff changeset
   328
DefaultBinds[KeyNameToCode('wheelup')]:= 'zoomout';
9f413bd5150e - Fix mouse cursor bugs in net game (still has a bug near water)
unc0rr
parents: 2379
diff changeset
   329
DefaultBinds[KeyNameToCode('wheeldown')]:= 'zoomin';
9f413bd5150e - Fix mouse cursor bugs in net game (still has a bug near water)
unc0rr
parents: 2379
diff changeset
   330
1051
dfdd5dfe97d4 Enable fullscreen switching back, now it's bound on F12
unc0rr
parents: 1022
diff changeset
   331
DefaultBinds[KeyNameToCode('f12')]:= 'fullscr';
dfdd5dfe97d4 Enable fullscreen switching back, now it's bound on F12
unc0rr
parents: 1022
diff changeset
   332
2786
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
   333
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   334
DefaultBinds[ 1]:= '/put';
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   335
DefaultBinds[ 3]:= 'ammomenu';
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   336
DefaultBinds[ 8]:= 'hjump';
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   337
DefaultBinds[ 9]:= 'switch';
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   338
DefaultBinds[13]:= 'ljump';
2786
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
   339
DefaultBinds[32]:= '+attack';
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
   340
{$IFDEF IPHONEOS}
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   341
DefaultBinds[23]:= '+up';
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   342
DefaultBinds[24]:= '+down';
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   343
DefaultBinds[25]:= '+left';
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   344
DefaultBinds[26]:= '+right';
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   345
DefaultBinds[44]:= 'chat';
2805
36a8cebb91e8 new menupage ingame for common actions
koda
parents: 2786
diff changeset
   346
DefaultBinds[55]:= 'pause';
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   347
DefaultBinds[66]:= '+cur_u';
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   348
DefaultBinds[67]:= '+cur_d';
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   349
DefaultBinds[68]:= '+cur_l';
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   350
DefaultBinds[69]:= '+cur_r';
2786
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
   351
{$ELSE}
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
   352
DefaultBinds[KeyNameToCode('up')]:= '+up';
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
   353
DefaultBinds[KeyNameToCode('down')]:= '+down';
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
   354
DefaultBinds[KeyNameToCode('left')]:= '+left';
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
   355
DefaultBinds[KeyNameToCode('right')]:= '+right';
85f6425a4d74 Engine:
smxx
parents: 2754
diff changeset
   356
DefaultBinds[KeyNameToCode('left_shift')]:= '+precise';
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   357
{$ENDIF}
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   358
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   359
SetDefaultBinds();
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   360
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   361
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   362
procedure SetBinds(var binds: TBinds);
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   363
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   364
    CurrentBinds:= binds;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   365
end;
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   366
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   367
procedure SetDefaultBinds;
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   368
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   369
    CurrentBinds:= DefaultBinds;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   370
end;
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   371
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   372
{$IFDEF IPHONEOS}
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   373
procedure setiPhoneBinds;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   374
begin
3523
6592fbb969da fix zoom smoothness
koda
parents: 3513
diff changeset
   375
    tkbdn[ 1]:= ord(leftClick);
6592fbb969da fix zoom smoothness
koda
parents: 3513
diff changeset
   376
    tkbdn[ 2]:= ord(middleClick);
6592fbb969da fix zoom smoothness
koda
parents: 3513
diff changeset
   377
    tkbdn[ 3]:= ord(rightClick);
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   378
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   379
    tkbdn[23]:= ord(upKey);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   380
    tkbdn[24]:= ord(downKey);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   381
    tkbdn[25]:= ord(leftKey);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   382
    tkbdn[26]:= ord(rightKey);
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   383
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   384
    tkbdn[ 8]:= ord(backspaceKey);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   385
    tkbdn[ 9]:= ord(tabKey);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   386
    tkbdn[13]:= ord(enterKey);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   387
    tkbdn[32]:= ord(spaceKey);
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   388
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   389
    tkbdn[44]:= ord(chatAction);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   390
    tkbdn[55]:= ord(pauseAction);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   391
    //tkbdn[100]:= ord(switchAction);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   392
    
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   393
    tkbdn[66]:= ord(cursorUp);
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   394
    tkbdn[67]:= ord(cursorDown);
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   395
    tkbdn[68]:= ord(cursorLeft);
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   396
    tkbdn[69]:= ord(cursorRight);
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   397
    
3523
6592fbb969da fix zoom smoothness
koda
parents: 3513
diff changeset
   398
    // set to false the keys that only need one stoke
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   399
    leftClick:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   400
    middleClick:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   401
    rightClick:= false;
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   402
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   403
    tabKey:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   404
    enterKey:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   405
    backspaceKey:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   406
    
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   407
    chatAction:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   408
    pauseAction:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   409
    //switchAction:= false;
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   410
end;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   411
{$ENDIF}
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   412
948
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
   413
procedure FreezeEnterKey;
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
   414
begin
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
   415
tkbd[13]:= 1;
2567
02ff5f9510b5 WE HAVE TOUCH INPUT
koda
parents: 2438
diff changeset
   416
tkbd[271]:= 1;
948
5d49a92c240a Fix chat behavior
unc0rr
parents: 947
diff changeset
   417
end;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 161
diff changeset
   418
2591
c6597b65caea other controls implementation + sdlh revisited (once again)
koda
parents: 2590
diff changeset
   419
var Controller: array [0..5] of PSDL_Joystick;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   420
    
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   421
procedure ControllerInit;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   422
var i, j: Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   423
begin
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
   424
{$IFNDEF IPHONEOS}
2674
2fce032f2f95 lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents: 2671
diff changeset
   425
SDL_InitSubSystem(SDL_INIT_JOYSTICK);
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
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   428
ControllerEnabled:= 0;
2674
2fce032f2f95 lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents: 2671
diff changeset
   429
ControllerNumControllers:= SDL_NumJoysticks();
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   430
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   431
if ControllerNumControllers > 6 then ControllerNumControllers:= 6;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   432
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   433
WriteLnToConsole('Number of game controllers: ' + inttostr(ControllerNumControllers));
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   434
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   435
if ControllerNumControllers > 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   436
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   437
    for j:= 0 to pred(ControllerNumControllers) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   438
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   439
        WriteLnToConsole('Using game controller: ' + SDL_JoystickName(j));
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   440
        Controller[j]:= SDL_JoystickOpen(j);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   441
        if Controller[j] = nil then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   442
            WriteLnToConsole('* Failed to open game controller!')
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   443
        else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   444
            begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   445
            ControllerNumAxes[j]:= SDL_JoystickNumAxes(Controller[j]);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   446
            //ControllerNumBalls[j]:= SDL_JoystickNumBalls(Controller[j]);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   447
            ControllerNumHats[j]:= SDL_JoystickNumHats(Controller[j]);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   448
            ControllerNumButtons[j]:= SDL_JoystickNumButtons(Controller[j]);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   449
            WriteLnToConsole('* Number of axes: ' + inttostr(ControllerNumAxes[j]));
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   450
            //WriteLnToConsole('* Number of balls: ' + inttostr(ControllerNumBalls[j]));
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   451
            WriteLnToConsole('* Number of hats: ' + inttostr(ControllerNumHats[j]));
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   452
            WriteLnToConsole('* Number of buttons: ' + inttostr(ControllerNumButtons[j]));
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   453
            ControllerEnabled:= 1;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   454
            
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   455
            if ControllerNumAxes[j] > 20 then ControllerNumAxes[j]:= 20;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   456
            //if ControllerNumBalls[j] > 20 then ControllerNumBalls[j]:= 20;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   457
            if ControllerNumHats[j] > 20 then ControllerNumHats[j]:= 20;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   458
            if ControllerNumButtons[j] > 20 then ControllerNumButtons[j]:= 20;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   459
            
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   460
            // reset all buttons/axes
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   461
            for i:= 0 to pred(ControllerNumAxes[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   462
                ControllerAxes[j][i]:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   463
            (*for i:= 0 to pred(ControllerNumBalls[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   464
                begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   465
                ControllerBalls[j][i][0]:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   466
                ControllerBalls[j][i][1]:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   467
                end;*)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   468
            for i:= 0 to pred(ControllerNumHats[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   469
                ControllerHats[j][i]:= SDL_HAT_CENTERED;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   470
            for i:= 0 to pred(ControllerNumButtons[j]) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   471
                ControllerButtons[j][i]:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   472
            end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   473
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   474
    // enable event generation/controller updating
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   475
    SDL_JoystickEventState(1);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   476
    end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   477
else    
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   478
    WriteLnToConsole('Not using any game controller');
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   479
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   480
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   481
procedure ControllerClose;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   482
var j: Integer;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   483
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   484
    if ControllerEnabled > 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   485
        for j:= 0 to pred(ControllerNumControllers) do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   486
            SDL_JoystickClose(Controller[j]);
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   487
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   488
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   489
procedure ControllerAxisEvent(joy, axis: Byte; value: Integer);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   490
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   491
    ControllerAxes[joy][axis]:= value;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   492
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   493
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   494
procedure ControllerHatEvent(joy, hat, value: Byte);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   495
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   496
    ControllerHats[joy][hat]:= value;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   497
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   498
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   499
procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean);
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   500
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   501
    if pressed then ControllerButtons[joy][button]:= 1
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   502
    else ControllerButtons[joy][button]:= 0;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   503
end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2407
diff changeset
   504
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   505
procedure initModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   506
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   507
    wheelUp:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   508
    wheelDown:= false;
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   509
    coeff:= 5;
3493
2adbae321127 fix iphone version for map preview
koda
parents: 3407
diff changeset
   510
{$IFDEF HWLIBRARY}
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   511
    // this function is called by HW_allKeysUp so be careful
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   512
    
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   513
    // mouse emulation
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   514
    leftClick:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   515
    middleClick:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   516
    rightClick:= false;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   517
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   518
    // arrow key emulation
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   519
    upKey:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   520
    downKey:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   521
    rightKey:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   522
    leftKey:= false;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   523
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   524
    // action key emulation
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   525
    backspaceKey:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   526
    spaceKey:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   527
    enterKey:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   528
    tabKey:= false;
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   529
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   530
    // other key emulation
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   531
    chatAction:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   532
    pauseAction:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2905
diff changeset
   533
    switchAction:= false;
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   534
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   535
    // cursor emulation
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   536
    cursorUp:= false;
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   537
    cursorDown:= false;
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   538
    cursorLeft:= false;
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   539
    cursorRight:= false;
5d0ac8197eb7 camera panning ftw
koda
parents: 3221
diff changeset
   540
    
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   541
{$ENDIF}
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   542
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   543
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   544
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   545
begin
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   546
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2714
diff changeset
   547
end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   548
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   549
end.