# HG changeset patch # User Xeli # Date 1335727047 -7200 # Node ID 0c181b88daffa841753450bb521af01d237f7f79 # Parent ec308eabe09b23aaaeb4e87060b8063e1c16c9d0 wops diff -r ec308eabe09b -r 0c181b88daff hedgewars/uTeams.pas --- 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; diff -r ec308eabe09b -r 0c181b88daff hedgewars/uWorld.pas --- 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);