equal
deleted
inserted
replaced
240 else |
240 else |
241 SendHogSpeech(char(x) + char(t) + copy(s, 2, Length(s)-2)); |
241 SendHogSpeech(char(x) + char(t) + copy(s, 2, Length(s)-2)); |
242 exit |
242 exit |
243 end; |
243 end; |
244 |
244 |
245 // These 3 are same as above, only are to make the hedgehog say it on next attack |
|
246 if (s[1] = '/') then |
245 if (s[1] = '/') then |
247 begin |
246 begin |
|
247 // These 3 are same as above, only are to make the hedgehog say it on next attack |
248 if (copy(s, 1, 5) = '/hsa ') then |
248 if (copy(s, 1, 5) = '/hsa ') then |
249 begin |
249 begin |
250 if CurrentTeam^.ExtDriven then |
250 if CurrentTeam^.ExtDriven then |
251 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
251 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
252 else |
252 else |
295 begin |
295 begin |
296 ParseCommand(ChatCommandz[j].ProcedureCallChatCmd, true); |
296 ParseCommand(ChatCommandz[j].ProcedureCallChatCmd, true); |
297 exit |
297 exit |
298 end; |
298 end; |
299 end |
299 end |
300 else |
|
301 ParseCommand('/say ' + s, true); |
|
302 end |
300 end |
|
301 else |
|
302 ParseCommand('/say ' + s, true); |
303 end; |
303 end; |
304 |
304 |
305 procedure CleanupInput; |
305 procedure CleanupInput; |
306 begin |
306 begin |
307 FreezeEnterKey; |
307 FreezeEnterKey; |