equal
deleted
inserted
replaced
45 1: (len: byte; |
45 1: (len: byte; |
46 cmd: Char; |
46 cmd: Char; |
47 X, Y: SmallInt); |
47 X, Y: SmallInt); |
48 2: (str: shortstring); |
48 2: (str: shortstring); |
49 end; |
49 end; |
50 cmdcurpos: integer = 0; |
50 cmdcurpos: LongInt = 0; |
51 cmdendpos: integer = -1; |
51 cmdendpos: LongInt = -1; |
52 |
52 |
53 procedure InitIPC; |
53 procedure InitIPC; |
54 var ipaddr: TIPAddress; |
54 var ipaddr: TIPAddress; |
55 begin |
55 begin |
56 WriteToConsole('Init SDL_Net... '); |
56 WriteToConsole('Init SDL_Net... '); |
96 end |
96 end |
97 end; |
97 end; |
98 |
98 |
99 procedure IPCCheckSock; |
99 procedure IPCCheckSock; |
100 const ss: string = ''; |
100 const ss: string = ''; |
101 var i: integer; |
101 var i: LongInt; |
102 buf: array[0..255] of byte; |
102 buf: array[0..255] of byte; |
103 s: shortstring absolute buf; |
103 s: shortstring absolute buf; |
104 begin |
104 begin |
105 fds^.numsockets:= 0; |
105 fds^.numsockets:= 0; |
106 SDLNet_AddSocket(fds, IPCSock); |
106 SDLNet_AddSocket(fds, IPCSock); |