1 unit uCursor;

     1 unit uCursor;

     2 

     2 

     3 interface

     3 interface

     4 

     4 

     5 procedure init;

     5 procedure init;

     6 procedure updatePosition;

     7 procedure updatePosition;

     7 

     8 

     8 implementation

     9 implementation

     9 

    10 

    10 uses SDLh, uVariables;

    11 uses SDLh, uVariables;

    12 {$IFDEF WEBGL}

    13 {$IFDEF WEBGL}

    13 var offsetx, offsety : Integer;

    14 var offsetx, offsety : Integer;

    14 {$ENDIF}

    15 {$ENDIF}

    15 

    16 

    16 procedure init;

    17 procedure init;

    17 begin

    23 begin

    18     SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);

    24     SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);

    19 end;

    25 end;

    20 

    26 

    21 procedure updatePosition;

    27 procedure updatePosition;