hedgewars/uChat.pas
changeset 8516 e422cbf9aa33
parent 8152 5e329951afe5
child 8735 42892d1fb9e1
equal deleted inserted replaced
8515:222f43420615 8516:e422cbf9aa33
   392     SDL_EnableKeyRepeat(200,45);
   392     SDL_EnableKeyRepeat(200,45);
   393     if length(s) = 0 then
   393     if length(s) = 0 then
   394         SetLine(InputStr, '', true)
   394         SetLine(InputStr, '', true)
   395     else
   395     else
   396         begin
   396         begin
   397         // err, does anyone have any documentation on this sequence?
   397         // "/team "
   398         // ^^ isn't it obvious? 27 is esc, 32 is space, inbetween is "/team"
       
   399         KeyPressChat(27);
       
   400         KeyPressChat(47);
   398         KeyPressChat(47);
   401         KeyPressChat(116);
   399         KeyPressChat(116);
   402         KeyPressChat(101);
   400         KeyPressChat(101);
   403         KeyPressChat(97);
   401         KeyPressChat(97);
   404         KeyPressChat(109);
   402         KeyPressChat(109);