diff -r 33ee433749ba -r b5cdbcc89b61 hedgewars/CCHandlers.inc --- 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);