hedgewars/uChat.pas
changeset 1378 1a391883261d
parent 1118 caf47265d03f
child 1431 21ca09524f9c
--- a/hedgewars/uChat.pas	Sat Oct 18 13:53:58 2008 +0000
+++ b/hedgewars/uChat.pas	Sat Oct 18 17:01:34 2008 +0000
@@ -120,7 +120,7 @@
 procedure AcceptChatString(s: shortstring);
 var i: TWave;
 begin
-if s[1] = '/' then
+if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then
 	begin
 	if CurrentTeam^.ExtDriven then exit;