equal
deleted
inserted
replaced
45 procedure InitIPC; |
45 procedure InitIPC; |
46 procedure CloseIPC; |
46 procedure CloseIPC; |
47 procedure NetGetNextCmd; |
47 procedure NetGetNextCmd; |
48 |
48 |
49 implementation |
49 implementation |
50 uses uConsole, uConsts, uLand, uChat, uTeams, uVariables, uCommands, uUtils; |
50 uses uConsole, uConsts, uChat, uTeams, uVariables, uCommands, uUtils; |
51 |
51 |
52 type PCmd = ^TCmd; |
52 type PCmd = ^TCmd; |
53 TCmd = packed record |
53 TCmd = packed record |
54 Next: PCmd; |
54 Next: PCmd; |
55 loTime: Word; |
55 loTime: Word; |
152 '!': begin {$IFDEF DEBUGFILE}AddFileLog('Ping? Pong!');{$ENDIF}isPonged:= true; end; |
152 '!': begin {$IFDEF DEBUGFILE}AddFileLog('Ping? Pong!');{$ENDIF}isPonged:= true; end; |
153 '?': SendIPC('!'); |
153 '?': SendIPC('!'); |
154 'e': ParseCommand(copy(s, 2, Length(s) - 1), true); |
154 'e': ParseCommand(copy(s, 2, Length(s) - 1), true); |
155 'E': OutError(copy(s, 2, Length(s) - 1), true); |
155 'E': OutError(copy(s, 2, Length(s) - 1), true); |
156 'W': OutError(copy(s, 2, Length(s) - 1), false); |
156 'W': OutError(copy(s, 2, Length(s) - 1), false); |
157 'M': CheckLandDigest(s); |
157 'M': ParseCommand('landcheck ' + s, true); |
158 'T': case s[2] of |
158 'T': case s[2] of |
159 'L': GameType:= gmtLocal; |
159 'L': GameType:= gmtLocal; |
160 'D': GameType:= gmtDemo; |
160 'D': GameType:= gmtDemo; |
161 'N': GameType:= gmtNet; |
161 'N': GameType:= gmtNet; |
162 'S': GameType:= gmtSave; |
162 'S': GameType:= gmtSave; |