fix breakage
authorXeli
Sat, 05 May 2012 16:38:41 +0200
changeset 7022 107651b3c5a0
parent 7021 0c75512a8920
child 7023 b320ff81cc73
fix breakage
hedgewars/uTouch.pas
hedgewars/uWorld.pas
--- a/hedgewars/uTouch.pas	Sat May 05 15:17:16 2012 +0100
+++ b/hedgewars/uTouch.pas	Sat May 05 16:38:41 2012 +0200
@@ -239,8 +239,8 @@
 if aimingCrosshair then
     begin
     aimingCrosshair:= false;
-    upKey:= false;
-    downKey:= false;
+    ParseTeamCommand('-up');
+    ParseTeamCommand('-down');
     dec(buttonsDown);
     end;
 
@@ -418,7 +418,7 @@
 begin
 targetted:= false;
 targetting:= false;
-SetUtilityWidgetState;
+SetUtilityWidgetState(amNothing);
 end;
 
 
--- a/hedgewars/uWorld.pas	Sat May 05 15:17:16 2012 +0100
+++ b/hedgewars/uWorld.pas	Sat May 05 16:38:41 2012 +0200
@@ -36,7 +36,7 @@
 procedure ShakeCamera(amount: LongInt);
 procedure InitCameraBorders;
 procedure InitTouchInterface;
-procedure SetUtilityWidgetState(ammoType: TAmmoType);
+procedure SetUtilityWidgetState(ammoType: TAmmoType = amNothing);
 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean);
 procedure MoveCamera;
 procedure onFocusStateChanged;