296 

   296 

   297 procedure CleanupInput;

   297 procedure CleanupInput;

   298 begin

   298 begin

   299     FreezeEnterKey;

   299     FreezeEnterKey;

   300     history:= 0;

   300     history:= 0;

   301     SDL_EnableKeyRepeat(0,0);

   302     SDL_EnableKeyRepeat(0,0);

   302     GameState:= gsGame;

   304     GameState:= gsGame;

   303     ResetKbd;

   305     ResetKbd;

   304 end;

   306 end;

   305 

   307 

   306 procedure KeyPressChat(Key, Sym: Longword);

   308 procedure KeyPressChat(Key, Sym: Longword);

   419 

   421 

   420 procedure chChat(var s: shortstring);

   422 procedure chChat(var s: shortstring);

   421 begin

   423 begin

   422     s:= s; // avoid compiler hint

   424     s:= s; // avoid compiler hint

   423     GameState:= gsChat;

   425     GameState:= gsChat;

   424     SDL_EnableKeyRepeat(200,45);

   427     SDL_EnableKeyRepeat(200,45);

   425     if length(s) = 0 then

   429     if length(s) = 0 then

   426         SetLine(InputStr, '', true)

   430         SetLine(InputStr, '', true)

   427     else

   431     else

   428         SetLine(InputStr, '/team ', true)

   432         SetLine(InputStr, '/team ', true)

   429 end;

   433 end;