equal
deleted
inserted
replaced
237 end; |
237 end; |
238 |
238 |
239 procedure SendIPCXY(cmd: char; X, Y: LongInt); |
239 procedure SendIPCXY(cmd: char; X, Y: LongInt); |
240 var s: shortstring; |
240 var s: shortstring; |
241 begin |
241 begin |
242 s[0]:= #5; |
242 s[0]:= #9; |
243 s[1]:= cmd; |
243 s[1]:= cmd; |
244 SDLNet_Write32(X, @s[2]); |
244 SDLNet_Write32(X, @s[2]); |
245 SDLNet_Write32(Y, @s[4]); |
245 SDLNet_Write32(Y, @s[6]); |
246 SendIPC(s) |
246 SendIPC(s) |
247 end; |
247 end; |
248 |
248 |
249 procedure IPCWaitPongEvent; |
249 procedure IPCWaitPongEvent; |
250 begin |
250 begin |