less cryptic text insertion
authorkoda
Sun, 17 Mar 2013 01:26:40 +0100
changeset 8739 bbab7e35eaf2
parent 8738 50291d9a4ca0
child 8740 3eb1891f81ef
less cryptic text insertion
hedgewars/uChat.pas
--- a/hedgewars/uChat.pas	Sun Mar 17 01:15:22 2013 +0100
+++ b/hedgewars/uChat.pas	Sun Mar 17 01:26:40 2013 +0100
@@ -412,15 +412,7 @@
     if length(s) = 0 then
         SetLine(InputStr, '', true)
     else
-        begin
-        // "/team "
-        KeyPressChat(47);
-        KeyPressChat(116);
-        KeyPressChat(101);
-        KeyPressChat(97);
-        KeyPressChat(109);
-        KeyPressChat(32)
-        end
+        SetLine(InputStr, '/team ', true)
 end;
 
 procedure initModule;