hedgewars/uTouch.pas
changeset 6961 d5ac09894a1b
parent 6957 ab8034208fcd
child 6962 ec308eabe09b
--- a/hedgewars/uTouch.pas	Sun Apr 29 20:52:10 2012 +0200
+++ b/hedgewars/uTouch.pas	Sun Apr 29 18:08:46 2012 +0200
@@ -22,12 +22,14 @@
 
 interface
 
-uses sysutils, uConsole, uVariables, SDLh, uFloat, uConsts, uCommands, uIO, GLUnit, uTypes, uCaptions, uAmmos;
+uses sysutils, uConsole, uVariables, SDLh, uFloat, uConsts, uCommands, uIO, GLUnit, uTypes, uCaptions, uAmmos, uWorld;
 
 
 procedure initModule;
 
 procedure ProcessTouch;
+procedure NewTurnBeginning;
+
 procedure onTouchDown(x,y: Longword; pointerId: TSDL_FingerId);
 procedure onTouchMotion(x,y: Longword; dx,dy: LongInt; pointerId: TSDL_FingerId);
 procedure onTouchUp(x,y: Longword; pointerId: TSDL_FingerId);
@@ -409,6 +411,14 @@
 
 end;
 
+procedure NewTurnBeginning;
+begin
+targetted:= false;
+targetting:= false;
+SetUtilityWidgetState;
+end;
+
+
 procedure ProcessTouch;
 var
     deltaAngle: LongInt;