hedgewars/uIO.pas
changeset 10851 f25dad9c3136
parent 10850 c76ea22ea249
child 10862 4575977d3ce0
equal deleted inserted replaced
10850:c76ea22ea249 10851:f25dad9c3136
   136 isProcessed := true;
   136 isProcessed := true;
   137 
   137 
   138 case s[1] of
   138 case s[1] of
   139      '!': begin AddFileLog('Ping? Pong!'); isPonged:= true; end;
   139      '!': begin AddFileLog('Ping? Pong!'); isPonged:= true; end;
   140      '?': SendIPC(_S'!');
   140      '?': SendIPC(_S'!');
   141      'P': ChatPasteBuffer:= copy(s, 2, Length(s) - 1);
       
   142      'e': ParseCommand(copy(s, 2, Length(s) - 1), true);
   141      'e': ParseCommand(copy(s, 2, Length(s) - 1), true);
   143      'E': OutError(copy(s, 2, Length(s) - 1), true);
   142      'E': OutError(copy(s, 2, Length(s) - 1), true);
   144      'W': OutError(copy(s, 2, Length(s) - 1), false);
   143      'W': OutError(copy(s, 2, Length(s) - 1), false);
   145      'M': ParseCommand('landcheck ' + s, true);
   144      'M': ParseCommand('landcheck ' + s, true);
   146      'o': if fastUntilLag then ParseCommand('forcequit', true);
   145      'o': if fastUntilLag then ParseCommand('forcequit', true);
   162              isProcessed:= false;
   161              isProcessed:= false;
   163      'b': if gameType = gmtNet then
   162      'b': if gameType = gmtNet then
   164              ParseChatCommand('chatmsg ' + #4, s, 2)
   163              ParseChatCommand('chatmsg ' + #4, s, 2)
   165           else
   164           else
   166              isProcessed:= false;
   165              isProcessed:= false;
       
   166      'Y': ChatPasteBuffer:= copy(s, 2, Length(s) - 1);
   167      else
   167      else
   168         isProcessed:= false;
   168         isProcessed:= false;
   169      end;
   169      end;
   170 
   170 
   171     if (not isProcessed) then
   171     if (not isProcessed) then