hedgewars/uTouch.pas
changeset 6949 615cc50903c8
parent 6919 bf7433e62b9c
child 6950 f34ff54b0cbd
--- a/hedgewars/uTouch.pas	Sat Apr 28 12:35:29 2012 +0200
+++ b/hedgewars/uTouch.pas	Fri Apr 27 23:39:01 2012 +0200
@@ -235,19 +235,19 @@
     dec(buttonsDown);
     
     if widget = @arrowLeft then
-        leftKey:= false;
+        ParseTeamCommand('-left');
     
     if widget = @arrowRight then
-        rightKey:= false;
+        ParseTeamCommand('-right');
 
     if widget = @arrowUp then
-        upKey:= false;
+        ParseTeamCommand('-up');
 
     if widget = @arrowDown then
-        downKey:= false;
+        ParseTeamCommand('-down');
 
     if widget = @fireButton then
-        spaceKey:= false;
+        ParseTeamCommand('-attack');
     end;
  
 deleteFinger(pointerId);