hedgewars/uTouch.pas
changeset 7087 d2089f2ea5af
parent 7063 a0326412e96a
child 7105 9007531f813f
equal deleted inserted replaced
7086:e99944b25764 7087:d2089f2ea5af
   317     begin 
   317     begin 
   318     if isOnRect(AmmoRect, finger) then
   318     if isOnRect(AmmoRect, finger) then
   319         begin
   319         begin
   320         CursorPoint.X:= finger.x;
   320         CursorPoint.X:= finger.x;
   321         CursorPoint.Y:= finger.y;
   321         CursorPoint.Y:= finger.y;
   322         doPut(CursorPoint.X, CursorPoint.Y, false); 
   322         ParseTeamCommand('put'); 
   323         end
   323         end
   324     else
   324     else
   325         bShowAmmoMenu:= false;
   325         bShowAmmoMenu:= false;
   326     exit;
   326     exit;
   327     end;
   327     end;