--- a/hedgewars/uTeams.pas	Sun Apr 29 21:05:09 2012 +0200
+++ b/hedgewars/uTeams.pas	Sun Apr 29 21:17:27 2012 +0200
@@ -37,7 +37,7 @@
 
 implementation
 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript,
-    uGearsUtils, uGearsList, uTouch;
+    uGearsUtils, uGearsList{$IFDEF SDL13}, uTouch{$ENDIF};
 
 const MaxTeamHealth: LongInt = 0;
 
@@ -300,7 +300,9 @@
     end;
 
 uMobile.NewTurnBeginning();
+{$IFDEF SDL13}
 uTouch.NewTurnBeginning();
+{$ENDIF}
 ScriptCall('onNewTurn');
 end;
 

--- a/hedgewars/uWorld.pas	Sun Apr 29 21:05:09 2012 +0200
+++ b/hedgewars/uWorld.pas	Sun Apr 29 21:17:27 2012 +0200
@@ -1751,6 +1751,7 @@
 
 procedure SetUtilityWidgetState(ammoType: TAmmoType);
 begin
+{$IFDEF TOUCH_INTERFACE}
 if(ammoType = amNothing)then
     ammoType:= CurrentHedgehog^.CurAmmoType;
 
@@ -1772,6 +1773,7 @@
         end
     else if utilityWidget.show then
         animateWidget(@utilityWidget, true, false); 
+{$ENDIF}
 end;
 
 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean);