hedgewars/uInputHandler.pas
changeset 10510 9329dab04490
parent 10392 5012e1f9e893
child 10515 7705784902e1
child 11046 47a8c19ecb60
equal deleted inserted replaced
10509:d62d3c706947 10510:9329dab04490
   170     begin
   170     begin
   171     if (code > 3) and KeyDown 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')) and (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) then bShowAmmoMenu:= false;
   171     if (code > 3) and KeyDown 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')) and (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) then bShowAmmoMenu:= false;
   172     if KeyDown then
   172     if KeyDown then
   173         begin
   173         begin
   174         Trusted:= Trusted and (not isPaused); //releasing keys during pause should be allowed on the other hand
   174         Trusted:= Trusted and (not isPaused); //releasing keys during pause should be allowed on the other hand
   175                               
   175 
   176         if CurrentBinds[code] = 'switch' then
   176         if CurrentBinds[code] = 'switch' then
   177             LocalMessage:= LocalMessage or gmSwitch
   177             LocalMessage:= LocalMessage or gmSwitch
   178         else if CurrentBinds[code] = '+precise' then
   178         else if CurrentBinds[code] = '+precise' then
   179             LocalMessage:= LocalMessage or gmPrecise;
   179             LocalMessage:= LocalMessage or gmPrecise;
   180 
   180 
   470     f: PFSFile;
   470     f: PFSFile;
   471     p, l: shortstring;
   471     p, l: shortstring;
   472     b: byte;
   472     b: byte;
   473 begin
   473 begin
   474     if cOnlyStats then exit;
   474     if cOnlyStats then exit;
   475     
   475 
   476     AddFileLog('[BINDS] Loading binds from: ' + s);
   476     AddFileLog('[BINDS] Loading binds from: ' + s);
   477 
   477 
   478     l:= '';
   478     l:= '';
   479     if pfsExists(s) then
   479     if pfsExists(s) then
   480         begin
   480         begin