60 KbdKeyPressed:= false;

    60 KbdKeyPressed:= false;

    61 Trusted:= (CurrentTeam <> nil)

    61 Trusted:= (CurrentTeam <> nil)

    62           and (not CurrentTeam^.ExtDriven)

    62           and (not CurrentTeam^.ExtDriven)

    63           and (CurrentHedgehog^.BotLevel = 0);

    63           and (CurrentHedgehog^.BotLevel = 0);

    64 

    64 

    65 pkbd:= SDL_GetKeyState(nil);

    68 pkbd:= SDL_GetKeyState(nil);

    66 i:= SDL_GetMouseState(nil, nil);

    70 i:= SDL_GetMouseState(nil, nil);

    67 pkbd^[1]:= (i and 1);

    71 pkbd^[1]:= (i and 1);

    68 pkbd^[2]:= ((i shr 1) and 1);

    72 pkbd^[2]:= ((i shr 1) and 1);

    69 pkbd^[3]:= ((i shr 2) and 1);

    77 pkbd^[3]:= ((i shr 2) and 1);

    70 for i:= 1 to cKeyMaxIndex do

    80 for i:= 1 to cKeyMaxIndex do

    71 if CurrentBinds[i][0] <> #0 then

    81 if CurrentBinds[i][0] <> #0 then

    72 	begin

    82 	begin

    73 	if (i > 3) and (pkbd^[i] <> 0) then KbdKeyPressed:= true;

    83 	if (i > 3) and (pkbd^[i] <> 0) then KbdKeyPressed:= true;

    74 	if (tkbd[i] = 0) and (pkbd^[i] <> 0) then ParseCommand(CurrentBinds[i], Trusted)

    84 	if (tkbd[i] = 0) and (pkbd^[i] <> 0) then ParseCommand(CurrentBinds[i], Trusted)

    86 

    96 

    87 procedure ResetKbd;

    97 procedure ResetKbd;

    88 var i, t: LongInt;

    98 var i, t: LongInt;

    89     pkbd: PByteArray;

    99     pkbd: PByteArray;

    90 begin

   100 begin

    91 pkbd:= PByteArray(SDL_GetKeyState(@i));

   104 pkbd:= PByteArray(SDL_GetKeyState(@i));

    92 TryDo(i < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(i) + ')', true);

   106 TryDo(i < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(i) + ')', true);

    93 for t:= 0 to Pred(i) do

   107 for t:= 0 to Pred(i) do

    94     tkbd[i]:= pkbd^[i]

   108     tkbd[i]:= pkbd^[i]

    95 end;

   109 end;

    96 

   110