hedgewars/uChat.pas
changeset 8739 bbab7e35eaf2
parent 8738 50291d9a4ca0
child 8740 3eb1891f81ef
equal deleted inserted replaced
8738:50291d9a4ca0 8739:bbab7e35eaf2
   410     GameState:= gsChat;
   410     GameState:= gsChat;
   411     SDL_EnableKeyRepeat(200,45);
   411     SDL_EnableKeyRepeat(200,45);
   412     if length(s) = 0 then
   412     if length(s) = 0 then
   413         SetLine(InputStr, '', true)
   413         SetLine(InputStr, '', true)
   414     else
   414     else
   415         begin
   415         SetLine(InputStr, '/team ', true)
   416         // "/team "
       
   417         KeyPressChat(47);
       
   418         KeyPressChat(116);
       
   419         KeyPressChat(101);
       
   420         KeyPressChat(97);
       
   421         KeyPressChat(109);
       
   422         KeyPressChat(32)
       
   423         end
       
   424 end;
   416 end;
   425 
   417 
   426 procedure initModule;
   418 procedure initModule;
   427 var i: ShortInt;
   419 var i: ShortInt;
   428 begin
   420 begin