hedgewars/uChat.pas
changeset 7722 1518827049ed
parent 7117 7df6386f7090
child 8026 4a4f21070479
child 8152 5e329951afe5
equal deleted inserted replaced
7721:2b1ad418ba39 7722:1518827049ed
   374     if length(s) = 0 then
   374     if length(s) = 0 then
   375         SetLine(InputStr, '', true)
   375         SetLine(InputStr, '', true)
   376     else
   376     else
   377         begin
   377         begin
   378         // err, does anyone have any documentation on this sequence?
   378         // err, does anyone have any documentation on this sequence?
       
   379         // ^^ isn't it obvious? 27 is esc, 32 is space, inbetween is "/team"
   379         KeyPressChat(27);
   380         KeyPressChat(27);
   380         KeyPressChat(47);
   381         KeyPressChat(47);
   381         KeyPressChat(116);
   382         KeyPressChat(116);
   382         KeyPressChat(101);
   383         KeyPressChat(101);
   383         KeyPressChat(97);
   384         KeyPressChat(97);