hedgewars/uInputHandler.pas
changeset 14900 d4a19bf6687e
parent 14899 5a6da39c5f2a
child 14901 63357ed39886
equal deleted inserted replaced
14899:5a6da39c5f2a 14900:d4a19bf6687e
   244         Trusted:= Trusted and (not isPaused); //releasing keys during pause should be allowed on the other hand
   244         Trusted:= Trusted and (not isPaused); //releasing keys during pause should be allowed on the other hand
   245 
   245 
   246         if CurrentBinds.binds[CurrentBinds.indices[code]] = 'switch' then
   246         if CurrentBinds.binds[CurrentBinds.indices[code]] = 'switch' then
   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             LocalMessage:= LocalMessage or gmPrecise;
   250             LocalMessage:= LocalMessage or gmPrecise;
       
   251             updateVolumeDelta(true);
       
   252             end;
   250 
   253 
   251         ParseCommand(CurrentBinds.binds[CurrentBinds.indices[code]], Trusted);
   254         ParseCommand(CurrentBinds.binds[CurrentBinds.indices[code]], Trusted);
   252         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
   255         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
   253             ParseCommand('gencmd R', true)
   256             ParseCommand('gencmd R', true)
   254         end
   257         end
   255     else if (CurrentBinds.binds[CurrentBinds.indices[code]][1] = '+') then
   258     else if (CurrentBinds.binds[CurrentBinds.indices[code]][1] = '+') then
   256         begin
   259         begin
   257         if CurrentBinds.binds[CurrentBinds.indices[code]] = '+precise' then
   260         if CurrentBinds.binds[CurrentBinds.indices[code]] = '+precise' then
       
   261             begin
   258             LocalMessage:= LocalMessage and (not gmPrecise);
   262             LocalMessage:= LocalMessage and (not gmPrecise);
       
   263             updateVolumeDelta(false);
       
   264             end;
   259         s:= CurrentBinds.binds[CurrentBinds.indices[code]];
   265         s:= CurrentBinds.binds[CurrentBinds.indices[code]];
   260         s[1]:= '-';
   266         s[1]:= '-';
   261         ParseCommand(s, Trusted);
   267         ParseCommand(s, Trusted);
   262         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
   268         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
   263             ParseCommand('gencmd R', true)
   269             ParseCommand('gencmd R', true)