--- a/hedgewars/uTouch.pas Sat Feb 18 15:24:20 2012 +0100
+++ b/hedgewars/uTouch.pas Sat Feb 18 16:56:04 2012 +0100
@@ -141,7 +141,7 @@
finger^.pressedWidget:= @pauseButton;
exit;
end;
-
+
dec(buttonsDown);//no buttonsDown, undo the inc() above
if buttonsDown = 0 then
begin
@@ -254,7 +254,7 @@
procedure onTouchLongClick(finger: TTouch_Data);
begin
-if isOnRect(backjump.active, finger) then
+if isOnRect(jumpWidget.active, finger) then
begin
ParseCommand('ljump', (CurrentTeam <> nil) and not(CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel=0));
if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
@@ -290,13 +290,13 @@
end;
-if isOnCurrentHog(finger) then
+if isOnCurrentHog(finger) or isOnRect(AMWidget.active, finger) then
begin
bShowAmmoMenu := true;
exit;
end;
-if isOnRect(backjump.active, finger) then
+if isOnRect(jumpWidget.active, finger) then
begin
ParseCommand('hjump', (CurrentTeam <> nil) and not(CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel=0));
if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then