hedgewars/uInputHandler.pas
branchwebgl
changeset 9954 bf51bc7e2808
parent 9950 2759212a27de
child 10015 4feced261c68
equal deleted inserted replaced
9952:32f5982604f4 9954:bf51bc7e2808
   181             ParseCommand('gencmd R', true)
   181             ParseCommand('gencmd R', true)
   182         end
   182         end
   183     else if (CurrentBinds[code][1] = '+') then
   183     else if (CurrentBinds[code][1] = '+') then
   184         begin
   184         begin
   185         if CurrentBinds[code] = '+precise' then
   185         if CurrentBinds[code] = '+precise' then
   186             LocalMessage:= LocalMessage and not(gmPrecise);
   186             LocalMessage:= LocalMessage and (not gmPrecise);
   187         s:= CurrentBinds[code];
   187         s:= CurrentBinds[code];
   188         s[1]:= '-';
   188         s[1]:= '-';
   189         ParseCommand(s, Trusted);
   189         ParseCommand(s, Trusted);
   190         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
   190         if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then
   191             ParseCommand('gencmd R', true)
   191             ParseCommand('gencmd R', true)
   192         end
   192         end
   193     else
   193     else
   194         begin
   194         begin
   195         if CurrentBinds[code] = 'switch' then
   195         if CurrentBinds[code] = 'switch' then
   196             LocalMessage:= LocalMessage and not(gmSwitch)
   196             LocalMessage:= LocalMessage and (not gmSwitch)
   197         end
   197         end
   198     end
   198     end
   199 end;
   199 end;
   200 
   200 
   201 procedure ProcessKey(event: TSDL_KeyboardEvent); inline;
   201 procedure ProcessKey(event: TSDL_KeyboardEvent); inline;