--- a/hedgewars/uGears.pas	Tue Jan 01 14:21:51 2013 -0500
+++ b/hedgewars/uGears.pas	Wed Jan 02 10:11:42 2013 +0100
@@ -192,7 +192,13 @@
 begin
 ScriptCall('onGameTick');
 if GameTicks mod 20 = 0 then ScriptCall('onGameTick20');
-if GameTicks = NewTurnTick then ScriptCall('onNewTurn');
+if GameTicks = NewTurnTick then
+    begin
+    ScriptCall('onNewTurn');
+{$IFDEF SDL13}
+    uTouch.NewTurnBeginning();
+{$ENDIF}
+    end;
 
 PrvInactive:= AllInactive;
 AllInactive:= true;

--- a/hedgewars/uTeams.pas	Tue Jan 01 14:21:51 2013 -0500
+++ b/hedgewars/uTeams.pas	Wed Jan 02 10:11:42 2013 +0100
@@ -321,10 +321,6 @@
         end;
     ReadyTimeLeft:= 0
     end;
-
-{$IFDEF SDL13}
-uTouch.NewTurnBeginning();
-{$ENDIF}
 end;
 
 function AddTeam(TeamColor: Longword): PTeam;