--- 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;