unit uCursor;interfaceprocedure init;procedure updatePosition;implementationuses SDLh, uVariables;procedure init;begin SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);end;procedure updatePosition;var x, y: LongInt;begin SDL_GetMouseState(@x, @y); if(x <> cScreenWidth div 2) or (y <> cScreenHeight div 2) then begin CursorPoint.X:= CursorPoint.X + x - cScreenWidth div 2; CursorPoint.Y:= CursorPoint.Y - y + cScreenHeight div 2; if cHasFocus then SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2); endend;end.