hedgewars/uIO.pas
changeset 10851 f25dad9c3136
parent 10850 c76ea22ea249
child 10862 4575977d3ce0
--- a/hedgewars/uIO.pas	Sun Mar 08 01:04:41 2015 +0100
+++ b/hedgewars/uIO.pas	Sun Mar 08 01:51:27 2015 +0100
@@ -138,7 +138,6 @@
 case s[1] of
      '!': begin AddFileLog('Ping? Pong!'); isPonged:= true; end;
      '?': SendIPC(_S'!');
-     'P': ChatPasteBuffer:= copy(s, 2, Length(s) - 1);
      'e': ParseCommand(copy(s, 2, Length(s) - 1), true);
      'E': OutError(copy(s, 2, Length(s) - 1), true);
      'W': OutError(copy(s, 2, Length(s) - 1), false);
@@ -164,6 +163,7 @@
              ParseChatCommand('chatmsg ' + #4, s, 2)
           else
              isProcessed:= false;
+     'Y': ChatPasteBuffer:= copy(s, 2, Length(s) - 1);
      else
         isProcessed:= false;
      end;