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