diff -r f726e36c3e24 -r 7e40820b7ed6 hedgewars/uChat.pas --- a/hedgewars/uChat.pas Sat Jun 14 07:12:22 2014 +0200 +++ b/hedgewars/uChat.pas Sat Jun 14 15:49:44 2014 +0200 @@ -288,7 +288,7 @@ if (s[1] = '/') then begin // These 3 are same as above, only are to make the hedgehog say it on next attack - if (copy(s, 1, 5) = '/hsa ') then + if (copy(s, 2, 4) = 'hsa ') then begin if CurrentTeam^.ExtDriven then ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) @@ -297,7 +297,7 @@ exit end; - if (copy(s, 1, 5) = '/hta ') then + if (copy(s, 2, 4) = 'hta ') then begin if CurrentTeam^.ExtDriven then ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) @@ -306,7 +306,7 @@ exit end; - if (copy(s, 1, 5) = '/hya ') then + if (copy(s, 2, 4) = 'hya ') then begin if CurrentTeam^.ExtDriven then ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) @@ -315,18 +315,27 @@ exit end; - if (copy(s, 1, 6) = '/team ') and (length(s) > 6) then + if (copy(s, 2, 5) = 'team ') and (length(s) > 6) then begin ParseCommand(s, true); exit end; - if (copy(s, 1, 4) = '/me ') then + if (copy(s, 2, 3) = 'me ') then begin ParseCommand('/say ' + s, true); exit end; + // debugging commands + if (copy(s, 2, 7) = 'debugvl') then + begin + cViewLimitsDebug:= (not cViewLimitsDebug); + UpdateViewLimits(); + exit + end; + end; + if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then begin for i:= Low(TWave) to High(TWave) do @@ -343,7 +352,6 @@ exit end; end - end else ParseCommand('/say ' + s, true); end;