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;

    11 

    12 

    12 procedure init;

    13 procedure init;

    13 begin

    19 begin

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

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

    15 end;

    21 end;

    16 

    22 

    17 procedure updatePosition;

    23 procedure updatePosition;