hedgewars/uIO.pas
changeset 2396 e13a1117152b
parent 2382 bfd378dfc4e7
child 2403 6c5d504af2ba
equal deleted inserted replaced
2395:d01d3bf3e1de 2396:e13a1117152b
   313 		'g': ParseCommand('newgrave', true);
   313 		'g': ParseCommand('newgrave', true);
   314 		'h': ParseCommand('hogsay ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true);
   314 		'h': ParseCommand('hogsay ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true);
   315 		'b': if LocalClan = byte(headcmd^.str[2]) then
   315 		'b': if LocalClan = byte(headcmd^.str[2]) then
   316                begin
   316                begin
   317                s:= copy(headcmd^.str, 3, Pred(headcmd^.len));
   317                s:= copy(headcmd^.str, 3, Pred(headcmd^.len));
   318                AddChatString(s);
   318                AddChatString(#4 + s);
   319                WriteLnToConsole(s)
   319                WriteLnToConsole(s)
   320                end;
   320                end;
   321 		'1'..'5': ParseCommand('timer ' + headcmd^.cmd, true);
   321 		'1'..'5': ParseCommand('timer ' + headcmd^.cmd, true);
   322 		#128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true)
   322 		#128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true)
   323 		else
   323 		else