diff -r 822f8269e13f -r d5ac09894a1b hedgewars/uTouch.pas --- 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;