equal
deleted
inserted
replaced
136 isProcessed := true; |
136 isProcessed := true; |
137 |
137 |
138 case s[1] of |
138 case s[1] of |
139 '!': begin AddFileLog('Ping? Pong!'); isPonged:= true; end; |
139 '!': begin AddFileLog('Ping? Pong!'); isPonged:= true; end; |
140 '?': SendIPC(_S'!'); |
140 '?': SendIPC(_S'!'); |
141 'P': ChatPasteBuffer:= copy(s, 2, Length(s) - 1); |
|
142 'e': ParseCommand(copy(s, 2, Length(s) - 1), true); |
141 'e': ParseCommand(copy(s, 2, Length(s) - 1), true); |
143 'E': OutError(copy(s, 2, Length(s) - 1), true); |
142 'E': OutError(copy(s, 2, Length(s) - 1), true); |
144 'W': OutError(copy(s, 2, Length(s) - 1), false); |
143 'W': OutError(copy(s, 2, Length(s) - 1), false); |
145 'M': ParseCommand('landcheck ' + s, true); |
144 'M': ParseCommand('landcheck ' + s, true); |
146 'o': if fastUntilLag then ParseCommand('forcequit', true); |
145 'o': if fastUntilLag then ParseCommand('forcequit', true); |
162 isProcessed:= false; |
161 isProcessed:= false; |
163 'b': if gameType = gmtNet then |
162 'b': if gameType = gmtNet then |
164 ParseChatCommand('chatmsg ' + #4, s, 2) |
163 ParseChatCommand('chatmsg ' + #4, s, 2) |
165 else |
164 else |
166 isProcessed:= false; |
165 isProcessed:= false; |
|
166 'Y': ChatPasteBuffer:= copy(s, 2, Length(s) - 1); |
167 else |
167 else |
168 isProcessed:= false; |
168 isProcessed:= false; |
169 end; |
169 end; |
170 |
170 |
171 if (not isProcessed) then |
171 if (not isProcessed) then |