- Restored Turkish localization
Note: Problem - missed " symbol.
unit uCursor;interfaceprocedure init;procedure resetPosition;procedure updatePosition;procedure handlePositionUpdate(x, y: LongInt);implementationuses SDLh, uVariables;procedure init;begin resetPosition();end;procedure resetPosition;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 handlePositionUpdate(x - cScreenWidth div 2, y - cScreenHeight div 2); if cHasFocus then SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2); endend;procedure handlePositionUpdate(x, y: LongInt);begin CursorPoint.X:= CursorPoint.X + x; CursorPoint.Y:= CursorPoint.Y - y;end;end.