hedgewars/uInputHandler.pas
changeset 7118 dcdbb6fcc924
parent 7117 7df6386f7090
child 7140 29948153fda2
equal deleted inserted replaced
7117:7df6386f7090 7118:dcdbb6fcc924
    82         ParseCommand('halt', true);    
    82         ParseCommand('halt', true);    
    83     end;
    83     end;
    84 
    84 
    85 if CurrentBinds[code][0] <> #0 then
    85 if CurrentBinds[code][0] <> #0 then
    86     begin
    86     begin
    87     if (code > 3) and (tkbd[code] <> 0) 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')) then hideAmmoMenu:= true;
    87     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')) then hideAmmoMenu:= true;
       
    88 
    88     if (KeyDown) then
    89     if (KeyDown) then
    89         begin
    90         begin
    90         ParseCommand(CurrentBinds[code], Trusted);
    91         ParseCommand(CurrentBinds[code], Trusted);
    91         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
    92         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
    92             ParseCommand('gencmd R', true)
    93             ParseCommand('gencmd R', true)