hedgewars/uInputHandler.pas
changeset 14896 63357ed39886
parent 14895 d4a19bf6687e
child 14897 6a928999fefd
equal deleted inserted replaced
14895:d4a19bf6687e 14896:63357ed39886
   247             LocalMessage:= LocalMessage or gmSwitch
   247             LocalMessage:= LocalMessage or gmSwitch
   248         else if CurrentBinds.binds[CurrentBinds.indices[code]] = '+precise' then
   248         else if CurrentBinds.binds[CurrentBinds.indices[code]] = '+precise' then
   249             begin
   249             begin
   250             LocalMessage:= LocalMessage or gmPrecise;
   250             LocalMessage:= LocalMessage or gmPrecise;
   251             updateVolumeDelta(true);
   251             updateVolumeDelta(true);
       
   252             updateCursorMovementDelta(true, CursorMovementX, CursorMovementX);
       
   253             updateCursorMovementDelta(true, CursorMovementY, CursorMovementY);
   252             end;
   254             end;
   253 
   255 
   254         ParseCommand(CurrentBinds.binds[CurrentBinds.indices[code]], Trusted);
   256         ParseCommand(CurrentBinds.binds[CurrentBinds.indices[code]], Trusted);
   255         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
   257         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
   256             ParseCommand('gencmd R', true)
   258             ParseCommand('gencmd R', true)
   259         begin
   261         begin
   260         if CurrentBinds.binds[CurrentBinds.indices[code]] = '+precise' then
   262         if CurrentBinds.binds[CurrentBinds.indices[code]] = '+precise' then
   261             begin
   263             begin
   262             LocalMessage:= LocalMessage and (not gmPrecise);
   264             LocalMessage:= LocalMessage and (not gmPrecise);
   263             updateVolumeDelta(false);
   265             updateVolumeDelta(false);
       
   266             updateCursorMovementDelta(false, CursorMovementX, CursorMovementX);
       
   267             updateCursorMovementDelta(false, CursorMovementY, CursorMovementY);
   264             end;
   268             end;
   265         s:= CurrentBinds.binds[CurrentBinds.indices[code]];
   269         s:= CurrentBinds.binds[CurrentBinds.indices[code]];
   266         s[1]:= '-';
   270         s[1]:= '-';
   267         ParseCommand(s, Trusted);
   271         ParseCommand(s, Trusted);
   268         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
   272         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then