286 end; |
286 end; |
287 |
287 |
288 if (s[1] = '/') then |
288 if (s[1] = '/') then |
289 begin |
289 begin |
290 // These 3 are same as above, only are to make the hedgehog say it on next attack |
290 // These 3 are same as above, only are to make the hedgehog say it on next attack |
291 if (copy(s, 1, 5) = '/hsa ') then |
291 if (copy(s, 2, 4) = 'hsa ') then |
292 begin |
292 begin |
293 if CurrentTeam^.ExtDriven then |
293 if CurrentTeam^.ExtDriven then |
294 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
294 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
295 else |
295 else |
296 SendHogSpeech(#4 + copy(s, 6, Length(s)-5)); |
296 SendHogSpeech(#4 + copy(s, 6, Length(s)-5)); |
297 exit |
297 exit |
298 end; |
298 end; |
299 |
299 |
300 if (copy(s, 1, 5) = '/hta ') then |
300 if (copy(s, 2, 4) = 'hta ') then |
301 begin |
301 begin |
302 if CurrentTeam^.ExtDriven then |
302 if CurrentTeam^.ExtDriven then |
303 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
303 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
304 else |
304 else |
305 SendHogSpeech(#5 + copy(s, 6, Length(s)-5)); |
305 SendHogSpeech(#5 + copy(s, 6, Length(s)-5)); |
306 exit |
306 exit |
307 end; |
307 end; |
308 |
308 |
309 if (copy(s, 1, 5) = '/hya ') then |
309 if (copy(s, 2, 4) = 'hya ') then |
310 begin |
310 begin |
311 if CurrentTeam^.ExtDriven then |
311 if CurrentTeam^.ExtDriven then |
312 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
312 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
313 else |
313 else |
314 SendHogSpeech(#6 + copy(s, 6, Length(s)-5)); |
314 SendHogSpeech(#6 + copy(s, 6, Length(s)-5)); |
315 exit |
315 exit |
316 end; |
316 end; |
317 |
317 |
318 if (copy(s, 1, 6) = '/team ') and (length(s) > 6) then |
318 if (copy(s, 2, 5) = 'team ') and (length(s) > 6) then |
319 begin |
319 begin |
320 ParseCommand(s, true); |
320 ParseCommand(s, true); |
321 exit |
321 exit |
322 end; |
322 end; |
323 |
323 |
324 if (copy(s, 1, 4) = '/me ') then |
324 if (copy(s, 2, 3) = 'me ') then |
325 begin |
325 begin |
326 ParseCommand('/say ' + s, true); |
326 ParseCommand('/say ' + s, true); |
327 exit |
327 exit |
328 end; |
328 end; |
|
329 |
|
330 // debugging commands |
|
331 if (copy(s, 2, 7) = 'debugvl') then |
|
332 begin |
|
333 cViewLimitsDebug:= (not cViewLimitsDebug); |
|
334 UpdateViewLimits(); |
|
335 exit |
|
336 end; |
|
337 end; |
329 |
338 |
330 if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then |
339 if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then |
331 begin |
340 begin |
332 for i:= Low(TWave) to High(TWave) do |
341 for i:= Low(TWave) to High(TWave) do |
333 if (s = Wavez[i].cmd) then |
342 if (s = Wavez[i].cmd) then |