hedgewars/uInputHandler.pas
changeset 12795 abc9a99418cc
parent 12626 d972b31f8881
child 12860 1b2b84315d27
child 12871 13143137c2ff
child 13002 f06660523198
equal deleted inserted replaced
12794:28782e03b8f0 12795: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