hedgewars/uIO.pas
changeset 10850 c76ea22ea249
parent 10818 f642a28cab0c
child 10851 f25dad9c3136
equal deleted inserted replaced
10849:a772d342066a 10850:c76ea22ea249
   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);
   141      'e': ParseCommand(copy(s, 2, Length(s) - 1), true);
   142      'e': ParseCommand(copy(s, 2, Length(s) - 1), true);
   142      'E': OutError(copy(s, 2, Length(s) - 1), true);
   143      'E': OutError(copy(s, 2, Length(s) - 1), true);
   143      'W': OutError(copy(s, 2, Length(s) - 1), false);
   144      'W': OutError(copy(s, 2, Length(s) - 1), false);
   144      'M': ParseCommand('landcheck ' + s, true);
   145      'M': ParseCommand('landcheck ' + s, true);
   145      'o': if fastUntilLag then ParseCommand('forcequit', true);
   146      'o': if fastUntilLag then ParseCommand('forcequit', true);