hedgewars/uChat.pas
changeset 8736 997ed94843c4
parent 8735 42892d1fb9e1
child 8737 0d56265dd60a
equal deleted inserted replaced
8735:42892d1fb9e1 8736:997ed94843c4
   323             FreezeEnterKey;
   323             FreezeEnterKey;
   324             SDL_EnableKeyRepeat(0,0);
   324             SDL_EnableKeyRepeat(0,0);
   325             GameState:= gsGame;
   325             GameState:= gsGame;
   326             ResetKbd;
   326             ResetKbd;
   327             end;
   327             end;
       
   328         {arrow keys}
       
   329         63232, 63233, 63234, 63235: begin end;
   328         else
   330         else
   329             if (Key < $80) then
   331             if (Key < $80) then
   330                 btw:= 1
   332                 btw:= 1
   331             else if (Key < $800) then
   333             else if (Key < $800) then
   332                 btw:= 2
   334                 btw:= 2