equal
deleted
inserted
replaced
235 end; |
235 end; |
236 |
236 |
237 procedure SendIPCTimeInc; |
237 procedure SendIPCTimeInc; |
238 const timeinc: shortstring = '#'; |
238 const timeinc: shortstring = '#'; |
239 begin |
239 begin |
|
240 {$IFDEF DEBUGFILE}AddFileLog('IPC Send #');{$ENDIF} |
240 SendIPCRaw(@timeinc, 2) |
241 SendIPCRaw(@timeinc, 2) |
241 end; |
242 end; |
242 |
243 |
243 procedure IPCWaitPongEvent; |
244 procedure IPCWaitPongEvent; |
244 begin |
245 begin |
327 CursorPoint.Y:= cScreenHeight - SmallInt(SDLNet_Read16(@(headcmd^.Y))) - WorldDy |
328 CursorPoint.Y:= cScreenHeight - SmallInt(SDLNet_Read16(@(headcmd^.Y))) - WorldDy |
328 end |
329 end |
329 end; |
330 end; |
330 'w': ParseCommand('setweap ' + headcmd^.str[2], true); |
331 'w': ParseCommand('setweap ' + headcmd^.str[2], true); |
331 't': ParseCommand('taunt ' + headcmd^.str[2], true); |
332 't': ParseCommand('taunt ' + headcmd^.str[2], true); |
332 'g': ParseCommand('newgrave', true); |
|
333 'h': ParseCommand('hogsay ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true); |
333 'h': ParseCommand('hogsay ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true); |
334 '1'..'5': ParseCommand('timer ' + headcmd^.cmd, true); |
334 '1'..'5': ParseCommand('timer ' + headcmd^.cmd, true); |
335 #128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true) |
335 #128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true) |
336 else |
336 else |
337 OutError('Unexpected protocol command: ' + headcmd^.cmd, True) |
337 OutError('Unexpected protocol command: ' + headcmd^.cmd, True) |
364 end; |
364 end; |
365 |
365 |
366 procedure freeModule; |
366 procedure freeModule; |
367 begin |
367 begin |
368 ipcPort:= 0; |
368 ipcPort:= 0; |
369 |
|
370 end; |
369 end; |
371 |
370 |
372 end. |
371 end. |