hedgewars/uWorld.pas
changeset 3551 d4de36b3801a
parent 3537 8f5b3108f29c
child 3580 85bd667955f2
--- a/hedgewars/uWorld.pas	Thu Jun 24 01:08:57 2010 +0200
+++ b/hedgewars/uWorld.pas	Sat Jun 26 04:36:04 2010 +0200
@@ -1007,12 +1007,14 @@
 const PrevSentPointTime: LongWord = 0;
 var EdgesDist,  wdy: LongInt;
 begin
+{$IFNDEF IPHONEOS}
 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus then
-    begin
+begin
     SDL_GetMouseState(@CursorPoint.X, @CursorPoint.Y);
     CursorPoint.X:= CursorPoint.X - (cScreenWidth shr 1);
     CursorPoint.Y:= cScreenHeight - CursorPoint.Y;
-    end;
+end;
+{$ENDIF}
 
 if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then
     if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then