--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hedgewars/uCursor.pas	Mon May 02 18:37:57 2011 +0400
@@ -0,0 +1,32 @@
+unit uCursor;
+
+interface
+
+procedure init;
+procedure updatePosition;
+
+implementation
+
+uses 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
+writeln(x, ', ', y);
+        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);
+        end
+end;
+
+end.