hedgewars/uIO.pas
changeset 2124 d39c61eaca15
parent 2066 d0e3f570b901
child 2154 3d2917be12c3
--- a/hedgewars/uIO.pas	Wed May 27 03:48:59 2009 +0000
+++ b/hedgewars/uIO.pas	Wed May 27 03:52:07 2009 +0000
@@ -252,6 +252,7 @@
 	and tmpflag
 	and ((GameTicks = headcmd^.Time)
 		or (headcmd^.cmd = 's')
+		or (headcmd^.cmd = 'b')
 		or (headcmd^.cmd = 'F')) do
 	begin
 	case headcmd^.cmd of
@@ -295,6 +296,12 @@
 		't': ParseCommand('taunt ' + headcmd^.str[2], true);
 		'g': ParseCommand('newgrave', true);
 		'h': ParseCommand('hogsay ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true);
+		'b': if LocalClan = byte(headcmd^.str[2]) then
+               begin
+               s:= copy(headcmd^.str, 3, Pred(headcmd^.len));
+               AddChatString(s);
+               WriteLnToConsole(s)
+               end;
 		'1'..'5': ParseCommand('timer ' + headcmd^.cmd, true);
 		#128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true)
 		else