hedgewars/uCursor.pas
branchwebgl
changeset 8330 aaefa587e277
parent 8026 4a4f21070479
parent 8225 186229af4fc1
child 8444 75db7bb8dce8
--- a/hedgewars/uCursor.pas	Sun Dec 02 00:03:16 2012 +0100
+++ b/hedgewars/uCursor.pas	Tue Dec 25 04:45:22 2012 +0100
@@ -3,6 +3,7 @@
 interface
 
 procedure init;
+procedure resetPosition;
 procedure updatePosition;
 
 implementation
@@ -15,6 +16,11 @@
 
 procedure init;
 begin
+    resetPosition();
+end;
+
+procedure resetPosition;
+begin
     SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
 end;