GCI2012: Advanced Keyboard Configuration - Added "Controls" tab to settings, where you can set master game-wide controls. - Can revert master key bindings to game's default key bind. - Per-team binds now default to "Use my default", but you can override those binds if you want to. - New key binding interface. - Removed redundant second confirmation prompt for deleting a team. - Added "reset all binds" button to the binding interface in both the main settings and team settings. - I discovered that the reason keyboard camera controls were "broken" is because they were never implemented! But don't worry - I took care of that for you, too. :) (this also closes bug #120)

     1

unit uCursor;

     2

     3

interface

     4

     5

procedure init;

     6

procedure resetPosition;

     7

procedure updatePosition;

     8

procedure handlePositionUpdate(x, y: LongInt);

     9

    10

implementation

    11

    12

uses SDLh, uVariables;

    13

    14

procedure init;

    15

begin

    16

    resetPosition();

    17

end;

    18

    19

procedure resetPosition;

    20

begin

    21

    SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);

    22

end;

    23

    24

procedure updatePosition;

    25

var x, y: LongInt;

    26

begin

    27

    SDL_GetMouseState(@x, @y);

    28

    29

    if(x <> cScreenWidth div 2) or (y <> cScreenHeight div 2) then

    30

    begin

    31

        handlePositionUpdate(x - cScreenWidth div 2, y - cScreenHeight div 2);

    32

    33

        if cHasFocus then

    34

            SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);

    35

    end

    36

end;

    37

    38

procedure handlePositionUpdate(x, y: LongInt);

    39

begin

    40

    CursorPoint.X:= CursorPoint.X + x;

    41

    CursorPoint.Y:= CursorPoint.Y - y;

    42

end;

    43

    44

end.