41 procedure InitIPC; |
41 procedure InitIPC; |
42 procedure CloseIPC; |
42 procedure CloseIPC; |
43 procedure NetGetNextCmd; |
43 procedure NetGetNextCmd; |
44 |
44 |
45 implementation |
45 implementation |
46 uses uConsole, uConsts, uChat, uTeams, uVariables, uCommands, uUtils, uDebug; |
46 uses uConsole, uConsts, uVariables, uCommands, uUtils, uDebug; |
47 |
47 |
48 type PCmd = ^TCmd; |
48 type PCmd = ^TCmd; |
49 TCmd = packed record |
49 TCmd = packed record |
50 Next: PCmd; |
50 Next: PCmd; |
51 loTime: Word; |
51 loTime: Word; |
307 'j': ParseCommand('ljump', true); |
307 'j': ParseCommand('ljump', true); |
308 'J': ParseCommand('hjump', true); |
308 'J': ParseCommand('hjump', true); |
309 ',': ParseCommand('skip', true); |
309 ',': ParseCommand('skip', true); |
310 's': begin |
310 's': begin |
311 s:= copy(headcmd^.str, 2, Pred(headcmd^.len)); |
311 s:= copy(headcmd^.str, 2, Pred(headcmd^.len)); |
312 AddChatString(s); |
312 ParseCommand('chatmsg' + s, true); |
313 WriteLnToConsole(s) |
313 WriteLnToConsole(s) |
314 end; |
314 end; |
315 'b': begin |
315 'b': begin |
316 s:= copy(headcmd^.str, 2, Pred(headcmd^.len)); |
316 s:= copy(headcmd^.str, 2, Pred(headcmd^.len)); |
317 AddChatString(#4 + s); |
317 ParseCommand('chatmsg'#4 + s, true); |
318 WriteLnToConsole(s) |
318 WriteLnToConsole(s) |
319 end; |
319 end; |
320 'F': TeamGone(copy(headcmd^.str, 2, Pred(headcmd^.len))); |
320 // TODO: deprecate 'F' |
|
321 'F': ParseCommand('teamgone ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true); |
321 'N': begin |
322 'N': begin |
322 tmpflag:= false; |
323 tmpflag:= false; |
323 {$IFDEF DEBUGFILE}AddFileLog('got cmd "N": time '+IntToStr(hiTicks shl 16 + headcmd^.loTime)){$ENDIF} |
324 {$IFDEF DEBUGFILE}AddFileLog('got cmd "N": time '+IntToStr(hiTicks shl 16 + headcmd^.loTime)){$ENDIF} |
324 end; |
325 end; |
325 'p': begin |
326 'p': begin |