--- a/hedgewars/CCHandlers.inc	Sun Jul 11 18:39:01 2010 +0200
+++ b/hedgewars/CCHandlers.inc	Mon Jul 12 01:42:43 2010 +0200
@@ -439,13 +439,22 @@
     Message:= Message or gm_Switch
 end;
 
+{$IFDEF IPHONEOS}
+procedure clearView; cdecl; external;
+{$ENDIF}
+
 procedure chNextTurn(var s: shortstring);
 begin
-s:= s; // avoid compiler hint
-TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);
+    s:= s; // avoid compiler hint
+    TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);
 
-if not CurrentTeam^.ExtDriven then SendIPC('N');
-{$IFDEF DEBUGFILE}AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));{$ENDIF}
+    if not CurrentTeam^.ExtDriven then SendIPC('N');
+{$IFDEF DEBUGFILE}
+    AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));
+{$ENDIF}
+{$IFDEF IPHONEOS}
+    clearView();
+{$ENDIF}
 end;
 
 procedure chSay(var s: shortstring);