--- a/hedgewars/uGame.pas	Thu Aug 18 15:26:41 2011 +0200
+++ b/hedgewars/uGame.pas	Thu Aug 18 22:37:23 2011 +0200
@@ -26,7 +26,7 @@
 ////////////////////
    implementation
 ////////////////////
-uses uKeys, uTeams, uIO, uAI, uGears, uSound, uMobile, uVisualGears, uTypes, uVariables;
+uses uKeys, uTeams, uIO, uAI, uGears, uSound, uMobile, uVisualGears, uTypes, uVariables, uTouch;
 
 procedure DoGameTick(Lag: LongInt);
 var i: LongInt;
@@ -52,6 +52,7 @@
     if not CurrentTeam^.ExtDriven then
        begin
        if CurrentHedgehog^.BotLevel <> 0 then ProcessBot;
+       ProcessTouch;
        ProcessGears
        end else
        begin