hedgewars/uTouch.pas
changeset 6949 615cc50903c8
parent 6919 bf7433e62b9c
child 6950 f34ff54b0cbd
equal deleted inserted replaced
6948:7271ce89950f 6949:615cc50903c8
   233 if (buttonsDown > 0) and (widget <> nil) then
   233 if (buttonsDown > 0) and (widget <> nil) then
   234     begin
   234     begin
   235     dec(buttonsDown);
   235     dec(buttonsDown);
   236     
   236     
   237     if widget = @arrowLeft then
   237     if widget = @arrowLeft then
   238         leftKey:= false;
   238         ParseTeamCommand('-left');
   239     
   239     
   240     if widget = @arrowRight then
   240     if widget = @arrowRight then
   241         rightKey:= false;
   241         ParseTeamCommand('-right');
   242 
   242 
   243     if widget = @arrowUp then
   243     if widget = @arrowUp then
   244         upKey:= false;
   244         ParseTeamCommand('-up');
   245 
   245 
   246     if widget = @arrowDown then
   246     if widget = @arrowDown then
   247         downKey:= false;
   247         ParseTeamCommand('-down');
   248 
   248 
   249     if widget = @fireButton then
   249     if widget = @fireButton then
   250         spaceKey:= false;
   250         ParseTeamCommand('-attack');
   251     end;
   251     end;
   252  
   252  
   253 deleteFinger(pointerId);
   253 deleteFinger(pointerId);
   254 {$ENDIF}
   254 {$ENDIF}
   255 end;
   255 end;