hedgewars/uInputHandler.pas
changeset 12790 abc9a99418cc
parent 12621 d972b31f8881
child 12855 1b2b84315d27
child 12866 13143137c2ff
child 12997 f06660523198
equal deleted inserted replaced
12789:28782e03b8f0 12790:abc9a99418cc
   171 
   171 
   172 if CurrentBinds[code][0] <> #0 then
   172 if CurrentBinds[code][0] <> #0 then
   173     begin
   173     begin
   174     if (code < cKeyMaxIndex - 2) // means not mouse buttons
   174     if (code < cKeyMaxIndex - 2) // means not mouse buttons
   175         and KeyDown
   175         and KeyDown
   176         and (not ((CurrentBinds[code] = 'put')) or (CurrentBinds[code] = 'ammomenu') or (CurrentBinds[code] = '+cur_u') or (CurrentBinds[code] = '+cur_d') or (CurrentBinds[code] = '+cur_l') or (CurrentBinds[code] = '+cur_r')) 
   176         and (not ((CurrentBinds[code] = 'put') or (CurrentBinds[code] = 'ammomenu') or (CurrentBinds[code] = '+cur_u') or (CurrentBinds[code] = '+cur_d') or (CurrentBinds[code] = '+cur_l') or (CurrentBinds[code] = '+cur_r')))
   177         and (CurrentTeam <> nil) 
   177         and (CurrentTeam <> nil) 
   178         and (not CurrentTeam^.ExtDriven) 
   178         and (not CurrentTeam^.ExtDriven) 
   179         then bShowAmmoMenu:= false;
   179         then bShowAmmoMenu:= false;
   180 
   180 
   181     if KeyDown then
   181     if KeyDown then