292 's': begin |
292 's': begin |
293 s:= copy(headcmd^.str, 2, Pred(headcmd^.len)); |
293 s:= copy(headcmd^.str, 2, Pred(headcmd^.len)); |
294 AddChatString(s); |
294 AddChatString(s); |
295 WriteLnToConsole(s) |
295 WriteLnToConsole(s) |
296 end; |
296 end; |
|
297 'b': begin |
|
298 s:= copy(headcmd^.str, 2, Pred(headcmd^.len)); |
|
299 AddChatString(#4 + s); |
|
300 WriteLnToConsole(s) |
|
301 end; |
297 'F': TeamGone(copy(headcmd^.str, 2, Pred(headcmd^.len))); |
302 'F': TeamGone(copy(headcmd^.str, 2, Pred(headcmd^.len))); |
298 'N': begin |
303 'N': begin |
299 tmpflag:= false; |
304 tmpflag:= false; |
300 {$IFDEF DEBUGFILE}AddFileLog('got cmd "N": time '+inttostr(headcmd^.Time)){$ENDIF} |
305 {$IFDEF DEBUGFILE}AddFileLog('got cmd "N": time '+inttostr(headcmd^.Time)){$ENDIF} |
301 end; |
306 end; |
310 end; |
315 end; |
311 'w': ParseCommand('setweap ' + headcmd^.str[2], true); |
316 'w': ParseCommand('setweap ' + headcmd^.str[2], true); |
312 't': ParseCommand('taunt ' + headcmd^.str[2], true); |
317 't': ParseCommand('taunt ' + headcmd^.str[2], true); |
313 'g': ParseCommand('newgrave', true); |
318 'g': ParseCommand('newgrave', true); |
314 'h': ParseCommand('hogsay ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true); |
319 'h': ParseCommand('hogsay ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true); |
315 'b': if LocalClan = byte(headcmd^.str[2]) then |
|
316 begin |
|
317 s:= copy(headcmd^.str, 3, Pred(headcmd^.len)); |
|
318 AddChatString(#4 + s); |
|
319 WriteLnToConsole(s) |
|
320 end; |
|
321 '1'..'5': ParseCommand('timer ' + headcmd^.cmd, true); |
320 '1'..'5': ParseCommand('timer ' + headcmd^.cmd, true); |
322 #128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true) |
321 #128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true) |
323 else |
322 else |
324 OutError('Unexpected protocol command: ' + headcmd^.cmd, True) |
323 OutError('Unexpected protocol command: ' + headcmd^.cmd, True) |
325 end; |
324 end; |