hedgewars/uTouch.pas
changeset 6714 f2f93017132c
parent 6712 c582869fbe7f
child 6716 c9e873cf2b08
--- 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